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

💄 Enable UI scaling

Browse Source
This commit is contained in:
Andreas Schneider
2022-05-07 11:59:04 +02:00
parent 900603dd00
commit 5e47564252
21 changed files with 1367 additions and 1288 deletions
Download Patch File Download Diff File Expand all files Collapse all files

466
Client/UfrmMain.lfm
View File

@@ -1,16 +1,16 @@
object frmMain: TfrmMain
Left = 257
Height = 724
Height = 905
Top = 141
Width = 944
Width = 1180
ActiveControl = oglGameWindow
Caption = 'UO CentrED'
ClientHeight = 724
ClientWidth = 944
Constraints.MinHeight = 625
Constraints.MinWidth = 938
ClientHeight = 905
ClientWidth = 1180
Constraints.MinHeight = 781
Constraints.MinWidth = 1172
DesignTimePPI = 120
Font.Height = -14
Font.Height = -18
Menu = MainMenu1
OnActivate = FormActivate
OnClose = FormClose
@@ -22,90 +22,90 @@ object frmMain: TfrmMain
WindowState = wsMaximized
object pnlBottom: TPanel
Left = 0
Height = 39
Top = 685
Width = 944
Height = 49
Top = 856
Width = 1180
Align = alBottom
BevelOuter = bvNone
ClientHeight = 39
ClientWidth = 944
ClientHeight = 49
ClientWidth = 1180
TabOrder = 0
object lblX: TLabel
Left = 14
Height = 20
Top = 9
Width = 12
Left = 18
Height = 26
Top = 11
Width = 16
Caption = 'X:'
Color = clDefault
ParentColor = False
end
object lblY: TLabel
Left = 110
Height = 20
Top = 9
Width = 12
Left = 138
Height = 26
Top = 11
Width = 15
Caption = 'Y:'
Color = clDefault
ParentColor = False
end
object lblTileInfo: TLabel
Left = 300
Height = 20
Top = 9
Width = 4
Left = 375
Height = 26
Top = 11
Width = 5
Caption = ' '
Color = clDefault
ParentColor = False
end
object lblTip: TLabel
Left = 645
Height = 39
Left = 803
Height = 49
Top = 0
Width = 289
Width = 365
Align = alRight
Alignment = taRightJustify
BorderSpacing.Right = 10
BorderSpacing.Right = 12
Caption = 'Right click shows a menu with all the tools.'
Color = clDefault
Layout = tlCenter
ParentColor = False
end
object lblTipC: TLabel
Left = 616
Height = 39
Left = 767
Height = 49
Top = 0
Width = 29
Width = 36
Align = alRight
Caption = 'Tip: '
Color = clDefault
Font.Height = -14
Font.Height = -18
Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False
ParentFont = False
end
object edX: TSpinEdit
Left = 30
Height = 30
Top = 4
Width = 69
Left = 38
Height = 36
Top = 5
Width = 86
MaxValue = 100000
TabOrder = 0
end
object edY: TSpinEdit
Left = 130
Height = 30
Top = 4
Width = 65
Left = 162
Height = 36
Top = 5
Width = 81
MaxValue = 100000
TabOrder = 1
end
object btnGoTo: TButton
Left = 210
Height = 29
Top = 4
Width = 64
BorderSpacing.InnerBorder = 5
Left = 262
Height = 36
Top = 5
Width = 80
BorderSpacing.InnerBorder = 6
Caption = 'GoTo'
OnClick = btnGoToClick
TabOrder = 2
@@ -113,26 +113,26 @@ object frmMain: TfrmMain
end
object pcLeft: TPageControl
Left = 0
Height = 655
Top = 30
Width = 280
Height = 818
Top = 38
Width = 350
ActivePage = tsTiles
Align = alLeft
TabIndex = 0
TabOrder = 1
object tsTiles: TTabSheet
Caption = 'Tiles'
ClientHeight = 623
ClientWidth = 270
ClientHeight = 780
ClientWidth = 340
object lblFilter: TLabel
AnchorSideLeft.Control = cbTerrain
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbTerrain
Left = 97
Height = 20
Top = 10
Width = 38
BorderSpacing.Left = 20
Left = 114
Height = 26
Top = 12
Width = 47
BorderSpacing.Left = 25
Caption = 'Filter:'
Color = clDefault
ParentColor = False
@@ -145,16 +145,16 @@ object frmMain: TfrmMain
AnchorSideRight.Control = tsTiles
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = spTileList
Left = 5
Height = 343
Left = 6
Height = 437
Hint = '-'
Top = 59
Width = 260
Top = 74
Width = 328
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Right = 5
DefaultNodeHeight = 55
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
DefaultNodeHeight = 69
DragMode = dmAutomatic
DragOperations = []
DragType = dtVCL
@@ -167,15 +167,15 @@ object frmMain: TfrmMain
item
Position = 1
Text = 'Tile'
Width = 55
Width = 69
end
item
Position = 2
Text = 'Name'
Width = 125
Width = 156
end>
Header.DefaultHeight = 21
Header.Height = 21
Header.DefaultHeight = 26
Header.Height = 26
Header.MainColumn = 2
Header.Options = [hoShowHint, hoVisible]
Header.ParentFont = True
@@ -206,23 +206,23 @@ object frmMain: TfrmMain
AnchorSideBottom.Control = tsTiles
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 215
Top = 408
Width = 270
Height = 261
Top = 519
Width = 340
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Random pool'
ClientHeight = 194
ClientWidth = 268
ClientHeight = 234
ClientWidth = 338
TabOrder = 1
object btnAddRandom: TSpeedButton
AnchorSideLeft.Control = gbRandom
AnchorSideTop.Control = gbRandom
Left = 5
Height = 28
Left = 6
Height = 35
Hint = 'Add'
Top = 0
Width = 29
BorderSpacing.Left = 5
Width = 36
BorderSpacing.Left = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -267,12 +267,12 @@ object frmMain: TfrmMain
AnchorSideLeft.Control = btnAddRandom
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnAddRandom
Left = 39
Height = 28
Left = 48
Height = 35
Hint = 'Delete'
Top = 0
Width = 29
BorderSpacing.Left = 5
Width = 36
BorderSpacing.Left = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -317,12 +317,12 @@ object frmMain: TfrmMain
AnchorSideLeft.Control = btnDeleteRandom
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnDeleteRandom
Left = 73
Height = 28
Left = 90
Height = 35
Hint = 'Clear'
Top = 0
Width = 29
BorderSpacing.Left = 5
Width = 36
BorderSpacing.Left = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -366,13 +366,13 @@ object frmMain: TfrmMain
object btnRandomPresetSave: TSpeedButton
AnchorSideTop.Control = cbRandomPreset
AnchorSideRight.Control = btnRandomPresetDelete
Left = 202
Height = 28
Left = 256
Height = 35
Hint = 'Save Preset'
Top = 153
Width = 28
Top = 186
Width = 35
Anchors = [akTop, akRight]
BorderSpacing.Right = 5
BorderSpacing.Right = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -418,13 +418,13 @@ object frmMain: TfrmMain
AnchorSideTop.Control = btnRandomPresetSave
AnchorSideRight.Control = gbRandom
AnchorSideRight.Side = asrBottom
Left = 235
Height = 28
Left = 297
Height = 35
Hint = 'Delete Preset'
Top = 153
Width = 28
Top = 186
Width = 35
Anchors = [akTop, akRight]
BorderSpacing.Right = 5
BorderSpacing.Right = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -475,16 +475,16 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cbRandomPreset
Cursor = 63
Left = 5
Height = 118
Top = 30
Width = 258
Left = 6
Height = 143
Top = 37
Width = 326
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 5
BorderSpacing.Left = 6
BorderSpacing.Top = 2
BorderSpacing.Right = 5
BorderSpacing.Bottom = 5
DefaultNodeHeight = 55
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
DefaultNodeHeight = 69
DragType = dtVCL
Header.AutoSizeIndex = 0
Header.Columns = <
@@ -495,15 +495,15 @@ object frmMain: TfrmMain
item
Position = 1
Text = 'Tile'
Width = 55
Width = 69
end
item
Position = 2
Text = 'Name'
Width = 125
Width = 156
end>
Header.DefaultHeight = 21
Header.Height = 21
Header.DefaultHeight = 26
Header.Height = 26
Header.Options = [hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@@ -524,14 +524,14 @@ object frmMain: TfrmMain
AnchorSideRight.Control = btnRandomPresetSave
AnchorSideBottom.Control = gbRandom
AnchorSideBottom.Side = asrBottom
Left = 5
Height = 36
Top = 153
Width = 192
Left = 6
Height = 42
Top = 186
Width = 244
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 5
BorderSpacing.Right = 5
BorderSpacing.Bottom = 5
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 0
OnChange = cbRandomPresetChange
Sorted = True
@@ -545,9 +545,9 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
Cursor = crVSplit
Left = 0
Height = 6
Top = 402
Width = 270
Height = 8
Top = 511
Width = 340
Align = alNone
Anchors = [akLeft, akRight, akBottom]
ResizeAnchor = akBottom
@@ -557,14 +557,14 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = vdtTiles
AnchorSideBottom.Side = asrBottom
Left = 135
Height = 32
Left = 172
Height = 38
Hint = 'Append S or T to restrict the search to Statics or Terrain.'
Top = 360
Width = 120
Top = 461
Width = 150
Anchors = [akRight, akBottom]
BorderSpacing.Right = 10
BorderSpacing.Bottom = 10
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
CharCase = ecUppercase
OnExit = edSearchIDExit
OnKeyPress = edSearchIDKeyPress
@@ -579,12 +579,12 @@ object frmMain: TfrmMain
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = tsTiles
AnchorSideRight.Side = asrBottom
Left = 97
Height = 32
Top = 30
Width = 153
Left = 114
Height = 38
Top = 38
Width = 201
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 20
BorderSpacing.Right = 25
OnEditingDone = edFilterEditingDone
TabOrder = 4
end
@@ -593,10 +593,10 @@ object frmMain: TfrmMain
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = cbTerrain
AnchorSideTop.Side = asrBottom
Left = 7
Height = 22
Top = 32
Width = 68
Left = 8
Height = 28
Top = 40
Width = 79
Caption = 'Statics'
Checked = True
OnChange = cbStaticsChange
@@ -606,12 +606,12 @@ object frmMain: TfrmMain
object cbTerrain: TCheckBox
AnchorSideLeft.Control = tsTiles
AnchorSideTop.Control = tsTiles
Left = 5
Height = 22
Top = 10
Width = 72
BorderSpacing.Left = 5
BorderSpacing.Top = 10
Left = 6
Height = 28
Top = 12
Width = 83
BorderSpacing.Left = 6
BorderSpacing.Top = 12
Caption = 'Terrain'
Checked = True
OnChange = cbTerrainChange
@@ -621,13 +621,13 @@ object frmMain: TfrmMain
end
object tsClients: TTabSheet
Caption = 'Clients'
ClientHeight = 623
ClientWidth = 270
ClientHeight = 780
ClientWidth = 340
object lbClients: TListBox
Left = 0
Height = 623
Height = 780
Top = 0
Width = 270
Width = 340
Align = alClient
ItemHeight = 0
OnDblClick = mnuGoToClientClick
@@ -640,18 +640,18 @@ object frmMain: TfrmMain
end
object tsLocations: TTabSheet
Caption = 'Locations'
ClientHeight = 623
ClientWidth = 270
ClientHeight = 780
ClientWidth = 340
object btnClearLocations: TSpeedButton
AnchorSideLeft.Control = btnDeleteLocation
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnDeleteLocation
Left = 155
Height = 28
Left = 194
Height = 35
Hint = 'Clear'
Top = 590
Width = 29
BorderSpacing.Left = 5
Top = 739
Width = 36
BorderSpacing.Left = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -697,13 +697,13 @@ object frmMain: TfrmMain
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = tsLocations
AnchorSideBottom.Side = asrBottom
Left = 121
Height = 28
Left = 152
Height = 35
Hint = 'Delete'
Top = 590
Width = 29
Top = 739
Width = 36
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 5
BorderSpacing.Bottom = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -747,13 +747,13 @@ object frmMain: TfrmMain
object btnAddLocation: TSpeedButton
AnchorSideTop.Control = btnDeleteLocation
AnchorSideRight.Control = btnDeleteLocation
Left = 87
Height = 28
Left = 110
Height = 35
Hint = 'Add'
Top = 590
Width = 29
Top = 739
Width = 36
Anchors = [akTop, akRight]
BorderSpacing.Right = 5
BorderSpacing.Right = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -801,27 +801,27 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDeleteLocation
Cursor = 63
Left = 5
Height = 580
Top = 5
Width = 260
Left = 6
Height = 727
Top = 6
Width = 328
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 5
BorderSpacing.Around = 6
DefaultText = 'Node'
Header.AutoSizeIndex = 1
Header.Columns = <
item
Position = 0
Text = 'Coords'
Width = 94
Width = 118
end
item
Position = 1
Text = 'Name'
Width = 162
Width = 206
end>
Header.DefaultHeight = 21
Header.Height = 21
Header.DefaultHeight = 26
Header.Height = 26
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@@ -840,9 +840,9 @@ object frmMain: TfrmMain
end
object tbMain: TToolBar
Left = 0
Height = 30
Height = 38
Top = 0
Width = 944
Width = 1180
Caption = 'tbMain'
Images = ImageList1
ParentShowHint = False
@@ -1030,24 +1030,24 @@ object frmMain: TfrmMain
AnchorSideRight.Control = pnlChat
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = spChat
Left = 280
Height = 28
Top = 489
Width = 664
Left = 350
Height = 35
Top = 611
Width = 830
Anchors = [akLeft, akRight, akBottom]
BevelInner = bvRaised
BevelOuter = bvLowered
ClientHeight = 28
ClientWidth = 664
ClientHeight = 35
ClientWidth = 830
TabOrder = 3
object lblChatHeaderCaption: TLabel
Cursor = crHandPoint
Left = 12
Height = 24
Left = 14
Height = 31
Top = 2
Width = 132
Width = 164
Align = alLeft
BorderSpacing.Left = 10
BorderSpacing.Left = 12
Caption = 'Chat and Messages'
Color = clDefault
Layout = tlCenter
@@ -1065,22 +1065,22 @@ object frmMain: TfrmMain
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlBottom
Left = 280
Height = 162
Top = 523
Width = 664
Left = 350
Height = 202
Top = 654
Width = 830
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone
ClientHeight = 162
ClientWidth = 664
ClientHeight = 202
ClientWidth = 830
TabOrder = 4
Visible = False
object vstChat: TLazVirtualStringTree
Cursor = 63
Left = 0
Height = 130
Height = 164
Top = 0
Width = 664
Width = 830
Align = alClient
DefaultText = 'Node'
Header.AutoSizeIndex = 2
@@ -1088,20 +1088,20 @@ object frmMain: TfrmMain
item
Position = 0
Text = 'Time'
Width = 94
Width = 118
end
item
Position = 1
Text = 'Sender'
Width = 94
Width = 118
end
item
Position = 2
Text = 'Message'
Width = 474
Width = 592
end>
Header.DefaultHeight = 21
Header.Height = 21
Header.DefaultHeight = 26
Header.Height = 26
Header.MainColumn = 2
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
@@ -1117,9 +1117,9 @@ object frmMain: TfrmMain
end
object edChat: TEdit
Left = 0
Height = 32
Top = 130
Width = 664
Height = 38
Top = 164
Width = 830
Align = alBottom
OnKeyPress = edChatKeyPress
TabOrder = 1
@@ -1131,10 +1131,10 @@ object frmMain: TfrmMain
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Cursor = crVSplit
Left = 280
Height = 6
Top = 517
Width = 664
Left = 350
Height = 8
Top = 646
Width = 830
Align = alNone
Anchors = [akLeft, akRight, akBottom]
AutoSnap = False
@@ -1149,10 +1149,10 @@ object frmMain: TfrmMain
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlChatHeader
Left = 280
Height = 459
Top = 30
Width = 664
Left = 350
Height = 573
Top = 38
Width = 830
Anchors = [akTop, akLeft, akRight, akBottom]
OnDblClick = oglGameWindowDblClick
OnKeyDown = oglGameWindowKeyDown
@@ -1167,8 +1167,8 @@ object frmMain: TfrmMain
end
object MainMenu1: TMainMenu
Images = ImageList1
Left = 290
Top = 41
Left = 363
Top = 51
object mnuCentrED: TMenuItem
Caption = '&CentrED'
object mnuChangePassword: TMenuItem
@@ -1249,8 +1249,8 @@ object frmMain: TfrmMain
end
end
object ImageList1: TImageList
Left = 330
Top = 40
Left = 413
Top = 50
Bitmap = {
4C7A170000001000000010000000312A00000000000078DAED9C09588EE9DFF7
FFC632C832CC8CFFCC3CC318A41D95BD7DA710B2B4D0AA22420A49254AFB5E68
@@ -1594,8 +1594,8 @@ object frmMain: TfrmMain
}
end
object pmTileList: TPopupMenu
Left = 230
Top = 160
Left = 288
Top = 200
object mnuAddToRandom: TMenuItem
Caption = 'Add to random pool'
OnClick = btnAddRandomClick
@@ -1604,13 +1604,13 @@ object frmMain: TfrmMain
object ApplicationProperties1: TApplicationProperties
OnIdle = ApplicationProperties1Idle
OnShowHint = ApplicationProperties1ShowHint
Left = 369
Top = 41
Left = 461
Top = 51
end
object pmTools: TPopupMenu
Images = ImageList1
Left = 410
Top = 41
Left = 513
Top = 51
object mnuSelect: TMenuItem
Action = acSelect
GroupIndex = 1
@@ -1660,8 +1660,8 @@ object frmMain: TfrmMain
end
end
object pmClients: TPopupMenu
Left = 230
Top = 220
Left = 288
Top = 275
object mnuGoToClient: TMenuItem
Caption = 'GoTo'
Default = True
@@ -1673,13 +1673,13 @@ object frmMain: TfrmMain
Interval = 500
OnTimer = tmMovementTimer
OnStartTimer = tmMovementTimer
Left = 290
Top = 100
Left = 363
Top = 125
end
object ActionList1: TActionList
Images = ImageList1
Left = 330
Top = 100
Left = 413
Top = 125
object acSelect: TAction
Category = 'Tools'
Caption = 'Select'
@@ -1818,13 +1818,13 @@ object frmMain: TfrmMain
Enabled = False
Interval = 250
OnTimer = tmGrabTileInfoTimer
Left = 460
Top = 100
Left = 575
Top = 125
end
object pmGrabTileInfo: TPopupMenu
OnPopup = pmGrabTileInfoPopup
Left = 460
Top = 41
Left = 575
Top = 51
object mnuGrabTileID: TMenuItem
Caption = 'Grab TileID'
OnClick = mnuGrabTileIDClick
@@ -1836,8 +1836,8 @@ object frmMain: TfrmMain
end
object pmFlatViewSettings: TPopupMenu
OnClose = pmFlatViewSettingsClose
Left = 460
Top = 170
Left = 575
Top = 213
object mnuFlatShowHeight: TMenuItem
AutoCheck = True
Caption = 'Show Height'
@@ -1849,14 +1849,14 @@ object frmMain: TfrmMain
RootNodePath = 'Forms/frmMain'
Active = False
OnRestoreProperties = XMLPropStorage1RestoreProperties
Left = 460
Top = 260
Left = 575
Top = 325
end
object pmViewStaticSettings: TPopupMenu
Images = ImageList1
OnClose = pmFlatViewSettingsClose
Left = 730
Top = 41
Left = 913
Top = 51
object mnuShowWalls: TMenuItem
AutoCheck = True
Caption = 'Walls and Windows'
@@ -1904,13 +1904,13 @@ object frmMain: TfrmMain
Enabled = False
Interval = 25
OnTimer = tmToolbarFixTimer
Left = 730
Top = 370
Left = 913
Top = 463
end
object pmViewTerrainSettings: TPopupMenu
OnClose = pmFlatViewSettingsClose
Left = 730
Top = 110
Left = 913
Top = 138
object mnuShowGrid: TMenuItem
Caption = 'Show Grid'
OnClick = mnuShowGridClick