mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-07 09:40:21 +02:00
components: message composer: improved layout (bug #11126)
patch by: Salvatore Coppola git-svn-id: trunk@14791 -
This commit is contained in:
vincents
parent
dc7211bd1d
commit
b82d4957ca
@ -1,86 +1,84 @@
|
||||
object FormMessagesComposer: TFormMessagesComposer
|
||||
Left = 206
|
||||
Left = 104
|
||||
Height = 586
|
||||
Top = 47
|
||||
Width = 728
|
||||
HorzScrollBar.Page = 727
|
||||
Top = 118
|
||||
Width = 800
|
||||
HorzScrollBar.Page = 799
|
||||
VertScrollBar.Page = 585
|
||||
ActiveControl = CaptionEdit
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Messages Composer'
|
||||
ClientHeight = 586
|
||||
ClientWidth = 800
|
||||
OnCreate = MessagesInitExecute
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '0.9.25'
|
||||
object CaptionLabel: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 8
|
||||
Width = 37
|
||||
Width = 38
|
||||
Caption = 'Caption'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object MsgLabel: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 56
|
||||
Width = 47
|
||||
Width = 45
|
||||
Caption = 'MsgLabel'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object DlgTypeLabel: TLabel
|
||||
Left = 108
|
||||
Height = 14
|
||||
Top = 8
|
||||
Width = 41
|
||||
Width = 40
|
||||
Caption = 'DlgType'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object HelpContextLabel: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 278
|
||||
Width = 62
|
||||
Width = 64
|
||||
Caption = 'Help Context'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object HelpKeyWordLabel: TLabel
|
||||
Left = 103
|
||||
Height = 14
|
||||
Top = 278
|
||||
Width = 70
|
||||
Width = 69
|
||||
Caption = 'Help KeyWord'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object XLabel: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 242
|
||||
Width = 8
|
||||
Width = 7
|
||||
Caption = 'X'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object YLabel: TLabel
|
||||
Left = 112
|
||||
AnchorSideLeft.Control = XSpinEdit
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 66
|
||||
Height = 14
|
||||
Top = 242
|
||||
Width = 8
|
||||
Width = 7
|
||||
BorderSpacing.Left = 8
|
||||
Caption = 'Y'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object HelpFileNameLabel: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 328
|
||||
Width = 70
|
||||
Width = 68
|
||||
Caption = 'Help FileName'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object PromptLabel: TLabel
|
||||
@ -89,32 +87,29 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
Top = 112
|
||||
Width = 60
|
||||
Caption = 'PromptLabel'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object ValueLabel: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 181
|
||||
Width = 52
|
||||
Width = 54
|
||||
Caption = 'Value (var)'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object DefaultValue: TLabel
|
||||
Left = 108
|
||||
Height = 14
|
||||
Top = 181
|
||||
Width = 35
|
||||
Width = 36
|
||||
Caption = 'Default'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object Bevel1: TBevel
|
||||
Left = 10
|
||||
Height = 9
|
||||
Top = 103
|
||||
Width = 205
|
||||
Width = 201
|
||||
Shape = bsTopLine
|
||||
end
|
||||
object Bevel2: TBevel
|
||||
@ -128,31 +123,14 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
Left = 8
|
||||
Height = 9
|
||||
Top = 269
|
||||
Width = 207
|
||||
Width = 203
|
||||
Shape = bsTopLine
|
||||
end
|
||||
object CaptionEdit: TEdit
|
||||
Left = 8
|
||||
Height = 23
|
||||
Top = 24
|
||||
Width = 93
|
||||
TabOrder = 0
|
||||
Text = 'CaptionEdit'
|
||||
end
|
||||
object MsgEdit: TEdit
|
||||
Left = 8
|
||||
Height = 23
|
||||
Top = 72
|
||||
Width = 207
|
||||
OnEditingDone = GetParamsFmtExecute
|
||||
TabOrder = 1
|
||||
Text = 'MsgEdit'
|
||||
end
|
||||
object KindMessageRadioGroup: TRadioGroup
|
||||
Left = 224
|
||||
Height = 360
|
||||
Left = 215
|
||||
Height = 359
|
||||
Top = 7
|
||||
Width = 497
|
||||
Width = 576
|
||||
AutoFill = True
|
||||
Caption = 'KindMessageRadioGroup'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
@ -163,6 +141,8 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 341
|
||||
ClientWidth = 572
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
|
||||
@ -183,12 +163,30 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
OnClick = MessageSetupExecute
|
||||
TabOrder = 2
|
||||
end
|
||||
object CaptionEdit: TEdit
|
||||
Left = 8
|
||||
Height = 23
|
||||
Top = 24
|
||||
Width = 93
|
||||
TabOrder = 0
|
||||
Text = 'CaptionEdit'
|
||||
end
|
||||
object MsgEdit: TEdit
|
||||
Left = 8
|
||||
Height = 23
|
||||
Top = 72
|
||||
Width = 203
|
||||
OnEditingDone = GetParamsFmtExecute
|
||||
TabOrder = 1
|
||||
Text = 'MsgEdit'
|
||||
end
|
||||
object DlgTypeComboBox: TComboBox
|
||||
Left = 108
|
||||
Height = 21
|
||||
Top = 26
|
||||
Width = 107
|
||||
Width = 103
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
ItemHeight = 13
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'mtWarning'
|
||||
@ -203,10 +201,10 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
Text = 'mtWarning'
|
||||
end
|
||||
object ButtonsCheckGroup: TCheckGroup
|
||||
Left = 527
|
||||
Left = 575
|
||||
Height = 177
|
||||
Top = 369
|
||||
Width = 194
|
||||
Width = 216
|
||||
AutoFill = True
|
||||
Caption = 'BUTTONS (TMsgDlgButtons)'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
@ -242,7 +240,7 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
Left = 8
|
||||
Height = 23
|
||||
Top = 297
|
||||
Width = 17
|
||||
Width = 61
|
||||
MaxValue = 9999
|
||||
TabOrder = 5
|
||||
end
|
||||
@ -250,36 +248,36 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
Left = 103
|
||||
Height = 23
|
||||
Top = 297
|
||||
Width = 112
|
||||
Width = 108
|
||||
TabOrder = 6
|
||||
Text = 'HelpKeyWordEdit'
|
||||
end
|
||||
object ButtonsPanel: TPanel
|
||||
Left = 297
|
||||
Left = 278
|
||||
Height = 170
|
||||
Top = 376
|
||||
Width = 221
|
||||
Width = 285
|
||||
ClientHeight = 170
|
||||
ClientWidth = 285
|
||||
TabOrder = 7
|
||||
object ButtonsStringGrid: TStringGrid
|
||||
Left = 1
|
||||
Height = 138
|
||||
Top = 1
|
||||
Width = 219
|
||||
Width = 283
|
||||
Align = alTop
|
||||
ColCount = 2
|
||||
FixedColor = clBtnFace
|
||||
FixedCols = 0
|
||||
GridLineWidth = 0
|
||||
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
|
||||
RowCount = 4
|
||||
ScrollBars = ssAutoBoth
|
||||
TabOrder = 0
|
||||
TabStop = True
|
||||
OnPickListSelect = UpdateQuestioDlgResultExecute
|
||||
OnSelectEditor = ButtonsStringGridSelectEditor
|
||||
ColWidths = (
|
||||
138
|
||||
77
|
||||
171
|
||||
104
|
||||
)
|
||||
Cells = (
|
||||
8
|
||||
@ -313,26 +311,28 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
Left = 1
|
||||
Height = 30
|
||||
Top = 139
|
||||
Width = 219
|
||||
Width = 283
|
||||
Align = alClient
|
||||
BevelInner = bvLowered
|
||||
BevelOuter = bvSpace
|
||||
ClientHeight = 30
|
||||
ClientWidth = 283
|
||||
TabOrder = 1
|
||||
object BitBtn1: TBitBtn
|
||||
Left = 2
|
||||
Height = 26
|
||||
Top = 2
|
||||
Width = 101
|
||||
Width = 128
|
||||
Action = AddConst
|
||||
Align = alLeft
|
||||
NumGlyphs = 0
|
||||
TabOrder = 0
|
||||
end
|
||||
object BitBtn2: TBitBtn
|
||||
Left = 111
|
||||
Left = 153
|
||||
Height = 26
|
||||
Top = 2
|
||||
Width = 106
|
||||
Width = 128
|
||||
Action = DelConst
|
||||
Align = alRight
|
||||
NumGlyphs = 0
|
||||
@ -341,26 +341,32 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
end
|
||||
end
|
||||
object XSpinEdit: TSpinEdit
|
||||
Left = 46
|
||||
Height = 23
|
||||
AnchorSideLeft.Control = XLabel
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 19
|
||||
Height = 22
|
||||
Top = 237
|
||||
Width = 17
|
||||
Width = 39
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 4
|
||||
TabOrder = 8
|
||||
end
|
||||
object YSpinEdit: TSpinEdit
|
||||
Left = 144
|
||||
Height = 23
|
||||
AnchorSideLeft.Control = YLabel
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 77
|
||||
Height = 22
|
||||
Top = 237
|
||||
Width = 17
|
||||
Width = 33
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 4
|
||||
TabOrder = 9
|
||||
end
|
||||
object HelpFileNameEdit: TFileNameEdit
|
||||
Left = 8
|
||||
Height = 23
|
||||
Top = 344
|
||||
Width = 185
|
||||
Width = 181
|
||||
ButtonWidth = 23
|
||||
NumGlyphs = 1
|
||||
ParentColor = False
|
||||
@ -370,15 +376,15 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
Left = 8
|
||||
Height = 23
|
||||
Top = 128
|
||||
Width = 207
|
||||
Width = 203
|
||||
TabOrder = 11
|
||||
Text = 'PromptEdit'
|
||||
end
|
||||
object MaskInputCheckBox: TCheckBox
|
||||
Left = 8
|
||||
Height = 13
|
||||
Height = 19
|
||||
Top = 156
|
||||
Width = 70
|
||||
Width = 76
|
||||
Caption = 'MaskInput'
|
||||
TabOrder = 12
|
||||
end
|
||||
@ -394,24 +400,25 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
Left = 106
|
||||
Height = 23
|
||||
Top = 197
|
||||
Width = 109
|
||||
Width = 105
|
||||
TabOrder = 14
|
||||
Text = 'DefaultEdit'
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 297
|
||||
Left = 279
|
||||
Height = 25
|
||||
Top = 552
|
||||
Width = 221
|
||||
Width = 284
|
||||
Action = Test
|
||||
BorderSpacing.InnerBorder = 4
|
||||
TabOrder = 15
|
||||
end
|
||||
object Button2: TBitBtn
|
||||
Left = 527
|
||||
Height = 25
|
||||
Left = 616
|
||||
Height = 26
|
||||
Top = 552
|
||||
Width = 97
|
||||
Width = 60
|
||||
AutoSize = True
|
||||
Caption = '&OK'
|
||||
Default = True
|
||||
Kind = bkOK
|
||||
@ -420,10 +427,14 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
TabOrder = 16
|
||||
end
|
||||
object Button3: TBitBtn
|
||||
Left = 628
|
||||
Height = 25
|
||||
Top = 552
|
||||
Width = 93
|
||||
AnchorSideLeft.Control = Button2
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 680
|
||||
Height = 26
|
||||
Top = 551
|
||||
Width = 78
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 4
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
Kind = bkCancel
|
||||
@ -434,78 +445,87 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
object SourceWrapperGroupBox: TGroupBox
|
||||
Left = 8
|
||||
Height = 208
|
||||
Top = 369
|
||||
Width = 280
|
||||
Top = 368
|
||||
Width = 264
|
||||
Caption = 'SourceWrapperGroupBox'
|
||||
ClientHeight = 190
|
||||
ClientWidth = 260
|
||||
TabOrder = 18
|
||||
object Label1: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Top = 9
|
||||
Width = 62
|
||||
Top = 6
|
||||
Width = 55
|
||||
Caption = '"if" RESULT'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object StringResultLabel: TLabel
|
||||
AnchorSideTop.Control = IfResultComboBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 7
|
||||
Height = 14
|
||||
Top = 59
|
||||
Width = 74
|
||||
Top = 51
|
||||
Width = 69
|
||||
BorderSpacing.Top = 8
|
||||
Caption = 'String RESULT'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object IfThenRadioButton: TRadioButton
|
||||
Left = 7
|
||||
Height = 13
|
||||
Height = 19
|
||||
Top = 111
|
||||
Width = 64
|
||||
Width = 70
|
||||
Caption = 'if...then...'
|
||||
Checked = True
|
||||
OnClick = SetIfOrCaseExecute
|
||||
State = cbChecked
|
||||
TabOrder = 0
|
||||
end
|
||||
object IfThenElseRadioButton: TRadioButton
|
||||
Left = 7
|
||||
Height = 13
|
||||
Height = 19
|
||||
Top = 129
|
||||
Width = 95
|
||||
Width = 101
|
||||
Caption = 'if...then...else ...'
|
||||
OnClick = SetIfOrCaseExecute
|
||||
TabOrder = 1
|
||||
end
|
||||
object CaseOfEndRadioButton: TRadioButton
|
||||
Left = 142
|
||||
Height = 13
|
||||
Top = 151
|
||||
Width = 103
|
||||
Left = 7
|
||||
Height = 19
|
||||
Top = 152
|
||||
Width = 109
|
||||
Caption = 'case ... of ... end;'
|
||||
OnClick = SetIfOrCaseExecute
|
||||
TabOrder = 2
|
||||
end
|
||||
object CaseOfEndElseRadioButton: TRadioButton
|
||||
Left = 142
|
||||
Height = 13
|
||||
Top = 169
|
||||
Width = 113
|
||||
Left = 7
|
||||
Height = 19
|
||||
Top = 170
|
||||
Width = 119
|
||||
Caption = 'case ... of ... else ...'
|
||||
OnClick = SetIfOrCaseExecute
|
||||
TabOrder = 3
|
||||
end
|
||||
object BeginEndCheckBox: TCheckBox
|
||||
Left = 7
|
||||
Height = 13
|
||||
Top = 159
|
||||
Width = 79
|
||||
Left = 150
|
||||
Height = 19
|
||||
Top = 121
|
||||
Width = 85
|
||||
Caption = 'begin ... end'
|
||||
TabOrder = 4
|
||||
end
|
||||
object IfResultComboBox: TComboBox
|
||||
AnchorSideTop.Control = Label1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 7
|
||||
Height = 21
|
||||
Top = 25
|
||||
Top = 22
|
||||
Width = 119
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
BorderSpacing.Top = 2
|
||||
ItemHeight = 13
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'mbOK'
|
||||
@ -517,11 +537,14 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
Text = 'mbOK'
|
||||
end
|
||||
object CaseResultCheckGroup: TCheckGroup
|
||||
Left = 142
|
||||
Height = 146
|
||||
AnchorSideLeft.Control = IfResultComboBox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 134
|
||||
Height = 118
|
||||
Top = -1
|
||||
Width = 129
|
||||
Width = 121
|
||||
AutoFill = True
|
||||
BorderSpacing.Left = 8
|
||||
Caption = '"case" RESULT'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
@ -541,17 +564,20 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
}
|
||||
end
|
||||
object StringResultEdit: TEdit
|
||||
AnchorSideTop.Control = StringResultLabel
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 7
|
||||
Height = 23
|
||||
Top = 74
|
||||
Top = 69
|
||||
Width = 119
|
||||
BorderSpacing.Top = 4
|
||||
TabOrder = 7
|
||||
Text = 'StringResultEdit'
|
||||
end
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
left = 472
|
||||
top = 480
|
||||
left = 408
|
||||
top = 448
|
||||
object AddConst: TAction
|
||||
Caption = 'AddConst'
|
||||
DisableIfNoHandler = True
|
||||
|
||||
@ -1,165 +1,177 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TFormMessagesComposer','FORMDATA',[
|
||||
'TPF0'#21'TFormMessagesComposer'#20'FormMessagesComposer'#4'Left'#3#206#0#6'H'
|
||||
+'eight'#3'J'#2#3'Top'#2'/'#5'Width'#3#216#2#18'HorzScrollBar.Page'#3#215#2#18
|
||||
+'VertScrollBar.Page'#3'I'#2#13'ActiveControl'#7#11'CaptionEdit'#11'BorderIco'
|
||||
+'ns'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Mes'
|
||||
+'sages Composer'#8'OnCreate'#7#19'MessagesInitExecute'#8'Position'#7#14'poSc'
|
||||
+'reenCenter'#0#6'TLabel'#12'CaptionLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#2
|
||||
+#8#5'Width'#2'%'#7'Caption'#6#7'Caption'#5'Color'#7#6'clNone'#11'ParentColor'
|
||||
+#8#0#0#6'TLabel'#8'MsgLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'8'#5'Width'
|
||||
+#2'/'#7'Caption'#6#8'MsgLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6
|
||||
+'TLabel'#12'DlgTypeLabel'#4'Left'#2'l'#6'Height'#2#14#3'Top'#2#8#5'Width'#2
|
||||
+')'#7'Caption'#6#7'DlgType'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLa'
|
||||
+'bel'#16'HelpContextLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#22#1#5'Width'
|
||||
+#2'>'#7'Caption'#6#12'Help Context'#5'Color'#7#6'clNone'#11'ParentColor'#8#0
|
||||
+#0#6'TLabel'#16'HelpKeyWordLabel'#4'Left'#2'g'#6'Height'#2#14#3'Top'#3#22#1#5
|
||||
+'Width'#2'F'#7'Caption'#6#12'Help KeyWord'#5'Color'#7#6'clNone'#11'ParentCol'
|
||||
+'or'#8#0#0#6'TLabel'#6'XLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#242#0#5'W'
|
||||
+'idth'#2#8#7'Caption'#6#1'X'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TL'
|
||||
+'abel'#6'YLabel'#4'Left'#2'p'#6'Height'#2#14#3'Top'#3#242#0#5'Width'#2#8#7'C'
|
||||
+'aption'#6#1'Y'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#17'Help'
|
||||
+'FileNameLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#3'H'#1#5'Width'#2'F'#7'Cap'
|
||||
+'tion'#6#13'Help FileName'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLab'
|
||||
+'el'#11'PromptLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'p'#5'Width'#2'<'#7
|
||||
+'Caption'#6#11'PromptLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLa'
|
||||
+'bel'#10'ValueLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#181#0#5'Width'#2'4'
|
||||
+#7'Caption'#6#11'Value (var)'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'T'
|
||||
+'Label'#12'DefaultValue'#4'Left'#2'l'#6'Height'#2#14#3'Top'#3#181#0#5'Width'
|
||||
+#2'#'#7'Caption'#6#7'Default'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'T'
|
||||
+'Bevel'#6'Bevel1'#4'Left'#2#10#6'Height'#2#9#3'Top'#2'g'#5'Width'#3#205#0#5
|
||||
+'Shape'#7#9'bsTopLine'#0#0#6'TBevel'#6'Bevel2'#4'Left'#2#8#6'Height'#2#9#3'T'
|
||||
+'op'#3#225#0#5'Width'#3#207#0#5'Shape'#7#9'bsTopLine'#0#0#6'TBevel'#6'Bevel3'
|
||||
+#4'Left'#2#8#6'Height'#2#9#3'Top'#3#13#1#5'Width'#3#207#0#5'Shape'#7#9'bsTop'
|
||||
+'Line'#0#0#5'TEdit'#11'CaptionEdit'#4'Left'#2#8#6'Height'#2#23#3'Top'#2#24#5
|
||||
+'Width'#2']'#8'TabOrder'#2#0#4'Text'#6#11'CaptionEdit'#0#0#5'TEdit'#7'MsgEdi'
|
||||
+'t'#4'Left'#2#8#6'Height'#2#23#3'Top'#2'H'#5'Width'#3#207#0#13'OnEditingDone'
|
||||
+#7#19'GetParamsFmtExecute'#8'TabOrder'#2#1#4'Text'#6#7'MsgEdit'#0#0#11'TRadi'
|
||||
+'oGroup'#21'KindMessageRadioGroup'#4'Left'#3#224#0#6'Height'#3'h'#1#3'Top'#2
|
||||
+#7#5'Width'#3#241#1#8'AutoFill'#9#7'Caption'#6#21'KindMessageRadioGroup'#28
|
||||
+'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'C'
|
||||
+'hildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing'
|
||||
+'.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHoriz'
|
||||
+'ontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChi'
|
||||
+'lds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSiz'
|
||||
+'ing.ControlsPerLine'#2#1#9'ItemIndex'#2#0#13'Items.Strings'#1#6':MessageDlg'
|
||||
+'[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'#6'CMessageDlg[Caption, Ms'
|
||||
+'g, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'#6'GMessageDlg[Caption, Msg, '
|
||||
+'DlgType, Buttons(TMsgDlgButtons), HelpKeyword]'#6'CMessageDlgPos[Msg, DlgTy'
|
||||
+'pe, Buttons(TMsgDlgButtons), HelpCtx, X, Y]'#6'UMessageDlgPosHelp[Msg, DlgT'
|
||||
+'ype, Buttons(TMsgDlgButtons), HelpCtx, X, Y, HelpFileName]'#6'DQuestionDlg['
|
||||
+'Caption, Msg, DlgType, Buttons(array of const), HelpCtx]'#6'HQuestionDlg[Ca'
|
||||
+'ption, Msg, DlgType, Buttons(array of const), HelpKeyword]'#6#25'ShowMessag'
|
||||
+'e[Msg: string];'#6',ShowMessageFmt[Msg, Params(array of const)];'#6#26'Show'
|
||||
+'MessagePos[Msg, X, Y];'#6'>InputQuery[Caption, Prompt, MaskInput(Boolean), '
|
||||
+'Value(String)]'#6'*InputQuery[Caption, Prompt, Value(String)]'#6'"InputBox['
|
||||
+'Caption, Prompt, Default]'#6#28'PasswordBox[Caption, Prompt]'#0#7'OnClick'#7
|
||||
+#19'MessageSetupExecute'#8'TabOrder'#2#2#0#0#9'TComboBox'#15'DlgTypeComboBox'
|
||||
+#4'Left'#2'l'#6'Height'#2#21#3'Top'#2#26#5'Width'#2'k'#16'AutoCompleteText'
|
||||
+#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9'ItemIndex'#2#0#13
|
||||
+'Items.Strings'#1#6#9'mtWarning'#6#7'mtError'#6#13'mtInformation'#6#14'mtCon'
|
||||
+'firmation'#6#8'mtCustom'#0#9'MaxLength'#2#0#5'Style'#7#14'csDropDownList'#8
|
||||
+'TabOrder'#2#3#4'Text'#6#9'mtWarning'#0#0#11'TCheckGroup'#17'ButtonsCheckGro'
|
||||
+'up'#4'Left'#3#15#2#6'Height'#3#177#0#3'Top'#3'q'#1#5'Width'#3#194#0#8'AutoF'
|
||||
+'ill'#9#7'Caption'#6#24'BUTTONS (TMsgDlgButtons)'#28'ChildSizing.LeftRightSp'
|
||||
+'acing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHoriz'
|
||||
+'ontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24
|
||||
,'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChi'
|
||||
+'lds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Lay'
|
||||
+'out'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2
|
||||
+#7'Columns'#2#2#13'Items.Strings'#1#6#5'mbYes'#6#4'mbNo'#6#4'mbOK'#6#8'mbCan'
|
||||
+'cel'#6#7'mbAbort'#6#7'mbRetry'#6#8'mbIgnore'#6#5'mbAll'#6#9'mbNoToAll'#6#10
|
||||
+'mbYesToAll'#6#6'mbHelp'#6#7'mbClose'#0#11'OnItemClick'#7#26'ButtonsCheckGro'
|
||||
+'upItemClick'#8'TabOrder'#2#4#4'Data'#10#16#0#0#0#12#0#0#0#2#2#3#3#2#2#2#2#2
|
||||
+#2#2#2#0#0#9'TSpinEdit'#19'HelpContextSpinEdit'#4'Left'#2#8#6'Height'#2#23#3
|
||||
+'Top'#3')'#1#5'Width'#2#17#8'MaxValue'#3#15''''#8'TabOrder'#2#5#0#0#5'TEdit'
|
||||
+#15'HelpKeyWordEdit'#4'Left'#2'g'#6'Height'#2#23#3'Top'#3')'#1#5'Width'#2'p'
|
||||
+#8'TabOrder'#2#6#4'Text'#6#15'HelpKeyWordEdit'#0#0#6'TPanel'#12'ButtonsPanel'
|
||||
+#4'Left'#3')'#1#6'Height'#3#170#0#3'Top'#3'x'#1#5'Width'#3#221#0#8'TabOrder'
|
||||
+#2#7#0#11'TStringGrid'#17'ButtonsStringGrid'#4'Left'#2#1#6'Height'#3#138#0#3
|
||||
+'Top'#2#1#5'Width'#3#219#0#5'Align'#7#5'alTop'#8'ColCount'#2#2#10'FixedColor'
|
||||
+#7#9'clBtnFace'#9'FixedCols'#2#0#13'GridLineWidth'#2#0#7'Options'#11#15'goFi'
|
||||
+'xedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#13'goRangeSe'
|
||||
+'lect'#9'goEditing'#14'goSmoothScroll'#0#8'RowCount'#2#4#10'ScrollBars'#7#10
|
||||
+'ssAutoBoth'#8'TabOrder'#2#0#7'TabStop'#9#16'OnPickListSelect'#7#29'UpdateQu'
|
||||
+'estioDlgResultExecute'#14'OnSelectEditor'#7#29'ButtonsStringGridSelectEdito'
|
||||
+'r'#9'ColWidths'#1#3#138#0#2'M'#0#5'Cells'#1#2#8#2#0#2#0#6#24'BUTTONS (array'
|
||||
+' of const)'#2#0#2#1#6#3'Yes'#2#0#2#2#6#2'No'#2#0#2#3#6#6'Cancel'#2#1#2#0#6
|
||||
+#12'Modal Result'#2#1#2#1#6#5'mrYes'#2#1#2#2#6#4'mrNo'#2#1#2#3#6#8'mrCancel'
|
||||
+#0#0#0#6'TPanel'#6'Panel2'#4'Left'#2#1#6'Height'#2#30#3'Top'#3#139#0#5'Width'
|
||||
+#3#219#0#5'Align'#7#8'alClient'#10'BevelInner'#7#9'bvLowered'#10'BevelOuter'
|
||||
+#7#7'bvSpace'#8'TabOrder'#2#1#0#7'TBitBtn'#7'BitBtn1'#4'Left'#2#2#6'Height'#2
|
||||
+#26#3'Top'#2#2#5'Width'#2'e'#6'Action'#7#8'AddConst'#5'Align'#7#6'alLeft'#9
|
||||
+'NumGlyphs'#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#7'BitBtn2'#4'Left'#2'o'#6'Hei'
|
||||
+'ght'#2#26#3'Top'#2#2#5'Width'#2'j'#6'Action'#7#8'DelConst'#5'Align'#7#7'alR'
|
||||
+'ight'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#0#0#9'TSpinEdit'#9'XSpinEdit'#4
|
||||
+'Left'#2'.'#6'Height'#2#23#3'Top'#3#237#0#5'Width'#2#17#8'AutoSize'#9#8'TabO'
|
||||
+'rder'#2#8#0#0#9'TSpinEdit'#9'YSpinEdit'#4'Left'#3#144#0#6'Height'#2#23#3'To'
|
||||
+'p'#3#237#0#5'Width'#2#17#8'AutoSize'#9#8'TabOrder'#2#9#0#0#13'TFileNameEdit'
|
||||
+#16'HelpFileNameEdit'#4'Left'#2#8#6'Height'#2#23#3'Top'#3'X'#1#5'Width'#3#185
|
||||
+#0#11'ButtonWidth'#2#23#9'NumGlyphs'#2#1#11'ParentColor'#8#8'TabOrder'#2#10#0
|
||||
+#0#5'TEdit'#10'PromptEdit'#4'Left'#2#8#6'Height'#2#23#3'Top'#3#128#0#5'Width'
|
||||
+#3#207#0#8'TabOrder'#2#11#4'Text'#6#10'PromptEdit'#0#0#9'TCheckBox'#17'MaskI'
|
||||
+'nputCheckBox'#4'Left'#2#8#6'Height'#2#13#3'Top'#3#156#0#5'Width'#2'F'#7'Cap'
|
||||
+'tion'#6#9'MaskInput'#8'TabOrder'#2#12#0#0#5'TEdit'#9'ValueEdit'#4'Left'#2#8
|
||||
+#6'Height'#2#23#3'Top'#3#197#0#5'Width'#2'P'#8'TabOrder'#2#13#4'Text'#6#9'Va'
|
||||
+'lueEdit'#0#0#5'TEdit'#11'DefaultEdit'#4'Left'#2'j'#6'Height'#2#23#3'Top'#3
|
||||
+#197#0#5'Width'#2'm'#8'TabOrder'#2#14#4'Text'#6#11'DefaultEdit'#0#0#7'TButto'
|
||||
+'n'#7'Button1'#4'Left'#3')'#1#6'Height'#2#25#3'Top'#3'('#2#5'Width'#3#221#0#6
|
||||
+'Action'#7#4'Test'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#15#0#0#7
|
||||
+'TBitBtn'#7'Button2'#4'Left'#3#15#2#6'Height'#2#25#3'Top'#3'('#2#5'Width'#2
|
||||
+'a'#7'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9
|
||||
+'NumGlyphs'#2#0#8'TabOrder'#2#16#0#0#7'TBitBtn'#7'Button3'#4'Left'#3't'#2#6
|
||||
+'Height'#2#25#3'Top'#3'('#2#5'Width'#2']'#6'Cancel'#9#7'Caption'#6#6'Cancel'
|
||||
+#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#17
|
||||
+#0#0#9'TGroupBox'#21'SourceWrapperGroupBox'#4'Left'#2#8#6'Height'#3#208#0#3
|
||||
+'Top'#3'q'#1#5'Width'#3#24#1#7'Caption'#6#21'SourceWrapperGroupBox'#8'TabOrd'
|
||||
+'er'#2#18#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Height'#2#14#3'Top'#2#9#5'Widt'
|
||||
+'h'#2'>'#7'Caption'#6#11'"if" RESULT'#5'Color'#7#6'clNone'#11'ParentColor'#8
|
||||
+#0#0#6'TLabel'#17'StringResultLabel'#4'Left'#2#7#6'Height'#2#14#3'Top'#2';'#5
|
||||
+'Width'#2'J'#7'Caption'#6#13'String RESULT'#5'Color'#7#6'clNone'#11'ParentCo'
|
||||
+'lor'#8#0#0#12'TRadioButton'#17'IfThenRadioButton'#4'Left'#2#7#6'Height'#2#13
|
||||
+#3'Top'#2'o'#5'Width'#2'@'#7'Caption'#6#12'if...then...'#7'OnClick'#7#18'Set'
|
||||
+'IfOrCaseExecute'#8'TabOrder'#2#0#0#0#12'TRadioButton'#21'IfThenElseRadioBut'
|
||||
+'ton'#4'Left'#2#7#6'Height'#2#13#3'Top'#3#129#0#5'Width'#2'_'#7'Caption'#6#20
|
||||
+'if...then...else ...'#7'OnClick'#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#1#0
|
||||
+#0#12'TRadioButton'#20'CaseOfEndRadioButton'#4'Left'#3#142#0#6'Height'#2#13#3
|
||||
+'Top'#3#151#0#5'Width'#2'g'#7'Caption'#6#20'case ... of ... end;'#7'OnClick'
|
||||
+#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#2#0#0#12'TRadioButton'#24'CaseOfEndE'
|
||||
+'lseRadioButton'#4'Left'#3#142#0#6'Height'#2#13#3'Top'#3#169#0#5'Width'#2'q'
|
||||
+#7'Caption'#6#24'case ... of ... else ...'#7'OnClick'#7#18'SetIfOrCaseExecut'
|
||||
,'e'#8'TabOrder'#2#3#0#0#9'TCheckBox'#16'BeginEndCheckBox'#4'Left'#2#7#6'Heig'
|
||||
+'ht'#2#13#3'Top'#3#159#0#5'Width'#2'O'#7'Caption'#6#13'begin ... end'#8'TabO'
|
||||
+'rder'#2#4#0#0#9'TComboBox'#16'IfResultComboBox'#4'Left'#2#7#6'Height'#2#21#3
|
||||
+'Top'#2#25#5'Width'#2'w'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'
|
||||
+#20'cbactSearchAscending'#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#4'mbOK'#6
|
||||
+#8'mbCancel'#0#9'MaxLength'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#5
|
||||
+#4'Text'#6#4'mbOK'#0#0#11'TCheckGroup'#20'CaseResultCheckGroup'#4'Left'#3#142
|
||||
+#0#6'Height'#3#146#0#3'Top'#2#255#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6
|
||||
+#13'"case" RESULT'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBo'
|
||||
+'ttomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildR'
|
||||
+'esize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'Ch'
|
||||
+'ildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVerti'
|
||||
+'cal'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTop'
|
||||
+'ToBottom'#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Strings'#1#6#4'mbOK'
|
||||
+#6#8'mbCancel'#0#8'TabOrder'#2#6#4'Data'#10#6#0#0#0#2#0#0#0#3#2#0#0#5'TEdit'
|
||||
+#16'StringResultEdit'#4'Left'#2#7#6'Height'#2#23#3'Top'#2'J'#5'Width'#2'w'#8
|
||||
+'TabOrder'#2#7#4'Text'#6#16'StringResultEdit'#0#0#0#11'TActionList'#11'Actio'
|
||||
+'nList1'#4'left'#3#216#1#3'top'#3#224#1#0#7'TAction'#8'AddConst'#7'Caption'#6
|
||||
+#8'AddConst'#18'DisableIfNoHandler'#9#9'OnExecute'#7#15'AddConstExecute'#0#0
|
||||
+#7'TAction'#8'DelConst'#7'Caption'#6#8'DelConst'#18'DisableIfNoHandler'#9#9
|
||||
+'OnExecute'#7#15'DelConstExecute'#0#0#7'TAction'#12'MessageSetup'#7'Caption'
|
||||
+#6#12'MessageSetup'#18'DisableIfNoHandler'#9#9'OnExecute'#7#19'MessageSetupE'
|
||||
+'xecute'#0#0#7'TAction'#12'MessagesInit'#7'Caption'#6#12'MessagesInit'#18'Di'
|
||||
+'sableIfNoHandler'#9#9'OnExecute'#7#19'MessagesInitExecute'#0#0#7'TAction'#4
|
||||
+'Test'#7'Caption'#6#4'Test'#18'DisableIfNoHandler'#9#9'OnExecute'#7#11'TestE'
|
||||
+'xecute'#0#0#7'TAction'#19'GetMessageForSource'#7'Caption'#6#19'GetMessageFo'
|
||||
+'rSource'#18'DisableIfNoHandler'#9#9'OnExecute'#7#26'GetMessageForSourceExec'
|
||||
+'ute'#0#0#7'TAction'#12'GetParamsFmt'#7'Caption'#6#12'GetParamsFmt'#18'Disab'
|
||||
+'leIfNoHandler'#9#9'OnExecute'#7#19'GetParamsFmtExecute'#0#0#7'TAction'#11'S'
|
||||
+'etIfOrCase'#7'Caption'#6#11'SetIfOrCase'#18'DisableIfNoHandler'#9#9'OnExecu'
|
||||
+'te'#7#18'SetIfOrCaseExecute'#0#0#7'TAction'#22'UpdateQuestioDlgResult'#7'Ca'
|
||||
+'ption'#6#22'UpdateQuestioDlgResult'#18'DisableIfNoHandler'#9#9'OnExecute'#7
|
||||
+#29'UpdateQuestioDlgResultExecute'#0#0#0#0
|
||||
'TPF0'#21'TFormMessagesComposer'#20'FormMessagesComposer'#4'Left'#2'h'#6'Heig'
|
||||
+'ht'#3'J'#2#3'Top'#2'v'#5'Width'#3' '#3#18'HorzScrollBar.Page'#3#31#3#18'Ver'
|
||||
+'tScrollBar.Page'#3'I'#2#13'ActiveControl'#7#11'CaptionEdit'#11'BorderIcons'
|
||||
+#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Message'
|
||||
+'s Composer'#12'ClientHeight'#3'J'#2#11'ClientWidth'#3' '#3#8'OnCreate'#7#19
|
||||
+'MessagesInitExecute'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.'
|
||||
+'9.25'#0#6'TLabel'#12'CaptionLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#8#5
|
||||
+'Width'#2'&'#7'Caption'#6#7'Caption'#11'ParentColor'#8#0#0#6'TLabel'#8'MsgLa'
|
||||
+'bel'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'8'#5'Width'#2'-'#7'Caption'#6#8'Ms'
|
||||
+'gLabel'#11'ParentColor'#8#0#0#6'TLabel'#12'DlgTypeLabel'#4'Left'#2'l'#6'Hei'
|
||||
+'ght'#2#14#3'Top'#2#8#5'Width'#2'('#7'Caption'#6#7'DlgType'#11'ParentColor'#8
|
||||
+#0#0#6'TLabel'#16'HelpContextLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#22#1
|
||||
+#5'Width'#2'@'#7'Caption'#6#12'Help Context'#11'ParentColor'#8#0#0#6'TLabel'
|
||||
+#16'HelpKeyWordLabel'#4'Left'#2'g'#6'Height'#2#14#3'Top'#3#22#1#5'Width'#2'E'
|
||||
+#7'Caption'#6#12'Help KeyWord'#11'ParentColor'#8#0#0#6'TLabel'#6'XLabel'#4'L'
|
||||
+'eft'#2#8#6'Height'#2#14#3'Top'#3#242#0#5'Width'#2#7#7'Caption'#6#1'X'#11'Pa'
|
||||
+'rentColor'#8#0#0#6'TLabel'#6'YLabel'#22'AnchorSideLeft.Control'#7#9'XSpinEd'
|
||||
+'it'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'B'#6'Height'#2#14#3'To'
|
||||
+'p'#3#242#0#5'Width'#2#7#18'BorderSpacing.Left'#2#8#7'Caption'#6#1'Y'#11'Par'
|
||||
+'entColor'#8#0#0#6'TLabel'#17'HelpFileNameLabel'#4'Left'#2#8#6'Height'#2#14#3
|
||||
+'Top'#3'H'#1#5'Width'#2'D'#7'Caption'#6#13'Help FileName'#11'ParentColor'#8#0
|
||||
+#0#6'TLabel'#11'PromptLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'p'#5'Width'
|
||||
+#2'<'#7'Caption'#6#11'PromptLabel'#11'ParentColor'#8#0#0#6'TLabel'#10'ValueL'
|
||||
+'abel'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#181#0#5'Width'#2'6'#7'Caption'#6
|
||||
+#11'Value (var)'#11'ParentColor'#8#0#0#6'TLabel'#12'DefaultValue'#4'Left'#2
|
||||
+'l'#6'Height'#2#14#3'Top'#3#181#0#5'Width'#2'$'#7'Caption'#6#7'Default'#11'P'
|
||||
+'arentColor'#8#0#0#6'TBevel'#6'Bevel1'#4'Left'#2#10#6'Height'#2#9#3'Top'#2'g'
|
||||
+#5'Width'#3#201#0#5'Shape'#7#9'bsTopLine'#0#0#6'TBevel'#6'Bevel2'#4'Left'#2#8
|
||||
+#6'Height'#2#9#3'Top'#3#225#0#5'Width'#3#207#0#5'Shape'#7#9'bsTopLine'#0#0#6
|
||||
+'TBevel'#6'Bevel3'#4'Left'#2#8#6'Height'#2#9#3'Top'#3#13#1#5'Width'#3#203#0#5
|
||||
+'Shape'#7#9'bsTopLine'#0#0#11'TRadioGroup'#21'KindMessageRadioGroup'#4'Left'
|
||||
+#3#215#0#6'Height'#3'g'#1#3'Top'#2#7#5'Width'#3'@'#2#8'AutoFill'#9#7'Caption'
|
||||
+#6#21'KindMessageRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSi'
|
||||
+'zing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomoge'
|
||||
+'nousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildRes'
|
||||
+'ize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.S'
|
||||
+'hrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRi'
|
||||
+'ghtThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#3
|
||||
+'U'#1#11'ClientWidth'#3'<'#2#9'ItemIndex'#2#0#13'Items.Strings'#1#6':Message'
|
||||
+'Dlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'#6'CMessageDlg[Caption,'
|
||||
+' Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'#6'GMessageDlg[Caption, Ms'
|
||||
+'g, DlgType, Buttons(TMsgDlgButtons), HelpKeyword]'#6'CMessageDlgPos[Msg, Dl'
|
||||
+'gType, Buttons(TMsgDlgButtons), HelpCtx, X, Y]'#6'UMessageDlgPosHelp[Msg, D'
|
||||
+'lgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y, HelpFileName]'#6'DQuestionD'
|
||||
+'lg[Caption, Msg, DlgType, Buttons(array of const), HelpCtx]'#6'HQuestionDlg'
|
||||
+'[Caption, Msg, DlgType, Buttons(array of const), HelpKeyword]'#6#25'ShowMes'
|
||||
+'sage[Msg: string];'#6',ShowMessageFmt[Msg, Params(array of const)];'#6#26'S'
|
||||
+'howMessagePos[Msg, X, Y];'#6'>InputQuery[Caption, Prompt, MaskInput(Boolean'
|
||||
+'), Value(String)]'#6'*InputQuery[Caption, Prompt, Value(String)]'#6'"InputB'
|
||||
+'ox[Caption, Prompt, Default]'#6#28'PasswordBox[Caption, Prompt]'#0#7'OnClic'
|
||||
+'k'#7#19'MessageSetupExecute'#8'TabOrder'#2#2#0#0#5'TEdit'#11'CaptionEdit'#4
|
||||
+'Left'#2#8#6'Height'#2#23#3'Top'#2#24#5'Width'#2']'#8'TabOrder'#2#0#4'Text'#6
|
||||
+#11'CaptionEdit'#0#0#5'TEdit'#7'MsgEdit'#4'Left'#2#8#6'Height'#2#23#3'Top'#2
|
||||
+'H'#5'Width'#3#203#0#13'OnEditingDone'#7#19'GetParamsFmtExecute'#8'TabOrder'
|
||||
+#2#1#4'Text'#6#7'MsgEdit'#0#0#9'TComboBox'#15'DlgTypeComboBox'#4'Left'#2'l'#6
|
||||
+'Height'#2#21#3'Top'#2#26#5'Width'#2'g'#16'AutoCompleteText'#11#22'cbactEndO'
|
||||
+'fLineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#13#9'ItemIndex'#2
|
||||
+#0#13'Items.Strings'#1#6#9'mtWarning'#6#7'mtError'#6#13'mtInformation'#6#14
|
||||
+'mtConfirmation'#6#8'mtCustom'#0#9'MaxLength'#2#0#5'Style'#7#14'csDropDownLi'
|
||||
+'st'#8'TabOrder'#2#3#4'Text'#6#9'mtWarning'#0#0#11'TCheckGroup'#17'ButtonsCh'
|
||||
+'eckGroup'#4'Left'#3'?'#2#6'Height'#3#177#0#3'Top'#3'q'#1#5'Width'#3#216#0#8
|
||||
+'AutoFill'#9#7'Caption'#6#24'BUTTONS (TMsgDlgButtons)'#28'ChildSizing.LeftRi'
|
||||
+'ghtSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.Enlarge'
|
||||
+'Horizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7
|
||||
,#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScale'
|
||||
+'Childs'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.'
|
||||
+'Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'
|
||||
+#2#2#7'Columns'#2#2#13'Items.Strings'#1#6#5'mbYes'#6#4'mbNo'#6#4'mbOK'#6#8'm'
|
||||
+'bCancel'#6#7'mbAbort'#6#7'mbRetry'#6#8'mbIgnore'#6#5'mbAll'#6#9'mbNoToAll'#6
|
||||
+#10'mbYesToAll'#6#6'mbHelp'#6#7'mbClose'#0#11'OnItemClick'#7#26'ButtonsCheck'
|
||||
+'GroupItemClick'#8'TabOrder'#2#4#4'Data'#10#16#0#0#0#12#0#0#0#2#2#3#3#2#2#2#2
|
||||
+#2#2#2#2#0#0#9'TSpinEdit'#19'HelpContextSpinEdit'#4'Left'#2#8#6'Height'#2#23
|
||||
+#3'Top'#3')'#1#5'Width'#2'='#8'MaxValue'#3#15''''#8'TabOrder'#2#5#0#0#5'TEdi'
|
||||
+'t'#15'HelpKeyWordEdit'#4'Left'#2'g'#6'Height'#2#23#3'Top'#3')'#1#5'Width'#2
|
||||
+'l'#8'TabOrder'#2#6#4'Text'#6#15'HelpKeyWordEdit'#0#0#6'TPanel'#12'ButtonsPa'
|
||||
+'nel'#4'Left'#3#22#1#6'Height'#3#170#0#3'Top'#3'x'#1#5'Width'#3#29#1#12'Clie'
|
||||
+'ntHeight'#3#170#0#11'ClientWidth'#3#29#1#8'TabOrder'#2#7#0#11'TStringGrid'
|
||||
+#17'ButtonsStringGrid'#4'Left'#2#1#6'Height'#3#138#0#3'Top'#2#1#5'Width'#3#27
|
||||
+#1#5'Align'#7#5'alTop'#8'ColCount'#2#2#10'FixedColor'#7#9'clBtnFace'#9'Fixed'
|
||||
+'Cols'#2#0#7'Options'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goVertLi'
|
||||
+'ne'#10'goHorzLine'#13'goRangeSelect'#9'goEditing'#14'goSmoothScroll'#0#8'Ro'
|
||||
+'wCount'#2#4#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#16'OnPickListSe'
|
||||
+'lect'#7#29'UpdateQuestioDlgResultExecute'#14'OnSelectEditor'#7#29'ButtonsSt'
|
||||
+'ringGridSelectEditor'#9'ColWidths'#1#3#171#0#2'h'#0#5'Cells'#1#2#8#2#0#2#0#6
|
||||
+#24'BUTTONS (array of const)'#2#0#2#1#6#3'Yes'#2#0#2#2#6#2'No'#2#0#2#3#6#6'C'
|
||||
+'ancel'#2#1#2#0#6#12'Modal Result'#2#1#2#1#6#5'mrYes'#2#1#2#2#6#4'mrNo'#2#1#2
|
||||
+#3#6#8'mrCancel'#0#0#0#6'TPanel'#6'Panel2'#4'Left'#2#1#6'Height'#2#30#3'Top'
|
||||
+#3#139#0#5'Width'#3#27#1#5'Align'#7#8'alClient'#10'BevelInner'#7#9'bvLowered'
|
||||
+#10'BevelOuter'#7#7'bvSpace'#12'ClientHeight'#2#30#11'ClientWidth'#3#27#1#8
|
||||
+'TabOrder'#2#1#0#7'TBitBtn'#7'BitBtn1'#4'Left'#2#2#6'Height'#2#26#3'Top'#2#2
|
||||
+#5'Width'#3#128#0#6'Action'#7#8'AddConst'#5'Align'#7#6'alLeft'#9'NumGlyphs'#2
|
||||
+#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#7'BitBtn2'#4'Left'#3#153#0#6'Height'#2#26#3
|
||||
+'Top'#2#2#5'Width'#3#128#0#6'Action'#7#8'DelConst'#5'Align'#7#7'alRight'#9'N'
|
||||
+'umGlyphs'#2#0#8'TabOrder'#2#1#0#0#0#0#9'TSpinEdit'#9'XSpinEdit'#22'AnchorSi'
|
||||
+'deLeft.Control'#7#6'XLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2
|
||||
+#19#6'Height'#2#22#3'Top'#3#237#0#5'Width'#2''''#8'AutoSize'#9#18'BorderSpac'
|
||||
+'ing.Left'#2#4#8'TabOrder'#2#8#0#0#9'TSpinEdit'#9'YSpinEdit'#22'AnchorSideLe'
|
||||
+'ft.Control'#7#6'YLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'M'
|
||||
+#6'Height'#2#22#3'Top'#3#237#0#5'Width'#2'!'#8'AutoSize'#9#18'BorderSpacing.'
|
||||
+'Left'#2#4#8'TabOrder'#2#9#0#0#13'TFileNameEdit'#16'HelpFileNameEdit'#4'Left'
|
||||
+#2#8#6'Height'#2#23#3'Top'#3'X'#1#5'Width'#3#181#0#11'ButtonWidth'#2#23#9'Nu'
|
||||
+'mGlyphs'#2#1#11'ParentColor'#8#8'TabOrder'#2#10#0#0#5'TEdit'#10'PromptEdit'
|
||||
+#4'Left'#2#8#6'Height'#2#23#3'Top'#3#128#0#5'Width'#3#203#0#8'TabOrder'#2#11
|
||||
+#4'Text'#6#10'PromptEdit'#0#0#9'TCheckBox'#17'MaskInputCheckBox'#4'Left'#2#8
|
||||
+#6'Height'#2#19#3'Top'#3#156#0#5'Width'#2'L'#7'Caption'#6#9'MaskInput'#8'Tab'
|
||||
+'Order'#2#12#0#0#5'TEdit'#9'ValueEdit'#4'Left'#2#8#6'Height'#2#23#3'Top'#3
|
||||
+#197#0#5'Width'#2'P'#8'TabOrder'#2#13#4'Text'#6#9'ValueEdit'#0#0#5'TEdit'#11
|
||||
+'DefaultEdit'#4'Left'#2'j'#6'Height'#2#23#3'Top'#3#197#0#5'Width'#2'i'#8'Tab'
|
||||
+'Order'#2#14#4'Text'#6#11'DefaultEdit'#0#0#7'TButton'#7'Button1'#4'Left'#3#23
|
||||
+#1#6'Height'#2#25#3'Top'#3'('#2#5'Width'#3#28#1#6'Action'#7#4'Test'#25'Borde'
|
||||
+'rSpacing.InnerBorder'#2#4#8'TabOrder'#2#15#0#0#7'TBitBtn'#7'Button2'#4'Left'
|
||||
+#3'h'#2#6'Height'#2#26#3'Top'#3'('#2#5'Width'#2'<'#8'AutoSize'#9#7'Caption'#6
|
||||
+#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8
|
||||
+'TabOrder'#2#16#0#0#7'TBitBtn'#7'Button3'#22'AnchorSideLeft.Control'#7#7'But'
|
||||
+'ton2'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#168#2#6'Height'#2#26
|
||||
+#3'Top'#3''''#2#5'Width'#2'N'#8'AutoSize'#9#18'BorderSpacing.Left'#2#4#6'Can'
|
||||
+'cel'#9#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'N'
|
||||
+'umGlyphs'#2#0#8'TabOrder'#2#17#0#0#9'TGroupBox'#21'SourceWrapperGroupBox'#4
|
||||
+'Left'#2#8#6'Height'#3#208#0#3'Top'#3'p'#1#5'Width'#3#8#1#7'Caption'#6#21'So'
|
||||
+'urceWrapperGroupBox'#12'ClientHeight'#3#190#0#11'ClientWidth'#3#4#1#8'TabOr'
|
||||
+'der'#2#18#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Height'#2#14#3'Top'#2#6#5'Wid'
|
||||
+'th'#2'7'#7'Caption'#6#11'"if" RESULT'#11'ParentColor'#8#0#0#6'TLabel'#17'St'
|
||||
+'ringResultLabel'#21'AnchorSideTop.Control'#7#16'IfResultComboBox'#18'Anchor'
|
||||
+'SideTop.Side'#7#9'asrBottom'#4'Left'#2#7#6'Height'#2#14#3'Top'#2'3'#5'Width'
|
||||
+#2'E'#17'BorderSpacing.Top'#2#8#7'Caption'#6#13'String RESULT'#11'ParentColo'
|
||||
+'r'#8#0#0#12'TRadioButton'#17'IfThenRadioButton'#4'Left'#2#7#6'Height'#2#19#3
|
||||
+'Top'#2'o'#5'Width'#2'F'#7'Caption'#6#12'if...then...'#7'Checked'#9#7'OnClic'
|
||||
+'k'#7#18'SetIfOrCaseExecute'#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#12
|
||||
,'TRadioButton'#21'IfThenElseRadioButton'#4'Left'#2#7#6'Height'#2#19#3'Top'#3
|
||||
+#129#0#5'Width'#2'e'#7'Caption'#6#20'if...then...else ...'#7'OnClick'#7#18'S'
|
||||
+'etIfOrCaseExecute'#8'TabOrder'#2#1#0#0#12'TRadioButton'#20'CaseOfEndRadioBu'
|
||||
+'tton'#4'Left'#2#7#6'Height'#2#19#3'Top'#3#152#0#5'Width'#2'm'#7'Caption'#6
|
||||
+#20'case ... of ... end;'#7'OnClick'#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#2
|
||||
+#0#0#12'TRadioButton'#24'CaseOfEndElseRadioButton'#4'Left'#2#7#6'Height'#2#19
|
||||
+#3'Top'#3#170#0#5'Width'#2'w'#7'Caption'#6#24'case ... of ... else ...'#7'On'
|
||||
+'Click'#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#3#0#0#9'TCheckBox'#16'BeginEn'
|
||||
+'dCheckBox'#4'Left'#3#150#0#6'Height'#2#19#3'Top'#2'y'#5'Width'#2'U'#7'Capti'
|
||||
+'on'#6#13'begin ... end'#8'TabOrder'#2#4#0#0#9'TComboBox'#16'IfResultComboBo'
|
||||
+'x'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBott'
|
||||
+'om'#4'Left'#2#7#6'Height'#2#21#3'Top'#2#22#5'Width'#2'w'#16'AutoCompleteTex'
|
||||
+'t'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#17'BorderSpacin'
|
||||
+'g.Top'#2#2#10'ItemHeight'#2#13#9'ItemIndex'#2#0#13'Items.Strings'#1#6#4'mbO'
|
||||
+'K'#6#8'mbCancel'#0#9'MaxLength'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrde'
|
||||
+'r'#2#5#4'Text'#6#4'mbOK'#0#0#11'TCheckGroup'#20'CaseResultCheckGroup'#22'An'
|
||||
+'chorSideLeft.Control'#7#16'IfResultComboBox'#19'AnchorSideLeft.Side'#7#9'as'
|
||||
+'rBottom'#4'Left'#3#134#0#6'Height'#2'v'#3'Top'#2#255#5'Width'#2'y'#8'AutoFi'
|
||||
+'ll'#9#18'BorderSpacing.Left'#2#8#7'Caption'#6#13'"case" RESULT'#28'ChildSiz'
|
||||
+'ing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizi'
|
||||
+'ng.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlarge'
|
||||
+'Vertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7
|
||||
+#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'C'
|
||||
+'hildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Contr'
|
||||
+'olsPerLine'#2#1#13'Items.Strings'#1#6#4'mbOK'#6#8'mbCancel'#0#8'TabOrder'#2
|
||||
+#6#4'Data'#10#6#0#0#0#2#0#0#0#3#2#0#0#5'TEdit'#16'StringResultEdit'#21'Ancho'
|
||||
+'rSideTop.Control'#7#17'StringResultLabel'#18'AnchorSideTop.Side'#7#9'asrBot'
|
||||
+'tom'#4'Left'#2#7#6'Height'#2#23#3'Top'#2'E'#5'Width'#2'w'#17'BorderSpacing.'
|
||||
+'Top'#2#4#8'TabOrder'#2#7#4'Text'#6#16'StringResultEdit'#0#0#0#11'TActionLis'
|
||||
+'t'#11'ActionList1'#4'left'#3#152#1#3'top'#3#192#1#0#7'TAction'#8'AddConst'#7
|
||||
+'Caption'#6#8'AddConst'#18'DisableIfNoHandler'#9#9'OnExecute'#7#15'AddConstE'
|
||||
+'xecute'#0#0#7'TAction'#8'DelConst'#7'Caption'#6#8'DelConst'#18'DisableIfNoH'
|
||||
+'andler'#9#9'OnExecute'#7#15'DelConstExecute'#0#0#7'TAction'#12'MessageSetup'
|
||||
+#7'Caption'#6#12'MessageSetup'#18'DisableIfNoHandler'#9#9'OnExecute'#7#19'Me'
|
||||
+'ssageSetupExecute'#0#0#7'TAction'#12'MessagesInit'#7'Caption'#6#12'Messages'
|
||||
+'Init'#18'DisableIfNoHandler'#9#9'OnExecute'#7#19'MessagesInitExecute'#0#0#7
|
||||
+'TAction'#4'Test'#7'Caption'#6#4'Test'#18'DisableIfNoHandler'#9#9'OnExecute'
|
||||
+#7#11'TestExecute'#0#0#7'TAction'#19'GetMessageForSource'#7'Caption'#6#19'Ge'
|
||||
+'tMessageForSource'#18'DisableIfNoHandler'#9#9'OnExecute'#7#26'GetMessageFor'
|
||||
+'SourceExecute'#0#0#7'TAction'#12'GetParamsFmt'#7'Caption'#6#12'GetParamsFmt'
|
||||
+#18'DisableIfNoHandler'#9#9'OnExecute'#7#19'GetParamsFmtExecute'#0#0#7'TActi'
|
||||
+'on'#11'SetIfOrCase'#7'Caption'#6#11'SetIfOrCase'#18'DisableIfNoHandler'#9#9
|
||||
+'OnExecute'#7#18'SetIfOrCaseExecute'#0#0#7'TAction'#22'UpdateQuestioDlgResul'
|
||||
+'t'#7'Caption'#6#22'UpdateQuestioDlgResult'#18'DisableIfNoHandler'#9#9'OnExe'
|
||||
+'cute'#7#29'UpdateQuestioDlgResultExecute'#0#0#0#0
|
||||
]);
|
||||
|
||||
@ -126,7 +126,7 @@ const
|
||||
resourcestring
|
||||
SMessageComposerCaption = 'Message Composer ...';
|
||||
SMsgCaption = 'The message to be shown';
|
||||
SPromptCaption = 'The text asking the user for his input';
|
||||
SPromptCaption = 'Text asking the user for input';
|
||||
SMaskInput = 'Mask Input';
|
||||
SSourceWrapper = 'SOURCE WRAPPER';
|
||||
SKindofMessage = 'KIND OF MESSAGE';
|
||||
@ -186,6 +186,7 @@ end;
|
||||
procedure TFormMessagesComposer.AddConstExecute(Sender: TObject);
|
||||
begin
|
||||
ButtonsStringGrid.RowCount := ButtonsStringGrid.RowCount+1;
|
||||
ButtonsStringGrid.AutoAdjustColumns;
|
||||
UpdateQuestioDlgResult.Execute;
|
||||
end;
|
||||
|
||||
@ -230,12 +231,14 @@ begin
|
||||
//X hexadecimal format. The next argument in the Args array must be an integer. The argument is converted to a hexadecimal string with just enough characters to contain the value of the integer. If Precision is specified then the resulting hexadecimal representation will have at least Precision characters in it (with a maximum value of 32).
|
||||
end;
|
||||
end;
|
||||
ButtonsStringGrid.AutoAdjustColumns;
|
||||
end;
|
||||
|
||||
procedure TFormMessagesComposer.DelConstExecute(Sender: TObject);
|
||||
begin
|
||||
if ButtonsStringGrid.RowCount = 1 then exit;
|
||||
ButtonsStringGrid.RowCount := ButtonsStringGrid.RowCount-1;
|
||||
ButtonsStringGrid.AutoAdjustColumns;
|
||||
UpdateQuestioDlgResult.Execute;
|
||||
end;
|
||||
|
||||
@ -436,6 +439,7 @@ begin
|
||||
ButtonsStringGrid.Cols[0] := ListParams;
|
||||
end;
|
||||
ListParams.Free;
|
||||
ButtonsStringGrid.AutoAdjustColumns;
|
||||
end;
|
||||
|
||||
procedure TFormMessagesComposer.MessageSetupExecute(Sender: TObject);
|
||||
@ -699,7 +703,7 @@ begin
|
||||
CaseResultCheckGroup.Checked[0] := true;
|
||||
end;
|
||||
end;
|
||||
|
||||
ButtonsStringGrid.AutoAdjustColumns;
|
||||
end;
|
||||
|
||||
procedure TFormMessagesComposer.MessagesInitExecute(Sender: TObject);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user