mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-04 17:03:48 +02:00
664 lines
15 KiB
Plaintext
664 lines
15 KiB
Plaintext
object FormMessagesComposer: TFormMessagesComposer
|
|
Left = 650
|
|
Height = 552
|
|
Top = 195
|
|
Width = 822
|
|
HorzScrollBar.Page = 821
|
|
VertScrollBar.Page = 551
|
|
ActiveControl = CaptionEdit
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsDialog
|
|
Caption = 'Messages Composer'
|
|
ClientHeight = 552
|
|
ClientWidth = 822
|
|
OnCreate = MessagesInitExecute
|
|
Position = poScreenCenter
|
|
LCLVersion = '0.9.25'
|
|
object CaptionLabel: TLabel
|
|
Left = 6
|
|
Height = 20
|
|
Top = 70
|
|
Width = 50
|
|
Caption = 'Caption'
|
|
ParentColor = False
|
|
end
|
|
object MsgLabel: TLabel
|
|
Left = 6
|
|
Height = 20
|
|
Top = 133
|
|
Width = 61
|
|
Caption = 'MsgLabel'
|
|
ParentColor = False
|
|
end
|
|
object DlgTypeLabel: TLabel
|
|
Left = 154
|
|
Height = 20
|
|
Top = 70
|
|
Width = 50
|
|
Caption = 'DlgType'
|
|
ParentColor = False
|
|
end
|
|
object HelpContextLabel: TLabel
|
|
Left = 8
|
|
Height = 20
|
|
Top = 314
|
|
Width = 84
|
|
Caption = 'Help Context'
|
|
ParentColor = False
|
|
end
|
|
object HelpKeyWordLabel: TLabel
|
|
Left = 103
|
|
Height = 20
|
|
Top = 314
|
|
Width = 87
|
|
Caption = 'Help KeyWord'
|
|
ParentColor = False
|
|
end
|
|
object XLabel: TLabel
|
|
Left = 6
|
|
Height = 20
|
|
Top = 277
|
|
Width = 9
|
|
Caption = 'X'
|
|
ParentColor = False
|
|
end
|
|
object YLabel: TLabel
|
|
AnchorSideLeft.Control = XSpinEdit
|
|
AnchorSideLeft.Side = asrBottom
|
|
Left = 93
|
|
Height = 20
|
|
Top = 277
|
|
Width = 8
|
|
BorderSpacing.Left = 8
|
|
Caption = 'Y'
|
|
ParentColor = False
|
|
end
|
|
object HelpFileNameLabel: TLabel
|
|
Left = 8
|
|
Height = 20
|
|
Top = 364
|
|
Width = 93
|
|
Caption = 'Help FileName'
|
|
ParentColor = False
|
|
end
|
|
object PromptLabel: TLabel
|
|
Left = 16
|
|
Height = 20
|
|
Top = 425
|
|
Width = 82
|
|
Caption = 'PromptLabel'
|
|
ParentColor = False
|
|
end
|
|
object ValueLabel: TLabel
|
|
Left = 16
|
|
Height = 20
|
|
Top = 478
|
|
Width = 70
|
|
Caption = 'Value (var)'
|
|
ParentColor = False
|
|
end
|
|
object DefaultValue: TLabel
|
|
Left = 138
|
|
Height = 20
|
|
Top = 478
|
|
Width = 47
|
|
Caption = 'Default'
|
|
ParentColor = False
|
|
end
|
|
object Bevel1: TBevel
|
|
Left = 5
|
|
Height = 9
|
|
Top = 260
|
|
Width = 269
|
|
Shape = bsTopLine
|
|
end
|
|
object Bevel2: TBevel
|
|
Left = 8
|
|
Height = 9
|
|
Top = 417
|
|
Width = 266
|
|
Shape = bsTopLine
|
|
end
|
|
object Bevel3: TBevel
|
|
Left = 8
|
|
Height = 9
|
|
Top = 305
|
|
Width = 266
|
|
Shape = bsTopLine
|
|
end
|
|
object KindMessageLabel: TLabel
|
|
Left = 6
|
|
Height = 20
|
|
Top = 6
|
|
Width = 810
|
|
Align = alTop
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
Caption = 'KindMessageLabel'
|
|
ParentColor = False
|
|
end
|
|
object CaptionEdit: TEdit
|
|
Left = 6
|
|
Height = 23
|
|
Top = 86
|
|
Width = 136
|
|
BorderSpacing.Top = 3
|
|
TabOrder = 0
|
|
Text = 'CaptionEdit'
|
|
end
|
|
object DlgTypeComboBox: TComboBox
|
|
AnchorSideTop.Control = DlgTypeLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 154
|
|
Height = 31
|
|
Top = 93
|
|
Width = 120
|
|
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
|
BorderSpacing.Top = 3
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'mtWarning'
|
|
'mtError'
|
|
'mtInformation'
|
|
'mtConfirmation'
|
|
'mtCustom'
|
|
)
|
|
MaxLength = 0
|
|
Style = csDropDownList
|
|
TabOrder = 1
|
|
Text = 'mtWarning'
|
|
end
|
|
object ButtonsCheckGroup: TCheckGroup
|
|
Left = 285
|
|
Height = 177
|
|
Top = 70
|
|
Width = 216
|
|
AutoFill = True
|
|
Caption = 'BUTTONS (TMsgDlgButtons)'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 2
|
|
Columns = 2
|
|
Items.Strings = (
|
|
'mbYes'
|
|
'mbNo'
|
|
'mbOK'
|
|
'mbCancel'
|
|
'mbAbort'
|
|
'mbRetry'
|
|
'mbIgnore'
|
|
'mbAll'
|
|
'mbNoToAll'
|
|
'mbYesToAll'
|
|
'mbHelp'
|
|
'mbClose'
|
|
)
|
|
OnItemClick = ButtonsCheckGroupItemClick
|
|
TabOrder = 2
|
|
Data = {
|
|
0C000000020203030202020202020202
|
|
}
|
|
end
|
|
object HelpContextSpinEdit: TSpinEdit
|
|
AnchorSideTop.Control = HelpContextLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 23
|
|
Top = 337
|
|
Width = 61
|
|
BorderSpacing.Top = 3
|
|
MaxValue = 9999
|
|
TabOrder = 3
|
|
end
|
|
object HelpKeyWordEdit: TEdit
|
|
AnchorSideTop.Control = HelpKeyWordLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 103
|
|
Height = 23
|
|
Top = 337
|
|
Width = 171
|
|
BorderSpacing.Top = 3
|
|
TabOrder = 4
|
|
Text = 'HelpKeyWordEdit'
|
|
end
|
|
object ButtonsPanel: TPanel
|
|
Left = 509
|
|
Height = 177
|
|
Top = 70
|
|
Width = 285
|
|
ClientHeight = 177
|
|
ClientWidth = 285
|
|
TabOrder = 5
|
|
object ButtonsStringGrid: TStringGrid
|
|
Left = 1
|
|
Height = 138
|
|
Top = 1
|
|
Width = 283
|
|
Align = alTop
|
|
ColCount = 2
|
|
FixedColor = clBtnFace
|
|
FixedCols = 0
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
|
|
RowCount = 4
|
|
TabOrder = 0
|
|
OnPickListSelect = UpdateQuestioDlgResultExecute
|
|
OnSelectEditor = ButtonsStringGridSelectEditor
|
|
ColWidths = (
|
|
171
|
|
104
|
|
)
|
|
Cells = (
|
|
8
|
|
0
|
|
0
|
|
'BUTTONS (array of const)'
|
|
0
|
|
1
|
|
'Yes'
|
|
0
|
|
2
|
|
'No'
|
|
0
|
|
3
|
|
'Cancel'
|
|
1
|
|
0
|
|
'Modal Result'
|
|
1
|
|
1
|
|
'mrYes'
|
|
1
|
|
2
|
|
'mrNo'
|
|
1
|
|
3
|
|
'mrCancel'
|
|
)
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 1
|
|
Height = 37
|
|
Top = 139
|
|
Width = 283
|
|
Align = alClient
|
|
BevelInner = bvLowered
|
|
BevelOuter = bvSpace
|
|
ClientHeight = 37
|
|
ClientWidth = 283
|
|
TabOrder = 1
|
|
object BitBtn1: TBitBtn
|
|
Left = 2
|
|
Height = 33
|
|
Top = 2
|
|
Width = 128
|
|
Action = AddConst
|
|
Align = alLeft
|
|
NumGlyphs = 0
|
|
TabOrder = 0
|
|
end
|
|
object BitBtn2: TBitBtn
|
|
Left = 153
|
|
Height = 33
|
|
Top = 2
|
|
Width = 128
|
|
Action = DelConst
|
|
Align = alRight
|
|
NumGlyphs = 0
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|
|
object XSpinEdit: TSpinEdit
|
|
AnchorSideLeft.Control = XLabel
|
|
AnchorSideLeft.Side = asrBottom
|
|
Left = 19
|
|
Height = 27
|
|
Top = 272
|
|
Width = 66
|
|
AutoSize = True
|
|
BorderSpacing.Left = 4
|
|
TabOrder = 6
|
|
end
|
|
object YSpinEdit: TSpinEdit
|
|
AnchorSideLeft.Control = YLabel
|
|
AnchorSideLeft.Side = asrBottom
|
|
Left = 105
|
|
Height = 27
|
|
Top = 272
|
|
Width = 66
|
|
AutoSize = True
|
|
BorderSpacing.Left = 4
|
|
TabOrder = 7
|
|
end
|
|
object HelpFileNameEdit: TFileNameEdit
|
|
AnchorSideTop.Control = HelpFileNameLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 23
|
|
Top = 387
|
|
Width = 244
|
|
ButtonWidth = 23
|
|
NumGlyphs = 1
|
|
BorderSpacing.Top = 3
|
|
ParentColor = False
|
|
TabOrder = 8
|
|
end
|
|
object PromptEdit: TEdit
|
|
AnchorSideTop.Control = PromptLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 23
|
|
Top = 448
|
|
Width = 164
|
|
BorderSpacing.Top = 3
|
|
TabOrder = 9
|
|
Text = 'PromptEdit'
|
|
end
|
|
object MaskInputCheckBox: TCheckBox
|
|
Left = 191
|
|
Height = 22
|
|
Top = 441
|
|
Width = 89
|
|
Caption = 'MaskInput'
|
|
TabOrder = 10
|
|
end
|
|
object ValueEdit: TEdit
|
|
AnchorSideTop.Control = ValueLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 23
|
|
Top = 501
|
|
Width = 112
|
|
BorderSpacing.Top = 3
|
|
TabOrder = 11
|
|
Text = 'ValueEdit'
|
|
end
|
|
object DefaultEdit: TEdit
|
|
AnchorSideTop.Control = DefaultValue
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 138
|
|
Height = 23
|
|
Top = 501
|
|
Width = 136
|
|
BorderSpacing.Top = 3
|
|
TabOrder = 12
|
|
Text = 'DefaultEdit'
|
|
end
|
|
object TestButton: TButton
|
|
Left = 307
|
|
Height = 37
|
|
Top = 501
|
|
Width = 256
|
|
Action = Test
|
|
BorderSpacing.InnerBorder = 4
|
|
TabOrder = 13
|
|
end
|
|
object OkButton: TBitBtn
|
|
Left = 605
|
|
Height = 37
|
|
Top = 501
|
|
Width = 100
|
|
AutoSize = True
|
|
Caption = '&OK'
|
|
Constraints.MinHeight = 37
|
|
Constraints.MinWidth = 100
|
|
Default = True
|
|
Kind = bkOK
|
|
ModalResult = 1
|
|
NumGlyphs = 0
|
|
TabOrder = 14
|
|
end
|
|
object CancelButton: TBitBtn
|
|
AnchorSideLeft.Control = OkButton
|
|
AnchorSideLeft.Side = asrBottom
|
|
Left = 709
|
|
Height = 37
|
|
Top = 501
|
|
Width = 100
|
|
BorderSpacing.Left = 4
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
Constraints.MinHeight = 37
|
|
Constraints.MinWidth = 100
|
|
Kind = bkCancel
|
|
ModalResult = 2
|
|
NumGlyphs = 0
|
|
TabOrder = 15
|
|
end
|
|
object SourceWrapperGroupBox: TGroupBox
|
|
Left = 307
|
|
Height = 221
|
|
Top = 264
|
|
Width = 509
|
|
Caption = 'SourceWrapperGroupBox'
|
|
ClientHeight = 202
|
|
ClientWidth = 505
|
|
TabOrder = 16
|
|
object Label1: TLabel
|
|
Left = 7
|
|
Height = 20
|
|
Top = 6
|
|
Width = 69
|
|
Caption = '"if" RESULT'
|
|
ParentColor = False
|
|
end
|
|
object StringResultLabel: TLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 9
|
|
Height = 20
|
|
Top = 145
|
|
Width = 90
|
|
BorderSpacing.Top = 8
|
|
Caption = 'String RESULT'
|
|
ParentColor = False
|
|
end
|
|
object IfThenRadioButton: TRadioButton
|
|
Left = 7
|
|
Height = 22
|
|
Top = 72
|
|
Width = 83
|
|
Caption = 'if...then...'
|
|
Checked = True
|
|
OnClick = SetIfOrCaseExecute
|
|
State = cbChecked
|
|
TabOrder = 0
|
|
end
|
|
object IfThenElseRadioButton: TRadioButton
|
|
Left = 7
|
|
Height = 22
|
|
Top = 93
|
|
Width = 125
|
|
Caption = 'if...then...else ...'
|
|
OnClick = SetIfOrCaseExecute
|
|
TabOrder = 1
|
|
end
|
|
object CaseOfEndRadioButton: TRadioButton
|
|
Left = 199
|
|
Height = 22
|
|
Top = 143
|
|
Width = 134
|
|
Caption = 'case ... of ... end;'
|
|
OnClick = SetIfOrCaseExecute
|
|
TabOrder = 2
|
|
end
|
|
object CaseOfEndElseRadioButton: TRadioButton
|
|
Left = 199
|
|
Height = 22
|
|
Top = 164
|
|
Width = 148
|
|
Caption = 'case ... of ... else ...'
|
|
OnClick = SetIfOrCaseExecute
|
|
TabOrder = 3
|
|
end
|
|
object BeginEndCheckBox: TCheckBox
|
|
Left = 385
|
|
Height = 22
|
|
Top = 152
|
|
Width = 103
|
|
Caption = 'begin ... end'
|
|
TabOrder = 4
|
|
end
|
|
object IfResultComboBox: TComboBox
|
|
AnchorSideTop.Control = Label1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 7
|
|
Height = 31
|
|
Top = 29
|
|
Width = 175
|
|
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
|
BorderSpacing.Top = 3
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'mbOK'
|
|
'mbCancel'
|
|
)
|
|
MaxLength = 0
|
|
Style = csDropDownList
|
|
TabOrder = 5
|
|
Text = 'mbOK'
|
|
end
|
|
object CaseResultCheckGroup: TCheckGroup
|
|
AnchorSideLeft.Control = IfResultComboBox
|
|
AnchorSideLeft.Side = asrBottom
|
|
Left = 192
|
|
Height = 118
|
|
Top = -1
|
|
Width = 299
|
|
AutoFill = True
|
|
BorderSpacing.Left = 10
|
|
Caption = '"case" RESULT'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 3
|
|
Columns = 3
|
|
Items.Strings = (
|
|
'mbOK'
|
|
'mbCancel'
|
|
)
|
|
TabOrder = 6
|
|
Data = {
|
|
020000000302
|
|
}
|
|
end
|
|
object StringResultEdit: TEdit
|
|
AnchorSideTop.Control = StringResultLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 9
|
|
Height = 23
|
|
Top = 168
|
|
Width = 173
|
|
BorderSpacing.Top = 3
|
|
TabOrder = 7
|
|
Text = 'StringResultEdit'
|
|
end
|
|
end
|
|
object KindMessageComboBox: TComboBox
|
|
Left = 6
|
|
Height = 31
|
|
Top = 30
|
|
Width = 810
|
|
Align = alTop
|
|
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 4
|
|
BorderSpacing.Right = 6
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
|
|
'MessageDlg[Caption, Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
|
|
'MessageDlg[Caption, Msg, DlgType, Buttons(TMsgDlgButtons), HelpKeyword]'
|
|
'MessageDlgPos[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y]'
|
|
'MessageDlgPosHelp[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y, HelpFileName]'
|
|
'QuestionDlg[Caption, Msg, DlgType, Buttons(array of const), HelpCtx]'
|
|
'QuestionDlg[Caption, Msg, DlgType, Buttons(array of const), HelpKeyword]'
|
|
'ShowMessage[Msg: string];'
|
|
'ShowMessageFmt[Msg, Params(array of const)];'
|
|
'ShowMessagePos[Msg, X, Y];'
|
|
'InputQuery[Caption, Prompt, MaskInput(Boolean), Value(String)]'
|
|
'InputQuery[Caption, Prompt, Value(String)]'
|
|
'InputBox[Caption, Prompt, Default]'
|
|
'PasswordBox[Caption, Prompt]'
|
|
)
|
|
OnChange = MessageSetupExecute
|
|
Style = csDropDownList
|
|
TabOrder = 17
|
|
Text = 'MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
|
|
end
|
|
object MsgMemo: TMemo
|
|
AnchorSideTop.Control = MsgLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 94
|
|
Top = 156
|
|
Width = 268
|
|
BorderSpacing.Top = 3
|
|
Lines.Strings = (
|
|
'MsgLabel'
|
|
)
|
|
OnEditingDone = GetParamsFmtExecute
|
|
ScrollBars = ssAutoVertical
|
|
TabOrder = 18
|
|
WordWrap = False
|
|
end
|
|
object ActionList1: TActionList
|
|
left = 456
|
|
top = 368
|
|
object AddConst: TAction
|
|
Caption = 'AddConst'
|
|
DisableIfNoHandler = True
|
|
OnExecute = AddConstExecute
|
|
end
|
|
object DelConst: TAction
|
|
Caption = 'DelConst'
|
|
DisableIfNoHandler = True
|
|
OnExecute = DelConstExecute
|
|
end
|
|
object MessageSetup: TAction
|
|
Caption = 'MessageSetup'
|
|
DisableIfNoHandler = True
|
|
OnExecute = MessageSetupExecute
|
|
end
|
|
object MessagesInit: TAction
|
|
Caption = 'MessagesInit'
|
|
DisableIfNoHandler = True
|
|
OnExecute = MessagesInitExecute
|
|
end
|
|
object Test: TAction
|
|
Caption = 'Test'
|
|
DisableIfNoHandler = True
|
|
OnExecute = TestExecute
|
|
end
|
|
object GetMessageForSource: TAction
|
|
Caption = 'GetMessageForSource'
|
|
DisableIfNoHandler = True
|
|
OnExecute = GetMessageForSourceExecute
|
|
end
|
|
object GetParamsFmt: TAction
|
|
Caption = 'GetParamsFmt'
|
|
DisableIfNoHandler = True
|
|
OnExecute = GetParamsFmtExecute
|
|
end
|
|
object SetIfOrCase: TAction
|
|
Caption = 'SetIfOrCase'
|
|
DisableIfNoHandler = True
|
|
OnExecute = SetIfOrCaseExecute
|
|
end
|
|
object UpdateQuestioDlgResult: TAction
|
|
Caption = 'UpdateQuestioDlgResult'
|
|
DisableIfNoHandler = True
|
|
OnExecute = UpdateQuestioDlgResultExecute
|
|
end
|
|
end
|
|
end
|