blob: bc820b77427704107ac512b5cddba2c7036e1828 (
plain)
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
|
object ScrollBarForm: TScrollBarForm
BorderWidth = 8
Text = 'Scroll bar test'
object VertBox: TFBoxLayout
Orientation = Vertical
object GrayCheckBox: TFCheckBox
Text = 'Gray everything'
OnClick = GrayCheckBoxClick
end
object HorzBox: TFBoxLayout
object HorzGrid: TFGridLayout
ColCount = 3
RowCount = 6
ColSpacing = 8
GridPositions = <
item
x = 2
Widget = Col3Label
end
item
y = 1
Widget = Label1
end
item
x = 1
y = 1
Widget = ScrollBar1
end
item
x = 2
y = 1
Widget = PosLabel1
end
item
y = 2
Widget = Label2
end
item
x = 1
y = 2
Widget = ScrollBar2
end
item
x = 2
y = 2
Widget = PosLabel2
end
item
y = 3
Widget = Label3
end
item
x = 1
y = 3
Widget = ScrollBar3
end
item
x = 2
y = 3
Widget = PosLabel3
end
item
y = 4
Widget = Label4
end
item
x = 1
y = 4
Widget = ScrollBar4
end
item
x = 2
y = 4
Widget = PosLabel4
end
item
y = 5
Widget = Label5
end
item
x = 1
y = 5
Widget = ScrollBar5
end
item
x = 2
y = 5
Widget = PosLabel5
end>
object Col3Label: TFLabel
Alignment = taCenter
Text = 'Position'
end
object Label1: TFLabel
Alignment = taRightJustify
Text = '0..1, PageSize=0:'
end
object ScrollBar1: TFScrollBar
Min = 0
Max = 1
OnChange = ScrollBar1Change
end
object PosLabel1: TFLabel
Alignment = taCenter
Text = '---'
end
object Label2: TFLabel
Alignment = taRightJustify
Text = '0..1, PageSize=1:'
end
object ScrollBar2: TFScrollBar
Max = 1
PageSize = 1
OnChange = ScrollBar2Change
end
object PosLabel2: TFLabel
Alignment = taCenter
Text = '---'
end
object Label3: TFLabel
Alignment = taRightJustify
Text = '-2..3, PageSize=0:'
end
object ScrollBar3: TFScrollBar
Min = -2
Max = 3
OnChange = ScrollBar3Change
end
object PosLabel3: TFLabel
Alignment = taCenter
Text = '---'
end
object Label4: TFLabel
Alignment = taRightJustify
Text = '-5..9, PageSize=4:'
end
object ScrollBar4: TFScrollBar
Min = -5
Max = 9
PageSize = 4
OnChange = ScrollBar4Change
end
object PosLabel4: TFLabel
Alignment = taCenter
Text = '---'
end
object Label5: TFLabel
Alignment = taRightJustify
Text = '-100..200, PageSize=7:'
end
object ScrollBar5: TFScrollBar
Min = -100
Max = 200
PageSize = 7
OnChange = ScrollBar5Change
end
object PosLabel5: TFLabel
Alignment = taCenter
Text = '---'
end
end
object VertBar: TSeparator
Orientation = Vertical
end
object VerTFLabel: TFLabel
Text = 'Vertical:'
end
object VertScrollBar: TFScrollBar
Orientation = Vertical
Min = -2
Max = 3
end
end
end
end
|