Statistics
| Branch: | Tag: | Revision:

root / Client / UfrmRegionControl.lfm @ 13:c78b5eafa10e

History | View | Annotate | Download (14.1 kB)

1
object frmRegionControl: TfrmRegionControl
2
  Left = 247
3
  Height = 392
4
  Top = 139
5
  Width = 620
6
  ActiveControl = vstRegions
7
  Caption = 'Region Control'
8
  ClientHeight = 392
9
  ClientWidth = 620
10
  Font.Height = -11
11
  OnCreate = FormCreate
12
  OnDestroy = FormDestroy
13
  OnShow = FormShow
14
  Position = poOwnerFormCenter
15
  LCLVersion = '0.9.25'
16
  object Panel1: TPanel
17
    Height = 359
18
    Width = 160
19
    Align = alLeft
20
    Caption = 'Panel1'
21
    ClientHeight = 359
22
    ClientWidth = 160
23
    ParentFont = True
24
    TabOrder = 0
25
    object Label1: TLabel
26
      Left = 5
27
      Height = 13
28
      Top = 137
29
      Width = 150
30
      Align = alTop
31
      BorderSpacing.Left = 4
32
      BorderSpacing.Right = 4
33
      Caption = 'Area:'
34
      ParentColor = False
35
      ParentFont = True
36
    end
37
    object pnlAreaControls: TPanel
38
      Left = 5
39
      Height = 82
40
      Top = 272
41
      Width = 150
42
      Align = alBottom
43
      BorderSpacing.Around = 4
44
      BevelOuter = bvNone
45
      ClientHeight = 82
46
      ClientWidth = 150
47
      ParentFont = True
48
      TabOrder = 0
49
      object lblX: TLabel
50
        Left = 4
51
        Height = 13
52
        Top = 32
53
        Width = 8
54
        Caption = 'X'
55
        Enabled = False
56
        ParentColor = False
57
        ParentFont = True
58
      end
59
      object lblY: TLabel
60
        Left = 4
61
        Height = 13
62
        Top = 60
63
        Width = 8
64
        Caption = 'Y'
65
        Enabled = False
66
        ParentColor = False
67
        ParentFont = True
68
      end
69
      object btnAddArea: TSpeedButton
70
        Left = 30
71
        Height = 22
72
        Hint = 'Add area'
73
        Width = 23
74
        Color = clBtnFace
75
        Enabled = False
76
        Glyph.Data = {
77
          36040000424D3604000000000000360000002800000010000000100000000100
78
          2000000000000004000064000000640000000000000000000000000000000000
79
          0000000000000000000000000000000000000000000000000000000000000000
80
          0000000000000000000000000000000000000000000000000000000000000000
81
          0000000000000000000000000000000000003A8C44FF368940FF32873CFF2F84
82
          37FF000000000000000000000000000000000000000000000000000000000000
83
          00000000000000000000459653FF419950FF7DC28FFF96D0A6FF96CFA6FF78BE
84
          89FF368D42FF2C8134FF00000000000000000000000000000000000000000000
85
          0000000000004D9C5DFF64B478FFA8DBB5FF87CC98FF66BC7DFF64BA7CFF86CB
86
          98FFA5D9B4FF58AA6BFF2C8134FF000000000000000000000000000000000000
87
          000056A366FF6AB97DFFA8DBB2FF60BC77FF5CBA73FF59B870FF59B56FFF58B5
88
          6FFF5BB774FFA5D9B3FF5AAA6CFF2C8234FF0000000000000000000000000000
89
          000053AB68FFAADDB4FF64C179FF5FBE71FF60BC77FFFFFFFFFFFFFFFFFF59B8
90
          70FF58B56EFF5CB774FFA6DAB4FF388F43FF00000000000000000000000061AC
91
          75FF8ACC98FF89D396FF6BC67AFF63C170FF55AB65FFFFFFFFFFFFFFFFFF59B8
92
          70FF59B870FF5BB972FF85CC97FF7BBE8DFF308539FF000000000000000065AF
93
          7AFFA9DDB3FF7DCF8AFF75CC81FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
94
          FFFFFFFFFFFF59B870FF67BE7DFF9CD4ABFF34883DFF000000000000000069B2
95
          7EFFB6E2BEFF8BD597FF7AC986FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
96
          FFFFFFFFFFFF59B870FF69C17EFF9DD4AAFF388B42FF00000000000000006DB5
97
          83FFACDDB6FFA6DFAFFF81CB8CFF7CC986FF6EBD79FFFFFFFFFFFFFFFFFF5BAC
98
          6AFF60BC77FF5CBA73FF8BD199FF80C592FF3C8E47FF00000000000000000000
99
          000085C797FFD2EED7FF95D9A0FF8AD394FF7FC889FFFFFFFFFFFFFFFFFF79CD
100
          85FF6BC37CFF6FC77EFFACDFB5FF459E57FF0000000000000000000000000000
101
          000070B887FFAADAB7FFD8F1DCFF92D89DFF88CD93FF84CC8EFF8BD496FF8AD4
102
          95FF83D28EFFAFE0B7FF6BB97DFF489856FF0000000000000000000000000000
103
          00000000000070B887FFAFDCBBFFDCF2E0FFB6E4BDFF9BDBA5FF96D9A0FFA5DF
104
          AFFFC0E8C5FF79C28AFF509E5FFF000000000000000000000000000000000000
105
          0000000000000000000071B887FF94CEA4FFC3E6CBFFCFEBD4FFC9E9CEFFAFDD
106
          B8FF6DB97FFF58A569FF00000000000000000000000000000000000000000000
107
          0000000000000000000000000000000000006EB684FF6AB380FF67B17CFF63AE
108
          77FF000000000000000000000000000000000000000000000000000000000000
109
          0000000000000000000000000000000000000000000000000000000000000000
110
          0000000000000000000000000000000000000000000000000000
111
        }
112
        NumGlyphs = 0
113
        OnClick = btnAddAreaClick
114
        ShowHint = True
115
        ParentShowHint = False
116
      end
117
      object btnDeleteArea: TSpeedButton
118
        Left = 59
119
        Height = 22
120
        Hint = 'Delete area'
121
        Width = 23
122
        Color = clBtnFace
123
        Enabled = False
124
        Glyph.Data = {
125
          36040000424D3604000000000000360000002800000010000000100000000100
126
          2000000000000004000064000000640000000000000000000000000000000000
127
          0000000000000000000000000000000000000000000000000000000000000000
128
          0000000000000000000000000000000000000000000000000000000000000000
129
          0000000000000000000000000000000000003853BEFF3551BDFF304BBCFF2E4E
130
          B8FF000000000000000000000000000000000000000000000000000000000000
131
          000000000000000000004255C6FF3C52CCFF757AE8FF8F92EEFF8F92EEFF7178
132
          E4FF334DC1FF2B4AB7FF00000000000000000000000000000000000000000000
133
          0000000000004959CBFF5C65E0FFA1A6F5FF7E86EFFF5B63E9FF595DE7FF7D84
134
          EEFF9EA0F4FF515DD7FF2B4AB7FF000000000000000000000000000000000000
135
          00005361CFFF616BE3FFA1ACF5FF545FECFF505CEAFF4D59E9FF4E59E6FF4C56
136
          E6FF5056E6FF9EA2F4FF5460D6FF2A4AB8FF0000000000000000000000000000
137
          00004B56DBFFA2ABF6FF5664F0FF5266EEFF4D59E9FF4D59E9FF4D59E9FF4D59
138
          E9FF4C58E6FF525AE6FF9FA3F5FF3450C4FF0000000000000000000000005C62
139
          D7FF818CEEFF7E91F7FF5D73F3FF4D59E9FF4D59E9FF4D59E9FF4D59E9FF4D59
140
          E9FF4D59E9FF4F5BE9FF7B83F0FF757BE2FF2E4BBAFF00000000000000005F63
141
          DAFFA1ABF7FF7086F8FF6882F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
142
          FFFFFFFFFFFF4D59E9FF5C66EAFF969CF1FF3250BCFF00000000000000006469
143
          DBFFAFB9F9FF7F93FAFF7085F0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
144
          FFFFFFFFFFFF4D59E9FF5E6AEEFF969DF1FF364FBEFF0000000000000000676A
145
          DEFFA5AFF5FF9DABFAFF778CF0FF545FECFF545FECFF545FECFF545FECFF545F
146
          ECFF545FECFF6377F2FF818EF4FF787FE9FF3A53C0FF00000000000000000000
147
          00007D83EAFFCDD4FCFF8B9DFAFF7E93F7FF758AEEFF6C84F6FF6C84F6FF6C84
148
          F6FF6C84F6FF6379F3FFA4AFF8FF3E4FD0FF0000000000000000000000000000
149
          00006A69E0FFA3A7F3FFD4DBFDFF879AFAFF7F91F0FF7A8EF1FF7F94F8FF7E92
150
          F9FF768CF8FFA8B6F8FF636EE3FF4557C7FF0000000000000000000000000000
151
          0000000000006A69E0FFAAADF2FFD8DCFDFFAEBAFAFF91A3FAFF8B9DFAFF9CA9
152
          FBFFBAC7FCFF707BE9FF4C5BCCFF000000000000000000000000000000000000
153
          000000000000000000006A6ADFFF8E93EDFFBEC3F8FFCCD3F9FFC4CBF9FFAAB4
154
          F4FF6670E2FF535ED1FF00000000000000000000000000000000000000000000
155
          000000000000000000000000000000000000686ADDFF6364DCFF6164DAFF5D63
156
          D9FF000000000000000000000000000000000000000000000000000000000000
157
          0000000000000000000000000000000000000000000000000000000000000000
158
          0000000000000000000000000000000000000000000000000000
159
        }
160
        NumGlyphs = 0
161
        OnClick = btnDeleteAreaClick
162
        ShowHint = True
163
        ParentShowHint = False
164
      end
165
      object btnClearArea: TSpeedButton
166
        Left = 87
167
        Height = 22
168
        Hint = 'Delete all areas'
169
        Width = 23
170
        Color = clBtnFace
171
        Enabled = False
172
        Glyph.Data = {
173
          36040000424D3604000000000000360000002800000010000000100000000100
174
          2000000000000004000064000000640000000000000000000000000000000000
175
          0000000000000000000000000000000000000000000000000000000000000000
176
          0000000000000000000000000000000000000000000000000000000000000000
177
          000000000000000000000000F1FF0000F1FF0000F1FF0000F1FF0000EFFF0000
178
          EFFF0000EDFF0000EDFF00000000000000000000000000000000000000000000
179
          0000000000000000F5FF1A20F5FF3C4CF9FF3A49F8FF3847F8FF3545F8FF3443
180
          F7FF3242F7FF141BF1FF0000EDFF000000000000000000000000000000000000
181
          00000000F7FF1D23F9FF4453FAFF2429F9FF1212F7FF0F0FF6FF0C0CF5FF0909
182
          F5FF161BF5FF3343F7FF141BF1FF0000EDFF0000000000000000000000000000
183
          F9FF1F25FAFF4A58FBFF4247FBFFC9C9FDFF3B3BF9FF1313F7FF1010F6FF3333
184
          F7FFC5C5FDFF3035F7FF3444F7FF141BF2FF0000EDFF00000000000000000000
185
          FBFF4F5DFDFF3237FBFFCBCBFEFFF2F2FFFFEBEBFEFF3B3BF9FF3939F8FFEAEA
186
          FEFFF1F1FEFFC5C5FDFF181DF6FF3343F7FF0000EFFF00000000000000000000
187
          FDFF525FFDFF2828FCFF4747FCFFECECFFFFF2F2FFFFECECFFFFECECFEFFF1F1
188
          FFFFEAEAFEFF3434F7FF0B0BF5FF3545F8FF0000EFFF00000000000000000000
189
          FDFF5562FEFF2C2CFDFF2929FCFF4848FCFFEDEDFFFFF2F2FFFFF2F2FFFFECEC
190
          FEFF3A3AF9FF1212F7FF0F0FF6FF3848F8FF0000F1FF00000000000000000000
191
          FDFF5764FEFF3030FDFF2D2DFDFF4B4BFCFFEDEDFFFFF2F2FFFFF2F2FFFFECEC
192
          FFFF3D3DF9FF1616F8FF1313F7FF3C4BF8FF0000F1FF00000000000000000000
193
          FFFF5A67FEFF3333FEFF5050FDFFEDEDFFFFF3F3FFFFEDEDFFFFEDEDFFFFF2F2
194
          FFFFECECFEFF3E3EFAFF1717F8FF3F4EF9FF0000F1FF00000000000000000000
195
          FFFF5B68FFFF4347FEFFCFCFFFFFF3F3FFFFEDEDFFFF4C4CFCFF4A4AFCFFECEC
196
          FFFFF2F2FFFFCACAFEFF2A2FFAFF4251FAFF0000F3FF00000000000000000000
197
          FFFF262BFFFF5D6AFFFF585BFFFFCFCFFFFF5252FEFF2F2FFDFF2C2CFDFF4B4B
198
          FCFFCCCCFEFF484CFBFF4957FBFF1D23F9FF0000F5FF00000000000000000000
199
          00000000FFFF262BFFFF5D6AFFFF4347FFFF3434FEFF3232FEFF3030FDFF2D2D
200
          FDFF383CFCFF4F5DFCFF1F25FAFF0000F7FF0000000000000000000000000000
201
          0000000000000000FFFF262BFFFF5C69FFFF5B68FFFF5A67FEFF5865FEFF5663
202
          FEFF5461FEFF2227FCFF0000FBFF000000000000000000000000000000000000
203
          000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FDFF0000
204
          FDFF0000FDFF0000FDFF00000000000000000000000000000000000000000000
205
          0000000000000000000000000000000000000000000000000000000000000000
206
          0000000000000000000000000000000000000000000000000000
207
        }
208
        NumGlyphs = 0
209
        OnClick = btnClearAreaClick
210
        ShowHint = True
211
        ParentShowHint = False
212
      end
213
      object seX1: TSpinEdit
214
        Left = 20
215
        Height = 23
216
        Top = 29
217
        Width = 50
218
        Enabled = False
219
        OnChange = seX1Change
220
        ParentFont = True
221
        TabOrder = 0
222
      end
223
      object seX2: TSpinEdit
224
        Left = 84
225
        Height = 23
226
        Top = 29
227
        Width = 50
228
        Enabled = False
229
        OnChange = seX1Change
230
        ParentFont = True
231
        TabOrder = 1
232
      end
233
      object seY1: TSpinEdit
234
        Left = 20
235
        Height = 23
236
        Top = 56
237
        Width = 50
238
        Enabled = False
239
        OnChange = seX1Change
240
        ParentFont = True
241
        TabOrder = 2
242
      end
243
      object seY2: TSpinEdit
244
        Left = 84
245
        Height = 23
246
        Top = 56
247
        Width = 50
248
        Enabled = False
249
        OnChange = seX1Change
250
        ParentFont = True
251
        TabOrder = 3
252
      end
253
    end
254
    object vstArea: TVirtualStringTree
255
      Left = 5
256
      Height = 118
257
      Top = 150
258
      Width = 150
259
      Align = alClient
260
      BorderSpacing.Left = 4
261
      BorderSpacing.Right = 4
262
      BorderSpacing.Bottom = 4
263
      BorderStyle = bsSingle
264
      Header.MainColumn = -1
265
      Header.Options = [hoColumnResize, hoDrag]
266
      ParentFont = True
267
      TabOrder = 1
268
      TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
269
      TreeOptions.SelectionOptions = [toFullRowSelect]
270
      OnChange = vstAreaChange
271
      OnGetText = vstAreaGetText
272
      Columns = <>
273
    end
274
    object vstRegions: TVirtualStringTree
275
      Left = 1
276
      Height = 136
277
      Top = 1
278
      Width = 158
279
      Align = alTop
280
      Header.Options = [hoAutoResize, hoVisible]
281
      Header.ParentFont = True
282
      Header.Style = hsFlatButtons
283
      ParentFont = True
284
      PopupMenu = pmRegions
285
      TabOrder = 2
286
      TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
287
      TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
288
      TreeOptions.SelectionOptions = [toFullRowSelect]
289
      OnChange = vstRegionsChange
290
      OnFreeNode = vstRegionsFreeNode
291
      OnGetText = vstRegionsGetText
292
      Columns = <
293
        item
294
          Width = 158
295
          WideText = 'Regions'
296
        end>
297
    end
298
  end
299
  object Panel2: TPanel
300
    Left = 160
301
    Height = 359
302
    Width = 460
303
    Align = alClient
304
    Caption = 'Panel2'
305
    ClientHeight = 359
306
    ClientWidth = 460
307
    ParentFont = True
308
    TabOrder = 1
309
    object sbArea: TScrollBox
310
      Left = 1
311
      Height = 357
312
      Top = 1
313
      Width = 458
314
      Align = alClient
315
      ParentFont = True
316
      TabOrder = 0
317
      object pbArea: TPaintBox
318
        Height = 105
319
        Width = 105
320
        OnMouseDown = pbAreaMouseDown
321
        OnMouseMove = pbAreaMouseMove
322
        OnPaint = pbAreaPaint
323
      end
324
    end
325
  end
326
  object Panel3: TPanel
327
    Left = 4
328
    Height = 25
329
    Top = 363
330
    Width = 612
331
    Align = alBottom
332
    BorderSpacing.Around = 4
333
    BevelOuter = bvNone
334
    ClientHeight = 25
335
    ClientWidth = 612
336
    ParentFont = True
337
    TabOrder = 2
338
    object btnClose: TButton
339
      Left = 548
340
      Height = 25
341
      Width = 64
342
      Align = alRight
343
      Anchors = [akTop, akRight]
344
      BorderSpacing.Left = 4
345
      Caption = 'Close'
346
      OnClick = btnCloseClick
347
      ParentFont = True
348
      TabOrder = 0
349
    end
350
    object btnSave: TButton
351
      Left = 480
352
      Height = 25
353
      Width = 64
354
      Align = alRight
355
      Anchors = [akTop, akRight]
356
      BorderSpacing.Right = 4
357
      Caption = 'Save'
358
      Enabled = False
359
      OnClick = btnSaveClick
360
      ParentFont = True
361
      TabOrder = 1
362
    end
363
  end
364
  object pmRegions: TPopupMenu
365
    left = 48
366
    top = 43
367
    object mnuAddRegion: TMenuItem
368
      Caption = 'Add'
369
      OnClick = mnuAddRegionClick
370
    end
371
    object mnuRemoveRegion: TMenuItem
372
      Caption = 'Remove'
373
      Enabled = False
374
      OnClick = mnuRemoveRegionClick
375
    end
376
  end
377
end