examples/gui/widgettest/scrollboxform.frm


1
2
3
4
5
6
7
8
9
10
11
12
13
14

object ScrollBoxForm: TScrollBoxForm
  BorderWidth = 8
  Text = 'Scroll box test'
  WindowOptions = [woWindow]
  object VertLayout: TBoxLayout
    Orientation = Vertical
    object Label1: TLabel
      CanExpandWidth = True
      Text = 'ScrollBox should be transparent in this demo.'
    end
    object ScrollBox: TScrollBox
    end
  end
end