mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 10:18:05 +02:00
IDE: improved Editor Macro List dialog layout
This commit is contained in:
Maxim Ganetsky
parent
06352700aa
commit
0d3a7227f1
@ -1,41 +1,41 @@
|
||||
object MacroListView: TMacroListView
|
||||
Left = 390
|
||||
Height = 487
|
||||
Height = 609
|
||||
Top = 249
|
||||
Width = 455
|
||||
Width = 569
|
||||
Caption = 'MacroListView'
|
||||
ClientHeight = 487
|
||||
ClientWidth = 455
|
||||
Constraints.MinHeight = 450
|
||||
Constraints.MinWidth = 360
|
||||
ClientHeight = 609
|
||||
ClientWidth = 569
|
||||
Constraints.MinHeight = 562
|
||||
Constraints.MinWidth = 450
|
||||
DesignTimePPI = 120
|
||||
OnActivate = FormActivate
|
||||
OnDeactivate = FormActivate
|
||||
LCLVersion = '2.3.0.0'
|
||||
object Panel1: TPanel
|
||||
AnchorSideRight.Control = pnlButtons
|
||||
AnchorSideBottom.Control = gbAddMacro
|
||||
Left = 6
|
||||
Height = 346
|
||||
Top = 6
|
||||
Width = 333
|
||||
Left = 8
|
||||
Height = 456
|
||||
Top = 8
|
||||
Width = 435
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 346
|
||||
ClientWidth = 333
|
||||
ClientHeight = 456
|
||||
ClientWidth = 435
|
||||
TabOrder = 0
|
||||
object lbMacroView: TListView
|
||||
Left = 0
|
||||
Height = 299
|
||||
Top = 22
|
||||
Width = 333
|
||||
Height = 396
|
||||
Top = 28
|
||||
Width = 435
|
||||
Align = alClient
|
||||
AutoWidthLastColumn = True
|
||||
Columns = <
|
||||
item
|
||||
Width = 311
|
||||
Width = 435
|
||||
end>
|
||||
PopupMenu = PopupMenu1
|
||||
RowSelect = True
|
||||
@ -47,9 +47,9 @@ object MacroListView: TMacroListView
|
||||
end
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Height = 22
|
||||
Height = 28
|
||||
Top = 0
|
||||
Width = 333
|
||||
Width = 435
|
||||
AutoSize = True
|
||||
BorderSpacing.InnerBorder = 1
|
||||
EdgeBorders = []
|
||||
@ -69,7 +69,7 @@ object MacroListView: TMacroListView
|
||||
end
|
||||
object tbProject: TToolButton
|
||||
Tag = 1
|
||||
Left = 89
|
||||
Left = 97
|
||||
Top = 0
|
||||
Caption = 'tbProject'
|
||||
Grouped = True
|
||||
@ -78,7 +78,7 @@ object MacroListView: TMacroListView
|
||||
end
|
||||
object tbIDE: TToolButton
|
||||
Tag = 1
|
||||
Left = 161
|
||||
Left = 175
|
||||
Top = 0
|
||||
Caption = 'tbIDE'
|
||||
Grouped = True
|
||||
@ -86,15 +86,15 @@ object MacroListView: TMacroListView
|
||||
Style = tbsCheck
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 81
|
||||
Height = 22
|
||||
Left = 87
|
||||
Height = 28
|
||||
Top = 0
|
||||
Caption = 'ToolButton3'
|
||||
Style = tbsSeparator
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 153
|
||||
Height = 22
|
||||
Left = 165
|
||||
Height = 28
|
||||
Top = 0
|
||||
Caption = 'ToolButton4'
|
||||
Style = tbsSeparator
|
||||
@ -102,12 +102,12 @@ object MacroListView: TMacroListView
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Left = 0
|
||||
Height = 22
|
||||
Top = 324
|
||||
Width = 333
|
||||
Height = 28
|
||||
Top = 428
|
||||
Width = 435
|
||||
Align = alBottom
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 3
|
||||
BorderSpacing.Top = 4
|
||||
EdgeBorders = []
|
||||
Flat = False
|
||||
ShowCaptions = True
|
||||
@ -116,19 +116,19 @@ object MacroListView: TMacroListView
|
||||
Left = 1
|
||||
Height = 22
|
||||
Top = 0
|
||||
Width = 60
|
||||
Width = 66
|
||||
Align = alLeft
|
||||
Caption = 'lbMoveTo'
|
||||
Layout = tlCenter
|
||||
end
|
||||
object tbMoveProject: TToolButton
|
||||
Left = 61
|
||||
Left = 67
|
||||
Top = 0
|
||||
Caption = 'tbMoveProject'
|
||||
OnClick = tbMoveProjectClick
|
||||
end
|
||||
object tbMoveIDE: TToolButton
|
||||
Left = 160
|
||||
Left = 172
|
||||
Top = 0
|
||||
Caption = 'tbMoveIDE'
|
||||
OnClick = tbMoveIDEClick
|
||||
@ -136,10 +136,11 @@ object MacroListView: TMacroListView
|
||||
end
|
||||
end
|
||||
object ButtonPanel1: TButtonPanel
|
||||
Left = 6
|
||||
Height = 42
|
||||
Top = 439
|
||||
Width = 443
|
||||
Left = 8
|
||||
Height = 38
|
||||
Top = 563
|
||||
Width = 553
|
||||
BorderSpacing.Around = 8
|
||||
OKButton.Name = 'OKButton'
|
||||
OKButton.DefaultCaption = True
|
||||
HelpButton.Name = 'HelpButton'
|
||||
@ -155,17 +156,17 @@ object MacroListView: TMacroListView
|
||||
object pnlButtons: TPanel
|
||||
AnchorSideTop.Control = Panel1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 345
|
||||
Height = 307
|
||||
Top = 22
|
||||
Width = 110
|
||||
Left = 451
|
||||
Height = 312
|
||||
Top = 28
|
||||
Width = 118
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 16
|
||||
BorderSpacing.Top = 20
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 307
|
||||
ClientWidth = 110
|
||||
Constraints.MinHeight = 250
|
||||
ClientHeight = 312
|
||||
ClientWidth = 118
|
||||
Constraints.MinHeight = 312
|
||||
TabOrder = 1
|
||||
object PanelRepeat: TPanel
|
||||
AnchorSideLeft.Control = pnlButtons
|
||||
@ -173,20 +174,20 @@ object MacroListView: TMacroListView
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pnlButtons
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 61
|
||||
Top = 243
|
||||
Width = 98
|
||||
Left = 8
|
||||
Height = 65
|
||||
Top = 239
|
||||
Width = 102
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 3
|
||||
BorderSpacing.Right = 6
|
||||
BorderSpacing.Bottom = 3
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 8
|
||||
BorderSpacing.Bottom = 4
|
||||
BevelOuter = bvNone
|
||||
BorderStyle = bsSingle
|
||||
ClientHeight = 59
|
||||
ClientWidth = 96
|
||||
ClientHeight = 61
|
||||
ClientWidth = 98
|
||||
TabOrder = 0
|
||||
object edRepeat: TSpinEdit
|
||||
AnchorSideLeft.Control = PanelRepeat
|
||||
@ -194,15 +195,15 @@ object MacroListView: TMacroListView
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = PanelRepeat
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 3
|
||||
Height = 29
|
||||
Top = 27
|
||||
Left = 4
|
||||
Height = 28
|
||||
Top = 29
|
||||
Width = 90
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 3
|
||||
BorderSpacing.Top = 3
|
||||
BorderSpacing.Right = 3
|
||||
BorderSpacing.Bottom = 3
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 4
|
||||
BorderSpacing.Bottom = 4
|
||||
MaxValue = 999
|
||||
MinValue = 1
|
||||
TabOrder = 0
|
||||
@ -213,14 +214,14 @@ object MacroListView: TMacroListView
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = PanelRepeat
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 3
|
||||
Height = 21
|
||||
Top = 3
|
||||
Left = 4
|
||||
Height = 24
|
||||
Top = 1
|
||||
Width = 90
|
||||
Anchors = [akLeft, akRight]
|
||||
BorderSpacing.Left = 3
|
||||
BorderSpacing.Right = 3
|
||||
BorderSpacing.Bottom = 3
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Right = 4
|
||||
BorderSpacing.Bottom = 4
|
||||
Caption = 'chkRepeat'
|
||||
TabOrder = 1
|
||||
end
|
||||
@ -231,16 +232,16 @@ object MacroListView: TMacroListView
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pnlButtons
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 33
|
||||
Top = 207
|
||||
Width = 98
|
||||
Left = 8
|
||||
Height = 30
|
||||
Top = 205
|
||||
Width = 102
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 12
|
||||
BorderSpacing.Right = 6
|
||||
BorderSpacing.Bottom = 3
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 15
|
||||
BorderSpacing.Right = 8
|
||||
BorderSpacing.Bottom = 4
|
||||
Caption = 'btnPlay'
|
||||
OnClick = btnPlayClick
|
||||
TabOrder = 1
|
||||
@ -252,15 +253,15 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Control = pnlButtons
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 33
|
||||
Top = 162
|
||||
Width = 98
|
||||
Left = 8
|
||||
Height = 30
|
||||
Top = 160
|
||||
Width = 102
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'btnDelete'
|
||||
OnClick = btnDeleteClick
|
||||
TabOrder = 2
|
||||
@ -272,15 +273,15 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Control = pnlButtons
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 33
|
||||
Top = 123
|
||||
Width = 98
|
||||
Left = 8
|
||||
Height = 30
|
||||
Top = 122
|
||||
Width = 102
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'btnEdit'
|
||||
OnClick = btnEditClick
|
||||
TabOrder = 3
|
||||
@ -292,15 +293,15 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Control = pnlButtons
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 33
|
||||
Left = 8
|
||||
Height = 30
|
||||
Top = 84
|
||||
Width = 98
|
||||
Width = 102
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'btnSetKeys'
|
||||
OnClick = btnSetKeysClick
|
||||
TabOrder = 4
|
||||
@ -312,15 +313,15 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Control = pnlButtons
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 33
|
||||
Top = 45
|
||||
Width = 98
|
||||
Left = 8
|
||||
Height = 30
|
||||
Top = 46
|
||||
Width = 102
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'btnRename'
|
||||
OnClick = btnRenameClick
|
||||
TabOrder = 5
|
||||
@ -331,15 +332,15 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Control = pnlButtons
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 33
|
||||
Top = 6
|
||||
Width = 98
|
||||
Left = 8
|
||||
Height = 30
|
||||
Top = 8
|
||||
Width = 102
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Top = 6
|
||||
BorderSpacing.Right = 6
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'btnSelect'
|
||||
OnClick = btnSelectClick
|
||||
TabOrder = 6
|
||||
@ -348,14 +349,14 @@ object MacroListView: TMacroListView
|
||||
object PanelWarnings: TPanel
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = ButtonPanel1
|
||||
Left = 6
|
||||
Height = 22
|
||||
Top = 411
|
||||
Width = 443
|
||||
Left = 8
|
||||
Height = 28
|
||||
Top = 527
|
||||
Width = 553
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 22
|
||||
ClientWidth = 443
|
||||
ClientHeight = 28
|
||||
ClientWidth = 553
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
object LabelWarning: TLabel
|
||||
@ -363,11 +364,11 @@ object MacroListView: TMacroListView
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = BtnWarnClose
|
||||
Left = 0
|
||||
Height = 19
|
||||
Top = 2
|
||||
Width = 412
|
||||
Height = 20
|
||||
Top = 4
|
||||
Width = 515
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Right = 3
|
||||
BorderSpacing.Right = 4
|
||||
Caption = 'LabelWarning'
|
||||
Font.Color = clRed
|
||||
ParentFont = False
|
||||
@ -378,10 +379,10 @@ object MacroListView: TMacroListView
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = PanelWarnings
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 415
|
||||
Height = 22
|
||||
Left = 519
|
||||
Height = 28
|
||||
Top = 0
|
||||
Width = 26
|
||||
Width = 32
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 2
|
||||
OnClick = BtnWarnCloseClick
|
||||
@ -392,27 +393,28 @@ object MacroListView: TMacroListView
|
||||
AnchorSideRight.Control = pnlButtons
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = PanelWarnings
|
||||
Left = 6
|
||||
Height = 56
|
||||
Top = 355
|
||||
Width = 449
|
||||
Left = 8
|
||||
Height = 59
|
||||
Top = 468
|
||||
Width = 553
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 3
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'gbAddMacro'
|
||||
ClientHeight = 36
|
||||
ClientWidth = 447
|
||||
ClientHeight = 34
|
||||
ClientWidth = 549
|
||||
TabOrder = 4
|
||||
object btnRecord: TBitBtn
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 33
|
||||
Left = 8
|
||||
Height = 30
|
||||
Top = 0
|
||||
Width = 76
|
||||
Width = 95
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Bottom = 3
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Bottom = 4
|
||||
Caption = 'btnRecord'
|
||||
OnClick = btnRecordClick
|
||||
TabOrder = 0
|
||||
@ -423,36 +425,37 @@ object MacroListView: TMacroListView
|
||||
AnchorSideTop.Control = btnRecord
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 88
|
||||
Height = 33
|
||||
Left = 111
|
||||
Height = 30
|
||||
Top = 0
|
||||
Width = 104
|
||||
Width = 126
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 6
|
||||
BorderSpacing.Left = 8
|
||||
Caption = 'btnRecordStop'
|
||||
OnClick = btnRecordStopClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object btnAddEditNew: TBitBtn
|
||||
AnchorSideLeft.Control = btnRecordStop
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = btnRecordStop
|
||||
AnchorSideRight.Control = gbAddMacro
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 219
|
||||
Height = 33
|
||||
Left = 409
|
||||
Height = 30
|
||||
Top = 0
|
||||
Width = 109
|
||||
Width = 132
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 27
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'btnAddEditNew'
|
||||
OnClick = btnAddEditNewClick
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
object PopupMenu1: TPopupMenu
|
||||
Left = 144
|
||||
Top = 72
|
||||
Left = 180
|
||||
Top = 90
|
||||
object mnExport: TMenuItem
|
||||
Caption = 'New Item1'
|
||||
OnClick = mnExportClick
|
||||
@ -466,14 +469,14 @@ object MacroListView: TMacroListView
|
||||
DefaultExt = '.xml'
|
||||
Filter = 'xml|*.xml|*|*'
|
||||
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofViewDetail]
|
||||
Left = 24
|
||||
Top = 56
|
||||
Left = 30
|
||||
Top = 70
|
||||
end
|
||||
object OpenDialog1: TOpenDialog
|
||||
DefaultExt = '.xml'
|
||||
Filter = 'xml|*.xml|*|*'
|
||||
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
|
||||
Left = 88
|
||||
Top = 64
|
||||
Left = 110
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
|
||||
Loading…
Reference in New Issue
Block a user