371 lines
14 KiB
Plaintext
371 lines
14 KiB
Plaintext
object frmRegionControl: TfrmRegionControl
|
|
Left = 367
|
|
Height = 390
|
|
Top = 268
|
|
Width = 620
|
|
ActiveControl = vstGroups
|
|
Caption = 'Region Control'
|
|
ClientHeight = 390
|
|
ClientWidth = 620
|
|
Font.Height = -11
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnShow = FormShow
|
|
Position = poOwnerFormCenter
|
|
LCLVersion = '0.9.25'
|
|
object Panel1: TPanel
|
|
Height = 360
|
|
Width = 160
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
Caption = 'Panel1'
|
|
ClientHeight = 360
|
|
ClientWidth = 160
|
|
ParentFont = True
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 5
|
|
Height = 13
|
|
Top = 137
|
|
Width = 150
|
|
Align = alTop
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Right = 4
|
|
Caption = 'Area:'
|
|
ParentColor = False
|
|
ParentFont = True
|
|
end
|
|
object pnlAreaControls: TPanel
|
|
Left = 5
|
|
Height = 82
|
|
Top = 273
|
|
Width = 150
|
|
Align = alBottom
|
|
BorderSpacing.Around = 4
|
|
BevelOuter = bvNone
|
|
ClientHeight = 82
|
|
ClientWidth = 150
|
|
ParentFont = True
|
|
TabOrder = 0
|
|
object lblX: TLabel
|
|
Left = 4
|
|
Height = 13
|
|
Top = 32
|
|
Width = 8
|
|
Caption = 'X'
|
|
Enabled = False
|
|
ParentColor = False
|
|
ParentFont = True
|
|
end
|
|
object lblY: TLabel
|
|
Left = 4
|
|
Height = 13
|
|
Top = 60
|
|
Width = 8
|
|
Caption = 'Y'
|
|
Enabled = False
|
|
ParentColor = False
|
|
ParentFont = True
|
|
end
|
|
object btnAddArea: TSpeedButton
|
|
Left = 30
|
|
Height = 22
|
|
Hint = 'Add area'
|
|
Width = 23
|
|
Color = clBtnFace
|
|
Glyph.Data = {
|
|
36040000424D3604000000000000360000002800000010000000100000000100
|
|
2000000000000004000064000000640000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000003A8C44FF368940FF32873CFF2F84
|
|
37FF000000000000000000000000000000000000000000000000000000000000
|
|
00000000000000000000459653FF419950FF7DC28FFF96D0A6FF96CFA6FF78BE
|
|
89FF368D42FF2C8134FF00000000000000000000000000000000000000000000
|
|
0000000000004D9C5DFF64B478FFA8DBB5FF87CC98FF66BC7DFF64BA7CFF86CB
|
|
98FFA5D9B4FF58AA6BFF2C8134FF000000000000000000000000000000000000
|
|
000056A366FF6AB97DFFA8DBB2FF60BC77FF5CBA73FF59B870FF59B56FFF58B5
|
|
6FFF5BB774FFA5D9B3FF5AAA6CFF2C8234FF0000000000000000000000000000
|
|
000053AB68FFAADDB4FF64C179FF5FBE71FF60BC77FFFFFFFFFFFFFFFFFF59B8
|
|
70FF58B56EFF5CB774FFA6DAB4FF388F43FF00000000000000000000000061AC
|
|
75FF8ACC98FF89D396FF6BC67AFF63C170FF55AB65FFFFFFFFFFFFFFFFFF59B8
|
|
70FF59B870FF5BB972FF85CC97FF7BBE8DFF308539FF000000000000000065AF
|
|
7AFFA9DDB3FF7DCF8AFF75CC81FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFF59B870FF67BE7DFF9CD4ABFF34883DFF000000000000000069B2
|
|
7EFFB6E2BEFF8BD597FF7AC986FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFF59B870FF69C17EFF9DD4AAFF388B42FF00000000000000006DB5
|
|
83FFACDDB6FFA6DFAFFF81CB8CFF7CC986FF6EBD79FFFFFFFFFFFFFFFFFF5BAC
|
|
6AFF60BC77FF5CBA73FF8BD199FF80C592FF3C8E47FF00000000000000000000
|
|
000085C797FFD2EED7FF95D9A0FF8AD394FF7FC889FFFFFFFFFFFFFFFFFF79CD
|
|
85FF6BC37CFF6FC77EFFACDFB5FF459E57FF0000000000000000000000000000
|
|
000070B887FFAADAB7FFD8F1DCFF92D89DFF88CD93FF84CC8EFF8BD496FF8AD4
|
|
95FF83D28EFFAFE0B7FF6BB97DFF489856FF0000000000000000000000000000
|
|
00000000000070B887FFAFDCBBFFDCF2E0FFB6E4BDFF9BDBA5FF96D9A0FFA5DF
|
|
AFFFC0E8C5FF79C28AFF509E5FFF000000000000000000000000000000000000
|
|
0000000000000000000071B887FF94CEA4FFC3E6CBFFCFEBD4FFC9E9CEFFAFDD
|
|
B8FF6DB97FFF58A569FF00000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000006EB684FF6AB380FF67B17CFF63AE
|
|
77FF000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000
|
|
}
|
|
NumGlyphs = 0
|
|
OnClick = btnAddAreaClick
|
|
ShowHint = True
|
|
ParentShowHint = False
|
|
end
|
|
object btnDeleteArea: TSpeedButton
|
|
Left = 59
|
|
Height = 22
|
|
Hint = 'Delete area'
|
|
Width = 23
|
|
Color = clBtnFace
|
|
Glyph.Data = {
|
|
36040000424D3604000000000000360000002800000010000000100000000100
|
|
2000000000000004000064000000640000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000003853BEFF3551BDFF304BBCFF2E4E
|
|
B8FF000000000000000000000000000000000000000000000000000000000000
|
|
000000000000000000004255C6FF3C52CCFF757AE8FF8F92EEFF8F92EEFF7178
|
|
E4FF334DC1FF2B4AB7FF00000000000000000000000000000000000000000000
|
|
0000000000004959CBFF5C65E0FFA1A6F5FF7E86EFFF5B63E9FF595DE7FF7D84
|
|
EEFF9EA0F4FF515DD7FF2B4AB7FF000000000000000000000000000000000000
|
|
00005361CFFF616BE3FFA1ACF5FF545FECFF505CEAFF4D59E9FF4E59E6FF4C56
|
|
E6FF5056E6FF9EA2F4FF5460D6FF2A4AB8FF0000000000000000000000000000
|
|
00004B56DBFFA2ABF6FF5664F0FF5266EEFF4D59E9FF4D59E9FF4D59E9FF4D59
|
|
E9FF4C58E6FF525AE6FF9FA3F5FF3450C4FF0000000000000000000000005C62
|
|
D7FF818CEEFF7E91F7FF5D73F3FF4D59E9FF4D59E9FF4D59E9FF4D59E9FF4D59
|
|
E9FF4D59E9FF4F5BE9FF7B83F0FF757BE2FF2E4BBAFF00000000000000005F63
|
|
DAFFA1ABF7FF7086F8FF6882F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFF4D59E9FF5C66EAFF969CF1FF3250BCFF00000000000000006469
|
|
DBFFAFB9F9FF7F93FAFF7085F0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
|
|
FFFFFFFFFFFF4D59E9FF5E6AEEFF969DF1FF364FBEFF0000000000000000676A
|
|
DEFFA5AFF5FF9DABFAFF778CF0FF545FECFF545FECFF545FECFF545FECFF545F
|
|
ECFF545FECFF6377F2FF818EF4FF787FE9FF3A53C0FF00000000000000000000
|
|
00007D83EAFFCDD4FCFF8B9DFAFF7E93F7FF758AEEFF6C84F6FF6C84F6FF6C84
|
|
F6FF6C84F6FF6379F3FFA4AFF8FF3E4FD0FF0000000000000000000000000000
|
|
00006A69E0FFA3A7F3FFD4DBFDFF879AFAFF7F91F0FF7A8EF1FF7F94F8FF7E92
|
|
F9FF768CF8FFA8B6F8FF636EE3FF4557C7FF0000000000000000000000000000
|
|
0000000000006A69E0FFAAADF2FFD8DCFDFFAEBAFAFF91A3FAFF8B9DFAFF9CA9
|
|
FBFFBAC7FCFF707BE9FF4C5BCCFF000000000000000000000000000000000000
|
|
000000000000000000006A6ADFFF8E93EDFFBEC3F8FFCCD3F9FFC4CBF9FFAAB4
|
|
F4FF6670E2FF535ED1FF00000000000000000000000000000000000000000000
|
|
000000000000000000000000000000000000686ADDFF6364DCFF6164DAFF5D63
|
|
D9FF000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000
|
|
}
|
|
NumGlyphs = 0
|
|
OnClick = btnDeleteAreaClick
|
|
ShowHint = True
|
|
ParentShowHint = False
|
|
end
|
|
object btnClearArea: TSpeedButton
|
|
Left = 87
|
|
Height = 22
|
|
Hint = 'Delete all areas'
|
|
Width = 23
|
|
Color = clBtnFace
|
|
Glyph.Data = {
|
|
36040000424D3604000000000000360000002800000010000000100000000100
|
|
2000000000000004000064000000640000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
000000000000000000000000F1FF0000F1FF0000F1FF0000F1FF0000EFFF0000
|
|
EFFF0000EDFF0000EDFF00000000000000000000000000000000000000000000
|
|
0000000000000000F5FF1A20F5FF3C4CF9FF3A49F8FF3847F8FF3545F8FF3443
|
|
F7FF3242F7FF141BF1FF0000EDFF000000000000000000000000000000000000
|
|
00000000F7FF1D23F9FF4453FAFF2429F9FF1212F7FF0F0FF6FF0C0CF5FF0909
|
|
F5FF161BF5FF3343F7FF141BF1FF0000EDFF0000000000000000000000000000
|
|
F9FF1F25FAFF4A58FBFF4247FBFFC9C9FDFF3B3BF9FF1313F7FF1010F6FF3333
|
|
F7FFC5C5FDFF3035F7FF3444F7FF141BF2FF0000EDFF00000000000000000000
|
|
FBFF4F5DFDFF3237FBFFCBCBFEFFF2F2FFFFEBEBFEFF3B3BF9FF3939F8FFEAEA
|
|
FEFFF1F1FEFFC5C5FDFF181DF6FF3343F7FF0000EFFF00000000000000000000
|
|
FDFF525FFDFF2828FCFF4747FCFFECECFFFFF2F2FFFFECECFFFFECECFEFFF1F1
|
|
FFFFEAEAFEFF3434F7FF0B0BF5FF3545F8FF0000EFFF00000000000000000000
|
|
FDFF5562FEFF2C2CFDFF2929FCFF4848FCFFEDEDFFFFF2F2FFFFF2F2FFFFECEC
|
|
FEFF3A3AF9FF1212F7FF0F0FF6FF3848F8FF0000F1FF00000000000000000000
|
|
FDFF5764FEFF3030FDFF2D2DFDFF4B4BFCFFEDEDFFFFF2F2FFFFF2F2FFFFECEC
|
|
FFFF3D3DF9FF1616F8FF1313F7FF3C4BF8FF0000F1FF00000000000000000000
|
|
FFFF5A67FEFF3333FEFF5050FDFFEDEDFFFFF3F3FFFFEDEDFFFFEDEDFFFFF2F2
|
|
FFFFECECFEFF3E3EFAFF1717F8FF3F4EF9FF0000F1FF00000000000000000000
|
|
FFFF5B68FFFF4347FEFFCFCFFFFFF3F3FFFFEDEDFFFF4C4CFCFF4A4AFCFFECEC
|
|
FFFFF2F2FFFFCACAFEFF2A2FFAFF4251FAFF0000F3FF00000000000000000000
|
|
FFFF262BFFFF5D6AFFFF585BFFFFCFCFFFFF5252FEFF2F2FFDFF2C2CFDFF4B4B
|
|
FCFFCCCCFEFF484CFBFF4957FBFF1D23F9FF0000F5FF00000000000000000000
|
|
00000000FFFF262BFFFF5D6AFFFF4347FFFF3434FEFF3232FEFF3030FDFF2D2D
|
|
FDFF383CFCFF4F5DFCFF1F25FAFF0000F7FF0000000000000000000000000000
|
|
0000000000000000FFFF262BFFFF5C69FFFF5B68FFFF5A67FEFF5865FEFF5663
|
|
FEFF5461FEFF2227FCFF0000FBFF000000000000000000000000000000000000
|
|
000000000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FDFF0000
|
|
FDFF0000FDFF0000FDFF00000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000000000000000
|
|
0000000000000000000000000000000000000000000000000000
|
|
}
|
|
NumGlyphs = 0
|
|
OnClick = btnClearAreaClick
|
|
ShowHint = True
|
|
ParentShowHint = False
|
|
end
|
|
object seX1: TSpinEdit
|
|
Left = 20
|
|
Height = 23
|
|
Top = 29
|
|
Width = 50
|
|
Enabled = False
|
|
OnChange = seX1Change
|
|
ParentFont = True
|
|
TabOrder = 0
|
|
end
|
|
object seX2: TSpinEdit
|
|
Left = 84
|
|
Height = 23
|
|
Top = 29
|
|
Width = 50
|
|
Enabled = False
|
|
OnChange = seX1Change
|
|
ParentFont = True
|
|
TabOrder = 1
|
|
end
|
|
object seY1: TSpinEdit
|
|
Left = 20
|
|
Height = 23
|
|
Top = 56
|
|
Width = 50
|
|
Enabled = False
|
|
OnChange = seX1Change
|
|
ParentFont = True
|
|
TabOrder = 2
|
|
end
|
|
object seY2: TSpinEdit
|
|
Left = 84
|
|
Height = 23
|
|
Top = 56
|
|
Width = 50
|
|
Enabled = False
|
|
OnChange = seX1Change
|
|
ParentFont = True
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object vstArea: TVirtualStringTree
|
|
Left = 5
|
|
Height = 119
|
|
Top = 150
|
|
Width = 150
|
|
Align = alClient
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Right = 4
|
|
BorderSpacing.Bottom = 4
|
|
BorderStyle = bsSingle
|
|
Header.MainColumn = -1
|
|
Header.Options = [hoColumnResize, hoDrag]
|
|
ParentFont = True
|
|
TabOrder = 1
|
|
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
|
|
TreeOptions.SelectionOptions = [toFullRowSelect]
|
|
OnChange = vstAreaChange
|
|
OnGetText = vstAreaGetText
|
|
Columns = <>
|
|
end
|
|
object vstGroups: TVirtualStringTree
|
|
Left = 1
|
|
Height = 136
|
|
Top = 1
|
|
Width = 158
|
|
Align = alTop
|
|
Header.Font.Height = -11
|
|
Header.Options = [hoAutoResize, hoVisible]
|
|
Header.ParentFont = True
|
|
Header.Style = hsFlatButtons
|
|
ParentFont = True
|
|
PopupMenu = pmGroup
|
|
TabOrder = 2
|
|
TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
|
|
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
|
|
TreeOptions.SelectionOptions = [toFullRowSelect]
|
|
OnChange = vstGroupsChange
|
|
OnEditing = vstGroupsOnEditing
|
|
OnGetText = vstGroupsGetText
|
|
OnNewText = vstGroupsNewText
|
|
Columns = <
|
|
item
|
|
Width = 158
|
|
WideText = 'Groups'
|
|
end>
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 160
|
|
Height = 361
|
|
Width = 460
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Caption = 'Panel2'
|
|
ClientHeight = 361
|
|
ClientWidth = 460
|
|
ParentFont = True
|
|
TabOrder = 1
|
|
object sbArea: TScrollBox
|
|
Left = 1
|
|
Height = 359
|
|
Top = 1
|
|
Width = 458
|
|
Align = alClient
|
|
ParentFont = True
|
|
TabOrder = 0
|
|
object pbArea: TPaintBox
|
|
Height = 105
|
|
Width = 105
|
|
OnMouseDown = pbAreaMouseDown
|
|
OnMouseMove = pbAreaMouseMove
|
|
OnPaint = pbAreaPaint
|
|
end
|
|
end
|
|
end
|
|
object Panel3: TPanel
|
|
Height = 30
|
|
Top = 360
|
|
Width = 620
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
ClientHeight = 30
|
|
ClientWidth = 620
|
|
ParentFont = True
|
|
TabOrder = 2
|
|
object btnExit: TButton
|
|
Left = 551
|
|
Height = 22
|
|
Top = 4
|
|
Width = 64
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Exit'
|
|
OnClick = btnCloseClick
|
|
ParentFont = True
|
|
TabOrder = 0
|
|
end
|
|
object btnSave: TButton
|
|
Left = 480
|
|
Height = 22
|
|
Top = 4
|
|
Width = 64
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Save'
|
|
Enabled = False
|
|
OnClick = btnSaveClick
|
|
ParentFont = True
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object pmGroup: TPopupMenu
|
|
left = 48
|
|
top = 43
|
|
object mnuAddGroup: TMenuItem
|
|
Caption = 'Add'
|
|
OnClick = acAddGroup
|
|
end
|
|
object mnuRemoveGroup: TMenuItem
|
|
Caption = 'Remove'
|
|
OnClick = accRemoveGroup
|
|
end
|
|
end
|
|
end
|