- Removed several unnecessary panels from frmMain (using Anchors instead)
This commit is contained in:
parent
dc1f425353
commit
f3888db49c
|
|
@ -13,7 +13,7 @@ object frmFilter: TfrmFilter
|
|||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.25'
|
||||
LCLVersion = '0.9.27'
|
||||
object rgFilterType: TRadioGroup
|
||||
Left = 4
|
||||
Height = 40
|
||||
|
|
@ -31,15 +31,14 @@ object frmFilter: TfrmFilter
|
|||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 2
|
||||
ClientHeight = 23
|
||||
ClientWidth = 224
|
||||
ClientHeight = 26
|
||||
ClientWidth = 226
|
||||
Columns = 2
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'Exclusive'
|
||||
'Inclusive'
|
||||
)
|
||||
ParentFont = True
|
||||
TabOrder = 0
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
|
|
@ -50,52 +49,52 @@ object frmFilter: TfrmFilter
|
|||
Align = alClient
|
||||
BorderSpacing.Around = 4
|
||||
Caption = 'Tile filter'
|
||||
ClientHeight = 242
|
||||
ClientWidth = 224
|
||||
ParentFont = True
|
||||
ClientHeight = 245
|
||||
ClientWidth = 226
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 4
|
||||
Height = 28
|
||||
Top = 28
|
||||
Width = 216
|
||||
Height = 30
|
||||
Top = 30
|
||||
Width = 218
|
||||
Align = alTop
|
||||
BorderSpacing.Around = 4
|
||||
Caption = 'Drag and Drop static tiles from the tile list on this list to add them to the filter.'
|
||||
ParentColor = False
|
||||
ParentFont = True
|
||||
WordWrap = True
|
||||
end
|
||||
object vdtFilter: TVirtualDrawTree
|
||||
Tag = 1
|
||||
Cursor = 63
|
||||
Left = 4
|
||||
Height = 152
|
||||
Top = 60
|
||||
Width = 216
|
||||
Height = 151
|
||||
Top = 64
|
||||
Width = 218
|
||||
Align = alClient
|
||||
BorderSpacing.Around = 4
|
||||
BorderStyle = bsSingle
|
||||
DefaultNodeHeight = 44
|
||||
DragType = dtVCL
|
||||
Header.Options = [hoColumnResize, hoDrag, hoVisible]
|
||||
Header.ParentFont = True
|
||||
Header.Style = hsFlatButtons
|
||||
Header.AutoSizeIndex = 0
|
||||
Header.Columns = <
|
||||
item
|
||||
Position = 0
|
||||
Text = 'ID'
|
||||
end
|
||||
item
|
||||
Position = 1
|
||||
Width = 44
|
||||
Text = 'Tile'
|
||||
Width = 44
|
||||
end
|
||||
item
|
||||
Position = 2
|
||||
Width = 100
|
||||
Text = 'Name'
|
||||
Width = 100
|
||||
end>
|
||||
ParentFont = True
|
||||
Header.DefaultHeight = 17
|
||||
Header.Options = [hoColumnResize, hoDrag, hoVisible]
|
||||
Header.ParentFont = True
|
||||
Header.Style = hsFlatButtons
|
||||
TabOrder = 0
|
||||
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
|
||||
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
|
||||
|
|
@ -106,19 +105,19 @@ object frmFilter: TfrmFilter
|
|||
object pnlControls: TPanel
|
||||
Left = 4
|
||||
Height = 22
|
||||
Top = 216
|
||||
Width = 216
|
||||
Top = 219
|
||||
Width = 218
|
||||
Align = alBottom
|
||||
BorderSpacing.Around = 4
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 22
|
||||
ClientWidth = 216
|
||||
ParentFont = True
|
||||
ClientWidth = 218
|
||||
TabOrder = 1
|
||||
object btnDelete: TSpeedButton
|
||||
Left = 84
|
||||
Height = 22
|
||||
Hint = 'Delete'
|
||||
Top = 0
|
||||
Width = 23
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
|
|
@ -160,13 +159,13 @@ object frmFilter: TfrmFilter
|
|||
NumGlyphs = 0
|
||||
OnClick = btnDeleteClick
|
||||
ShowHint = True
|
||||
ParentFont = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object btnClear: TSpeedButton
|
||||
Left = 108
|
||||
Height = 22
|
||||
Hint = 'Clear'
|
||||
Top = 0
|
||||
Width = 23
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
|
|
@ -208,20 +207,18 @@ object frmFilter: TfrmFilter
|
|||
NumGlyphs = 0
|
||||
OnClick = btnClearClick
|
||||
ShowHint = True
|
||||
ParentFont = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
end
|
||||
object cbTileFilter: TCheckBox
|
||||
Left = 4
|
||||
Height = 20
|
||||
Height = 22
|
||||
Top = 4
|
||||
Width = 216
|
||||
Width = 218
|
||||
Align = alTop
|
||||
BorderSpacing.Around = 4
|
||||
Caption = 'Filter active'
|
||||
Checked = True
|
||||
ParentFont = True
|
||||
State = cbChecked
|
||||
TabOrder = 2
|
||||
end
|
||||
|
|
@ -234,49 +231,48 @@ object frmFilter: TfrmFilter
|
|||
Align = alBottom
|
||||
BorderSpacing.Around = 4
|
||||
Caption = 'Hue filter'
|
||||
ClientHeight = 151
|
||||
ClientWidth = 224
|
||||
ParentFont = True
|
||||
ClientHeight = 154
|
||||
ClientWidth = 226
|
||||
TabOrder = 2
|
||||
object cbHueFilter: TCheckBox
|
||||
Left = 4
|
||||
Height = 20
|
||||
Height = 22
|
||||
Top = 4
|
||||
Width = 216
|
||||
Width = 218
|
||||
Align = alTop
|
||||
BorderSpacing.Around = 4
|
||||
Caption = 'Filter active'
|
||||
ParentFont = True
|
||||
TabOrder = 0
|
||||
end
|
||||
object vdtHues: TVirtualDrawTree
|
||||
Cursor = 63
|
||||
Left = 4
|
||||
Height = 119
|
||||
Top = 28
|
||||
Width = 216
|
||||
Height = 120
|
||||
Top = 30
|
||||
Width = 218
|
||||
Align = alClient
|
||||
BorderSpacing.Around = 4
|
||||
BorderStyle = bsSingle
|
||||
Header.AutoSizeIndex = 2
|
||||
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
|
||||
Header.ParentFont = True
|
||||
Header.Style = hsFlatButtons
|
||||
Header.Columns = <
|
||||
item
|
||||
Position = 0
|
||||
Width = 20
|
||||
end
|
||||
item
|
||||
Position = 1
|
||||
Width = 38
|
||||
Text = 'Hue'
|
||||
Width = 38
|
||||
end
|
||||
item
|
||||
Position = 2
|
||||
Width = 158
|
||||
Text = 'Name'
|
||||
Width = 158
|
||||
end>
|
||||
ParentFont = True
|
||||
Header.DefaultHeight = 17
|
||||
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
|
||||
Header.ParentFont = True
|
||||
Header.Style = hsFlatButtons
|
||||
PopupMenu = pmHues
|
||||
TabOrder = 1
|
||||
TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
|
||||
|
|
@ -288,6 +284,7 @@ object frmFilter: TfrmFilter
|
|||
end
|
||||
object Splitter1: TSplitter
|
||||
Cursor = crVSplit
|
||||
Left = 0
|
||||
Height = 5
|
||||
Top = 311
|
||||
Width = 236
|
||||
|
|
|
|||
|
|
@ -111,8 +111,9 @@ procedure TfrmFilter.FormShow(Sender: TObject);
|
|||
var
|
||||
upperLeft, lowerLeft: TPoint;
|
||||
begin
|
||||
upperLeft := frmMain.pnlMain.ClientToScreen(Point(0, 0));
|
||||
lowerLeft := frmMain.pnlMain.ClientToScreen(Point(0, frmMain.pnlMain.Height));
|
||||
upperLeft := frmMain.pcLeft.ClientToScreen(Point(frmMain.pcLeft.Width, 0));
|
||||
lowerLeft := frmMain.pcLeft.ClientToScreen(Point(frmMain.pcLeft.Width,
|
||||
frmMain.pcLeft.Height));
|
||||
Left := upperLeft.x;
|
||||
Top := upperLeft.y;
|
||||
Height := lowerLeft.y - upperLeft.y;
|
||||
|
|
|
|||
|
|
@ -3,7 +3,6 @@ object frmMain: TfrmMain
|
|||
Height = 603
|
||||
Top = 126
|
||||
Width = 766
|
||||
ActiveControl = pcLeft
|
||||
Caption = 'UO CentrED'
|
||||
ClientHeight = 580
|
||||
ClientWidth = 766
|
||||
|
|
@ -118,62 +117,34 @@ object frmMain: TfrmMain
|
|||
Caption = 'Tiles'
|
||||
ClientHeight = 492
|
||||
ClientWidth = 218
|
||||
object pnlTileListSettings: TPanel
|
||||
Left = 0
|
||||
Height = 56
|
||||
Top = 0
|
||||
Width = 218
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 56
|
||||
ClientWidth = 218
|
||||
TabOrder = 0
|
||||
object lblFilter: TLabel
|
||||
Left = 84
|
||||
AnchorSideLeft.Control = cbTerrain
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = cbTerrain
|
||||
Left = 81
|
||||
Height = 14
|
||||
Top = 8
|
||||
Width = 30
|
||||
BorderSpacing.Left = 16
|
||||
Caption = 'Filter:'
|
||||
ParentColor = False
|
||||
end
|
||||
object cbTerrain: TCheckBox
|
||||
Left = 4
|
||||
Height = 22
|
||||
Top = 8
|
||||
Width = 61
|
||||
Caption = 'Terrain'
|
||||
Checked = True
|
||||
OnChange = cbTerrainChange
|
||||
State = cbChecked
|
||||
TabOrder = 0
|
||||
end
|
||||
object cbStatics: TCheckBox
|
||||
Left = 4
|
||||
Height = 22
|
||||
Top = 32
|
||||
Width = 60
|
||||
Caption = 'Statics'
|
||||
Checked = True
|
||||
OnChange = cbStaticsChange
|
||||
State = cbChecked
|
||||
TabOrder = 1
|
||||
end
|
||||
object edFilter: TEdit
|
||||
Left = 84
|
||||
Height = 19
|
||||
Top = 24
|
||||
Width = 112
|
||||
OnEditingDone = edFilterEditingDone
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
object vdtTiles: TVirtualDrawTree
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Height = 238
|
||||
AnchorSideLeft.Control = tsTiles
|
||||
AnchorSideTop.Control = cbStatics
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = tsTiles
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = spTileList
|
||||
Left = 4
|
||||
Height = 250
|
||||
Top = 56
|
||||
Width = 218
|
||||
Align = alClient
|
||||
Width = 210
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 4
|
||||
DefaultNodeHeight = 44
|
||||
DragMode = dmAutomatic
|
||||
DragType = dtVCL
|
||||
|
|
@ -199,7 +170,7 @@ object frmMain: TfrmMain
|
|||
Header.ParentFont = True
|
||||
Header.Style = hsFlatButtons
|
||||
PopupMenu = pmTileList
|
||||
TabOrder = 1
|
||||
TabOrder = 0
|
||||
TreeOptions.AutoOptions = [toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
|
||||
TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toFullRowDrag]
|
||||
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages, toStaticBackground]
|
||||
|
|
@ -214,71 +185,29 @@ object frmMain: TfrmMain
|
|||
OnScroll = vdtTilesScroll
|
||||
end
|
||||
object gbRandom: TGroupBox
|
||||
AnchorSideTop.Control = spTileList
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Control = tsTiles
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 193
|
||||
Top = 299
|
||||
Height = 181
|
||||
Top = 311
|
||||
Width = 218
|
||||
Align = alBottom
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
Caption = 'Random pool'
|
||||
ClientHeight = 179
|
||||
ClientWidth = 216
|
||||
TabOrder = 2
|
||||
object vdtRandom: TVirtualDrawTree
|
||||
Tag = 1
|
||||
Cursor = 63
|
||||
Left = 0
|
||||
Height = 127
|
||||
Top = 22
|
||||
Width = 216
|
||||
Align = alClient
|
||||
DefaultNodeHeight = 44
|
||||
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.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
|
||||
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
|
||||
OnDragOver = vdtRandomDragOver
|
||||
OnDragDrop = vdtRandomDragDrop
|
||||
OnDrawNode = vdtTilesDrawNode
|
||||
OnLoadNode = vdtRandomLoadNode
|
||||
OnSaveNode = vdtRandomSaveNode
|
||||
OnUpdating = vdtRandomUpdating
|
||||
end
|
||||
object pnlRandomControl: TPanel
|
||||
Left = 0
|
||||
Height = 22
|
||||
Top = 0
|
||||
Width = 216
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 22
|
||||
ClientHeight = 167
|
||||
ClientWidth = 216
|
||||
TabOrder = 1
|
||||
object btnAddRandom: TSpeedButton
|
||||
Left = 2
|
||||
AnchorSideLeft.Control = gbRandom
|
||||
AnchorSideTop.Control = gbRandom
|
||||
Left = 4
|
||||
Height = 22
|
||||
Hint = 'Add'
|
||||
Top = 0
|
||||
Width = 23
|
||||
BorderSpacing.Left = 4
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
|
|
@ -322,11 +251,15 @@ object frmMain: TfrmMain
|
|||
ParentShowHint = False
|
||||
end
|
||||
object btnDeleteRandom: TSpeedButton
|
||||
Left = 26
|
||||
AnchorSideLeft.Control = btnAddRandom
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = btnAddRandom
|
||||
Left = 31
|
||||
Height = 22
|
||||
Hint = 'Delete'
|
||||
Top = 0
|
||||
Width = 23
|
||||
BorderSpacing.Left = 4
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
|
|
@ -370,11 +303,15 @@ object frmMain: TfrmMain
|
|||
ParentShowHint = False
|
||||
end
|
||||
object btnClearRandom: TSpeedButton
|
||||
Left = 50
|
||||
AnchorSideLeft.Control = btnDeleteRandom
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = btnDeleteRandom
|
||||
Left = 58
|
||||
Height = 22
|
||||
Hint = 'Clear'
|
||||
Top = 0
|
||||
Width = 23
|
||||
BorderSpacing.Left = 4
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
|
|
@ -417,24 +354,16 @@ object frmMain: TfrmMain
|
|||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
end
|
||||
object pnlRandomPreset: TPanel
|
||||
Left = 4
|
||||
Height = 22
|
||||
Top = 153
|
||||
Width = 208
|
||||
Align = alBottom
|
||||
BorderSpacing.Around = 4
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 22
|
||||
ClientWidth = 208
|
||||
TabOrder = 2
|
||||
object btnRandomPresetSave: TSpeedButton
|
||||
Left = 158
|
||||
AnchorSideTop.Control = cbRandomPreset
|
||||
AnchorSideRight.Control = btnRandomPresetDelete
|
||||
Left = 164
|
||||
Height = 22
|
||||
Hint = 'Save Preset'
|
||||
Top = 0
|
||||
Width = 23
|
||||
Top = 134
|
||||
Width = 22
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 4
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
|
|
@ -479,11 +408,16 @@ object frmMain: TfrmMain
|
|||
ParentShowHint = False
|
||||
end
|
||||
object btnRandomPresetDelete: TSpeedButton
|
||||
Left = 182
|
||||
AnchorSideTop.Control = btnRandomPresetSave
|
||||
AnchorSideRight.Control = gbRandom
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 190
|
||||
Height = 22
|
||||
Hint = 'Delete Preset'
|
||||
Top = 0
|
||||
Width = 23
|
||||
Top = 134
|
||||
Width = 22
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 4
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
|
|
@ -527,41 +461,154 @@ object frmMain: TfrmMain
|
|||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object vdtRandom: TVirtualDrawTree
|
||||
Tag = 1
|
||||
AnchorSideLeft.Control = gbRandom
|
||||
AnchorSideTop.Control = btnAddRandom
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = gbRandom
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = cbRandomPreset
|
||||
Cursor = 63
|
||||
Left = 4
|
||||
Height = 106
|
||||
Top = 24
|
||||
Width = 208
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 2
|
||||
BorderSpacing.Right = 4
|
||||
BorderSpacing.Bottom = 4
|
||||
DefaultNodeHeight = 44
|
||||
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.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
|
||||
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect]
|
||||
OnDragOver = vdtRandomDragOver
|
||||
OnDragDrop = vdtRandomDragDrop
|
||||
OnDrawNode = vdtTilesDrawNode
|
||||
OnLoadNode = vdtRandomLoadNode
|
||||
OnSaveNode = vdtRandomSaveNode
|
||||
OnUpdating = vdtRandomUpdating
|
||||
end
|
||||
object cbRandomPreset: TComboBox
|
||||
Left = 0
|
||||
AnchorSideLeft.Control = gbRandom
|
||||
AnchorSideRight.Control = btnRandomPresetSave
|
||||
AnchorSideBottom.Control = gbRandom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 29
|
||||
Top = 0
|
||||
Width = 152
|
||||
Top = 134
|
||||
Width = 156
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Right = 4
|
||||
BorderSpacing.Bottom = 4
|
||||
ItemHeight = 0
|
||||
OnChange = cbRandomPresetChange
|
||||
Style = csDropDownList
|
||||
TabOrder = 0
|
||||
end
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object spTileList: TSplitter
|
||||
AnchorSideLeft.Control = tsTiles
|
||||
AnchorSideRight.Control = tsTiles
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Cursor = crVSplit
|
||||
Left = 0
|
||||
Height = 5
|
||||
Top = 294
|
||||
Top = 306
|
||||
Width = 218
|
||||
Align = alBottom
|
||||
Align = alNone
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
ResizeAnchor = akBottom
|
||||
end
|
||||
object edSearchID: TEdit
|
||||
Left = 118
|
||||
AnchorSideRight.Control = vdtTiles
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = vdtTiles
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 114
|
||||
Height = 19
|
||||
Hint = 'Append S or T to restrict the search to Statics or Terrain.'
|
||||
Top = 256
|
||||
Top = 283
|
||||
Width = 96
|
||||
Anchors = [akRight, akBottom]
|
||||
BorderSpacing.Right = 4
|
||||
BorderSpacing.Bottom = 4
|
||||
CharCase = ecUppercase
|
||||
OnExit = edSearchIDExit
|
||||
OnKeyPress = edSearchIDKeyPress
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 3
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
end
|
||||
object edFilter: TEdit
|
||||
AnchorSideLeft.Control = lblFilter
|
||||
AnchorSideTop.Control = lblFilter
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = tsTiles
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 81
|
||||
Height = 19
|
||||
Top = 22
|
||||
Width = 121
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Right = 16
|
||||
OnEditingDone = edFilterEditingDone
|
||||
TabOrder = 4
|
||||
end
|
||||
object cbStatics: TCheckBox
|
||||
AnchorSideLeft.Control = cbTerrain
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = cbTerrain
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 22
|
||||
Top = 30
|
||||
Width = 60
|
||||
Caption = 'Statics'
|
||||
Checked = True
|
||||
OnChange = cbStaticsChange
|
||||
State = cbChecked
|
||||
TabOrder = 5
|
||||
end
|
||||
object cbTerrain: TCheckBox
|
||||
AnchorSideLeft.Control = tsTiles
|
||||
AnchorSideTop.Control = tsTiles
|
||||
Left = 4
|
||||
Height = 22
|
||||
Top = 8
|
||||
Width = 61
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 8
|
||||
Caption = 'Terrain'
|
||||
Checked = True
|
||||
OnChange = cbTerrainChange
|
||||
State = cbChecked
|
||||
TabOrder = 6
|
||||
end
|
||||
end
|
||||
object tsClients: TTabSheet
|
||||
Caption = 'Clients'
|
||||
|
|
@ -585,60 +632,16 @@ object frmMain: TfrmMain
|
|||
Caption = 'Locations'
|
||||
ClientHeight = 492
|
||||
ClientWidth = 218
|
||||
object vstLocations: TVirtualStringTree
|
||||
Cursor = 63
|
||||
Left = 4
|
||||
Height = 456
|
||||
Top = 4
|
||||
Width = 210
|
||||
Align = alClient
|
||||
BorderSpacing.Around = 4
|
||||
BorderStyle = bsSingle
|
||||
DefaultText = 'Node'
|
||||
Header.AutoSizeIndex = 1
|
||||
Header.Columns = <
|
||||
item
|
||||
Position = 0
|
||||
Text = 'Coords'
|
||||
Width = 75
|
||||
end
|
||||
item
|
||||
Position = 1
|
||||
Text = 'Name'
|
||||
Width = 131
|
||||
end>
|
||||
Header.DefaultHeight = 17
|
||||
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
|
||||
Header.ParentFont = True
|
||||
Header.Style = hsFlatButtons
|
||||
TabOrder = 0
|
||||
TreeOptions.AutoOptions = [toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
|
||||
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
|
||||
TreeOptions.SelectionOptions = [toFullRowSelect]
|
||||
OnDblClick = vstLocationsDblClick
|
||||
OnFreeNode = vstLocationsFreeNode
|
||||
OnGetText = vstLocationsGetText
|
||||
OnLoadNode = vstLocationsLoadNode
|
||||
OnNewText = vstLocationsNewText
|
||||
OnSaveNode = vstLocationsSaveNode
|
||||
end
|
||||
object pnlLocationControls: TPanel
|
||||
Left = 4
|
||||
Height = 24
|
||||
Top = 464
|
||||
Width = 210
|
||||
Align = alBottom
|
||||
BorderSpacing.Around = 4
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 24
|
||||
ClientWidth = 210
|
||||
TabOrder = 1
|
||||
object btnClearLocations: TSpeedButton
|
||||
Left = 112
|
||||
AnchorSideLeft.Control = btnDeleteLocation
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = btnDeleteLocation
|
||||
Left = 128
|
||||
Height = 22
|
||||
Hint = 'Clear'
|
||||
Top = 0
|
||||
Top = 450
|
||||
Width = 23
|
||||
BorderSpacing.Left = 4
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
|
|
@ -682,11 +685,17 @@ object frmMain: TfrmMain
|
|||
ParentShowHint = False
|
||||
end
|
||||
object btnDeleteLocation: TSpeedButton
|
||||
Left = 88
|
||||
AnchorSideLeft.Control = tsLocations
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideBottom.Control = tsLocations
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 101
|
||||
Height = 22
|
||||
Hint = 'Delete'
|
||||
Top = 0
|
||||
Top = 450
|
||||
Width = 23
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Bottom = 4
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
|
|
@ -730,11 +739,15 @@ object frmMain: TfrmMain
|
|||
ParentShowHint = False
|
||||
end
|
||||
object btnAddLocation: TSpeedButton
|
||||
Left = 64
|
||||
AnchorSideTop.Control = btnDeleteLocation
|
||||
AnchorSideRight.Control = btnDeleteLocation
|
||||
Left = 74
|
||||
Height = 22
|
||||
Hint = 'Add'
|
||||
Top = 0
|
||||
Top = 450
|
||||
Width = 23
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 4
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
36040000424D3604000000000000360000002800000010000000100000000100
|
||||
|
|
@ -777,6 +790,47 @@ object frmMain: TfrmMain
|
|||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object vstLocations: TVirtualStringTree
|
||||
AnchorSideLeft.Control = tsLocations
|
||||
AnchorSideTop.Control = tsLocations
|
||||
AnchorSideRight.Control = tsLocations
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = btnDeleteLocation
|
||||
Cursor = 63
|
||||
Left = 4
|
||||
Height = 428
|
||||
Top = 18
|
||||
Width = 210
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Around = 4
|
||||
BorderStyle = bsSingle
|
||||
DefaultText = 'Node'
|
||||
Header.AutoSizeIndex = 1
|
||||
Header.Columns = <
|
||||
item
|
||||
Position = 0
|
||||
Text = 'Coords'
|
||||
Width = 75
|
||||
end
|
||||
item
|
||||
Position = 1
|
||||
Text = 'Name'
|
||||
Width = 131
|
||||
end>
|
||||
Header.DefaultHeight = 17
|
||||
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
|
||||
Header.ParentFont = True
|
||||
Header.Style = hsFlatButtons
|
||||
TabOrder = 0
|
||||
TreeOptions.AutoOptions = [toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
|
||||
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
|
||||
TreeOptions.SelectionOptions = [toFullRowSelect]
|
||||
OnDblClick = vstLocationsDblClick
|
||||
OnFreeNode = vstLocationsFreeNode
|
||||
OnGetText = vstLocationsGetText
|
||||
OnLoadNode = vstLocationsLoadNode
|
||||
OnNewText = vstLocationsNewText
|
||||
OnSaveNode = vstLocationsSaveNode
|
||||
end
|
||||
end
|
||||
end
|
||||
|
|
@ -945,47 +999,27 @@ object frmMain: TfrmMain
|
|||
Style = tbsCheck
|
||||
end
|
||||
end
|
||||
object pnlMain: TPanel
|
||||
Left = 224
|
||||
Height = 525
|
||||
Top = 24
|
||||
Width = 542
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 525
|
||||
ClientWidth = 542
|
||||
TabOrder = 3
|
||||
object oglGameWindow: TOpenGLControl
|
||||
Left = 0
|
||||
Height = 374
|
||||
Top = 0
|
||||
Width = 542
|
||||
Align = alClient
|
||||
OnDblClick = oglGameWindowDblClick
|
||||
OnMouseDown = oglGameWindowMouseDown
|
||||
OnMouseEnter = oglGameWindowMouseEnter
|
||||
OnMouseLeave = oglGameWindowMouseLeave
|
||||
OnMouseMove = oglGameWindowMouseMove
|
||||
OnMouseUp = oglGameWindowMouseUp
|
||||
OnMouseWheel = oglGameWindowMouseWheel
|
||||
OnPaint = oglGameWindowPaint
|
||||
OnResize = oglGameWindowResize
|
||||
end
|
||||
object pnlChatHeader: TPanel
|
||||
Left = 0
|
||||
Height = 24
|
||||
Top = 374
|
||||
AnchorSideLeft.Control = pnlChat
|
||||
AnchorSideTop.Control = spChat
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pnlChat
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = spChat
|
||||
Left = 224
|
||||
Height = 22
|
||||
Top = 413
|
||||
Width = 542
|
||||
Align = alBottom
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
ClientHeight = 24
|
||||
ClientHeight = 22
|
||||
ClientWidth = 542
|
||||
TabOrder = 0
|
||||
TabOrder = 3
|
||||
object lblChatHeaderCaption: TLabel
|
||||
Cursor = crHandPoint
|
||||
Left = 10
|
||||
Height = 20
|
||||
Height = 18
|
||||
Top = 2
|
||||
Width = 104
|
||||
Align = alLeft
|
||||
|
|
@ -999,20 +1033,27 @@ object frmMain: TfrmMain
|
|||
end
|
||||
end
|
||||
object pnlChat: TPanel
|
||||
Left = 0
|
||||
Height = 122
|
||||
Top = 403
|
||||
AnchorSideLeft.Control = pcLeft
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = spChat
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = pnlBottom
|
||||
Left = 224
|
||||
Height = 109
|
||||
Top = 440
|
||||
Width = 542
|
||||
Align = alBottom
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 122
|
||||
ClientHeight = 109
|
||||
ClientWidth = 542
|
||||
TabOrder = 1
|
||||
TabOrder = 4
|
||||
Visible = False
|
||||
object vstChat: TVirtualStringTree
|
||||
Cursor = 63
|
||||
Left = 0
|
||||
Height = 103
|
||||
Height = 90
|
||||
Top = 0
|
||||
Width = 542
|
||||
Align = alClient
|
||||
|
|
@ -1051,7 +1092,7 @@ object frmMain: TfrmMain
|
|||
object edChat: TEdit
|
||||
Left = 0
|
||||
Height = 19
|
||||
Top = 103
|
||||
Top = 90
|
||||
Width = 542
|
||||
Align = alBottom
|
||||
OnKeyPress = edChatKeyPress
|
||||
|
|
@ -1059,17 +1100,43 @@ object frmMain: TfrmMain
|
|||
end
|
||||
end
|
||||
object spChat: TSplitter
|
||||
AnchorSideLeft.Control = pcLeft
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Cursor = crVSplit
|
||||
Left = 0
|
||||
Left = 224
|
||||
Height = 5
|
||||
Top = 398
|
||||
Top = 435
|
||||
Width = 542
|
||||
Align = alBottom
|
||||
Align = alNone
|
||||
Anchors = [akLeft, akRight]
|
||||
AutoSnap = False
|
||||
MinSize = 100
|
||||
ResizeAnchor = akBottom
|
||||
Visible = False
|
||||
end
|
||||
object oglGameWindow: TOpenGLControl
|
||||
AnchorSideLeft.Control = pcLeft
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = tbMain
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = pnlChatHeader
|
||||
Left = 224
|
||||
Height = 389
|
||||
Top = 24
|
||||
Width = 542
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
OnDblClick = oglGameWindowDblClick
|
||||
OnMouseDown = oglGameWindowMouseDown
|
||||
OnMouseEnter = oglGameWindowMouseEnter
|
||||
OnMouseLeave = oglGameWindowMouseLeave
|
||||
OnMouseMove = oglGameWindowMouseMove
|
||||
OnMouseUp = oglGameWindowMouseUp
|
||||
OnMouseWheel = oglGameWindowMouseWheel
|
||||
OnPaint = oglGameWindowPaint
|
||||
OnResize = oglGameWindowResize
|
||||
end
|
||||
object MainMenu1: TMainMenu
|
||||
Images = ImageList1
|
||||
|
|
@ -1993,7 +2060,7 @@ object frmMain: TfrmMain
|
|||
}
|
||||
end
|
||||
object pmTileList: TPopupMenu
|
||||
left = 185
|
||||
left = 184
|
||||
top = 128
|
||||
object mnuAddToRandom: TMenuItem
|
||||
Caption = 'Add to random pool'
|
||||
|
|
@ -2346,8 +2413,8 @@ object frmMain: TfrmMain
|
|||
end
|
||||
end
|
||||
object pmClients: TPopupMenu
|
||||
left = 185
|
||||
top = 163
|
||||
left = 184
|
||||
top = 168
|
||||
object mnuGoToClient: TMenuItem
|
||||
Caption = 'GoTo'
|
||||
Default = True
|
||||
|
|
@ -2461,19 +2528,6 @@ object frmMain: TfrmMain
|
|||
OnExecute = acNoDrawExecute
|
||||
end
|
||||
end
|
||||
object pmGrabTileInfo: TPopupMenu
|
||||
OnPopup = pmGrabTileInfoPopup
|
||||
left = 368
|
||||
top = 32
|
||||
object mnuGrabTileID: TMenuItem
|
||||
Caption = 'Grab TileID'
|
||||
OnClick = mnuGrabTileIDClick
|
||||
end
|
||||
object mnuGrabHue: TMenuItem
|
||||
Caption = 'Grab Hue'
|
||||
OnClick = mnuGrabHueClick
|
||||
end
|
||||
end
|
||||
object tmGrabTileInfo: TTimer
|
||||
Enabled = False
|
||||
Interval = 250
|
||||
|
|
@ -2487,4 +2541,17 @@ object frmMain: TfrmMain
|
|||
left = 185
|
||||
top = 200
|
||||
end
|
||||
object pmGrabTileInfo: TPopupMenu
|
||||
OnPopup = pmGrabTileInfoPopup
|
||||
left = 368
|
||||
top = 33
|
||||
object mnuGrabTileID: TMenuItem
|
||||
Caption = 'Grab TileID'
|
||||
OnClick = mnuGrabTileIDClick
|
||||
end
|
||||
object mnuGrabHue: TMenuItem
|
||||
Caption = 'Grab Hue'
|
||||
OnClick = mnuGrabHueClick
|
||||
end
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -60,30 +60,35 @@ type
|
|||
ActionList1: TActionList;
|
||||
ApplicationProperties1: TApplicationProperties;
|
||||
btnAddLocation: TSpeedButton;
|
||||
btnAddRandom: TSpeedButton;
|
||||
btnClearLocations: TSpeedButton;
|
||||
btnClearRandom: TSpeedButton;
|
||||
btnDeleteLocation: TSpeedButton;
|
||||
btnDeleteRandom: TSpeedButton;
|
||||
btnGoTo: TButton;
|
||||
btnRandomPresetDelete: TSpeedButton;
|
||||
btnRandomPresetSave: TSpeedButton;
|
||||
cbRandomPreset: TComboBox;
|
||||
cbTerrain: TCheckBox;
|
||||
cbStatics: TCheckBox;
|
||||
edFilter: TEdit;
|
||||
cbTerrain: TCheckBox;
|
||||
edChat: TEdit;
|
||||
edFilter: TEdit;
|
||||
edSearchID: TEdit;
|
||||
gbRandom: TGroupBox;
|
||||
ImageList1: TImageList;
|
||||
lblChatHeaderCaption: TLabel;
|
||||
lblFilter: TLabel;
|
||||
lblTipC: TLabel;
|
||||
lblTip: TLabel;
|
||||
lblTileInfo: TLabel;
|
||||
lblFilter: TLabel;
|
||||
lblX: TLabel;
|
||||
lblY: TLabel;
|
||||
lbClients: TListBox;
|
||||
MainMenu1: TMainMenu;
|
||||
mnuGrabHue: TMenuItem;
|
||||
mnuGrabTileID: TMenuItem;
|
||||
mnuRegionControl: TMenuItem;
|
||||
mnuVirtualLayer: TMenuItem;
|
||||
mnuGrabTileID: TMenuItem;
|
||||
mnuGrabHue: TMenuItem;
|
||||
mnuLargeScaleCommands: TMenuItem;
|
||||
mnuSetHue: TMenuItem;
|
||||
mnuGoToClient: TMenuItem;
|
||||
|
|
@ -107,27 +112,17 @@ type
|
|||
mnuDisconnect: TMenuItem;
|
||||
mnuCentrED: TMenuItem;
|
||||
oglGameWindow: TOpenGLControl;
|
||||
pnlRandomPreset: TPanel;
|
||||
pnlLocationControls: TPanel;
|
||||
pnlChat: TPanel;
|
||||
pnlChatHeader: TPanel;
|
||||
pnlMain: TPanel;
|
||||
pnlRandomControl: TPanel;
|
||||
pnlTileListSettings: TPanel;
|
||||
pcLeft: TPageControl;
|
||||
pmGrabTileInfo: TPopupMenu;
|
||||
pnlBottom: TPanel;
|
||||
edX: TSpinEdit;
|
||||
edY: TSpinEdit;
|
||||
pmTileList: TPopupMenu;
|
||||
btnAddRandom: TSpeedButton;
|
||||
btnDeleteRandom: TSpeedButton;
|
||||
btnClearRandom: TSpeedButton;
|
||||
pmTools: TPopupMenu;
|
||||
pmClients: TPopupMenu;
|
||||
pmGrabTileInfo: TPopupMenu;
|
||||
pnlChat: TPanel;
|
||||
pnlChatHeader: TPanel;
|
||||
spChat: TSplitter;
|
||||
btnRandomPresetSave: TSpeedButton;
|
||||
btnRandomPresetDelete: TSpeedButton;
|
||||
spTileList: TSplitter;
|
||||
tbFilter: TToolButton;
|
||||
tbFlat: TToolButton;
|
||||
|
|
@ -157,8 +152,8 @@ type
|
|||
tsTiles: TTabSheet;
|
||||
vdtTiles: TVirtualDrawTree;
|
||||
vdtRandom: TVirtualDrawTree;
|
||||
vstLocations: TVirtualStringTree;
|
||||
vstChat: TVirtualStringTree;
|
||||
vstLocations: TVirtualStringTree;
|
||||
procedure acBoundariesExecute(Sender: TObject);
|
||||
procedure acDeleteExecute(Sender: TObject);
|
||||
procedure acDrawExecute(Sender: TObject);
|
||||
|
|
@ -739,6 +734,7 @@ begin
|
|||
Randomize;
|
||||
|
||||
vstChat.NodeDataSize := SizeOf(TChatInfo);
|
||||
pnlChatHeader.AnchorSide[akBottom].Control := pnlBottom;
|
||||
|
||||
FLocationsFile := IncludeTrailingPathDelimiter(ExtractFilePath(
|
||||
Application.ExeName)) + 'Locations.dat';
|
||||
|
|
@ -1113,12 +1109,13 @@ begin
|
|||
begin
|
||||
pnlChat.Visible := False;
|
||||
spChat.Visible := False;
|
||||
pnlChatHeader.AnchorSide[akBottom].Control := pnlBottom;
|
||||
end else
|
||||
begin
|
||||
spChat.Visible := True;
|
||||
pnlChat.Visible := True;
|
||||
spChat.Top := pnlChatHeader.Top + pnlChatHeader.Height;
|
||||
pnlChat.Top := spChat.Top + spChat.Height;
|
||||
spChat.Top := pnlChat.Top - spChat.Height;
|
||||
pnlChatHeader.AnchorSide[akBottom].Control := spChat;
|
||||
|
||||
lblChatHeaderCaption.Font.Bold := False;
|
||||
lblChatHeaderCaption.Font.Italic := False;
|
||||
|
|
@ -1368,8 +1365,6 @@ procedure TfrmMain.vdtTilesKeyPress(Sender: TObject; var Key: char);
|
|||
begin
|
||||
if Key in ['$', '0'..'9'] then
|
||||
begin
|
||||
edSearchID.Top := vdtTiles.Top + vdtTiles.Height - edSearchID.Height - 4;
|
||||
edSearchID.Left := vdtTiles.Left + vdtTiles.Width - edSearchID.Width - 4;
|
||||
edSearchID.Text := Key;
|
||||
edSearchID.Visible := True;
|
||||
edSearchID.SetFocus;
|
||||
|
|
|
|||
Loading…
Reference in New Issue