paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 23:18:45 +02:00
Code Issues Packages Projects Releases Wiki Activity
fixes_2_2
lazarus/ide/editormacrolistviewer.lfm
martin 094a2938ea EditorMacros: Add a warning / Show warning if PascalScript self-test failed. 
git-svn-id: trunk@62178 -
2019-11-03 19:59:21 +00:00

457 lines
11 KiB
Plaintext
Raw Permalink Blame History

object MacroListView: TMacroListView
Left = 390
Height = 387
Top = 249
Width = 424
Caption = 'MacroListView'
ClientHeight = 387
ClientWidth = 424
Constraints.MinHeight = 365
Constraints.MinWidth = 300
OnActivate = FormActivate
OnDeactivate = FormActivate
LCLVersion = '2.1.0.0'
object Panel1: TPanel
AnchorSideRight.Control = pnlButtons
Left = 6
Height = 313
Top = 6
Width = 295
Align = alLeft
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BevelOuter = bvNone
ClientHeight = 313
ClientWidth = 295
TabOrder = 0
object lbMacroView: TListView
Left = 0
Height = 266
Top = 22
Width = 295
Align = alClient
AutoWidthLastColumn = True
Columns = <
item
Width = 291
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 = 295
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 = 78
Top = 0
Caption = 'tbProject'
Grouped = True
OnClick = tbProjectClick
Style = tbsCheck
end
object tbIDE: TToolButton
Tag = 1
Left = 142
Top = 0
Caption = 'tbIDE'
Grouped = True
OnClick = tbIDEClick
Style = tbsCheck
end
object ToolButton3: TToolButton
Left = 70
Height = 22
Top = 0
Caption = 'ToolButton3'
Style = tbsSeparator
end
object ToolButton4: TToolButton
Left = 134
Height = 22
Top = 0
Caption = 'ToolButton4'
Style = tbsSeparator
end
end
object ToolBar2: TToolBar
Left = 0
Height = 22
Top = 291
Width = 295
Align = alBottom
AutoSize = True
BorderSpacing.Top = 3
EdgeBorders = []
Flat = False
ShowCaptions = True
TabOrder = 2
object lbMoveTo: TLabel
Left = 1
Height = 22
Top = 0
Width = 52
Align = alLeft
Caption = 'lbMoveTo'
Layout = tlCenter
ParentColor = False
end
object tbMoveProject: TToolButton
Left = 53
Top = 0
Caption = 'tbMoveProject'
OnClick = tbMoveProjectClick
end
object tbMoveIDE: TToolButton
Left = 139
Top = 0
Caption = 'tbMoveIDE'
OnClick = tbMoveIDEClick
end
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 34
Top = 347
Width = 412
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
Left = 307
Height = 319
Top = 0
Width = 117
Align = alRight
AutoSize = True
BevelOuter = bvNone
ClientHeight = 319
ClientWidth = 117
Constraints.MinHeight = 250
TabOrder = 1
object btnSelect: TButton
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = pnlButtons
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 25
Top = 6
Width = 105
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'btnSelect'
OnClick = btnSelectClick
TabOrder = 0
end
object btnRename: TButton
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnSelect
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 25
Top = 37
Width = 105
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'btnRename'
OnClick = btnRenameClick
TabOrder = 1
end
object btnPlay: TButton
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = PanelRepeat
Left = 6
Height = 25
Top = 178
Width = 105
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 3
Caption = 'btnPlay'
OnClick = btnPlayClick
TabOrder = 5
end
object btnRecord: TButton
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnRename
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnRecordStop
Left = 6
Height = 25
Top = 263
Width = 105
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Caption = 'btnRecord'
OnClick = btnRecordClick
TabOrder = 6
end
object btnRecordStop: TButton
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnRename
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlButtons
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 25
Top = 294
Width = 105
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'btnRecordStop'
OnClick = btnRecordStopClick
TabOrder = 7
end
object btnDelete: TButton
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 25
Top = 130
Width = 105
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'btnDelete'
OnClick = btnDeleteClick
TabOrder = 4
end
object btnSetKeys: TButton
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnRename
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 25
Top = 68
Width = 105
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'btnSetKeys'
OnClick = btnSetKeysClick
TabOrder = 2
end
object btnEdit: TButton
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnSetKeys
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 25
Top = 99
Width = 105
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'btnEdit'
OnClick = btnEditClick
TabOrder = 3
end
object PanelRepeat: TPanel
AnchorSideLeft.Control = pnlButtons
AnchorSideTop.Control = btnPlay
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlButtons
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnRecord
Left = 6
Height = 54
Top = 206
Width = 105
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 6
BorderSpacing.Bottom = 3
BevelOuter = bvNone
BorderStyle = bsSingle
ClientHeight = 50
ClientWidth = 101
TabOrder = 8
object edRepeat: TSpinEdit
AnchorSideLeft.Control = PanelRepeat
AnchorSideTop.Control = chkRepeat
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PanelRepeat
AnchorSideRight.Side = asrBottom
Left = 3
Height = 23
Top = 24
Width = 95
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
AnchorSideBottom.Control = edRepeat
Left = 3
Height = 19
Top = 2
Width = 95
Anchors = [akLeft, akRight]
BorderSpacing.Left = 3
BorderSpacing.Right = 3
BorderSpacing.Bottom = 3
Caption = 'chkRepeat'
TabOrder = 1
end
end
end
object PanelWarnings: TPanel
Left = 0
Height = 22
Top = 319
Width = 424
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 22
ClientWidth = 424
TabOrder = 3
Visible = False
object LabelWarning: TLabel
Left = 0
Height = 22
Top = 0
Width = 401
Align = alClient
Font.Color = clRed
ParentColor = False
ParentFont = False
WordWrap = True
end
object PnlWarnClose: TPanel
Left = 401
Height = 22
Top = 0
Width = 23
Align = alRight
AutoSize = True
BevelOuter = bvNone
ClientHeight = 22
ClientWidth = 23
TabOrder = 0
object BtnWarnClose: TSpeedButton
Left = 0
Height = 22
Top = 0
Width = 23
OnClick = BtnWarnCloseClick
end
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