blob: 5c238e23aba22d68b742ced8a34c1fea183d2643 (
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: TBoxLayout
Orientation = Vertical
object GrayCheckBox: TCheckBox
Text = 'Gray everything'
OnClick = GrayCheckBoxClick
end
object HorzBox: TBoxLayout
object HorzGrid: TGridLayout
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: TLabel
Alignment = taCenter
Text = 'Position'
end
object Label1: TLabel
Alignment = taRightJustify
Text = '0..1, PageSize=0:'
end
object ScrollBar1: TScrollBar
Min = 0
Max = 1
OnChange = ScrollBar1Change
end
object PosLabel1: TLabel
Alignment = taCenter
Text = '---'
end
object Label2: TLabel
Alignment = taRightJustify
Text = '0..1, PageSize=1:'
end
object ScrollBar2: TScrollBar
Max = 1
PageSize = 1
OnChange = ScrollBar2Change
end
object PosLabel2: TLabel
Alignment = taCenter
Text = '---'
end
object Label3: TLabel
Alignment = taRightJustify
Text = '-2..3, PageSize=0:'
end
object ScrollBar3: TScrollBar
Min = -2
Max = 3
OnChange = ScrollBar3Change
end
object PosLabel3: TLabel
Alignment = taCenter
Text = '---'
end
object Label4: TLabel
Alignment = taRightJustify
Text = '-5..9, PageSize=4:'
end
object ScrollBar4: TScrollBar
Min = -5
Max = 9
PageSize = 4
OnChange = ScrollBar4Change
end
object PosLabel4: TLabel
Alignment = taCenter
Text = '---'
end
object Label5: TLabel
Alignment = taRightJustify
Text = '-100..200, PageSize=7:'
end
object ScrollBar5: TScrollBar
Min = -100
Max = 200
PageSize = 7
OnChange = ScrollBar5Change
end
object PosLabel5: TLabel
Alignment = taCenter
Text = '---'
end
end
object VertBar: TSeparator
Orientation = Vertical
end
object VertLabel: TLabel
Text = 'Vertical:'
end
object VertScrollBar: TScrollBar
Orientation = Vertical
Min = -2
Max = 3
end
end
end
end
|
