paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 00:38:15 +02:00
Code Issues Packages Projects Releases Wiki Activity
06352700aa
lazarus/ide/editormacrolistviewer.lfm
Juha 06352700aa IDE: Improve EditorMacroListViever.
2022-03-06 13:01:21 +02:00

480 lines
12 KiB
Plaintext
Raw Blame History

object MacroListView: TMacroListView
Left = 390
Height = 487
Top = 249
Width = 455
Caption = 'MacroListView'
ClientHeight = 487
ClientWidth = 455
Constraints.MinHeight = 450
Constraints.MinWidth = 360
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
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BevelOuter = bvNone
ClientHeight = 346
ClientWidth = 333
TabOrder = 0
object lbMacroView: TListView
Left = 0
Height = 299
Top = 22
Width = 333
Align = alClient
AutoWidthLastColumn = True
Columns = <
item
Width = 311
end>
PopupMenu = PopupMenu1
RowSelect = True
ShowColumnHeaders = False
SortType = stText
TabOrder = 1
ViewStyle = vsReport
OnSelectItem = lbMacroViewSelectItem
end
object ToolBar1: TToolBar
Left = 0
Height = 22
Top = 0
Width = 333
AutoSize = True
BorderSpacing.InnerBorder = 1
EdgeBorders = []
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 0
object tbRecorded: TToolButton
Tag = 1
Left = 1
Top = 0
Caption = 'tbRecorded'
Down = True
Grouped = True
OnClick = tbRecordedClick
Style = tbsCheck
end
object tbProject: TToolButton
Tag = 1
Left = 89
Top = 0
Caption = 'tbProject'
Grouped = True
OnClick = tbProjectClick
Style = tbsCheck
end
object tbIDE: TToolButton
Tag = 1
Left = 161
Top = 0
Caption = 'tbIDE'
Grouped = True
OnClick = tbIDEClick
Style = tbsCheck
end
object ToolButton3: TToolButton
Left = 81
Height = 22
Top = 0
Caption = 'ToolButton3'
Style = tbsSeparator
end
object ToolButton4: TToolButton
Left = 153
Height = 22
Top = 0
Caption = 'ToolButton4'
Style = tbsSeparator
end
end
object ToolBar2: TToolBar
Left = 0
Height = 22
Top = 324
Width = 333
Align = alBottom
AutoSize = True
BorderSpacing.Top = 3
EdgeBorders = []
Flat = False
ShowCaptions = True
TabOrder = 2
object lbMoveTo: TLabel
Left = 1
Height = 22
Top = 0
Width = 60
Align = alLeft
Caption = 'lbMoveTo'
Layout = tlCenter
end
object tbMoveProject: TToolButton
Left = 61
Top = 0
Caption = 'tbMoveProject'
OnClick = tbMoveProjectClick
end
object tbMoveIDE: TToolButton
Left = 160
Top = 0
Caption = 'tbMoveIDE'
OnClick = tbMoveIDEClick
end
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 42
Top = 439
Width = 443
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 2
ShowButtons = [pbClose, pbHelp]
end
object pnlButtons: TPanel
AnchorSideTop.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 345
Height = 307
Top = 22
Width = 110
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 16
BevelOuter = bvNone
ClientHeight = 307
ClientWidth = 110
Constraints.MinHeight = 250
TabOrder = 1
object PanelRepeat: TPanel
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnPlay
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
Left = 6
Height = 61
Top = 243
Width = 98
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 6
BorderSpacing.Bottom = 3
BevelOuter = bvNone
BorderStyle = bsSingle
ClientHeight = 59
ClientWidth = 96
TabOrder = 0
object edRepeat: TSpinEdit
AnchorSideLeft.Control = PanelRepeat
AnchorSideTop.Control = chkRepeat
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PanelRepeat
AnchorSideRight.Side = asrBottom
Left = 3
Height = 29
Top = 27
Width = 90
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 3
BorderSpacing.Top = 3
BorderSpacing.Right = 3
BorderSpacing.Bottom = 3
MaxValue = 999
MinValue = 1
TabOrder = 0
Value = 1
end
object chkRepeat: TCheckBox
AnchorSideLeft.Control = PanelRepeat
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PanelRepeat
AnchorSideRight.Side = asrBottom
Left = 3
Height = 21
Top = 3
Width = 90
Anchors = [akLeft, akRight]
BorderSpacing.Left = 3
BorderSpacing.Right = 3
BorderSpacing.Bottom = 3
Caption = 'chkRepeat'
TabOrder = 1
end
end
object btnPlay: TBitBtn
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnDelete
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
Left = 6
Height = 33
Top = 207
Width = 98
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 12
BorderSpacing.Right = 6
BorderSpacing.Bottom = 3
Caption = 'btnPlay'
OnClick = btnPlayClick
TabOrder = 1
end
object btnDelete: TBitBtn
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 33
Top = 162
Width = 98
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'btnDelete'
OnClick = btnDeleteClick
TabOrder = 2
end
object btnEdit: TBitBtn
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnSetKeys
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 33
Top = 123
Width = 98
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'btnEdit'
OnClick = btnEditClick
TabOrder = 3
end
object btnSetKeys: TBitBtn
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnRename
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 33
Top = 84
Width = 98
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'btnSetKeys'
OnClick = btnSetKeysClick
TabOrder = 4
end
object btnRename: TBitBtn
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnSelect
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 33
Top = 45
Width = 98
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'btnRename'
OnClick = btnRenameClick
TabOrder = 5
end
object btnSelect: TBitBtn
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = pnlButtons
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 33
Top = 6
Width = 98
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'btnSelect'
OnClick = btnSelectClick
TabOrder = 6
end
end
object PanelWarnings: TPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1
Left = 6
Height = 22
Top = 411
Width = 443
Anchors = [akLeft, akRight, akBottom]
BevelOuter = bvNone
ClientHeight = 22
ClientWidth = 443
TabOrder = 3
Visible = False
object LabelWarning: TLabel
AnchorSideTop.Control = PanelWarnings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = BtnWarnClose
Left = 0
Height = 19
Top = 2
Width = 412
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 3
Caption = 'LabelWarning'
Font.Color = clRed
ParentFont = False
WordWrap = True
end
object BtnWarnClose: TSpeedButton
AnchorSideTop.Control = PanelWarnings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = PanelWarnings
AnchorSideRight.Side = asrBottom
Left = 415
Height = 22
Top = 0
Width = 26
Anchors = [akTop, akRight]
BorderSpacing.Right = 2
OnClick = BtnWarnCloseClick
end
end
object gbAddMacro: TGroupBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = PanelWarnings
Left = 6
Height = 56
Top = 355
Width = 449
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Top = 3
Caption = 'gbAddMacro'
ClientHeight = 36
ClientWidth = 447
TabOrder = 4
object btnRecord: TBitBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 6
Height = 33
Top = 0
Width = 76
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Bottom = 3
Caption = 'btnRecord'
OnClick = btnRecordClick
TabOrder = 0
end
object btnRecordStop: TBitBtn
AnchorSideLeft.Control = btnRecord
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnRecord
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 88
Height = 33
Top = 0
Width = 104
AutoSize = True
BorderSpacing.Left = 6
Caption = 'btnRecordStop'
OnClick = btnRecordStopClick
TabOrder = 1
end
object btnAddEditNew: TBitBtn
AnchorSideLeft.Control = btnRecordStop
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnRecordStop
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 219
Height = 33
Top = 0
Width = 109
AutoSize = True
BorderSpacing.Left = 27
Caption = 'btnAddEditNew'
OnClick = btnAddEditNewClick
TabOrder = 2
end
end
object PopupMenu1: TPopupMenu
Left = 144
Top = 72
object mnExport: TMenuItem
Caption = 'New Item1'
OnClick = mnExportClick
end
object mnImport: TMenuItem
Caption = 'New Item2'
OnClick = mnImportClick
end
end
object SaveDialog1: TSaveDialog
DefaultExt = '.xml'
Filter = 'xml|*.xml|*|*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn, ofEnableSizing, ofViewDetail]
Left = 24
Top = 56
end
object OpenDialog1: TOpenDialog
DefaultExt = '.xml'
Filter = 'xml|*.xml|*|*'
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
Left = 88
Top = 64
end
end
Reference in New Issue View Git Blame Copy Permalink