diff --git a/Client/CentrED.lpi b/Client/CentrED.lpi
index 6357c57..083d925 100644
--- a/Client/CentrED.lpi
+++ b/Client/CentrED.lpi
@@ -15,10 +15,9 @@
-
-
+
diff --git a/Client/CentrED.rc b/Client/CentrED.rc
index 0cb609c..15000b9 100644
--- a/Client/CentrED.rc
+++ b/Client/CentrED.rc
@@ -1,5 +1,5 @@
1 VERSIONINFO
-FILEVERSION 0,4,2,127
+FILEVERSION 0,4,2,141
PRODUCTVERSION 0,4,2,85
{
BLOCK "StringFileInfo"
@@ -9,7 +9,7 @@ PRODUCTVERSION 0,4,2,85
VALUE "Comments", "\000"
VALUE "CompanyName", "AKS DataBasis\000"
VALUE "FileDescription", "UO CentrED\000"
- VALUE "FileVersion", "0.4.2.127\000"
+ VALUE "FileVersion", "0.4.2.141\000"
VALUE "InternalName", "\000"
VALUE "LegalCopyright", "Andreas Schneider\000"
VALUE "LegalTrademarks", "\000"
diff --git a/Client/UfrmLargeScaleCommand.lfm b/Client/UfrmLargeScaleCommand.lfm
index 5776e86..5148043 100644
--- a/Client/UfrmLargeScaleCommand.lfm
+++ b/Client/UfrmLargeScaleCommand.lfm
@@ -1,1191 +1,1196 @@
-object frmLargeScaleCommand: TfrmLargeScaleCommand
- Left = 290
- Height = 397
- Top = 171
- Width = 620
- ActiveControl = vstActions
- Caption = 'Large Scale Commands'
- ClientHeight = 397
- ClientWidth = 620
- Constraints.MinHeight = 390
- Constraints.MinWidth = 620
- Font.Height = -11
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- Position = poOwnerFormCenter
- ShowInTaskBar = stAlways
- LCLVersion = '0.9.27'
- object nbActions: TNotebook
- Left = 152
- Height = 364
- Top = 0
- Width = 468
- Align = alClient
- PageIndex = 4
- ShowTabs = False
- TabOrder = 0
- object pgArea: TPage
- Caption = 'pgArea'
- ClientWidth = 462
- ClientHeight = 331
- object sbArea: TScrollBox
- Left = 0
- Height = 331
- Top = 0
- Width = 462
- Align = alClient
- ClientHeight = 327
- ClientWidth = 458
- TabOrder = 0
- object pbArea: TPaintBox
- Left = 0
- Height = 105
- Top = 0
- Width = 105
- OnMouseDown = pbAreaMouseDown
- OnMouseMove = pbAreaMouseMove
- OnPaint = pbAreaPaint
- end
- end
- end
- object pgCopyMove: TPage
- Caption = 'Copy/Move'
- ClientWidth = 462
- ClientHeight = 331
- object rgCMAction: TRadioGroup
- Left = 12
- Height = 40
- Top = 12
- Width = 184
- AutoFill = True
- Caption = 'Action'
- ChildSizing.LeftRightSpacing = 6
- ChildSizing.TopBottomSpacing = 6
- ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
- ChildSizing.EnlargeVertical = crsHomogenousChildResize
- ChildSizing.ShrinkHorizontal = crsScaleChilds
- ChildSizing.ShrinkVertical = crsScaleChilds
- ChildSizing.Layout = cclLeftToRightThenTopToBottom
- ChildSizing.ControlsPerLine = 2
- ClientHeight = 24
- ClientWidth = 182
- Columns = 2
- ItemIndex = 0
- Items.Strings = (
- 'Copy'
- 'Move'
- )
- TabOrder = 0
- end
- object gbCMOffset: TGroupBox
- Left = 12
- Height = 81
- Top = 60
- Width = 121
- Caption = 'Offset'
- ClientHeight = 65
- ClientWidth = 119
- TabOrder = 1
- object Label9: TLabel
- Left = 6
- Height = 13
- Top = 12
- Width = 12
- Caption = 'X:'
- ParentColor = False
- end
- object Label10: TLabel
- Left = 6
- Height = 13
- Top = 36
- Width = 12
- Caption = 'Y:'
- ParentColor = False
- end
- object seCMOffsetX: TSpinEdit
- Left = 30
- Height = 23
- Top = 8
- Width = 74
- TabOrder = 0
- end
- object seCMOffsetY: TSpinEdit
- Left = 30
- Height = 23
- Top = 34
- Width = 74
- TabOrder = 1
- end
- end
- object cbCMEraseTarget: TCheckBox
- Left = 20
- Height = 21
- Top = 148
- Width = 174
- Caption = 'Erase target area (at offset)'
- TabOrder = 2
- end
- end
- object pgModifyAltitude: TPage
- Caption = 'Modify altitude'
- ClientWidth = 462
- ClientHeight = 331
- object Label2: TLabel
- Left = 28
- Height = 43
- Top = 38
- Width = 142
- Caption = 'The statics will be elevated according to the terrain change.'
- Enabled = False
- ParentColor = False
- WordWrap = True
- end
- object Label3: TLabel
- Left = 228
- Height = 28
- Top = 12
- Width = 125
- Caption = 'Set the altitude to a value from this range:'
- ParentColor = False
- WordWrap = True
- end
- object Label4: TLabel
- Left = 288
- Height = 13
- Top = 49
- Width = 12
- Caption = 'to'
- ParentColor = False
- end
- object rbSetTerrainAltitude: TRadioButton
- Left = 12
- Height = 21
- Top = 12
- Width = 124
- Caption = 'Set terrain altitude'
- Checked = True
- State = cbChecked
- TabOrder = 0
- end
- object rbRelativeAltitudeChange: TRadioButton
- Left = 12
- Height = 21
- Top = 84
- Width = 156
- Caption = 'Relative altitude change'
- TabOrder = 1
- TabStop = False
- end
- object seTerrainAltitude1: TSpinEdit
- Left = 228
- Height = 23
- Top = 46
- Width = 50
- MaxValue = 127
- MinValue = -128
- TabOrder = 2
- end
- object seTerrainAltitude2: TSpinEdit
- Left = 308
- Height = 23
- Top = 46
- Width = 50
- MaxValue = 127
- MinValue = -128
- TabOrder = 3
- end
- object seRelativeAltitude: TSpinEdit
- Left = 28
- Height = 23
- Top = 108
- Width = 50
- MaxValue = 127
- MinValue = -128
- TabOrder = 4
- end
- end
- object pgDrawTerrain: TPage
- Caption = 'Draw Terrain'
- ClientWidth = 462
- ClientHeight = 331
- object gbDrawTerrainTiles: TGroupBox
- Left = 8
- Height = 315
- Top = 8
- Width = 225
- Align = alLeft
- BorderSpacing.Around = 8
- Caption = 'Tiles'
- ClientHeight = 299
- ClientWidth = 223
- TabOrder = 0
- object lblDrawTerrainTilesDesc: TLabel
- Left = 4
- Height = 58
- Top = 0
- Width = 215
- Align = alTop
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
- Caption = 'Drag terrain tiles from the main window and drop them on the list. For each cell in the target area, one of these (random) will be used.'
- ParentColor = False
- WordWrap = True
- end
- object vdtTerrainTiles: TVirtualDrawTree
- Tag = 1
- Cursor = 63
- Left = 4
- Height = 207
- Top = 62
- Width = 215
- Align = alClient
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
- DefaultNodeHeight = 44
- DragMode = dmAutomatic
- DragType = dtVCL
- Header.AutoSizeIndex = 0
- Header.Columns = <
- item
- Position = 0
- Text = 'ID'
- end
- item
- Position = 1
- Text = 'Tile'
- Width = 44
- end
- item
- Position = 2
- Text = 'Name'
- Width = 100
- end>
- Header.Options = [hoColumnResize, hoDrag, hoVisible]
- Header.ParentFont = True
- Header.Style = hsFlatButtons
- TabOrder = 0
- TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toFullRowDrag]
- TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
- TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
- OnDragOver = vdtTerrainTilesDragOver
- OnDragDrop = vdtTerrainTilesDragDrop
- OnDrawNode = vdtTerrainTilesDrawNode
- end
- object pnlDrawTerrainTilesControls: TPanel
- Left = 0
- Height = 26
- Top = 273
- Width = 223
- Align = alBottom
- BevelOuter = bvNone
- ClientHeight = 26
- ClientWidth = 223
- TabOrder = 1
- object btnClearTerrain: TSpeedButton
- Left = 33
- Height = 22
- Hint = 'Clear'
- Top = 0
- 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 = btnClearTerrainClick
- ShowHint = True
- ParentShowHint = False
- end
- object btnDeleteTerrain: TSpeedButton
- Left = 6
- Height = 22
- Hint = 'Delete'
- Top = 0
- 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 = btnDeleteTerrainClick
- ShowHint = True
- ParentShowHint = False
- end
- end
- end
- end
- object pgDeleteStatics: TPage
- Caption = 'Delete statics'
- ClientWidth = 462
- ClientHeight = 358
- object gbDeleteStaticsTiles: TGroupBox
- Left = 8
- Height = 342
- Top = 8
- Width = 225
- Align = alLeft
- BorderSpacing.Around = 8
- Caption = 'Tiles'
- ClientHeight = 328
- ClientWidth = 223
- TabOrder = 0
- object lblDeleteStaticsTilesDesc: TLabel
- Left = 4
- Height = 78
- Top = 0
- Width = 215
- Align = alTop
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
- Caption = 'Drag statics tiles from the main window and drop them on the list. Only statics matching these tiles will be deleted. If the list is empty, every static will be deleted.'
- ParentColor = False
- WordWrap = True
- end
- object vdtDeleteStaticsTiles: TVirtualDrawTree
- Tag = 1
- Cursor = 63
- Left = 4
- Height = 216
- Top = 82
- Width = 215
- Align = alClient
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
- DefaultNodeHeight = 44
- DragMode = dmAutomatic
- DragType = dtVCL
- Header.AutoSizeIndex = 0
- Header.Columns = <
- item
- Position = 0
- Text = 'ID'
- end
- item
- Position = 1
- Text = 'Tile'
- Width = 44
- end
- item
- Position = 2
- Text = 'Name'
- Width = 100
- end>
- Header.Options = [hoColumnResize, hoDrag, hoVisible]
- Header.ParentFont = True
- Header.Style = hsFlatButtons
- TabOrder = 0
- TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toFullRowDrag]
- TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
- TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
- OnDragOver = vdtTerrainTilesDragOver
- OnDragDrop = vdtTerrainTilesDragDrop
- OnDrawNode = vdtTerrainTilesDrawNode
- end
- object pnlDrawTerrainTilesControls2: TPanel
- Left = 0
- Height = 26
- Top = 302
- Width = 223
- Align = alBottom
- BevelOuter = bvNone
- ClientHeight = 26
- ClientWidth = 223
- TabOrder = 1
- object btnClearDStaticsTiles: TSpeedButton
- Left = 33
- Height = 22
- Hint = 'Clear'
- Top = 0
- 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 = btnClearDStaticsTilesClick
- ShowHint = True
- ParentShowHint = False
- end
- object btnDeleteDStaticsTiles: TSpeedButton
- Left = 6
- Height = 22
- Hint = 'Delete'
- Top = 0
- 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 = btnDeleteDStaticsTilesClick
- ShowHint = True
- ParentShowHint = False
- end
- end
- end
- object GroupBox1: TGroupBox
- Left = 244
- Height = 92
- Top = 8
- Width = 185
- Caption = 'Z Boundaries'
- ClientHeight = 78
- ClientWidth = 183
- TabOrder = 1
- object Label7: TLabel
- Left = 4
- Height = 30
- Top = 0
- Width = 175
- Align = alTop
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
- Caption = 'Only statics within this Z range will be deleted.'
- ParentColor = False
- WordWrap = True
- end
- object Label8: TLabel
- Left = 64
- Height = 14
- Top = 42
- Width = 11
- Caption = 'to'
- ParentColor = False
- end
- object seDeleteStaticsZ1: TSpinEdit
- Left = 4
- Height = 23
- Top = 39
- Width = 50
- MaxValue = 127
- MinValue = -128
- TabOrder = 0
- Value = -128
- end
- object seDeleteStaticsZ2: TSpinEdit
- Left = 86
- Height = 23
- Top = 39
- Width = 50
- MaxValue = 127
- MinValue = -128
- TabOrder = 1
- Value = 127
- end
- end
- end
- object pgInsertStatics: TPage
- Caption = 'Insert statics'
- ClientWidth = 462
- ClientHeight = 331
- object gbInserStaticsTiles: TGroupBox
- Left = 8
- Height = 315
- Top = 8
- Width = 225
- Align = alLeft
- BorderSpacing.Around = 8
- Caption = 'Tiles'
- ClientHeight = 299
- ClientWidth = 223
- TabOrder = 0
- object lblInsertStaticsTiles: TLabel
- Left = 4
- Height = 58
- Top = 0
- Width = 215
- Align = alTop
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
- Caption = 'Drag statics tiles from the main window and drop them on the list. For each cell in the target area, one of these (random) will be used.'
- ParentColor = False
- WordWrap = True
- end
- object vdtInsertStaticsTiles: TVirtualDrawTree
- Tag = 1
- Left = 4
- Height = 207
- Top = 62
- Width = 215
- Align = alClient
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
- DefaultNodeHeight = 44
- DragMode = dmAutomatic
- DragType = dtVCL
- Header.AutoSizeIndex = 0
- Header.Columns = <
- item
- Position = 0
- Text = 'ID'
- end
- item
- Position = 1
- Text = 'Tile'
- Width = 44
- end
- item
- Position = 2
- Text = 'Name'
- Width = 100
- end>
- Header.Options = [hoColumnResize, hoDrag, hoVisible]
- Header.ParentFont = True
- Header.Style = hsFlatButtons
- TabOrder = 0
- TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toFullRowDrag]
- TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
- TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
- OnDragOver = vdtTerrainTilesDragOver
- OnDragDrop = vdtTerrainTilesDragDrop
- OnDrawNode = vdtTerrainTilesDrawNode
- end
- object pnlDrawTerrainTilesControls1: TPanel
- Left = 0
- Height = 26
- Top = 273
- Width = 223
- Align = alBottom
- BevelOuter = bvNone
- ClientHeight = 26
- ClientWidth = 223
- TabOrder = 1
- object btnClearIStaticsTiles: TSpeedButton
- Left = 33
- Height = 22
- Hint = 'Clear'
- Top = 0
- 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 = btnClearIStaticsTilesClick
- ShowHint = True
- ParentShowHint = False
- end
- object btnDeleteIStaticsTiles: TSpeedButton
- Left = 6
- Height = 22
- Hint = 'Delete'
- Top = 0
- 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 = btnDeleteIStaticsTilesClick
- ShowHint = True
- ParentShowHint = False
- end
- end
- end
- object gbStaticsProbability: TGroupBox
- Left = 244
- Height = 84
- Top = 8
- Width = 185
- Caption = 'Probability'
- ClientHeight = 68
- ClientWidth = 183
- TabOrder = 1
- object Label5: TLabel
- Left = 4
- Height = 28
- Top = 0
- Width = 175
- Align = alTop
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
- Caption = 'A tile will only be placed with this probability:'
- ParentColor = False
- WordWrap = True
- end
- object Label6: TLabel
- Left = 59
- Height = 13
- Top = 40
- Width = 11
- Caption = '%'
- ParentColor = False
- end
- object seStaticsProbability: TSpinEdit
- Left = 4
- Height = 23
- Top = 36
- Width = 50
- TabOrder = 0
- Value = 100
- end
- end
- object gbStaticsPlacement: TGroupBox
- Left = 244
- Height = 120
- Top = 100
- Width = 185
- Caption = 'Z Placement'
- ClientHeight = 104
- ClientWidth = 183
- TabOrder = 2
- object rbPlaceStaticsOnTerrain: TRadioButton
- Left = 4
- Height = 20
- Top = 3
- Width = 140
- Caption = 'Place tiles on terrain'
- Checked = True
- State = cbChecked
- TabOrder = 0
- end
- object rbPlaceStaticsOnTop: TRadioButton
- Left = 4
- Height = 20
- Top = 27
- Width = 120
- Caption = 'Place tiles on top'
- TabOrder = 1
- TabStop = False
- end
- object rbPlaceStaticsOnZ: TRadioButton
- Left = 4
- Height = 20
- Top = 51
- Width = 103
- Caption = 'Place tiles on:'
- TabOrder = 2
- TabStop = False
- end
- object seInsertStaticsZ: TSpinEdit
- Left = 24
- Height = 23
- Top = 75
- Width = 50
- TabOrder = 3
- end
- end
- end
- end
- object pnlLeft: TPanel
- Left = 0
- Height = 364
- Top = 0
- Width = 152
- Align = alLeft
- BevelOuter = bvNone
- ClientHeight = 364
- ClientWidth = 152
- TabOrder = 1
- object Label1: TLabel
- Left = 4
- Height = 13
- Top = 136
- Width = 144
- Align = alTop
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- Caption = 'Area:'
- ParentColor = False
- end
- object vstActions: TVirtualStringTree
- Left = 0
- Height = 136
- Top = 0
- Width = 152
- Align = alTop
- DefaultText = 'Node'
- Header.AutoSizeIndex = 0
- Header.Columns = <
- item
- Position = 0
- Text = 'Actions'
- Width = 152
- end>
- Header.Options = [hoAutoResize, hoVisible]
- Header.ParentFont = True
- Header.Style = hsFlatButtons
- TabOrder = 0
- TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
- TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
- TreeOptions.SelectionOptions = [toFullRowSelect]
- OnChange = vstActionsChange
- OnGetText = vstActionsGetText
- OnPaintText = vstActionsPaintText
- end
- object pnlAreaControls: TPanel
- Left = 4
- Height = 82
- Top = 278
- Width = 144
- Align = alBottom
- BorderSpacing.Around = 4
- BevelOuter = bvNone
- ClientHeight = 82
- ClientWidth = 144
- TabOrder = 1
- object lblX: TLabel
- Left = 4
- Height = 13
- Top = 34
- Width = 8
- Caption = 'X'
- Enabled = False
- ParentColor = False
- end
- object lblY: TLabel
- Left = 4
- Height = 13
- Top = 62
- Width = 8
- Caption = 'Y'
- Enabled = False
- ParentColor = False
- end
- object btnAddArea: TSpeedButton
- Left = 30
- Height = 22
- Hint = 'Add area'
- Top = 0
- 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'
- Top = 0
- 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'
- Top = 0
- 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
- TabOrder = 0
- end
- object seX2: TSpinEdit
- Left = 84
- Height = 23
- Top = 29
- Width = 50
- Enabled = False
- OnChange = seX1Change
- TabOrder = 1
- end
- object seY1: TSpinEdit
- Left = 20
- Height = 23
- Top = 56
- Width = 50
- Enabled = False
- OnChange = seX1Change
- TabOrder = 2
- end
- object seY2: TSpinEdit
- Left = 84
- Height = 23
- Top = 56
- Width = 50
- Enabled = False
- OnChange = seX1Change
- TabOrder = 3
- end
- end
- object vstArea: TVirtualStringTree
- Left = 4
- Height = 125
- Top = 149
- Width = 144
- Align = alClient
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
- BorderStyle = bsSingle
- DefaultText = 'Node'
- Header.AutoSizeIndex = 0
- Header.Columns = <>
- Header.MainColumn = -1
- Header.Options = [hoColumnResize, hoDrag]
- TabOrder = 2
- TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
- TreeOptions.SelectionOptions = [toFullRowSelect]
- OnChange = vstAreaChange
- OnGetText = vstAreaGetText
- end
- end
- object pnlControls: TPanel
- Left = 4
- Height = 25
- Top = 368
- Width = 612
- Align = alBottom
- BorderSpacing.Around = 4
- BevelOuter = bvNone
- ClientHeight = 25
- ClientWidth = 612
- TabOrder = 2
- object btnExecute: TButton
- Left = 480
- Height = 25
- Top = 0
- Width = 64
- Align = alRight
- BorderSpacing.Right = 4
- BorderSpacing.InnerBorder = 4
- Caption = 'Execute'
- OnClick = btnExecuteClick
- TabOrder = 0
- end
- object btnClose: TButton
- Left = 548
- Height = 25
- Top = 0
- Width = 64
- Align = alRight
- BorderSpacing.Left = 4
- BorderSpacing.InnerBorder = 4
- Caption = 'Close'
- OnClick = btnCloseClick
- TabOrder = 1
- end
- end
-end
+object frmLargeScaleCommand: TfrmLargeScaleCommand
+ Left = 290
+ Height = 397
+ Top = 171
+ Width = 620
+ ActiveControl = pnlLeft
+ Caption = 'Large Scale Commands'
+ ClientHeight = 397
+ ClientWidth = 620
+ Constraints.MinHeight = 390
+ Constraints.MinWidth = 620
+ Font.Height = -11
+ OnCreate = FormCreate
+ OnDestroy = FormDestroy
+ OnShow = FormShow
+ Position = poOwnerFormCenter
+ ShowInTaskBar = stAlways
+ LCLVersion = '0.9.29'
+ object nbActions: TNotebook
+ Left = 152
+ Height = 364
+ Top = 0
+ Width = 468
+ Align = alClient
+ PageIndex = 4
+ ShowTabs = False
+ TabOrder = 0
+ object pgArea: TPage
+ Caption = 'pgArea'
+ ClientWidth = 462
+ ClientHeight = 331
+ object sbArea: TScrollBox
+ Left = 0
+ Height = 331
+ Top = 0
+ Width = 462
+ Align = alClient
+ ClientHeight = 329
+ ClientWidth = 460
+ TabOrder = 0
+ object pbArea: TPaintBox
+ Left = 0
+ Height = 105
+ Top = 0
+ Width = 105
+ OnMouseDown = pbAreaMouseDown
+ OnMouseMove = pbAreaMouseMove
+ OnPaint = pbAreaPaint
+ end
+ end
+ end
+ object pgCopyMove: TPage
+ Caption = 'Copy/Move'
+ ClientWidth = 462
+ ClientHeight = 331
+ object rgCMAction: TRadioGroup
+ Left = 12
+ Height = 40
+ Top = 12
+ Width = 184
+ AutoFill = True
+ Caption = 'Action'
+ ChildSizing.LeftRightSpacing = 6
+ ChildSizing.TopBottomSpacing = 6
+ ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+ ChildSizing.EnlargeVertical = crsHomogenousChildResize
+ ChildSizing.ShrinkHorizontal = crsScaleChilds
+ ChildSizing.ShrinkVertical = crsScaleChilds
+ ChildSizing.Layout = cclLeftToRightThenTopToBottom
+ ChildSizing.ControlsPerLine = 2
+ ClientHeight = 26
+ ClientWidth = 182
+ Columns = 2
+ ItemIndex = 0
+ Items.Strings = (
+ 'Copy'
+ 'Move'
+ )
+ TabOrder = 0
+ end
+ object gbCMOffset: TGroupBox
+ Left = 12
+ Height = 81
+ Top = 60
+ Width = 121
+ Caption = 'Offset'
+ ClientHeight = 67
+ ClientWidth = 119
+ TabOrder = 1
+ object Label9: TLabel
+ Left = 6
+ Height = 13
+ Top = 12
+ Width = 12
+ Caption = 'X:'
+ ParentColor = False
+ end
+ object Label10: TLabel
+ Left = 6
+ Height = 13
+ Top = 36
+ Width = 12
+ Caption = 'Y:'
+ ParentColor = False
+ end
+ object seCMOffsetX: TSpinEdit
+ Left = 30
+ Height = 23
+ Top = 8
+ Width = 74
+ TabOrder = 0
+ end
+ object seCMOffsetY: TSpinEdit
+ Left = 30
+ Height = 23
+ Top = 34
+ Width = 74
+ TabOrder = 1
+ end
+ end
+ object cbCMEraseTarget: TCheckBox
+ Left = 20
+ Height = 21
+ Top = 148
+ Width = 174
+ Caption = 'Erase target area (at offset)'
+ TabOrder = 2
+ end
+ end
+ object pgModifyAltitude: TPage
+ Caption = 'Modify altitude'
+ ClientWidth = 462
+ ClientHeight = 331
+ object Label2: TLabel
+ Left = 28
+ Height = 43
+ Top = 38
+ Width = 142
+ Caption = 'The statics will be elevated according to the terrain change.'
+ Enabled = False
+ ParentColor = False
+ WordWrap = True
+ end
+ object Label3: TLabel
+ Left = 228
+ Height = 28
+ Top = 12
+ Width = 125
+ Caption = 'Set the altitude to a value from this range:'
+ ParentColor = False
+ WordWrap = True
+ end
+ object Label4: TLabel
+ Left = 288
+ Height = 13
+ Top = 49
+ Width = 12
+ Caption = 'to'
+ ParentColor = False
+ end
+ object rbSetTerrainAltitude: TRadioButton
+ Left = 12
+ Height = 21
+ Top = 12
+ Width = 124
+ Caption = 'Set terrain altitude'
+ Checked = True
+ State = cbChecked
+ TabOrder = 0
+ end
+ object rbRelativeAltitudeChange: TRadioButton
+ Left = 12
+ Height = 21
+ Top = 84
+ Width = 156
+ Caption = 'Relative altitude change'
+ TabOrder = 1
+ TabStop = False
+ end
+ object seTerrainAltitude1: TSpinEdit
+ Left = 228
+ Height = 23
+ Top = 46
+ Width = 50
+ MaxValue = 127
+ MinValue = -128
+ TabOrder = 2
+ end
+ object seTerrainAltitude2: TSpinEdit
+ Left = 308
+ Height = 23
+ Top = 46
+ Width = 50
+ MaxValue = 127
+ MinValue = -128
+ TabOrder = 3
+ end
+ object seRelativeAltitude: TSpinEdit
+ Left = 28
+ Height = 23
+ Top = 108
+ Width = 50
+ MaxValue = 127
+ MinValue = -128
+ TabOrder = 4
+ end
+ end
+ object pgDrawTerrain: TPage
+ Caption = 'Draw Terrain'
+ ClientWidth = 462
+ ClientHeight = 331
+ object gbDrawTerrainTiles: TGroupBox
+ Left = 8
+ Height = 315
+ Top = 8
+ Width = 225
+ Align = alLeft
+ BorderSpacing.Around = 8
+ Caption = 'Tiles'
+ ClientHeight = 301
+ ClientWidth = 223
+ TabOrder = 0
+ object lblDrawTerrainTilesDesc: TLabel
+ Left = 4
+ Height = 58
+ Top = 0
+ Width = 213
+ Align = alTop
+ BorderSpacing.Left = 4
+ BorderSpacing.Right = 4
+ BorderSpacing.Bottom = 4
+ Caption = 'Drag terrain tiles from the main window and drop them on the list. For each cell in the target area, one of these (random) will be used.'
+ ParentColor = False
+ WordWrap = True
+ end
+ object vdtTerrainTiles: TVirtualDrawTree
+ Tag = 1
+ Cursor = 63
+ Left = 4
+ Height = 219
+ Top = 62
+ Width = 213
+ Align = alClient
+ BorderSpacing.Left = 4
+ BorderSpacing.Right = 4
+ BorderSpacing.Bottom = 4
+ DefaultNodeHeight = 44
+ DragMode = dmAutomatic
+ DragType = dtVCL
+ Header.AutoSizeIndex = 0
+ Header.Columns = <
+ item
+ Position = 0
+ Text = 'ID'
+ end
+ item
+ Position = 1
+ Text = 'Tile'
+ Width = 44
+ end
+ item
+ Position = 2
+ Text = 'Name'
+ Width = 100
+ end>
+ Header.DefaultHeight = 17
+ Header.Options = [hoColumnResize, hoDrag, hoVisible]
+ Header.ParentFont = True
+ Header.Style = hsFlatButtons
+ TabOrder = 0
+ TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toFullRowDrag]
+ TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
+ TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
+ OnDragOver = vdtTerrainTilesDragOver
+ OnDragDrop = vdtTerrainTilesDragDrop
+ OnDrawNode = vdtTerrainTilesDrawNode
+ end
+ object pnlDrawTerrainTilesControls: TPanel
+ Left = 0
+ Height = 26
+ Top = 285
+ Width = 221
+ Align = alBottom
+ BevelOuter = bvNone
+ ClientHeight = 26
+ ClientWidth = 221
+ TabOrder = 1
+ object btnClearTerrain: TSpeedButton
+ Left = 33
+ Height = 22
+ Hint = 'Clear'
+ Top = 0
+ 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 = btnClearTerrainClick
+ ShowHint = True
+ ParentShowHint = False
+ end
+ object btnDeleteTerrain: TSpeedButton
+ Left = 6
+ Height = 22
+ Hint = 'Delete'
+ Top = 0
+ 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 = btnDeleteTerrainClick
+ ShowHint = True
+ ParentShowHint = False
+ end
+ end
+ end
+ end
+ object pgDeleteStatics: TPage
+ Caption = 'Delete statics'
+ ClientWidth = 462
+ ClientHeight = 358
+ object gbDeleteStaticsTiles: TGroupBox
+ Left = 8
+ Height = 342
+ Top = 8
+ Width = 225
+ Align = alLeft
+ BorderSpacing.Around = 8
+ Caption = 'Tiles'
+ ClientHeight = 328
+ ClientWidth = 223
+ TabOrder = 0
+ object lblDeleteStaticsTilesDesc: TLabel
+ Left = 4
+ Height = 78
+ Top = 0
+ Width = 215
+ Align = alTop
+ BorderSpacing.Left = 4
+ BorderSpacing.Right = 4
+ BorderSpacing.Bottom = 4
+ Caption = 'Drag statics tiles from the main window and drop them on the list. Only statics matching these tiles will be deleted. If the list is empty, every static will be deleted.'
+ ParentColor = False
+ WordWrap = True
+ end
+ object vdtDeleteStaticsTiles: TVirtualDrawTree
+ Tag = 1
+ Cursor = 63
+ Left = 4
+ Height = 216
+ Top = 82
+ Width = 215
+ Align = alClient
+ BorderSpacing.Left = 4
+ BorderSpacing.Right = 4
+ BorderSpacing.Bottom = 4
+ DefaultNodeHeight = 44
+ DragMode = dmAutomatic
+ DragType = dtVCL
+ Header.AutoSizeIndex = 0
+ Header.Columns = <
+ item
+ Position = 0
+ Text = 'ID'
+ end
+ item
+ Position = 1
+ Text = 'Tile'
+ Width = 44
+ end
+ item
+ Position = 2
+ Text = 'Name'
+ Width = 100
+ end>
+ Header.DefaultHeight = 17
+ Header.Options = [hoColumnResize, hoDrag, hoVisible]
+ Header.ParentFont = True
+ Header.Style = hsFlatButtons
+ TabOrder = 0
+ TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toFullRowDrag]
+ TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
+ TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
+ OnDragOver = vdtTerrainTilesDragOver
+ OnDragDrop = vdtTerrainTilesDragDrop
+ OnDrawNode = vdtTerrainTilesDrawNode
+ end
+ object pnlDrawTerrainTilesControls2: TPanel
+ Left = 0
+ Height = 26
+ Top = 302
+ Width = 223
+ Align = alBottom
+ BevelOuter = bvNone
+ ClientHeight = 26
+ ClientWidth = 223
+ TabOrder = 1
+ object btnClearDStaticsTiles: TSpeedButton
+ Left = 33
+ Height = 22
+ Hint = 'Clear'
+ Top = 0
+ 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 = btnClearDStaticsTilesClick
+ ShowHint = True
+ ParentShowHint = False
+ end
+ object btnDeleteDStaticsTiles: TSpeedButton
+ Left = 6
+ Height = 22
+ Hint = 'Delete'
+ Top = 0
+ 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 = btnDeleteDStaticsTilesClick
+ ShowHint = True
+ ParentShowHint = False
+ end
+ end
+ end
+ object GroupBox1: TGroupBox
+ Left = 244
+ Height = 92
+ Top = 8
+ Width = 185
+ Caption = 'Z Boundaries'
+ ClientHeight = 78
+ ClientWidth = 183
+ TabOrder = 1
+ object Label7: TLabel
+ Left = 4
+ Height = 30
+ Top = 0
+ Width = 175
+ Align = alTop
+ BorderSpacing.Left = 4
+ BorderSpacing.Right = 4
+ BorderSpacing.Bottom = 4
+ Caption = 'Only statics within this Z range will be deleted.'
+ ParentColor = False
+ WordWrap = True
+ end
+ object Label8: TLabel
+ Left = 64
+ Height = 14
+ Top = 42
+ Width = 12
+ Caption = 'to'
+ ParentColor = False
+ end
+ object seDeleteStaticsZ1: TSpinEdit
+ Left = 4
+ Height = 19
+ Top = 39
+ Width = 50
+ MaxValue = 127
+ MinValue = -128
+ TabOrder = 0
+ Value = -128
+ end
+ object seDeleteStaticsZ2: TSpinEdit
+ Left = 86
+ Height = 19
+ Top = 39
+ Width = 50
+ MaxValue = 127
+ MinValue = -128
+ TabOrder = 1
+ Value = 127
+ end
+ end
+ end
+ object pgInsertStatics: TPage
+ Caption = 'Insert statics'
+ ClientWidth = 462
+ ClientHeight = 331
+ object gbInserStaticsTiles: TGroupBox
+ Left = 8
+ Height = 315
+ Top = 8
+ Width = 225
+ Align = alLeft
+ BorderSpacing.Around = 8
+ Caption = 'Tiles'
+ ClientHeight = 301
+ ClientWidth = 223
+ TabOrder = 0
+ object lblInsertStaticsTiles: TLabel
+ Left = 4
+ Height = 58
+ Top = 0
+ Width = 213
+ Align = alTop
+ BorderSpacing.Left = 4
+ BorderSpacing.Right = 4
+ BorderSpacing.Bottom = 4
+ Caption = 'Drag statics tiles from the main window and drop them on the list. For each cell in the target area, one of these (random) will be used.'
+ ParentColor = False
+ WordWrap = True
+ end
+ object vdtInsertStaticsTiles: TVirtualDrawTree
+ Tag = 1
+ Left = 4
+ Height = 219
+ Top = 62
+ Width = 213
+ Align = alClient
+ BorderSpacing.Left = 4
+ BorderSpacing.Right = 4
+ BorderSpacing.Bottom = 4
+ DefaultNodeHeight = 44
+ DragMode = dmAutomatic
+ DragType = dtVCL
+ Header.AutoSizeIndex = 0
+ Header.Columns = <
+ item
+ Position = 0
+ Text = 'ID'
+ end
+ item
+ Position = 1
+ Text = 'Tile'
+ Width = 44
+ end
+ item
+ Position = 2
+ Text = 'Name'
+ Width = 100
+ end>
+ Header.DefaultHeight = 17
+ Header.Options = [hoColumnResize, hoDrag, hoVisible]
+ Header.ParentFont = True
+ Header.Style = hsFlatButtons
+ TabOrder = 0
+ TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toFullRowDrag]
+ TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
+ TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
+ OnDragOver = vdtTerrainTilesDragOver
+ OnDragDrop = vdtTerrainTilesDragDrop
+ OnDrawNode = vdtTerrainTilesDrawNode
+ end
+ object pnlDrawTerrainTilesControls1: TPanel
+ Left = 0
+ Height = 26
+ Top = 285
+ Width = 221
+ Align = alBottom
+ BevelOuter = bvNone
+ ClientHeight = 26
+ ClientWidth = 221
+ TabOrder = 1
+ object btnClearIStaticsTiles: TSpeedButton
+ Left = 33
+ Height = 22
+ Hint = 'Clear'
+ Top = 0
+ 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 = btnClearIStaticsTilesClick
+ ShowHint = True
+ ParentShowHint = False
+ end
+ object btnDeleteIStaticsTiles: TSpeedButton
+ Left = 6
+ Height = 22
+ Hint = 'Delete'
+ Top = 0
+ 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 = btnDeleteIStaticsTilesClick
+ ShowHint = True
+ ParentShowHint = False
+ end
+ end
+ end
+ object gbStaticsProbability: TGroupBox
+ Left = 244
+ Height = 84
+ Top = 8
+ Width = 185
+ Caption = 'Probability'
+ ClientHeight = 70
+ ClientWidth = 183
+ TabOrder = 1
+ object Label5: TLabel
+ Left = 4
+ Height = 28
+ Top = 0
+ Width = 173
+ Align = alTop
+ BorderSpacing.Left = 4
+ BorderSpacing.Right = 4
+ BorderSpacing.Bottom = 4
+ Caption = 'A tile will only be placed with this probability:'
+ ParentColor = False
+ WordWrap = True
+ end
+ object Label6: TLabel
+ Left = 59
+ Height = 13
+ Top = 40
+ Width = 11
+ Caption = '%'
+ ParentColor = False
+ end
+ object seStaticsProbability: TSpinEdit
+ Left = 4
+ Height = 23
+ Top = 36
+ Width = 50
+ TabOrder = 0
+ Value = 100
+ end
+ end
+ object gbStaticsPlacement: TGroupBox
+ Left = 244
+ Height = 120
+ Top = 100
+ Width = 185
+ Caption = 'Z Placement'
+ ClientHeight = 106
+ ClientWidth = 183
+ TabOrder = 2
+ object rbPlaceStaticsOnTerrain: TRadioButton
+ Left = 4
+ Height = 20
+ Top = 3
+ Width = 140
+ Caption = 'Place tiles on terrain'
+ Checked = True
+ State = cbChecked
+ TabOrder = 0
+ end
+ object rbPlaceStaticsOnTop: TRadioButton
+ Left = 4
+ Height = 20
+ Top = 27
+ Width = 120
+ Caption = 'Place tiles on top'
+ TabOrder = 1
+ TabStop = False
+ end
+ object rbPlaceStaticsOnZ: TRadioButton
+ Left = 4
+ Height = 20
+ Top = 51
+ Width = 103
+ Caption = 'Place tiles on:'
+ TabOrder = 2
+ TabStop = False
+ end
+ object seInsertStaticsZ: TSpinEdit
+ Left = 24
+ Height = 23
+ Top = 75
+ Width = 50
+ TabOrder = 3
+ end
+ end
+ end
+ end
+ object pnlLeft: TPanel
+ Left = 0
+ Height = 364
+ Top = 0
+ Width = 152
+ Align = alLeft
+ BevelOuter = bvNone
+ ClientHeight = 364
+ ClientWidth = 152
+ TabOrder = 1
+ object Label1: TLabel
+ Left = 4
+ Height = 14
+ Top = 136
+ Width = 144
+ Align = alTop
+ BorderSpacing.Left = 4
+ BorderSpacing.Right = 4
+ Caption = 'Area:'
+ ParentColor = False
+ end
+ object vstActions: TVirtualStringTree
+ Left = 0
+ Height = 136
+ Top = 0
+ Width = 152
+ Align = alTop
+ DefaultText = 'Node'
+ Header.AutoSizeIndex = 0
+ Header.Columns = <
+ item
+ Position = 0
+ Text = 'Actions'
+ Width = 152
+ end>
+ Header.DefaultHeight = 17
+ Header.Options = [hoAutoResize, hoVisible]
+ Header.ParentFont = True
+ Header.Style = hsFlatButtons
+ TabOrder = 0
+ TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
+ TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
+ TreeOptions.SelectionOptions = [toFullRowSelect]
+ OnChange = vstActionsChange
+ OnGetText = vstActionsGetText
+ OnPaintText = vstActionsPaintText
+ end
+ object pnlAreaControls: TPanel
+ Left = 4
+ Height = 82
+ Top = 278
+ Width = 144
+ Align = alBottom
+ BorderSpacing.Around = 4
+ BevelOuter = bvNone
+ ClientHeight = 82
+ ClientWidth = 144
+ TabOrder = 1
+ object lblX: TLabel
+ Left = 4
+ Height = 14
+ Top = 34
+ Width = 8
+ Caption = 'X'
+ Enabled = False
+ ParentColor = False
+ end
+ object lblY: TLabel
+ Left = 4
+ Height = 14
+ Top = 62
+ Width = 8
+ Caption = 'Y'
+ Enabled = False
+ ParentColor = False
+ end
+ object btnAddArea: TSpeedButton
+ Left = 30
+ Height = 22
+ Hint = 'Add area'
+ Top = 0
+ 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'
+ Top = 0
+ 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'
+ Top = 0
+ 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 = 19
+ Top = 29
+ Width = 50
+ Enabled = False
+ OnChange = seX1Change
+ TabOrder = 0
+ end
+ object seX2: TSpinEdit
+ Left = 84
+ Height = 19
+ Top = 29
+ Width = 50
+ Enabled = False
+ OnChange = seX1Change
+ TabOrder = 1
+ end
+ object seY1: TSpinEdit
+ Left = 20
+ Height = 19
+ Top = 56
+ Width = 50
+ Enabled = False
+ OnChange = seX1Change
+ TabOrder = 2
+ end
+ object seY2: TSpinEdit
+ Left = 84
+ Height = 19
+ Top = 56
+ Width = 50
+ Enabled = False
+ OnChange = seX1Change
+ TabOrder = 3
+ end
+ end
+ object vstArea: TVirtualStringTree
+ Left = 4
+ Height = 124
+ Top = 150
+ Width = 144
+ Align = alClient
+ BorderSpacing.Left = 4
+ BorderSpacing.Right = 4
+ BorderSpacing.Bottom = 4
+ BorderStyle = bsSingle
+ DefaultText = 'Node'
+ Header.AutoSizeIndex = 0
+ Header.Columns = <>
+ Header.DefaultHeight = 17
+ Header.MainColumn = -1
+ Header.Options = [hoColumnResize, hoDrag]
+ TabOrder = 2
+ TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
+ TreeOptions.SelectionOptions = [toFullRowSelect]
+ OnChange = vstAreaChange
+ OnGetText = vstAreaGetText
+ end
+ end
+ object pnlControls: TPanel
+ Left = 4
+ Height = 25
+ Top = 368
+ Width = 612
+ Align = alBottom
+ BorderSpacing.Around = 4
+ BevelOuter = bvNone
+ ClientHeight = 25
+ ClientWidth = 612
+ TabOrder = 2
+ object btnExecute: TButton
+ Left = 480
+ Height = 25
+ Top = 0
+ Width = 64
+ Align = alRight
+ BorderSpacing.Right = 4
+ BorderSpacing.InnerBorder = 4
+ Caption = 'Execute'
+ OnClick = btnExecuteClick
+ TabOrder = 0
+ end
+ object btnClose: TButton
+ Left = 548
+ Height = 25
+ Top = 0
+ Width = 64
+ Align = alRight
+ BorderSpacing.Left = 4
+ BorderSpacing.InnerBorder = 4
+ Caption = 'Close'
+ OnClick = btnCloseClick
+ TabOrder = 1
+ end
+ end
+end
diff --git a/Client/UfrmLargeScaleCommand.pas b/Client/UfrmLargeScaleCommand.pas
index 0d037c6..fba5ee0 100644
--- a/Client/UfrmLargeScaleCommand.pas
+++ b/Client/UfrmLargeScaleCommand.pas
@@ -146,18 +146,18 @@ type
procedure vstActionsChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure vstActionsGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
- var CellText: UTF8String);
+ var CellText: String);
procedure vstActionsPaintText(Sender: TBaseVirtualTree;
const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType);
procedure vstAreaChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure vstAreaGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
- Column: TColumnIndex; TextType: TVSTTextType; var CellText: UTF8String);
+ Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
protected
FLastX: Integer;
FLastY: Integer;
FAreaMove: TAreaMove;
- procedure AddNode(AActionID: Integer; ACaption: UTF8String);
+ procedure AddNode(AActionID: Integer; ACaption: String);
function FindNode(AActionID: Integer): PVirtualNode;
procedure SerializeTiles(ATileList: TVirtualDrawTree;
AStream: TEnhancedMemoryStream);
@@ -178,7 +178,7 @@ type
PNodeInfo = ^TNodeInfo;
TNodeInfo = record
ActionID: Integer;
- Caption: UTF8String;
+ Caption: String;
end;
PTileInfo = ^TTileInfo;
TTileInfo = record
@@ -569,7 +569,7 @@ end;
procedure TfrmLargeScaleCommand.vstActionsGetText(
Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
- TextType: TVSTTextType; var CellText: UTF8String);
+ TextType: TVSTTextType; var CellText: String);
var
nodeInfo: PNodeInfo;
begin
@@ -612,7 +612,7 @@ end;
procedure TfrmLargeScaleCommand.vstAreaGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
- var CellText: UTF8String);
+ var CellText: String);
var
nodeInfo: ^TRect;
begin
@@ -621,7 +621,7 @@ begin
nodeInfo^.Right, nodeInfo^.Bottom]);
end;
-procedure TfrmLargeScaleCommand.AddNode(AActionID: Integer; ACaption: UTF8String);
+procedure TfrmLargeScaleCommand.AddNode(AActionID: Integer; ACaption: String);
var
node: PVirtualNode;
nodeInfo: PNodeInfo;
diff --git a/Client/UfrmMain.pas b/Client/UfrmMain.pas
index 2815287..ddb2f93 100644
--- a/Client/UfrmMain.pas
+++ b/Client/UfrmMain.pas
@@ -248,7 +248,7 @@ type
procedure vstChatClick(Sender: TObject);
procedure vstChatFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
procedure vstChatGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
- Column: TColumnIndex; TextType: TVSTTextType; var CellText: UTF8String);
+ Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
procedure vstChatPaintText(Sender: TBaseVirtualTree;
const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
TextType: TVSTTextType);
@@ -256,11 +256,11 @@ type
procedure vstLocationsFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode
);
procedure vstLocationsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
- Column: TColumnIndex; TextType: TVSTTextType; var CellText: UTF8String);
+ Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
procedure vstLocationsLoadNode(Sender: TBaseVirtualTree;
Node: PVirtualNode; Stream: TStream);
procedure vstLocationsNewText(Sender: TBaseVirtualTree; Node: PVirtualNode;
- Column: TColumnIndex; NewText: WideString);
+ Column: TColumnIndex; const NewText: String);
procedure vstLocationsSaveNode(Sender: TBaseVirtualTree;
Node: PVirtualNode; Stream: TStream);
protected
@@ -1454,15 +1454,15 @@ begin
end;
procedure TfrmMain.vstChatGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
- Column: TColumnIndex; TextType: TVSTTextType; var CellText: UTF8String);
+ Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
var
chatInfo: PChatInfo;
begin
chatInfo := Sender.GetNodeData(Node);
case Column of
- 0: CellText := UTF8Encode(TimeToStr(chatInfo^.Time));
- 1: CellText := UTF8Encode(chatInfo^.Sender);
- 2: CellText := UTF8Encode(chatInfo^.Msg);
+ 0: CellText := TimeToStr(chatInfo^.Time);
+ 1: CellText := chatInfo^.Sender;
+ 2: CellText := chatInfo^.Msg;
end;
end;
@@ -1506,14 +1506,14 @@ end;
procedure TfrmMain.vstLocationsGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
- var CellText: UTF8String);
+ var CellText: String);
var
locationInfo: PLocationInfo;
begin
locationInfo := Sender.GetNodeData(Node);
case Column of
- 0: CellText := UTF8Encode(Format('%d, %d', [locationInfo^.X, locationInfo^.Y]));
- 1: CellText := UTF8Encode(locationInfo^.Name);
+ 0: CellText := Format('%d, %d', [locationInfo^.X, locationInfo^.Y]);
+ 1: CellText := locationInfo^.Name;
end;
end;
@@ -1535,7 +1535,7 @@ begin
end;
procedure TfrmMain.vstLocationsNewText(Sender: TBaseVirtualTree;
- Node: PVirtualNode; Column: TColumnIndex; NewText: WideString);
+ Node: PVirtualNode; Column: TColumnIndex; const NewText: String);
var
locationInfo: PLocationInfo;
begin