aksdb
/
CentrED
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

- Removed several unnecessary panels from frmMain (using Anchors instead)

This commit is contained in:
Andreas Schneider 2009-07-31 17:03:26 +02:00
parent dc1f425353
commit f3888db49c
4 changed files with 1086 additions and 1026 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

615
Client/Tools/UfrmFilter.lfm
View File

@ -1,309 +1,306 @@
object frmFilter: TfrmFilter object frmFilter: TfrmFilter
Left = 290 Left = 290
Height = 492 Height = 492
Top = 171 Top = 171
Width = 236 Width = 236
ActiveControl = rgFilterType.RadioButton0 ActiveControl = rgFilterType.RadioButton0
BorderIcons = [biSystemMenu, biMinimize] BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsToolWindow BorderStyle = bsToolWindow
Caption = 'Filter' Caption = 'Filter'
ClientHeight = 492 ClientHeight = 492
ClientWidth = 236 ClientWidth = 236
Font.Height = -11 Font.Height = -11
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
LCLVersion = '0.9.25' LCLVersion = '0.9.27'
object rgFilterType: TRadioGroup object rgFilterType: TRadioGroup
Left = 4 Left = 4
Height = 40 Height = 40
Top = 4 Top = 4
Width = 228 Width = 228
Align = alTop Align = alTop
AutoFill = True AutoFill = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'Filter rule' Caption = 'Filter rule'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 23 ClientHeight = 26
ClientWidth = 224 ClientWidth = 226
Columns = 2 Columns = 2
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Exclusive' 'Exclusive'
'Inclusive' 'Inclusive'
) )
ParentFont = True TabOrder = 0
TabOrder = 0 end
end object GroupBox1: TGroupBox
object GroupBox1: TGroupBox Left = 4
Left = 4 Height = 259
Height = 259 Top = 48
Top = 48 Width = 228
Width = 228 Align = alClient
Align = alClient BorderSpacing.Around = 4
BorderSpacing.Around = 4 Caption = 'Tile filter'
Caption = 'Tile filter' ClientHeight = 245
ClientHeight = 242 ClientWidth = 226
ClientWidth = 224 TabOrder = 1
ParentFont = True object Label1: TLabel
TabOrder = 1 Left = 4
object Label1: TLabel Height = 30
Left = 4 Top = 30
Height = 28 Width = 218
Top = 28 Align = alTop
Width = 216 BorderSpacing.Around = 4
Align = alTop Caption = 'Drag and Drop static tiles from the tile list on this list to add them to the filter.'
BorderSpacing.Around = 4 ParentColor = False
Caption = 'Drag and Drop static tiles from the tile list on this list to add them to the filter.' WordWrap = True
ParentColor = False end
ParentFont = True object vdtFilter: TVirtualDrawTree
WordWrap = True Tag = 1
end Cursor = 63
object vdtFilter: TVirtualDrawTree Left = 4
Tag = 1 Height = 151
Cursor = 63 Top = 64
Left = 4 Width = 218
Height = 152 Align = alClient
Top = 60 BorderSpacing.Around = 4
Width = 216 BorderStyle = bsSingle
Align = alClient DefaultNodeHeight = 44
BorderSpacing.Around = 4 DragType = dtVCL
BorderStyle = bsSingle Header.AutoSizeIndex = 0
DefaultNodeHeight = 44 Header.Columns = <
DragType = dtVCL item
Header.Options = [hoColumnResize, hoDrag, hoVisible] Position = 0
Header.ParentFont = True Text = 'ID'
Header.Style = hsFlatButtons end
Header.Columns = < item
item Position = 1
Text = 'ID' Text = 'Tile'
end Width = 44
item end
Position = 1 item
Width = 44 Position = 2
Text = 'Tile' Text = 'Name'
end Width = 100
item end>
Position = 2 Header.DefaultHeight = 17
Width = 100 Header.Options = [hoColumnResize, hoDrag, hoVisible]
Text = 'Name' Header.ParentFont = True
end> Header.Style = hsFlatButtons
ParentFont = True TabOrder = 0
TabOrder = 0 TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages] TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect] OnDragOver = vdtFilterDragOver
OnDragOver = vdtFilterDragOver OnDragDrop = vdtFilterDragDrop
OnDragDrop = vdtFilterDragDrop OnDrawNode = vdtFilterDrawNode
OnDrawNode = vdtFilterDrawNode end
end object pnlControls: TPanel
object pnlControls: TPanel Left = 4
Left = 4 Height = 22
Height = 22 Top = 219
Top = 216 Width = 218
Width = 216 Align = alBottom
Align = alBottom BorderSpacing.Around = 4
BorderSpacing.Around = 4 BevelOuter = bvNone
BevelOuter = bvNone ClientHeight = 22
ClientHeight = 22 ClientWidth = 218
ClientWidth = 216 TabOrder = 1
ParentFont = True object btnDelete: TSpeedButton
TabOrder = 1 Left = 84
object btnDelete: TSpeedButton Height = 22
Left = 84 Hint = 'Delete'
Height = 22 Top = 0
Hint = 'Delete' Width = 23
Width = 23 Color = clBtnFace
Color = clBtnFace Glyph.Data = {
Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100
36040000424D3604000000000000360000002800000010000000100000000100 20000000000000040000640000006400000000000000000000004F91AB005588
20000000000000040000640000006400000000000000000000004F91AB005588 9C0043718A004E6974003E4B4C00457796003E6A950037556C005C7E8800548B
9C0043718A004E6974003E4B4C00457796003E6A950037556C005C7E8800548B A00031464100FFFFFF002B3238002D3B430074B9C8007FC4D5004788A7004A92
A00031464100FFFFFF002B3238002D3B430074B9C8007FC4D5004788A7004A92 B500435E6F002E3040002E3538003D5E7B003853BEFF3551BDFF304BBCFF2E4E
B500435E6F002E3040002E3538003D5E7B003853BEFF3551BDFF304BBCFF2E4E B8FF303B3600FFFFFF00313637002C2D2B00588997007BC3D400365F8400396E
B8FF303B3600FFFFFF00313637002C2D2B00588997007BC3D400365F8400396E 9A003B6282003A5564004255C6FF3C52CCFF757AE8FF8F92EEFF8F92EEFF7178
9A003B6282003A5564004255C6FF3C52CCFF757AE8FF8F92EEFF8F92EEFF7178 E4FF334DC1FF2B4AB7FFFFFFFF0036423900486B710061B4CE00396F9600375C
E4FF334DC1FF2B4AB7FFFFFFFF0036423900486B710061B4CE00396F9600375C 83004085B1004959CBFF5C65E0FFA1A6F5FF7E86EFFF5B63E9FF595DE7FF7D84
83004085B1004959CBFF5C65E0FFA1A6F5FF7E86EFFF5B63E9FF595DE7FF7D84 EEFF9EA0F4FF515DD7FF2B4AB7FFFFFFFF00354C4C004D94AF00375D7F003348
EEFF9EA0F4FF515DD7FF2B4AB7FFFFFFFF00354C4C004D94AF00375D7F003348 5C005361CFFF616BE3FFA1ACF5FF545FECFF505CEAFF4D59E9FF4E59E6FF4C56
5C005361CFFF616BE3FFA1ACF5FF545FECFF505CEAFF4D59E9FF4E59E6FF4C56 E6FF5056E6FF9EA2F4FF5460D6FF2A4AB8FFFFFFFF004A90A6003B5864003D5B
E6FF5056E6FF9EA2F4FF5460D6FF2A4AB8FFFFFFFF004A90A6003B5864003D5B 6A004B56DBFFA2ABF6FF5664F0FF5266EEFF4D59E9FF4D59E9FF4D59E9FF4D59
6A004B56DBFFA2ABF6FF5664F0FF5266EEFF4D59E9FF4D59E9FF4D59E9FF4D59 E9FF4C58E6FF525AE6FF9FA3F5FF3450C4FF57929C00498BA40047676D005C62
E9FF4C58E6FF525AE6FF9FA3F5FF3450C4FF57929C00498BA40047676D005C62 D7FF818CEEFF7E91F7FF5D73F3FF4D59E9FF4D59E9FF4D59E9FF4D59E9FF4D59
D7FF818CEEFF7E91F7FF5D73F3FF4D59E9FF4D59E9FF4D59E9FF4D59E9FF4D59 E9FF4D59E9FF4F5BE9FF7B83F0FF757BE2FF2E4BBAFF54839500FFFFFF005F63
E9FF4D59E9FF4F5BE9FF7B83F0FF757BE2FF2E4BBAFF54839500FFFFFF005F63 DAFFA1ABF7FF7086F8FF6882F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
DAFFA1ABF7FF7086F8FF6882F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF4D59E9FF5C66EAFF969CF1FF3250BCFF6FA2AF00000000006469
FFFFFFFFFFFF4D59E9FF5C66EAFF969CF1FF3250BCFF6FA2AF00000000006469 DBFFAFB9F9FF7F93FAFF7085F0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
DBFFAFB9F9FF7F93FAFF7085F0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFF4D59E9FF5E6AEEFF969DF1FF364FBEFF58B2E00000000000676A
FFFFFFFFFFFF4D59E9FF5E6AEEFF969DF1FF364FBEFF58B2E00000000000676A DEFFA5AFF5FF9DABFAFF778CF0FF545FECFF545FECFF545FECFF545FECFF545F
DEFFA5AFF5FF9DABFAFF778CF0FF545FECFF545FECFF545FECFF545FECFF545F ECFF545FECFF6377F2FF818EF4FF787FE9FF3A53C0FF000000000800000000E8
ECFF545FECFF6377F2FF818EF4FF787FE9FF3A53C0FF000000000800000000E8 1D007D83EAFFCDD4FCFF8B9DFAFF7E93F7FF758AEEFF6C84F6FF6C84F6FF6C84
1D007D83EAFFCDD4FCFF8B9DFAFF7E93F7FF758AEEFF6C84F6FF6C84F6FF6C84 F6FF6C84F6FF6379F3FFA4AFF8FF3E4FD0FF000000000000000001000100DB12
F6FF6C84F6FF6379F3FFA4AFF8FF3E4FD0FF000000000000000001000100DB12 C0006A69E0FFA3A7F3FFD4DBFDFF879AFAFF7F91F0FF7A8EF1FF7F94F8FF7E92
C0006A69E0FFA3A7F3FFD4DBFDFF879AFAFF7F91F0FF7A8EF1FF7F94F8FF7E92 F9FF768CF8FFA8B6F8FF636EE3FF4557C7FF00000000000000002401AD00BA02
F9FF768CF8FFA8B6F8FF636EE3FF4557C7FF00000000000000002401AD00BA02 AE002301AE006A69E0FFAAADF2FFD8DCFDFFAEBAFAFF91A3FAFF8B9DFAFF9CA9
AE002301AE006A69E0FFAAADF2FFD8DCFDFFAEBAFAFF91A3FAFF8B9DFAFF9CA9 FBFFBAC7FCFF707BE9FF4C5BCCFFBB02F00000010000D8000000000000000000
FBFFBAC7FCFF707BE9FF4C5BCCFFBB02F00000010000D8000000000000000000 000008000000010008006A6ADFFF8E93EDFFBEC3F8FFCCD3F9FFC4CBF9FFAAB4
000008000000010008006A6ADFFF8E93EDFFBEC3F8FFCCD3F9FFC4CBF9FFAAB4 F4FF6670E2FF535ED1FF5031DE005031DE002501AC00B902AD000D040400F804
F4FF6670E2FF535ED1FF5031DE005031DE002501AC00B902AD000D040400F804 0500F20005000A0106000C040500F8040600686ADDFF6364DCFF6164DAFF5D63
0500F20005000A0106000C040500F8040600686ADDFF6364DCFF6164DAFF5D63 D9FFF2000700F804610000000000710900005031DE005031DE004034DE004034
D9FFF2000700F804610000000000710900005031DE005031DE004034DE004034 DE0068B0E00068B0E0000E049300F8049500F2009500070102000F049500F804
DE0068B0E00068B0E0000E049300F8049500F2009500070102000F049500F804 0200F2000200080104000E040200F8040400F200040009010500
0200F2000200080104000E040200F8040400F200040009010500 }
} NumGlyphs = 0
NumGlyphs = 0 OnClick = btnDeleteClick
OnClick = btnDeleteClick ShowHint = True
ShowHint = True ParentShowHint = False
ParentFont = True end
ParentShowHint = False object btnClear: TSpeedButton
end Left = 108
object btnClear: TSpeedButton Height = 22
Left = 108 Hint = 'Clear'
Height = 22 Top = 0
Hint = 'Clear' Width = 23
Width = 23 Color = clBtnFace
Color = clBtnFace Glyph.Data = {
Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100
36040000424D3604000000000000360000002800000010000000100000000100 20000000000000040000640000006400000000000000000000003ADCFE004800
20000000000000040000640000006400000000000000000000003ADCFE004800 3A00FEFF4800FCFF1C00FCFF1C0080FF9C00003BD700AF9AFF00002CC600FDEB
3A00FEFF4800FCFF1C00FCFF1C0080FF9C00003BD700AF9AFF00002CC600FDEB 9B000000000000000000000000000000000000000000000000000EECFF00B2FC
9B000000000000000000000000000000000000000000000000000EECFF00B2FC FF000046C00078D0FF000000F1FF0000F1FF0000F1FF0000F1FF0000EFFF0000
FF000046C00078D0FF000000F1FF0000F1FF0000F1FF0000F1FF0000EFFF0000 EFFF0000EDFF0000EDFFCBF3FC008905000024AEEF00E4A81C000000DB00B29E
EFFF0000EDFF0000EDFFCBF3FC008905000024AEEF00E4A81C000000DB00B29E FF0088000D000000F5FF1A20F5FF3C4CF9FF3A49F8FF3847F8FF3545F8FF3443
FF0088000D000000F5FF1A20F5FF3C4CF9FF3A49F8FF3847F8FF3545F8FF3443 F7FF3242F7FF141BF1FF0000EDFFFCFF1C00FCFF1C0080FF9C0004000000FFBC
F7FF3242F7FF141BF1FF0000EDFFFCFF1C00FCFF1C0080FF9C0004000000FFBC 00000000F7FF1D23F9FF4453FAFF2429F9FF1212F7FF0F0FF6FF0C0CF5FF0909
00000000F7FF1D23F9FF4453FAFF2429F9FF1212F7FF0F0FF6FF0C0CF5FF0909 F5FF161BF5FF3343F7FF141BF1FF0000EDFFE4FF5C000050FF004C0000000000
F5FF161BF5FF3343F7FF141BF1FF0000EDFFE4FF5C000050FF004C0000000000 F9FF1F25FAFF4A58FBFF4247FBFFC9C9FDFF3B3BF9FF1313F7FF1010F6FF3333
F9FF1F25FAFF4A58FBFF4247FBFFC9C9FDFF3B3BF9FF1313F7FF1010F6FF3333 F7FFC5C5FDFF3035F7FF3444F7FF141BF2FF0000EDFF000008000052FF000000
F7FFC5C5FDFF3035F7FF3444F7FF141BF2FF0000EDFF000008000052FF000000 FBFF4F5DFDFF3237FBFFCBCBFEFFF2F2FFFFEBEBFEFF3B3BF9FF3939F8FFEAEA
FBFF4F5DFDFF3237FBFFCBCBFEFFF2F2FFFFEBEBFEFF3B3BF9FF3939F8FFEAEA FEFFF1F1FEFFC5C5FDFF181DF6FF3343F7FF0000EFFF0000CC0088005B000000
FEFFF1F1FEFFC5C5FDFF181DF6FF3343F7FF0000EFFF0000CC0088005B000000 FDFF525FFDFF2828FCFF4747FCFFECECFFFFF2F2FFFFECECFFFFECECFEFFF1F1
FDFF525FFDFF2828FCFF4747FCFFECECFFFFF2F2FFFFECECFFFFECECFEFFF1F1 FFFFEAEAFEFF3434F7FF0B0BF5FF3545F8FF0000EFFF00B8FF00E3FFA8000000
FFFFEAEAFEFF3434F7FF0B0BF5FF3545F8FF0000EFFF00B8FF00E3FFA8000000 FDFF5562FEFF2C2CFDFF2929FCFF4848FCFFEDEDFFFFF2F2FFFFF2F2FFFFECEC
FDFF5562FEFF2C2CFDFF2929FCFF4848FCFFEDEDFFFFF2F2FFFFF2F2FFFFECEC FEFF3A3AF9FF1212F7FF0F0FF6FF3848F8FF0000F1FF08009000FCFF72000000
FEFF3A3AF9FF1212F7FF0F0FF6FF3848F8FF0000F1FF08009000FCFF72000000 FDFF5764FEFF3030FDFF2D2DFDFF4B4BFCFFEDEDFFFFF2F2FFFFF2F2FFFFECEC
FDFF5764FEFF3030FDFF2D2DFDFF4B4BFCFFEDEDFFFFF2F2FFFFF2F2FFFFECEC FFFF3D3DF9FF1616F8FF1313F7FF3C4BF8FF0000F1FF02000000E4FF5C000000
FFFF3D3DF9FF1616F8FF1313F7FF3C4BF8FF0000F1FF02000000E4FF5C000000 FFFF5A67FEFF3333FEFF5050FDFFEDEDFFFFF3F3FFFFEDEDFFFFEDEDFFFFF2F2
FFFF5A67FEFF3333FEFF5050FDFFEDEDFFFFF3F3FFFFEDEDFFFFEDEDFFFFF2F2 FFFFECECFEFF3E3EFAFF1717F8FF3F4EF9FF0000F1FFFCFF1C00000000000000
FFFFECECFEFF3E3EFAFF1717F8FF3F4EF9FF0000F1FFFCFF1C00000000000000 FFFF5B68FFFF4347FEFFCFCFFFFFF3F3FFFFEDEDFFFF4C4CFCFF4A4AFCFFECEC
FFFF5B68FFFF4347FEFFCFCFFFFFF3F3FFFFEDEDFFFF4C4CFCFF4A4AFCFFECEC FFFFF2F2FFFFCACAFEFF2A2FFAFF4251FAFF0000F3FF00000000CCFF4C000000
FFFFF2F2FFFFCACAFEFF2A2FFAFF4251FAFF0000F3FF00000000CCFF4C000000 FFFF262BFFFF5D6AFFFF585BFFFFCFCFFFFF5252FEFF2F2FFDFF2C2CFDFF4B4B
FFFF262BFFFF5D6AFFFF585BFFFFCFCFFFFF5252FEFF2F2FFDFF2C2CFDFF4B4B FCFFCCCCFEFF484CFBFF4957FBFF1D23F9FF0000F5FF00000000000000000000
FCFFCCCCFEFF484CFBFF4957FBFF1D23F9FF0000F5FF00000000000000000000 00000000FFFF262BFFFF5D6AFFFF4347FFFF3434FEFF3232FEFF3030FDFF2D2D
00000000FFFF262BFFFF5D6AFFFF4347FFFF3434FEFF3232FEFF3030FDFF2D2D FDFF383CFCFF4F5DFCFF1F25FAFF0000F7FF0000000000000000000000000000
FDFF383CFCFF4F5DFCFF1F25FAFF0000F7FF0000000000000000000000000000 0000000000000000FFFF262BFFFF5C69FFFF5B68FFFF5A67FEFF5865FEFF5663
0000000000000000FFFF262BFFFF5C69FFFF5B68FFFF5A67FEFF5865FEFF5663 FEFF5461FEFF2227FCFF0000FBFFFCFF1C00000000000000000008000000EFEF
FEFF5461FEFF2227FCFF0000FBFFFCFF1C00000000000000000008000000EFEF EF00EFEFEF00EFEFEF000000FFFF0000FFFF0000FFFF0000FFFF0000FDFF0000
EF00EFEFEF00EFEFEF000000FFFF0000FFFF0000FFFF0000FFFF0000FDFF0000 FDFF0000FDFF0000FDFF000000000000000000000000000000009034DE009034
FDFF0000FDFF0000FDFF000000000000000000000000000000009034DE009034 DE00D86FDF00D86FDF00E0A223004AC6080000000000580000005870DF000C70
DE00D86FDF00D86FDF00E0A223004AC6080000000000580000005870DF000C70 DF000000000000000000000000002070DF000000000000000000
DF000000000000000000000000002070DF000000000000000000 }
} NumGlyphs = 0
NumGlyphs = 0 OnClick = btnClearClick
OnClick = btnClearClick ShowHint = True
ShowHint = True ParentShowHint = False
ParentFont = True end
ParentShowHint = False end
end object cbTileFilter: TCheckBox
end Left = 4
object cbTileFilter: TCheckBox Height = 22
Left = 4 Top = 4
Height = 20 Width = 218
Top = 4 Align = alTop
Width = 216 BorderSpacing.Around = 4
Align = alTop Caption = 'Filter active'
BorderSpacing.Around = 4 Checked = True
Caption = 'Filter active' State = cbChecked
Checked = True TabOrder = 2
ParentFont = True end
State = cbChecked end
TabOrder = 2 object GroupBox2: TGroupBox
end Left = 4
end Height = 168
object GroupBox2: TGroupBox Top = 320
Left = 4 Width = 228
Height = 168 Align = alBottom
Top = 320 BorderSpacing.Around = 4
Width = 228 Caption = 'Hue filter'
Align = alBottom ClientHeight = 154
BorderSpacing.Around = 4 ClientWidth = 226
Caption = 'Hue filter' TabOrder = 2
ClientHeight = 151 object cbHueFilter: TCheckBox
ClientWidth = 224 Left = 4
ParentFont = True Height = 22
TabOrder = 2 Top = 4
object cbHueFilter: TCheckBox Width = 218
Left = 4 Align = alTop
Height = 20 BorderSpacing.Around = 4
Top = 4 Caption = 'Filter active'
Width = 216 TabOrder = 0
Align = alTop end
BorderSpacing.Around = 4 object vdtHues: TVirtualDrawTree
Caption = 'Filter active' Cursor = 63
ParentFont = True Left = 4
TabOrder = 0 Height = 120
end Top = 30
object vdtHues: TVirtualDrawTree Width = 218
Cursor = 63 Align = alClient
Left = 4 BorderSpacing.Around = 4
Height = 119 BorderStyle = bsSingle
Top = 28 Header.AutoSizeIndex = 2
Width = 216 Header.Columns = <
Align = alClient item
BorderSpacing.Around = 4 Position = 0
BorderStyle = bsSingle Width = 20
Header.AutoSizeIndex = 2 end
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible] item
Header.ParentFont = True Position = 1
Header.Style = hsFlatButtons Text = 'Hue'
Header.Columns = < Width = 38
item end
Width = 20 item
end Position = 2
item Text = 'Name'
Position = 1 Width = 158
Width = 38 end>
Text = 'Hue' Header.DefaultHeight = 17
end Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
item Header.ParentFont = True
Position = 2 Header.Style = hsFlatButtons
Width = 158 PopupMenu = pmHues
Text = 'Name' TabOrder = 1
end> TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
ParentFont = True TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
PopupMenu = pmHues TreeOptions.SelectionOptions = [toFullRowSelect]
TabOrder = 1 OnChecked = vdtHuesChecked
TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning] OnDrawNode = vdtHuesDrawNode
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages] end
TreeOptions.SelectionOptions = [toFullRowSelect] end
OnChecked = vdtHuesChecked object Splitter1: TSplitter
OnDrawNode = vdtHuesDrawNode Cursor = crVSplit
end Left = 0
end Height = 5
object Splitter1: TSplitter Top = 311
Cursor = crVSplit Width = 236
Height = 5 Align = alBottom
Top = 311 ResizeAnchor = akBottom
Width = 236 end
Align = alBottom object pmHues: TPopupMenu
ResizeAnchor = akBottom left = 148
end top = 404
object pmHues: TPopupMenu object mnuCheckHues: TMenuItem
left = 148 Caption = 'Check all hues'
top = 404 OnClick = mnuCheckHuesClick
object mnuCheckHues: TMenuItem end
Caption = 'Check all hues' object mnuUncheckHues: TMenuItem
OnClick = mnuCheckHuesClick Caption = 'Uncheck all hues'
end OnClick = mnuUncheckHuesClick
object mnuUncheckHues: TMenuItem end
Caption = 'Uncheck all hues' end
OnClick = mnuUncheckHuesClick end
end
end
end

5
Client/Tools/UfrmFilter.pas
View File

@ -111,8 +111,9 @@ procedure TfrmFilter.FormShow(Sender: TObject);
var var
upperLeft, lowerLeft: TPoint; upperLeft, lowerLeft: TPoint;
begin begin
upperLeft := frmMain.pnlMain.ClientToScreen(Point(0, 0)); upperLeft := frmMain.pcLeft.ClientToScreen(Point(frmMain.pcLeft.Width, 0));
lowerLeft := frmMain.pnlMain.ClientToScreen(Point(0, frmMain.pnlMain.Height)); lowerLeft := frmMain.pcLeft.ClientToScreen(Point(frmMain.pcLeft.Width,
frmMain.pcLeft.Height));
Left := upperLeft.x; Left := upperLeft.x;
Top := upperLeft.y; Top := upperLeft.y;
Height := lowerLeft.y - upperLeft.y; Height := lowerLeft.y - upperLeft.y;

1451
Client/UfrmMain.lfm
View File

File diff suppressed because it is too large Load Diff

41
Client/UfrmMain.pas
View File

@ -60,30 +60,35 @@ type
ActionList1: TActionList; ActionList1: TActionList;
ApplicationProperties1: TApplicationProperties; ApplicationProperties1: TApplicationProperties;
btnAddLocation: TSpeedButton; btnAddLocation: TSpeedButton;
btnAddRandom: TSpeedButton;
btnClearLocations: TSpeedButton; btnClearLocations: TSpeedButton;
btnClearRandom: TSpeedButton;
btnDeleteLocation: TSpeedButton; btnDeleteLocation: TSpeedButton;
btnDeleteRandom: TSpeedButton;
btnGoTo: TButton; btnGoTo: TButton;
btnRandomPresetDelete: TSpeedButton;
btnRandomPresetSave: TSpeedButton;
cbRandomPreset: TComboBox; cbRandomPreset: TComboBox;
cbTerrain: TCheckBox;
cbStatics: TCheckBox; cbStatics: TCheckBox;
edFilter: TEdit; cbTerrain: TCheckBox;
edChat: TEdit; edChat: TEdit;
edFilter: TEdit;
edSearchID: TEdit; edSearchID: TEdit;
gbRandom: TGroupBox; gbRandom: TGroupBox;
ImageList1: TImageList; ImageList1: TImageList;
lblChatHeaderCaption: TLabel; lblChatHeaderCaption: TLabel;
lblFilter: TLabel;
lblTipC: TLabel; lblTipC: TLabel;
lblTip: TLabel; lblTip: TLabel;
lblTileInfo: TLabel; lblTileInfo: TLabel;
lblFilter: TLabel;
lblX: TLabel; lblX: TLabel;
lblY: TLabel; lblY: TLabel;
lbClients: TListBox; lbClients: TListBox;
MainMenu1: TMainMenu; MainMenu1: TMainMenu;
mnuGrabHue: TMenuItem;
mnuGrabTileID: TMenuItem;
mnuRegionControl: TMenuItem; mnuRegionControl: TMenuItem;
mnuVirtualLayer: TMenuItem; mnuVirtualLayer: TMenuItem;
mnuGrabTileID: TMenuItem;
mnuGrabHue: TMenuItem;
mnuLargeScaleCommands: TMenuItem; mnuLargeScaleCommands: TMenuItem;
mnuSetHue: TMenuItem; mnuSetHue: TMenuItem;
mnuGoToClient: TMenuItem; mnuGoToClient: TMenuItem;
@ -107,27 +112,17 @@ type
mnuDisconnect: TMenuItem; mnuDisconnect: TMenuItem;
mnuCentrED: TMenuItem; mnuCentrED: TMenuItem;
oglGameWindow: TOpenGLControl; oglGameWindow: TOpenGLControl;
pnlRandomPreset: TPanel;
pnlLocationControls: TPanel;
pnlChat: TPanel;
pnlChatHeader: TPanel;
pnlMain: TPanel;
pnlRandomControl: TPanel;
pnlTileListSettings: TPanel;
pcLeft: TPageControl; pcLeft: TPageControl;
pmGrabTileInfo: TPopupMenu;
pnlBottom: TPanel; pnlBottom: TPanel;
edX: TSpinEdit; edX: TSpinEdit;
edY: TSpinEdit; edY: TSpinEdit;
pmTileList: TPopupMenu; pmTileList: TPopupMenu;
btnAddRandom: TSpeedButton;
btnDeleteRandom: TSpeedButton;
btnClearRandom: TSpeedButton;
pmTools: TPopupMenu; pmTools: TPopupMenu;
pmClients: TPopupMenu; pmClients: TPopupMenu;
pmGrabTileInfo: TPopupMenu; pnlChat: TPanel;
pnlChatHeader: TPanel;
spChat: TSplitter; spChat: TSplitter;
btnRandomPresetSave: TSpeedButton;
btnRandomPresetDelete: TSpeedButton;
spTileList: TSplitter; spTileList: TSplitter;
tbFilter: TToolButton; tbFilter: TToolButton;
tbFlat: TToolButton; tbFlat: TToolButton;
@ -157,8 +152,8 @@ type
tsTiles: TTabSheet; tsTiles: TTabSheet;
vdtTiles: TVirtualDrawTree; vdtTiles: TVirtualDrawTree;
vdtRandom: TVirtualDrawTree; vdtRandom: TVirtualDrawTree;
vstLocations: TVirtualStringTree;
vstChat: TVirtualStringTree; vstChat: TVirtualStringTree;
vstLocations: TVirtualStringTree;
procedure acBoundariesExecute(Sender: TObject); procedure acBoundariesExecute(Sender: TObject);
procedure acDeleteExecute(Sender: TObject); procedure acDeleteExecute(Sender: TObject);
procedure acDrawExecute(Sender: TObject); procedure acDrawExecute(Sender: TObject);
@ -739,6 +734,7 @@ begin
Randomize; Randomize;
vstChat.NodeDataSize := SizeOf(TChatInfo); vstChat.NodeDataSize := SizeOf(TChatInfo);
pnlChatHeader.AnchorSide[akBottom].Control := pnlBottom;
FLocationsFile := IncludeTrailingPathDelimiter(ExtractFilePath( FLocationsFile := IncludeTrailingPathDelimiter(ExtractFilePath(
Application.ExeName)) + 'Locations.dat'; Application.ExeName)) + 'Locations.dat';
@ -1113,12 +1109,13 @@ begin
begin begin
pnlChat.Visible := False; pnlChat.Visible := False;
spChat.Visible := False; spChat.Visible := False;
pnlChatHeader.AnchorSide[akBottom].Control := pnlBottom;
end else end else
begin begin
spChat.Visible := True; spChat.Visible := True;
pnlChat.Visible := True; pnlChat.Visible := True;
spChat.Top := pnlChatHeader.Top + pnlChatHeader.Height; spChat.Top := pnlChat.Top - spChat.Height;
pnlChat.Top := spChat.Top + spChat.Height; pnlChatHeader.AnchorSide[akBottom].Control := spChat;
lblChatHeaderCaption.Font.Bold := False; lblChatHeaderCaption.Font.Bold := False;
lblChatHeaderCaption.Font.Italic := False; lblChatHeaderCaption.Font.Italic := False;
@ -1368,8 +1365,6 @@ procedure TfrmMain.vdtTilesKeyPress(Sender: TObject; var Key: char);
begin begin
if Key in ['$', '0'..'9'] then if Key in ['$', '0'..'9'] then
begin begin
edSearchID.Top := vdtTiles.Top + vdtTiles.Height - edSearchID.Height - 4;
edSearchID.Left := vdtTiles.Left + vdtTiles.Width - edSearchID.Width - 4;
edSearchID.Text := Key; edSearchID.Text := Key;
edSearchID.Visible := True; edSearchID.Visible := True;
edSearchID.SetFocus; edSearchID.SetFocus;