1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
object Form1: TForm1
Left = 310
Height = 161
Top = 151
Width = 385
ActiveControl = swInitSize
Caption = 'Form1'
ClientHeight = 161
ClientWidth = 385
LCLVersion = '1.7'
object ToolBar1: TToolBar
Left = 0
Height = 26
Top = 0
Width = 385
AutoSize = True
BorderWidth = 2
Caption = 'ToolBar1'
EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
Flat = False
List = True
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Left = 3
Top = 2
AutoSize = True
Caption = 'ToolButton0'
Grouped = True
Style = tbsCheck
Visible = False
end
end
object Button1: TButton
Left = 8
Height = 25
Top = 88
Width = 75
Caption = 'Add button'
OnClick = Button1Click
TabOrder = 1
end
object swInitSize: TCheckBox
Left = 112
Height = 20
Top = 88
Width = 118
Caption = 'init button size'
TabOrder = 2
end
object swView1: TCheckBox
Left = 112
Height = 20
Top = 112
Width = 139
Caption = 'First button visible'
OnClick = swView1Click
TabOrder = 3
end
object StatusBar1: TStatusBar
Left = 0
Height = 19
Top = 142
Width = 385
Panels = <>
end
end
|
