Draw UOA designs

This commit is contained in:
2022-07-19 20:09:24 +02:00
parent 0e5cb1b48b
commit 7a67e62398
3 changed files with 57 additions and 20 deletions

View File

@@ -133,7 +133,7 @@ object frmMain: TfrmMain
AnchorSideLeft.Control = cbTerrain
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbTerrain
Left = 114
Left = 109
Height = 26
Top = 12
Width = 47
@@ -152,9 +152,9 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = spTileList
Left = 6
Height = 313
Height = 319
Hint = '-'
Top = 74
Top = 68
Width = 328
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
@@ -217,7 +217,7 @@ object frmMain: TfrmMain
Width = 340
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Random pool'
ClientHeight = 234
ClientHeight = 237
ClientWidth = 338
TabOrder = 1
object btnAddRandom: TSpeedButton
@@ -375,7 +375,7 @@ object frmMain: TfrmMain
Left = 256
Height = 35
Hint = 'Save Preset'
Top = 186
Top = 189
Width = 35
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
@@ -427,7 +427,7 @@ object frmMain: TfrmMain
Left = 297
Height = 35
Hint = 'Delete Preset'
Top = 186
Top = 189
Width = 35
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
@@ -482,7 +482,7 @@ object frmMain: TfrmMain
AnchorSideBottom.Control = cbRandomPreset
Cursor = 63
Left = 6
Height = 143
Height = 146
Top = 37
Width = 326
Anchors = [akTop, akLeft, akRight, akBottom]
@@ -532,7 +532,7 @@ object frmMain: TfrmMain
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 42
Top = 186
Top = 189
Width = 244
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 6
@@ -585,10 +585,10 @@ object frmMain: TfrmMain
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = tsTiles
AnchorSideRight.Side = asrBottom
Left = 114
Left = 109
Height = 38
Top = 38
Width = 201
Width = 206
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 25
OnEditingDone = edFilterEditingDone
@@ -600,9 +600,9 @@ object frmMain: TfrmMain
AnchorSideTop.Control = cbTerrain
AnchorSideTop.Side = asrBottom
Left = 8
Height = 28
Top = 40
Width = 79
Height = 25
Top = 37
Width = 74
Caption = 'Statics'
Checked = True
OnChange = cbStaticsChange
@@ -613,9 +613,9 @@ object frmMain: TfrmMain
AnchorSideLeft.Control = tsTiles
AnchorSideTop.Control = tsTiles
Left = 6
Height = 28
Height = 25
Top = 12
Width = 83
Width = 78
BorderSpacing.Left = 6
BorderSpacing.Top = 12
Caption = 'Terrain'
@@ -824,7 +824,7 @@ object frmMain: TfrmMain
item
Position = 1
Text = 'Name'
Width = 208
Width = 206
end>
Header.DefaultHeight = 26
Header.Height = 26
@@ -874,6 +874,7 @@ object frmMain: TfrmMain
TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect]
OnDblClick = vstUoaDesignsDblClick
OnGetText = vstUoaDesignsGetText
end
end