mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-02 17:03:41 +02:00
bb8c94cba4
* refactor * fix wrong boolean parameter in InputQuery * fix wrong resulttype of InputBox and PasswordBox * fix crash when CaseResultCheckGroup is empty * less hints * fix grammar and typo in comment (Also fixes issue #0028481) git-svn-id: trunk@49759 -
730 lines
17 KiB
Plaintext
730 lines
17 KiB
Plaintext
object FormMessagesComposer: TFormMessagesComposer
|
|
AnchorSideLeft.Side = asrBottom
|
|
Left = 658
|
|
Height = 591
|
|
Top = 123
|
|
Width = 584
|
|
ActiveControl = KindMessageComboBox
|
|
BorderIcons = [biSystemMenu]
|
|
BorderStyle = bsDialog
|
|
Caption = 'Messages Composer'
|
|
ClientHeight = 591
|
|
ClientWidth = 584
|
|
OnCreate = MessagesInitExecute
|
|
Position = poScreenCenter
|
|
LCLVersion = '1.5'
|
|
object CaptionLabel: TLabel
|
|
Left = 6
|
|
Height = 15
|
|
Top = 70
|
|
Width = 70
|
|
Caption = 'CaptionLabel'
|
|
ParentColor = False
|
|
end
|
|
object MsgLabel: TLabel
|
|
AnchorSideTop.Control = CaptionEdit
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 15
|
|
Top = 123
|
|
Width = 51
|
|
BorderSpacing.Top = 12
|
|
Caption = 'MsgLabel'
|
|
ParentColor = False
|
|
end
|
|
object DlgTypeLabel: TLabel
|
|
Left = 154
|
|
Height = 15
|
|
Top = 70
|
|
Width = 44
|
|
Caption = 'DlgType'
|
|
ParentColor = False
|
|
end
|
|
object HelpContextLabel: TLabel
|
|
AnchorSideTop.Control = HelpCtxBevel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 15
|
|
Top = 294
|
|
Width = 69
|
|
Caption = 'Help Context'
|
|
ParentColor = False
|
|
end
|
|
object HelpKeyWordLabel: TLabel
|
|
AnchorSideTop.Control = HelpContextLabel
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 103
|
|
Height = 15
|
|
Top = 294
|
|
Width = 76
|
|
Caption = 'Help KeyWord'
|
|
ParentColor = False
|
|
end
|
|
object XLabel: TLabel
|
|
AnchorSideTop.Control = XSpinEdit
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 6
|
|
Height = 15
|
|
Top = 260
|
|
Width = 7
|
|
Caption = 'X'
|
|
ParentColor = False
|
|
end
|
|
object YLabel: TLabel
|
|
AnchorSideLeft.Control = XSpinEdit
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = YSpinEdit
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 91
|
|
Height = 15
|
|
Top = 260
|
|
Width = 7
|
|
BorderSpacing.Left = 8
|
|
Caption = 'Y'
|
|
ParentColor = False
|
|
end
|
|
object HelpFileNameLabel: TLabel
|
|
AnchorSideTop.Control = HelpContextSpinEdit
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 15
|
|
Top = 341
|
|
Width = 78
|
|
BorderSpacing.Top = 6
|
|
Caption = 'Help FileName'
|
|
ParentColor = False
|
|
end
|
|
object PromptLabel: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 425
|
|
Width = 68
|
|
Caption = 'PromptLabel'
|
|
ParentColor = False
|
|
end
|
|
object ValueLabel: TLabel
|
|
Left = 16
|
|
Height = 15
|
|
Top = 478
|
|
Width = 56
|
|
Caption = 'Value (var)'
|
|
ParentColor = False
|
|
end
|
|
object DefaultValue: TLabel
|
|
Left = 138
|
|
Height = 15
|
|
Top = 478
|
|
Width = 38
|
|
Caption = 'Default'
|
|
ParentColor = False
|
|
end
|
|
object PositionBevel: TBevel
|
|
AnchorSideTop.Control = MsgMemo
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 5
|
|
Height = 9
|
|
Top = 241
|
|
Width = 269
|
|
BorderSpacing.Top = 6
|
|
Shape = bsTopLine
|
|
end
|
|
object Bevel2: TBevel
|
|
Left = 8
|
|
Height = 9
|
|
Top = 417
|
|
Width = 266
|
|
Shape = bsTopLine
|
|
end
|
|
object HelpCtxBevel: TBevel
|
|
AnchorSideTop.Control = XSpinEdit
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 9
|
|
Top = 285
|
|
Width = 266
|
|
Shape = bsTopLine
|
|
end
|
|
object KindMessageLabel: TLabel
|
|
Left = 6
|
|
Height = 15
|
|
Top = 6
|
|
Width = 572
|
|
Align = alTop
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
Caption = 'KindMessageLabel'
|
|
ParentColor = False
|
|
end
|
|
object CaptionEdit: TEdit
|
|
AnchorSideTop.Control = CaptionLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 23
|
|
Top = 88
|
|
Width = 136
|
|
BorderSpacing.Top = 3
|
|
TabOrder = 0
|
|
Text = 'CaptionEdit'
|
|
end
|
|
object DlgTypeComboBox: TComboBox
|
|
AnchorSideTop.Control = DlgTypeLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 154
|
|
Height = 23
|
|
Top = 88
|
|
Width = 120
|
|
BorderSpacing.Top = 3
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'mtWarning'
|
|
'mtError'
|
|
'mtInformation'
|
|
'mtConfirmation'
|
|
'mtCustom'
|
|
)
|
|
Style = csDropDownList
|
|
TabOrder = 1
|
|
Text = 'mtWarning'
|
|
end
|
|
object HelpContextSpinEdit: TSpinEdit
|
|
AnchorSideTop.Control = HelpContextLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 23
|
|
Top = 312
|
|
Width = 61
|
|
BorderSpacing.Top = 3
|
|
MaxValue = 9999
|
|
TabOrder = 2
|
|
end
|
|
object HelpKeyWordEdit: TEdit
|
|
AnchorSideTop.Control = HelpKeyWordLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 103
|
|
Height = 23
|
|
Top = 312
|
|
Width = 171
|
|
BorderSpacing.Top = 3
|
|
TabOrder = 3
|
|
Text = 'HelpKeyWordEdit'
|
|
end
|
|
object XSpinEdit: TSpinEdit
|
|
AnchorSideLeft.Control = XLabel
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = PositionBevel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 17
|
|
Height = 23
|
|
Top = 256
|
|
Width = 66
|
|
BorderSpacing.Left = 4
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Bottom = 6
|
|
TabOrder = 4
|
|
end
|
|
object YSpinEdit: TSpinEdit
|
|
AnchorSideLeft.Control = YLabel
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = XSpinEdit
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 102
|
|
Height = 23
|
|
Top = 256
|
|
Width = 66
|
|
BorderSpacing.Left = 4
|
|
TabOrder = 5
|
|
end
|
|
object HelpFileNameEdit: TFileNameEdit
|
|
AnchorSideTop.Control = HelpFileNameLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 8
|
|
Height = 23
|
|
Top = 359
|
|
Width = 244
|
|
DialogOptions = []
|
|
FilterIndex = 0
|
|
HideDirectories = False
|
|
ButtonWidth = 23
|
|
NumGlyphs = 1
|
|
BorderSpacing.Top = 3
|
|
MaxLength = 0
|
|
TabOrder = 6
|
|
end
|
|
object PromptEdit: TEdit
|
|
AnchorSideTop.Control = PromptLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 23
|
|
Top = 443
|
|
Width = 164
|
|
BorderSpacing.Top = 3
|
|
TabOrder = 7
|
|
Text = 'PromptEdit'
|
|
end
|
|
object MaskInputCheckBox: TCheckBox
|
|
AnchorSideTop.Control = PromptEdit
|
|
AnchorSideTop.Side = asrCenter
|
|
Left = 191
|
|
Height = 19
|
|
Top = 445
|
|
Width = 76
|
|
Caption = 'MaskInput'
|
|
TabOrder = 8
|
|
end
|
|
object ValueEdit: TEdit
|
|
AnchorSideTop.Control = ValueLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 23
|
|
Top = 496
|
|
Width = 112
|
|
BorderSpacing.Top = 3
|
|
TabOrder = 9
|
|
Text = 'ValueEdit'
|
|
end
|
|
object DefaultEdit: TEdit
|
|
AnchorSideTop.Control = DefaultValue
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 138
|
|
Height = 23
|
|
Top = 496
|
|
Width = 136
|
|
BorderSpacing.Top = 3
|
|
TabOrder = 10
|
|
Text = 'DefaultEdit'
|
|
end
|
|
object SourceWrapperGroupBox: TGroupBox
|
|
Left = 285
|
|
Height = 256
|
|
Top = 264
|
|
Width = 285
|
|
Caption = 'SourceWrapperGroupBox'
|
|
ClientHeight = 236
|
|
ClientWidth = 281
|
|
TabOrder = 12
|
|
object IfThenRadioButton: TRadioButton
|
|
Left = 9
|
|
Height = 19
|
|
Top = 8
|
|
Width = 69
|
|
Caption = 'if...then...'
|
|
Checked = True
|
|
OnClick = SetIfOrCaseExecute
|
|
TabOrder = 0
|
|
TabStop = True
|
|
end
|
|
object IfThenElseRadioButton: TRadioButton
|
|
AnchorSideTop.Control = IfThenRadioButton
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 7
|
|
Height = 19
|
|
Top = 29
|
|
Width = 101
|
|
BorderSpacing.Top = 2
|
|
Caption = 'if...then...else ...'
|
|
OnClick = SetIfOrCaseExecute
|
|
TabOrder = 1
|
|
end
|
|
object CaseOfEndRadioButton: TRadioButton
|
|
AnchorSideLeft.Control = IfThenRadioButton
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = IfThenRadioButton
|
|
Left = 128
|
|
Height = 19
|
|
Top = 10
|
|
Width = 107
|
|
BorderSpacing.Left = 50
|
|
BorderSpacing.Top = 2
|
|
Caption = 'case ... of ... end;'
|
|
OnClick = SetIfOrCaseExecute
|
|
TabOrder = 2
|
|
end
|
|
object CaseOfEndElseRadioButton: TRadioButton
|
|
AnchorSideLeft.Control = CaseOfEndRadioButton
|
|
AnchorSideTop.Control = CaseOfEndRadioButton
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 128
|
|
Height = 19
|
|
Top = 31
|
|
Width = 116
|
|
BorderSpacing.Top = 2
|
|
Caption = 'case ... of ... else ...'
|
|
OnClick = SetIfOrCaseExecute
|
|
TabOrder = 3
|
|
end
|
|
object BeginEndCheckBox: TCheckBox
|
|
Left = 9
|
|
Height = 19
|
|
Top = 56
|
|
Width = 85
|
|
Caption = 'begin ... end'
|
|
TabOrder = 4
|
|
end
|
|
object SourceNotebook: TNotebook
|
|
Left = 0
|
|
Height = 152
|
|
Top = 84
|
|
Width = 281
|
|
PageIndex = 0
|
|
Align = alBottom
|
|
TabOrder = 5
|
|
TabStop = True
|
|
object PageIf: TPage
|
|
object Label1: TLabel
|
|
Left = 7
|
|
Height = 15
|
|
Top = 6
|
|
Width = 60
|
|
Caption = '"if" RESULT'
|
|
ParentColor = False
|
|
end
|
|
object IfResultComboBox: TComboBox
|
|
AnchorSideTop.Control = Label1
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 7
|
|
Height = 23
|
|
Top = 24
|
|
Width = 175
|
|
BorderSpacing.Top = 3
|
|
ItemHeight = 15
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'mbOK'
|
|
'mbCancel'
|
|
)
|
|
Style = csDropDownList
|
|
TabOrder = 0
|
|
Text = 'mbOK'
|
|
end
|
|
end
|
|
object PageCase: TPage
|
|
object CaseResultCheckGroup: TCheckGroup
|
|
Left = 10
|
|
Height = 128
|
|
Top = 0
|
|
Width = 238
|
|
Align = alClient
|
|
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
|
|
ClientHeight = 128
|
|
ClientWidth = 238
|
|
Columns = 3
|
|
Items.Strings = (
|
|
'mbOK'
|
|
'mbCancel'
|
|
)
|
|
TabOrder = 0
|
|
Data = {
|
|
020000000302
|
|
}
|
|
end
|
|
end
|
|
object PageString: TPage
|
|
object StringResultLabel: TLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 9
|
|
Height = 16
|
|
Top = 10
|
|
Width = 75
|
|
BorderSpacing.Top = 8
|
|
Caption = 'String RESULT'
|
|
ParentColor = False
|
|
end
|
|
object StringResultEdit: TEdit
|
|
AnchorSideTop.Control = StringResultLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 9
|
|
Height = 23
|
|
Top = 29
|
|
Width = 173
|
|
BorderSpacing.Top = 3
|
|
TabOrder = 0
|
|
Text = 'StringResultEdit'
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object KindMessageComboBox: TComboBox
|
|
Left = 6
|
|
Height = 23
|
|
Top = 25
|
|
Width = 572
|
|
Align = alTop
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 4
|
|
BorderSpacing.Right = 6
|
|
ItemHeight = 15
|
|
Items.Strings = (
|
|
'{Filled @runtime}'
|
|
)
|
|
OnChange = MessageSetupExecute
|
|
Style = csDropDownList
|
|
TabOrder = 14
|
|
end
|
|
object MsgMemo: TMemo
|
|
AnchorSideTop.Control = MsgLabel
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 6
|
|
Height = 94
|
|
Top = 141
|
|
Width = 268
|
|
BorderSpacing.Top = 3
|
|
Lines.Strings = (
|
|
'MsgLabel'
|
|
)
|
|
OnChange = GetParamsFmtExecute
|
|
OnEditingDone = GetParamsFmtExecute
|
|
ScrollBars = ssAutoVertical
|
|
TabOrder = 11
|
|
WordWrap = False
|
|
end
|
|
object ButtonsNotebook: TNotebook
|
|
Left = 285
|
|
Height = 177
|
|
Top = 70
|
|
Width = 285
|
|
PageIndex = 0
|
|
TabOrder = 13
|
|
TabStop = True
|
|
object Page1: TPage
|
|
object ButtonsCheckGroup: TCheckGroup
|
|
Left = 0
|
|
Height = 177
|
|
Top = 0
|
|
Width = 285
|
|
Align = alClient
|
|
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
|
|
ClientHeight = 157
|
|
ClientWidth = 281
|
|
Columns = 2
|
|
Items.Strings = (
|
|
'mbYes'
|
|
'mbNo'
|
|
'mbOK'
|
|
'mbCancel'
|
|
'mbAbort'
|
|
'mbRetry'
|
|
'mbIgnore'
|
|
'mbAll'
|
|
'mbNoToAll'
|
|
'mbYesToAll'
|
|
'mbHelp'
|
|
'mbClose'
|
|
)
|
|
OnItemClick = ButtonsCheckGroupItemClick
|
|
TabOrder = 0
|
|
Data = {
|
|
0C000000020203030202020202020202
|
|
}
|
|
end
|
|
end
|
|
object Page2: TPage
|
|
object ButtonsPanel: TPanel
|
|
Left = 0
|
|
Height = 177
|
|
Top = 0
|
|
Width = 285
|
|
Align = alClient
|
|
ClientHeight = 177
|
|
ClientWidth = 285
|
|
TabOrder = 0
|
|
object ButtonsStringGrid: TStringGrid
|
|
Left = 1
|
|
Height = 138
|
|
Top = 1
|
|
Width = 283
|
|
Align = alTop
|
|
ColCount = 2
|
|
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
|
|
TabOrder = 0
|
|
end
|
|
object BitBtn2: TBitBtn
|
|
Left = 153
|
|
Height = 33
|
|
Top = 2
|
|
Width = 128
|
|
Action = DelConst
|
|
Align = alRight
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object ButtonPanel: TPanel
|
|
Left = 0
|
|
Height = 49
|
|
Top = 542
|
|
Width = 584
|
|
Align = alBottom
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
ClientHeight = 49
|
|
ClientWidth = 584
|
|
TabOrder = 15
|
|
object TestButton: TButton
|
|
AnchorSideLeft.Control = ButtonPanel
|
|
AnchorSideTop.Control = ButtonPanel
|
|
Left = 6
|
|
Height = 37
|
|
Top = 6
|
|
Width = 256
|
|
Action = Test
|
|
BorderSpacing.Around = 6
|
|
BorderSpacing.InnerBorder = 4
|
|
TabOrder = 0
|
|
end
|
|
object OkButton: TBitBtn
|
|
AnchorSideRight.Control = CancelButton
|
|
Left = 372
|
|
Height = 37
|
|
Top = 6
|
|
Width = 100
|
|
Anchors = [akTop, akRight]
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = '&OK'
|
|
Constraints.MinHeight = 37
|
|
Constraints.MinWidth = 100
|
|
Default = True
|
|
Kind = bkOK
|
|
ModalResult = 1
|
|
TabOrder = 1
|
|
end
|
|
object CancelButton: TBitBtn
|
|
AnchorSideLeft.Control = OkButton
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = ButtonPanel
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 478
|
|
Height = 37
|
|
Top = 6
|
|
Width = 100
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Around = 6
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
Constraints.MinHeight = 37
|
|
Constraints.MinWidth = 100
|
|
Kind = bkCancel
|
|
ModalResult = 2
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object ActionList1: TActionList
|
|
left = 456
|
|
top = 368
|
|
object AddConst: TAction
|
|
Caption = 'AddConst'
|
|
OnExecute = AddConstExecute
|
|
end
|
|
object DelConst: TAction
|
|
Caption = 'DelConst'
|
|
OnExecute = DelConstExecute
|
|
end
|
|
object MessageSetup: TAction
|
|
Caption = 'MessageSetup'
|
|
OnExecute = MessageSetupExecute
|
|
end
|
|
object MessagesInit: TAction
|
|
Caption = 'MessagesInit'
|
|
OnExecute = MessagesInitExecute
|
|
end
|
|
object Test: TAction
|
|
Caption = 'Test'
|
|
OnExecute = TestExecute
|
|
end
|
|
object GetMessageForSource: TAction
|
|
Caption = 'GetMessageForSource'
|
|
OnExecute = GetMessageForSourceExecute
|
|
end
|
|
object GetParamsFmt: TAction
|
|
Caption = 'GetParamsFmt'
|
|
OnExecute = GetParamsFmtExecute
|
|
end
|
|
object SetIfOrCase: TAction
|
|
Caption = 'SetIfOrCase'
|
|
OnExecute = SetIfOrCaseExecute
|
|
end
|
|
object UpdateQuestioDlgResult: TAction
|
|
Caption = 'UpdateQuestioDlgResult'
|
|
OnExecute = UpdateQuestioDlgResultExecute
|
|
end
|
|
end
|
|
end
|