paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 10:39:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

components: message composer: improved layout (bug #11126)

Browse Source 
patch by: Salvatore Coppola

git-svn-id: trunk@14791 -
This commit is contained in:
vincents 2008-04-09 09:04:10 +00:00
parent dc7211bd1d
commit b82d4957ca
3 changed files with 320 additions and 278 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

256
components/messagecomposer/messagecomposer.lfm
View File

@ -1,86 +1,84 @@
object FormMessagesComposer: TFormMessagesComposer object FormMessagesComposer: TFormMessagesComposer
Left = 206 Left = 104
Height = 586 Height = 586
Top = 47 Top = 118
Width = 728 Width = 800
HorzScrollBar.Page = 727 HorzScrollBar.Page = 799
VertScrollBar.Page = 585 VertScrollBar.Page = 585
ActiveControl = CaptionEdit ActiveControl = CaptionEdit
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Messages Composer' Caption = 'Messages Composer'
ClientHeight = 586
ClientWidth = 800
OnCreate = MessagesInitExecute OnCreate = MessagesInitExecute
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.25'
object CaptionLabel: TLabel object CaptionLabel: TLabel
Left = 8 Left = 8
Height = 14 Height = 14
Top = 8 Top = 8
Width = 37 Width = 38
Caption = 'Caption' Caption = 'Caption'
Color = clNone
ParentColor = False ParentColor = False
end end
object MsgLabel: TLabel object MsgLabel: TLabel
Left = 8 Left = 8
Height = 14 Height = 14
Top = 56 Top = 56
Width = 47 Width = 45
Caption = 'MsgLabel' Caption = 'MsgLabel'
Color = clNone
ParentColor = False ParentColor = False
end end
object DlgTypeLabel: TLabel object DlgTypeLabel: TLabel
Left = 108 Left = 108
Height = 14 Height = 14
Top = 8 Top = 8
Width = 41 Width = 40
Caption = 'DlgType' Caption = 'DlgType'
Color = clNone
ParentColor = False ParentColor = False
end end
object HelpContextLabel: TLabel object HelpContextLabel: TLabel
Left = 8 Left = 8
Height = 14 Height = 14
Top = 278 Top = 278
Width = 62 Width = 64
Caption = 'Help Context' Caption = 'Help Context'
Color = clNone
ParentColor = False ParentColor = False
end end
object HelpKeyWordLabel: TLabel object HelpKeyWordLabel: TLabel
Left = 103 Left = 103
Height = 14 Height = 14
Top = 278 Top = 278
Width = 70 Width = 69
Caption = 'Help KeyWord' Caption = 'Help KeyWord'
Color = clNone
ParentColor = False ParentColor = False
end end
object XLabel: TLabel object XLabel: TLabel
Left = 8 Left = 8
Height = 14 Height = 14
Top = 242 Top = 242
Width = 8 Width = 7
Caption = 'X' Caption = 'X'
Color = clNone
ParentColor = False ParentColor = False
end end
object YLabel: TLabel object YLabel: TLabel
Left = 112 AnchorSideLeft.Control = XSpinEdit
AnchorSideLeft.Side = asrBottom
Left = 66
Height = 14 Height = 14
Top = 242 Top = 242
Width = 8 Width = 7
BorderSpacing.Left = 8
Caption = 'Y' Caption = 'Y'
Color = clNone
ParentColor = False ParentColor = False
end end
object HelpFileNameLabel: TLabel object HelpFileNameLabel: TLabel
Left = 8 Left = 8
Height = 14 Height = 14
Top = 328 Top = 328
Width = 70 Width = 68
Caption = 'Help FileName' Caption = 'Help FileName'
Color = clNone
ParentColor = False ParentColor = False
end end
object PromptLabel: TLabel object PromptLabel: TLabel
@ -89,32 +87,29 @@ object FormMessagesComposer: TFormMessagesComposer
Top = 112 Top = 112
Width = 60 Width = 60
Caption = 'PromptLabel' Caption = 'PromptLabel'
Color = clNone
ParentColor = False ParentColor = False
end end
object ValueLabel: TLabel object ValueLabel: TLabel
Left = 8 Left = 8
Height = 14 Height = 14
Top = 181 Top = 181
Width = 52 Width = 54
Caption = 'Value (var)' Caption = 'Value (var)'
Color = clNone
ParentColor = False ParentColor = False
end end
object DefaultValue: TLabel object DefaultValue: TLabel
Left = 108 Left = 108
Height = 14 Height = 14
Top = 181 Top = 181
Width = 35 Width = 36
Caption = 'Default' Caption = 'Default'
Color = clNone
ParentColor = False ParentColor = False
end end
object Bevel1: TBevel object Bevel1: TBevel
Left = 10 Left = 10
Height = 9 Height = 9
Top = 103 Top = 103
Width = 205 Width = 201
Shape = bsTopLine Shape = bsTopLine
end end
object Bevel2: TBevel object Bevel2: TBevel
@ -128,31 +123,14 @@ object FormMessagesComposer: TFormMessagesComposer
Left = 8 Left = 8
Height = 9 Height = 9
Top = 269 Top = 269
Width = 207 Width = 203
Shape = bsTopLine Shape = bsTopLine
end 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 object KindMessageRadioGroup: TRadioGroup
Left = 224 Left = 215
Height = 360 Height = 359
Top = 7 Top = 7
Width = 497 Width = 576
AutoFill = True AutoFill = True
Caption = 'KindMessageRadioGroup' Caption = 'KindMessageRadioGroup'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
@ -163,6 +141,8 @@ object FormMessagesComposer: TFormMessagesComposer
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 341
ClientWidth = 572
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]' 'MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
@ -183,12 +163,30 @@ object FormMessagesComposer: TFormMessagesComposer
OnClick = MessageSetupExecute OnClick = MessageSetupExecute
TabOrder = 2 TabOrder = 2
end 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 object DlgTypeComboBox: TComboBox
Left = 108 Left = 108
Height = 21 Height = 21
Top = 26 Top = 26
Width = 107 Width = 103
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'mtWarning' 'mtWarning'
@ -203,10 +201,10 @@ object FormMessagesComposer: TFormMessagesComposer
Text = 'mtWarning' Text = 'mtWarning'
end end
object ButtonsCheckGroup: TCheckGroup object ButtonsCheckGroup: TCheckGroup
Left = 527 Left = 575
Height = 177 Height = 177
Top = 369 Top = 369
Width = 194 Width = 216
AutoFill = True AutoFill = True
Caption = 'BUTTONS (TMsgDlgButtons)' Caption = 'BUTTONS (TMsgDlgButtons)'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
@ -242,7 +240,7 @@ object FormMessagesComposer: TFormMessagesComposer
Left = 8 Left = 8
Height = 23 Height = 23
Top = 297 Top = 297
Width = 17 Width = 61
MaxValue = 9999 MaxValue = 9999
TabOrder = 5 TabOrder = 5
end end
@ -250,36 +248,36 @@ object FormMessagesComposer: TFormMessagesComposer
Left = 103 Left = 103
Height = 23 Height = 23
Top = 297 Top = 297
Width = 112 Width = 108
TabOrder = 6 TabOrder = 6
Text = 'HelpKeyWordEdit' Text = 'HelpKeyWordEdit'
end end
object ButtonsPanel: TPanel object ButtonsPanel: TPanel
Left = 297 Left = 278
Height = 170 Height = 170
Top = 376 Top = 376
Width = 221 Width = 285
ClientHeight = 170
ClientWidth = 285
TabOrder = 7 TabOrder = 7
object ButtonsStringGrid: TStringGrid object ButtonsStringGrid: TStringGrid
Left = 1 Left = 1
Height = 138 Height = 138
Top = 1 Top = 1
Width = 219 Width = 283
Align = alTop Align = alTop
ColCount = 2 ColCount = 2
FixedColor = clBtnFace FixedColor = clBtnFace
FixedCols = 0 FixedCols = 0
GridLineWidth = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
RowCount = 4 RowCount = 4
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
TabStop = True
OnPickListSelect = UpdateQuestioDlgResultExecute OnPickListSelect = UpdateQuestioDlgResultExecute
OnSelectEditor = ButtonsStringGridSelectEditor OnSelectEditor = ButtonsStringGridSelectEditor
ColWidths = ( ColWidths = (
138 171
77 104
) )
Cells = ( Cells = (
8 8
@ -313,26 +311,28 @@ object FormMessagesComposer: TFormMessagesComposer
Left = 1 Left = 1
Height = 30 Height = 30
Top = 139 Top = 139
Width = 219 Width = 283
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
BevelOuter = bvSpace BevelOuter = bvSpace
ClientHeight = 30
ClientWidth = 283
TabOrder = 1 TabOrder = 1
object BitBtn1: TBitBtn object BitBtn1: TBitBtn
Left = 2 Left = 2
Height = 26 Height = 26
Top = 2 Top = 2
Width = 101 Width = 128
Action = AddConst Action = AddConst
Align = alLeft Align = alLeft
NumGlyphs = 0 NumGlyphs = 0
TabOrder = 0 TabOrder = 0
end end
object BitBtn2: TBitBtn object BitBtn2: TBitBtn
Left = 111 Left = 153
Height = 26 Height = 26
Top = 2 Top = 2
Width = 106 Width = 128
Action = DelConst Action = DelConst
Align = alRight Align = alRight
NumGlyphs = 0 NumGlyphs = 0
@ -341,26 +341,32 @@ object FormMessagesComposer: TFormMessagesComposer
end end
end end
object XSpinEdit: TSpinEdit object XSpinEdit: TSpinEdit
Left = 46 AnchorSideLeft.Control = XLabel
Height = 23 AnchorSideLeft.Side = asrBottom
Left = 19
Height = 22
Top = 237 Top = 237
Width = 17 Width = 39
AutoSize = True AutoSize = True
BorderSpacing.Left = 4
TabOrder = 8 TabOrder = 8
end end
object YSpinEdit: TSpinEdit object YSpinEdit: TSpinEdit
Left = 144 AnchorSideLeft.Control = YLabel
Height = 23 AnchorSideLeft.Side = asrBottom
Left = 77
Height = 22
Top = 237 Top = 237
Width = 17 Width = 33
AutoSize = True AutoSize = True
BorderSpacing.Left = 4
TabOrder = 9 TabOrder = 9
end end
object HelpFileNameEdit: TFileNameEdit object HelpFileNameEdit: TFileNameEdit
Left = 8 Left = 8
Height = 23 Height = 23
Top = 344 Top = 344
Width = 185 Width = 181
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
ParentColor = False ParentColor = False
@ -370,15 +376,15 @@ object FormMessagesComposer: TFormMessagesComposer
Left = 8 Left = 8
Height = 23 Height = 23
Top = 128 Top = 128
Width = 207 Width = 203
TabOrder = 11 TabOrder = 11
Text = 'PromptEdit' Text = 'PromptEdit'
end end
object MaskInputCheckBox: TCheckBox object MaskInputCheckBox: TCheckBox
Left = 8 Left = 8
Height = 13 Height = 19
Top = 156 Top = 156
Width = 70 Width = 76
Caption = 'MaskInput' Caption = 'MaskInput'
TabOrder = 12 TabOrder = 12
end end
@ -394,24 +400,25 @@ object FormMessagesComposer: TFormMessagesComposer
Left = 106 Left = 106
Height = 23 Height = 23
Top = 197 Top = 197
Width = 109 Width = 105
TabOrder = 14 TabOrder = 14
Text = 'DefaultEdit' Text = 'DefaultEdit'
end end
object Button1: TButton object Button1: TButton
Left = 297 Left = 279
Height = 25 Height = 25
Top = 552 Top = 552
Width = 221 Width = 284
Action = Test Action = Test
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
TabOrder = 15 TabOrder = 15
end end
object Button2: TBitBtn object Button2: TBitBtn
Left = 527 Left = 616
Height = 25 Height = 26
Top = 552 Top = 552
Width = 97 Width = 60
AutoSize = True
Caption = '&OK' Caption = '&OK'
Default = True Default = True
Kind = bkOK Kind = bkOK
@ -420,10 +427,14 @@ object FormMessagesComposer: TFormMessagesComposer
TabOrder = 16 TabOrder = 16
end end
object Button3: TBitBtn object Button3: TBitBtn
Left = 628 AnchorSideLeft.Control = Button2
Height = 25 AnchorSideLeft.Side = asrBottom
Top = 552 Left = 680
Width = 93 Height = 26
Top = 551
Width = 78
AutoSize = True
BorderSpacing.Left = 4
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
Kind = bkCancel Kind = bkCancel
@ -434,78 +445,87 @@ object FormMessagesComposer: TFormMessagesComposer
object SourceWrapperGroupBox: TGroupBox object SourceWrapperGroupBox: TGroupBox
Left = 8 Left = 8
Height = 208 Height = 208
Top = 369 Top = 368
Width = 280 Width = 264
Caption = 'SourceWrapperGroupBox' Caption = 'SourceWrapperGroupBox'
ClientHeight = 190
ClientWidth = 260
TabOrder = 18 TabOrder = 18
object Label1: TLabel object Label1: TLabel
Left = 7 Left = 7
Height = 14 Height = 14
Top = 9 Top = 6
Width = 62 Width = 55
Caption = '"if" RESULT' Caption = '"if" RESULT'
Color = clNone
ParentColor = False ParentColor = False
end end
object StringResultLabel: TLabel object StringResultLabel: TLabel
AnchorSideTop.Control = IfResultComboBox
AnchorSideTop.Side = asrBottom
Left = 7 Left = 7
Height = 14 Height = 14
Top = 59 Top = 51
Width = 74 Width = 69
BorderSpacing.Top = 8
Caption = 'String RESULT' Caption = 'String RESULT'
Color = clNone
ParentColor = False ParentColor = False
end end
object IfThenRadioButton: TRadioButton object IfThenRadioButton: TRadioButton
Left = 7 Left = 7
Height = 13 Height = 19
Top = 111 Top = 111
Width = 64 Width = 70
Caption = 'if...then...' Caption = 'if...then...'
Checked = True
OnClick = SetIfOrCaseExecute OnClick = SetIfOrCaseExecute
State = cbChecked
TabOrder = 0 TabOrder = 0
end end
object IfThenElseRadioButton: TRadioButton object IfThenElseRadioButton: TRadioButton
Left = 7 Left = 7
Height = 13 Height = 19
Top = 129 Top = 129
Width = 95 Width = 101
Caption = 'if...then...else ...' Caption = 'if...then...else ...'
OnClick = SetIfOrCaseExecute OnClick = SetIfOrCaseExecute
TabOrder = 1 TabOrder = 1
end end
object CaseOfEndRadioButton: TRadioButton object CaseOfEndRadioButton: TRadioButton
Left = 142 Left = 7
Height = 13 Height = 19
Top = 151 Top = 152
Width = 103 Width = 109
Caption = 'case ... of ... end;' Caption = 'case ... of ... end;'
OnClick = SetIfOrCaseExecute OnClick = SetIfOrCaseExecute
TabOrder = 2 TabOrder = 2
end end
object CaseOfEndElseRadioButton: TRadioButton object CaseOfEndElseRadioButton: TRadioButton
Left = 142 Left = 7
Height = 13 Height = 19
Top = 169 Top = 170
Width = 113 Width = 119
Caption = 'case ... of ... else ...' Caption = 'case ... of ... else ...'
OnClick = SetIfOrCaseExecute OnClick = SetIfOrCaseExecute
TabOrder = 3 TabOrder = 3
end end
object BeginEndCheckBox: TCheckBox object BeginEndCheckBox: TCheckBox
Left = 7 Left = 150
Height = 13 Height = 19
Top = 159 Top = 121
Width = 79 Width = 85
Caption = 'begin ... end' Caption = 'begin ... end'
TabOrder = 4 TabOrder = 4
end end
object IfResultComboBox: TComboBox object IfResultComboBox: TComboBox
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 7 Left = 7
Height = 21 Height = 21
Top = 25 Top = 22
Width = 119 Width = 119
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Top = 2
ItemHeight = 13
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'mbOK' 'mbOK'
@ -517,11 +537,14 @@ object FormMessagesComposer: TFormMessagesComposer
Text = 'mbOK' Text = 'mbOK'
end end
object CaseResultCheckGroup: TCheckGroup object CaseResultCheckGroup: TCheckGroup
Left = 142 AnchorSideLeft.Control = IfResultComboBox
Height = 146 AnchorSideLeft.Side = asrBottom
Left = 134
Height = 118
Top = -1 Top = -1
Width = 129 Width = 121
AutoFill = True AutoFill = True
BorderSpacing.Left = 8
Caption = '"case" RESULT' Caption = '"case" RESULT'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
@ -541,17 +564,20 @@ object FormMessagesComposer: TFormMessagesComposer
} }
end end
object StringResultEdit: TEdit object StringResultEdit: TEdit
AnchorSideTop.Control = StringResultLabel
AnchorSideTop.Side = asrBottom
Left = 7 Left = 7
Height = 23 Height = 23
Top = 74 Top = 69
Width = 119 Width = 119
BorderSpacing.Top = 4
TabOrder = 7 TabOrder = 7
Text = 'StringResultEdit' Text = 'StringResultEdit'
end end
end end
object ActionList1: TActionList object ActionList1: TActionList
left = 472 left = 408
top = 480 top = 448
object AddConst: TAction object AddConst: TAction
Caption = 'AddConst' Caption = 'AddConst'
DisableIfNoHandler = True DisableIfNoHandler = True

334
components/messagecomposer/messagecomposer.lrs
View File

@ -1,165 +1,177 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TFormMessagesComposer','FORMDATA',[ LazarusResources.Add('TFormMessagesComposer','FORMDATA',[
'TPF0'#21'TFormMessagesComposer'#20'FormMessagesComposer'#4'Left'#3#206#0#6'H' 'TPF0'#21'TFormMessagesComposer'#20'FormMessagesComposer'#4'Left'#2'h'#6'Heig'
+'eight'#3'J'#2#3'Top'#2'/'#5'Width'#3#216#2#18'HorzScrollBar.Page'#3#215#2#18 +'ht'#3'J'#2#3'Top'#2'v'#5'Width'#3' '#3#18'HorzScrollBar.Page'#3#31#3#18'Ver'
+'VertScrollBar.Page'#3'I'#2#13'ActiveControl'#7#11'CaptionEdit'#11'BorderIco' +'tScrollBar.Page'#3'I'#2#13'ActiveControl'#7#11'CaptionEdit'#11'BorderIcons'
+'ns'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Mes' +#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Message'
+'sages Composer'#8'OnCreate'#7#19'MessagesInitExecute'#8'Position'#7#14'poSc' +'s Composer'#12'ClientHeight'#3'J'#2#11'ClientWidth'#3' '#3#8'OnCreate'#7#19
+'reenCenter'#0#6'TLabel'#12'CaptionLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#2 +'MessagesInitExecute'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.'
+#8#5'Width'#2'%'#7'Caption'#6#7'Caption'#5'Color'#7#6'clNone'#11'ParentColor' +'9.25'#0#6'TLabel'#12'CaptionLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#8#5
+#8#0#0#6'TLabel'#8'MsgLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'8'#5'Width' +'Width'#2'&'#7'Caption'#6#7'Caption'#11'ParentColor'#8#0#0#6'TLabel'#8'MsgLa'
+#2'/'#7'Caption'#6#8'MsgLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6 +'bel'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'8'#5'Width'#2'-'#7'Caption'#6#8'Ms'
+'TLabel'#12'DlgTypeLabel'#4'Left'#2'l'#6'Height'#2#14#3'Top'#2#8#5'Width'#2 +'gLabel'#11'ParentColor'#8#0#0#6'TLabel'#12'DlgTypeLabel'#4'Left'#2'l'#6'Hei'
+')'#7'Caption'#6#7'DlgType'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLa' +'ght'#2#14#3'Top'#2#8#5'Width'#2'('#7'Caption'#6#7'DlgType'#11'ParentColor'#8
+'bel'#16'HelpContextLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#22#1#5'Width' +#0#0#6'TLabel'#16'HelpContextLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#22#1
+#2'>'#7'Caption'#6#12'Help Context'#5'Color'#7#6'clNone'#11'ParentColor'#8#0 +#5'Width'#2'@'#7'Caption'#6#12'Help Context'#11'ParentColor'#8#0#0#6'TLabel'
+#0#6'TLabel'#16'HelpKeyWordLabel'#4'Left'#2'g'#6'Height'#2#14#3'Top'#3#22#1#5 +#16'HelpKeyWordLabel'#4'Left'#2'g'#6'Height'#2#14#3'Top'#3#22#1#5'Width'#2'E'
+'Width'#2'F'#7'Caption'#6#12'Help KeyWord'#5'Color'#7#6'clNone'#11'ParentCol' +#7'Caption'#6#12'Help KeyWord'#11'ParentColor'#8#0#0#6'TLabel'#6'XLabel'#4'L'
+'or'#8#0#0#6'TLabel'#6'XLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#242#0#5'W' +'eft'#2#8#6'Height'#2#14#3'Top'#3#242#0#5'Width'#2#7#7'Caption'#6#1'X'#11'Pa'
+'idth'#2#8#7'Caption'#6#1'X'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TL' +'rentColor'#8#0#0#6'TLabel'#6'YLabel'#22'AnchorSideLeft.Control'#7#9'XSpinEd'
+'abel'#6'YLabel'#4'Left'#2'p'#6'Height'#2#14#3'Top'#3#242#0#5'Width'#2#8#7'C' +'it'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'B'#6'Height'#2#14#3'To'
+'aption'#6#1'Y'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#17'Help' +'p'#3#242#0#5'Width'#2#7#18'BorderSpacing.Left'#2#8#7'Caption'#6#1'Y'#11'Par'
+'FileNameLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#3'H'#1#5'Width'#2'F'#7'Cap' +'entColor'#8#0#0#6'TLabel'#17'HelpFileNameLabel'#4'Left'#2#8#6'Height'#2#14#3
+'tion'#6#13'Help FileName'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLab' +'Top'#3'H'#1#5'Width'#2'D'#7'Caption'#6#13'Help FileName'#11'ParentColor'#8#0
+'el'#11'PromptLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'p'#5'Width'#2'<'#7 +#0#6'TLabel'#11'PromptLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'p'#5'Width'
+'Caption'#6#11'PromptLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLa' +#2'<'#7'Caption'#6#11'PromptLabel'#11'ParentColor'#8#0#0#6'TLabel'#10'ValueL'
+'bel'#10'ValueLabel'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#181#0#5'Width'#2'4' +'abel'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#181#0#5'Width'#2'6'#7'Caption'#6
+#7'Caption'#6#11'Value (var)'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'T' +#11'Value (var)'#11'ParentColor'#8#0#0#6'TLabel'#12'DefaultValue'#4'Left'#2
+'Label'#12'DefaultValue'#4'Left'#2'l'#6'Height'#2#14#3'Top'#3#181#0#5'Width' +'l'#6'Height'#2#14#3'Top'#3#181#0#5'Width'#2'$'#7'Caption'#6#7'Default'#11'P'
+#2'#'#7'Caption'#6#7'Default'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'T' +'arentColor'#8#0#0#6'TBevel'#6'Bevel1'#4'Left'#2#10#6'Height'#2#9#3'Top'#2'g'
+'Bevel'#6'Bevel1'#4'Left'#2#10#6'Height'#2#9#3'Top'#2'g'#5'Width'#3#205#0#5 +#5'Width'#3#201#0#5'Shape'#7#9'bsTopLine'#0#0#6'TBevel'#6'Bevel2'#4'Left'#2#8
+'Shape'#7#9'bsTopLine'#0#0#6'TBevel'#6'Bevel2'#4'Left'#2#8#6'Height'#2#9#3'T' +#6'Height'#2#9#3'Top'#3#225#0#5'Width'#3#207#0#5'Shape'#7#9'bsTopLine'#0#0#6
+'op'#3#225#0#5'Width'#3#207#0#5'Shape'#7#9'bsTopLine'#0#0#6'TBevel'#6'Bevel3' +'TBevel'#6'Bevel3'#4'Left'#2#8#6'Height'#2#9#3'Top'#3#13#1#5'Width'#3#203#0#5
+#4'Left'#2#8#6'Height'#2#9#3'Top'#3#13#1#5'Width'#3#207#0#5'Shape'#7#9'bsTop' +'Shape'#7#9'bsTopLine'#0#0#11'TRadioGroup'#21'KindMessageRadioGroup'#4'Left'
+'Line'#0#0#5'TEdit'#11'CaptionEdit'#4'Left'#2#8#6'Height'#2#23#3'Top'#2#24#5 +#3#215#0#6'Height'#3'g'#1#3'Top'#2#7#5'Width'#3'@'#2#8'AutoFill'#9#7'Caption'
+'Width'#2']'#8'TabOrder'#2#0#4'Text'#6#11'CaptionEdit'#0#0#5'TEdit'#7'MsgEdi' +#6#21'KindMessageRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSi'
+'t'#4'Left'#2#8#6'Height'#2#23#3'Top'#2'H'#5'Width'#3#207#0#13'OnEditingDone' +'zing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomoge'
+#7#19'GetParamsFmtExecute'#8'TabOrder'#2#1#4'Text'#6#7'MsgEdit'#0#0#11'TRadi' +'nousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildRes'
+'oGroup'#21'KindMessageRadioGroup'#4'Left'#3#224#0#6'Height'#3'h'#1#3'Top'#2 +'ize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.S'
+#7#5'Width'#3#241#1#8'AutoFill'#9#7'Caption'#6#21'KindMessageRadioGroup'#28 +'hrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRi'
+'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'C' +'ghtThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#3
+'hildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing' +'U'#1#11'ClientWidth'#3'<'#2#9'ItemIndex'#2#0#13'Items.Strings'#1#6':Message'
+'.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHoriz' +'Dlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'#6'CMessageDlg[Caption,'
+'ontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChi' +' Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'#6'GMessageDlg[Caption, Ms'
+'lds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSiz' +'g, DlgType, Buttons(TMsgDlgButtons), HelpKeyword]'#6'CMessageDlgPos[Msg, Dl'
+'ing.ControlsPerLine'#2#1#9'ItemIndex'#2#0#13'Items.Strings'#1#6':MessageDlg' +'gType, Buttons(TMsgDlgButtons), HelpCtx, X, Y]'#6'UMessageDlgPosHelp[Msg, D'
+'[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'#6'CMessageDlg[Caption, Ms' +'lgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y, HelpFileName]'#6'DQuestionD'
+'g, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'#6'GMessageDlg[Caption, Msg, ' +'lg[Caption, Msg, DlgType, Buttons(array of const), HelpCtx]'#6'HQuestionDlg'
+'DlgType, Buttons(TMsgDlgButtons), HelpKeyword]'#6'CMessageDlgPos[Msg, DlgTy' +'[Caption, Msg, DlgType, Buttons(array of const), HelpKeyword]'#6#25'ShowMes'
+'pe, Buttons(TMsgDlgButtons), HelpCtx, X, Y]'#6'UMessageDlgPosHelp[Msg, DlgT' +'sage[Msg: string];'#6',ShowMessageFmt[Msg, Params(array of const)];'#6#26'S'
+'ype, Buttons(TMsgDlgButtons), HelpCtx, X, Y, HelpFileName]'#6'DQuestionDlg[' +'howMessagePos[Msg, X, Y];'#6'>InputQuery[Caption, Prompt, MaskInput(Boolean'
+'Caption, Msg, DlgType, Buttons(array of const), HelpCtx]'#6'HQuestionDlg[Ca' +'), Value(String)]'#6'*InputQuery[Caption, Prompt, Value(String)]'#6'"InputB'
+'ption, Msg, DlgType, Buttons(array of const), HelpKeyword]'#6#25'ShowMessag' +'ox[Caption, Prompt, Default]'#6#28'PasswordBox[Caption, Prompt]'#0#7'OnClic'
+'e[Msg: string];'#6',ShowMessageFmt[Msg, Params(array of const)];'#6#26'Show' +'k'#7#19'MessageSetupExecute'#8'TabOrder'#2#2#0#0#5'TEdit'#11'CaptionEdit'#4
+'MessagePos[Msg, X, Y];'#6'>InputQuery[Caption, Prompt, MaskInput(Boolean), ' +'Left'#2#8#6'Height'#2#23#3'Top'#2#24#5'Width'#2']'#8'TabOrder'#2#0#4'Text'#6
+'Value(String)]'#6'*InputQuery[Caption, Prompt, Value(String)]'#6'"InputBox[' +#11'CaptionEdit'#0#0#5'TEdit'#7'MsgEdit'#4'Left'#2#8#6'Height'#2#23#3'Top'#2
+'Caption, Prompt, Default]'#6#28'PasswordBox[Caption, Prompt]'#0#7'OnClick'#7 +'H'#5'Width'#3#203#0#13'OnEditingDone'#7#19'GetParamsFmtExecute'#8'TabOrder'
+#19'MessageSetupExecute'#8'TabOrder'#2#2#0#0#9'TComboBox'#15'DlgTypeComboBox' +#2#1#4'Text'#6#7'MsgEdit'#0#0#9'TComboBox'#15'DlgTypeComboBox'#4'Left'#2'l'#6
+#4'Left'#2'l'#6'Height'#2#21#3'Top'#2#26#5'Width'#2'k'#16'AutoCompleteText' +'Height'#2#21#3'Top'#2#26#5'Width'#2'g'#16'AutoCompleteText'#11#22'cbactEndO'
+#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9'ItemIndex'#2#0#13 +'fLineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#13#9'ItemIndex'#2
+'Items.Strings'#1#6#9'mtWarning'#6#7'mtError'#6#13'mtInformation'#6#14'mtCon' +#0#13'Items.Strings'#1#6#9'mtWarning'#6#7'mtError'#6#13'mtInformation'#6#14
+'firmation'#6#8'mtCustom'#0#9'MaxLength'#2#0#5'Style'#7#14'csDropDownList'#8 +'mtConfirmation'#6#8'mtCustom'#0#9'MaxLength'#2#0#5'Style'#7#14'csDropDownLi'
+'TabOrder'#2#3#4'Text'#6#9'mtWarning'#0#0#11'TCheckGroup'#17'ButtonsCheckGro' +'st'#8'TabOrder'#2#3#4'Text'#6#9'mtWarning'#0#0#11'TCheckGroup'#17'ButtonsCh'
+'up'#4'Left'#3#15#2#6'Height'#3#177#0#3'Top'#3'q'#1#5'Width'#3#194#0#8'AutoF' +'eckGroup'#4'Left'#3'?'#2#6'Height'#3#177#0#3'Top'#3'q'#1#5'Width'#3#216#0#8
+'ill'#9#7'Caption'#6#24'BUTTONS (TMsgDlgButtons)'#28'ChildSizing.LeftRightSp' +'AutoFill'#9#7'Caption'#6#24'BUTTONS (TMsgDlgButtons)'#28'ChildSizing.LeftRi'
+'acing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHoriz' +'ghtSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.Enlarge'
+'ontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24 +'Horizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7
,'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChi' ,#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScale'
+'lds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Lay' +'Childs'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.'
+'out'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2 +'Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'
+#7'Columns'#2#2#13'Items.Strings'#1#6#5'mbYes'#6#4'mbNo'#6#4'mbOK'#6#8'mbCan' +#2#2#7'Columns'#2#2#13'Items.Strings'#1#6#5'mbYes'#6#4'mbNo'#6#4'mbOK'#6#8'm'
+'cel'#6#7'mbAbort'#6#7'mbRetry'#6#8'mbIgnore'#6#5'mbAll'#6#9'mbNoToAll'#6#10 +'bCancel'#6#7'mbAbort'#6#7'mbRetry'#6#8'mbIgnore'#6#5'mbAll'#6#9'mbNoToAll'#6
+'mbYesToAll'#6#6'mbHelp'#6#7'mbClose'#0#11'OnItemClick'#7#26'ButtonsCheckGro' +#10'mbYesToAll'#6#6'mbHelp'#6#7'mbClose'#0#11'OnItemClick'#7#26'ButtonsCheck'
+'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 +'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#0#0#9'TSpinEdit'#19'HelpContextSpinEdit'#4'Left'#2#8#6'Height'#2#23#3 +#2#2#2#2#0#0#9'TSpinEdit'#19'HelpContextSpinEdit'#4'Left'#2#8#6'Height'#2#23
+'Top'#3')'#1#5'Width'#2#17#8'MaxValue'#3#15''''#8'TabOrder'#2#5#0#0#5'TEdit' +#3'Top'#3')'#1#5'Width'#2'='#8'MaxValue'#3#15''''#8'TabOrder'#2#5#0#0#5'TEdi'
+#15'HelpKeyWordEdit'#4'Left'#2'g'#6'Height'#2#23#3'Top'#3')'#1#5'Width'#2'p' +'t'#15'HelpKeyWordEdit'#4'Left'#2'g'#6'Height'#2#23#3'Top'#3')'#1#5'Width'#2
+#8'TabOrder'#2#6#4'Text'#6#15'HelpKeyWordEdit'#0#0#6'TPanel'#12'ButtonsPanel' +'l'#8'TabOrder'#2#6#4'Text'#6#15'HelpKeyWordEdit'#0#0#6'TPanel'#12'ButtonsPa'
+#4'Left'#3')'#1#6'Height'#3#170#0#3'Top'#3'x'#1#5'Width'#3#221#0#8'TabOrder' +'nel'#4'Left'#3#22#1#6'Height'#3#170#0#3'Top'#3'x'#1#5'Width'#3#29#1#12'Clie'
+#2#7#0#11'TStringGrid'#17'ButtonsStringGrid'#4'Left'#2#1#6'Height'#3#138#0#3 +'ntHeight'#3#170#0#11'ClientWidth'#3#29#1#8'TabOrder'#2#7#0#11'TStringGrid'
+'Top'#2#1#5'Width'#3#219#0#5'Align'#7#5'alTop'#8'ColCount'#2#2#10'FixedColor' +#17'ButtonsStringGrid'#4'Left'#2#1#6'Height'#3#138#0#3'Top'#2#1#5'Width'#3#27
+#7#9'clBtnFace'#9'FixedCols'#2#0#13'GridLineWidth'#2#0#7'Options'#11#15'goFi' +#1#5'Align'#7#5'alTop'#8'ColCount'#2#2#10'FixedColor'#7#9'clBtnFace'#9'Fixed'
+'xedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#13'goRangeSe' +'Cols'#2#0#7'Options'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goVertLi'
+'lect'#9'goEditing'#14'goSmoothScroll'#0#8'RowCount'#2#4#10'ScrollBars'#7#10 +'ne'#10'goHorzLine'#13'goRangeSelect'#9'goEditing'#14'goSmoothScroll'#0#8'Ro'
+'ssAutoBoth'#8'TabOrder'#2#0#7'TabStop'#9#16'OnPickListSelect'#7#29'UpdateQu' +'wCount'#2#4#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#16'OnPickListSe'
+'estioDlgResultExecute'#14'OnSelectEditor'#7#29'ButtonsStringGridSelectEdito' +'lect'#7#29'UpdateQuestioDlgResultExecute'#14'OnSelectEditor'#7#29'ButtonsSt'
+'r'#9'ColWidths'#1#3#138#0#2'M'#0#5'Cells'#1#2#8#2#0#2#0#6#24'BUTTONS (array' +'ringGridSelectEditor'#9'ColWidths'#1#3#171#0#2'h'#0#5'Cells'#1#2#8#2#0#2#0#6
+' 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 +#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'
+#12'Modal Result'#2#1#2#1#6#5'mrYes'#2#1#2#2#6#4'mrNo'#2#1#2#3#6#8'mrCancel' +'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
+#0#0#0#6'TPanel'#6'Panel2'#4'Left'#2#1#6'Height'#2#30#3'Top'#3#139#0#5'Width' +#3#6#8'mrCancel'#0#0#0#6'TPanel'#6'Panel2'#4'Left'#2#1#6'Height'#2#30#3'Top'
+#3#219#0#5'Align'#7#8'alClient'#10'BevelInner'#7#9'bvLowered'#10'BevelOuter' +#3#139#0#5'Width'#3#27#1#5'Align'#7#8'alClient'#10'BevelInner'#7#9'bvLowered'
+#7#7'bvSpace'#8'TabOrder'#2#1#0#7'TBitBtn'#7'BitBtn1'#4'Left'#2#2#6'Height'#2 +#10'BevelOuter'#7#7'bvSpace'#12'ClientHeight'#2#30#11'ClientWidth'#3#27#1#8
+#26#3'Top'#2#2#5'Width'#2'e'#6'Action'#7#8'AddConst'#5'Align'#7#6'alLeft'#9 +'TabOrder'#2#1#0#7'TBitBtn'#7'BitBtn1'#4'Left'#2#2#6'Height'#2#26#3'Top'#2#2
+'NumGlyphs'#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#7'BitBtn2'#4'Left'#2'o'#6'Hei' +#5'Width'#3#128#0#6'Action'#7#8'AddConst'#5'Align'#7#6'alLeft'#9'NumGlyphs'#2
+'ght'#2#26#3'Top'#2#2#5'Width'#2'j'#6'Action'#7#8'DelConst'#5'Align'#7#7'alR' +#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#7'BitBtn2'#4'Left'#3#153#0#6'Height'#2#26#3
+'ight'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#0#0#9'TSpinEdit'#9'XSpinEdit'#4 +'Top'#2#2#5'Width'#3#128#0#6'Action'#7#8'DelConst'#5'Align'#7#7'alRight'#9'N'
+'Left'#2'.'#6'Height'#2#23#3'Top'#3#237#0#5'Width'#2#17#8'AutoSize'#9#8'TabO' +'umGlyphs'#2#0#8'TabOrder'#2#1#0#0#0#0#9'TSpinEdit'#9'XSpinEdit'#22'AnchorSi'
+'rder'#2#8#0#0#9'TSpinEdit'#9'YSpinEdit'#4'Left'#3#144#0#6'Height'#2#23#3'To' +'deLeft.Control'#7#6'XLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2
+'p'#3#237#0#5'Width'#2#17#8'AutoSize'#9#8'TabOrder'#2#9#0#0#13'TFileNameEdit' +#19#6'Height'#2#22#3'Top'#3#237#0#5'Width'#2''''#8'AutoSize'#9#18'BorderSpac'
+#16'HelpFileNameEdit'#4'Left'#2#8#6'Height'#2#23#3'Top'#3'X'#1#5'Width'#3#185 +'ing.Left'#2#4#8'TabOrder'#2#8#0#0#9'TSpinEdit'#9'YSpinEdit'#22'AnchorSideLe'
+#0#11'ButtonWidth'#2#23#9'NumGlyphs'#2#1#11'ParentColor'#8#8'TabOrder'#2#10#0 +'ft.Control'#7#6'YLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'M'
+#0#5'TEdit'#10'PromptEdit'#4'Left'#2#8#6'Height'#2#23#3'Top'#3#128#0#5'Width' +#6'Height'#2#22#3'Top'#3#237#0#5'Width'#2'!'#8'AutoSize'#9#18'BorderSpacing.'
+#3#207#0#8'TabOrder'#2#11#4'Text'#6#10'PromptEdit'#0#0#9'TCheckBox'#17'MaskI' +'Left'#2#4#8'TabOrder'#2#9#0#0#13'TFileNameEdit'#16'HelpFileNameEdit'#4'Left'
+'nputCheckBox'#4'Left'#2#8#6'Height'#2#13#3'Top'#3#156#0#5'Width'#2'F'#7'Cap' +#2#8#6'Height'#2#23#3'Top'#3'X'#1#5'Width'#3#181#0#11'ButtonWidth'#2#23#9'Nu'
+'tion'#6#9'MaskInput'#8'TabOrder'#2#12#0#0#5'TEdit'#9'ValueEdit'#4'Left'#2#8 +'mGlyphs'#2#1#11'ParentColor'#8#8'TabOrder'#2#10#0#0#5'TEdit'#10'PromptEdit'
+#6'Height'#2#23#3'Top'#3#197#0#5'Width'#2'P'#8'TabOrder'#2#13#4'Text'#6#9'Va' +#4'Left'#2#8#6'Height'#2#23#3'Top'#3#128#0#5'Width'#3#203#0#8'TabOrder'#2#11
+'lueEdit'#0#0#5'TEdit'#11'DefaultEdit'#4'Left'#2'j'#6'Height'#2#23#3'Top'#3 +#4'Text'#6#10'PromptEdit'#0#0#9'TCheckBox'#17'MaskInputCheckBox'#4'Left'#2#8
+#197#0#5'Width'#2'm'#8'TabOrder'#2#14#4'Text'#6#11'DefaultEdit'#0#0#7'TButto' +#6'Height'#2#19#3'Top'#3#156#0#5'Width'#2'L'#7'Caption'#6#9'MaskInput'#8'Tab'
+'n'#7'Button1'#4'Left'#3')'#1#6'Height'#2#25#3'Top'#3'('#2#5'Width'#3#221#0#6 +'Order'#2#12#0#0#5'TEdit'#9'ValueEdit'#4'Left'#2#8#6'Height'#2#23#3'Top'#3
+'Action'#7#4'Test'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#15#0#0#7 +#197#0#5'Width'#2'P'#8'TabOrder'#2#13#4'Text'#6#9'ValueEdit'#0#0#5'TEdit'#11
+'TBitBtn'#7'Button2'#4'Left'#3#15#2#6'Height'#2#25#3'Top'#3'('#2#5'Width'#2 +'DefaultEdit'#4'Left'#2'j'#6'Height'#2#23#3'Top'#3#197#0#5'Width'#2'i'#8'Tab'
+'a'#7'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9 +'Order'#2#14#4'Text'#6#11'DefaultEdit'#0#0#7'TButton'#7'Button1'#4'Left'#3#23
+'NumGlyphs'#2#0#8'TabOrder'#2#16#0#0#7'TBitBtn'#7'Button3'#4'Left'#3't'#2#6 +#1#6'Height'#2#25#3'Top'#3'('#2#5'Width'#3#28#1#6'Action'#7#4'Test'#25'Borde'
+'Height'#2#25#3'Top'#3'('#2#5'Width'#2']'#6'Cancel'#9#7'Caption'#6#6'Cancel' +'rSpacing.InnerBorder'#2#4#8'TabOrder'#2#15#0#0#7'TBitBtn'#7'Button2'#4'Left'
+#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#17 +#3'h'#2#6'Height'#2#26#3'Top'#3'('#2#5'Width'#2'<'#8'AutoSize'#9#7'Caption'#6
+#0#0#9'TGroupBox'#21'SourceWrapperGroupBox'#4'Left'#2#8#6'Height'#3#208#0#3 +#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8
+'Top'#3'q'#1#5'Width'#3#24#1#7'Caption'#6#21'SourceWrapperGroupBox'#8'TabOrd' +'TabOrder'#2#16#0#0#7'TBitBtn'#7'Button3'#22'AnchorSideLeft.Control'#7#7'But'
+'er'#2#18#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Height'#2#14#3'Top'#2#9#5'Widt' +'ton2'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#168#2#6'Height'#2#26
+'h'#2'>'#7'Caption'#6#11'"if" RESULT'#5'Color'#7#6'clNone'#11'ParentColor'#8 +#3'Top'#3''''#2#5'Width'#2'N'#8'AutoSize'#9#18'BorderSpacing.Left'#2#4#6'Can'
+#0#0#6'TLabel'#17'StringResultLabel'#4'Left'#2#7#6'Height'#2#14#3'Top'#2';'#5 +'cel'#9#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'N'
+'Width'#2'J'#7'Caption'#6#13'String RESULT'#5'Color'#7#6'clNone'#11'ParentCo' +'umGlyphs'#2#0#8'TabOrder'#2#17#0#0#9'TGroupBox'#21'SourceWrapperGroupBox'#4
+'lor'#8#0#0#12'TRadioButton'#17'IfThenRadioButton'#4'Left'#2#7#6'Height'#2#13 +'Left'#2#8#6'Height'#3#208#0#3'Top'#3'p'#1#5'Width'#3#8#1#7'Caption'#6#21'So'
+#3'Top'#2'o'#5'Width'#2'@'#7'Caption'#6#12'if...then...'#7'OnClick'#7#18'Set' +'urceWrapperGroupBox'#12'ClientHeight'#3#190#0#11'ClientWidth'#3#4#1#8'TabOr'
+'IfOrCaseExecute'#8'TabOrder'#2#0#0#0#12'TRadioButton'#21'IfThenElseRadioBut' +'der'#2#18#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Height'#2#14#3'Top'#2#6#5'Wid'
+'ton'#4'Left'#2#7#6'Height'#2#13#3'Top'#3#129#0#5'Width'#2'_'#7'Caption'#6#20 +'th'#2'7'#7'Caption'#6#11'"if" RESULT'#11'ParentColor'#8#0#0#6'TLabel'#17'St'
+'if...then...else ...'#7'OnClick'#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#1#0 +'ringResultLabel'#21'AnchorSideTop.Control'#7#16'IfResultComboBox'#18'Anchor'
+#0#12'TRadioButton'#20'CaseOfEndRadioButton'#4'Left'#3#142#0#6'Height'#2#13#3 +'SideTop.Side'#7#9'asrBottom'#4'Left'#2#7#6'Height'#2#14#3'Top'#2'3'#5'Width'
+'Top'#3#151#0#5'Width'#2'g'#7'Caption'#6#20'case ... of ... end;'#7'OnClick' +#2'E'#17'BorderSpacing.Top'#2#8#7'Caption'#6#13'String RESULT'#11'ParentColo'
+#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#2#0#0#12'TRadioButton'#24'CaseOfEndE' +'r'#8#0#0#12'TRadioButton'#17'IfThenRadioButton'#4'Left'#2#7#6'Height'#2#19#3
+'lseRadioButton'#4'Left'#3#142#0#6'Height'#2#13#3'Top'#3#169#0#5'Width'#2'q' +'Top'#2'o'#5'Width'#2'F'#7'Caption'#6#12'if...then...'#7'Checked'#9#7'OnClic'
+#7'Caption'#6#24'case ... of ... else ...'#7'OnClick'#7#18'SetIfOrCaseExecut' +'k'#7#18'SetIfOrCaseExecute'#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#12
,'e'#8'TabOrder'#2#3#0#0#9'TCheckBox'#16'BeginEndCheckBox'#4'Left'#2#7#6'Heig' ,'TRadioButton'#21'IfThenElseRadioButton'#4'Left'#2#7#6'Height'#2#19#3'Top'#3
+'ht'#2#13#3'Top'#3#159#0#5'Width'#2'O'#7'Caption'#6#13'begin ... end'#8'TabO' +#129#0#5'Width'#2'e'#7'Caption'#6#20'if...then...else ...'#7'OnClick'#7#18'S'
+'rder'#2#4#0#0#9'TComboBox'#16'IfResultComboBox'#4'Left'#2#7#6'Height'#2#21#3 +'etIfOrCaseExecute'#8'TabOrder'#2#1#0#0#12'TRadioButton'#20'CaseOfEndRadioBu'
+'Top'#2#25#5'Width'#2'w'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete' +'tton'#4'Left'#2#7#6'Height'#2#19#3'Top'#3#152#0#5'Width'#2'm'#7'Caption'#6
+#20'cbactSearchAscending'#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#4'mbOK'#6 +#20'case ... of ... end;'#7'OnClick'#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#2
+#8'mbCancel'#0#9'MaxLength'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#5 +#0#0#12'TRadioButton'#24'CaseOfEndElseRadioButton'#4'Left'#2#7#6'Height'#2#19
+#4'Text'#6#4'mbOK'#0#0#11'TCheckGroup'#20'CaseResultCheckGroup'#4'Left'#3#142 +#3'Top'#3#170#0#5'Width'#2'w'#7'Caption'#6#24'case ... of ... else ...'#7'On'
+#0#6'Height'#3#146#0#3'Top'#2#255#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6 +'Click'#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#3#0#0#9'TCheckBox'#16'BeginEn'
+#13'"case" RESULT'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBo' +'dCheckBox'#4'Left'#3#150#0#6'Height'#2#19#3'Top'#2'y'#5'Width'#2'U'#7'Capti'
+'ttomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildR' +'on'#6#13'begin ... end'#8'TabOrder'#2#4#0#0#9'TComboBox'#16'IfResultComboBo'
+'esize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'Ch' +'x'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBott'
+'ildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVerti' +'om'#4'Left'#2#7#6'Height'#2#21#3'Top'#2#22#5'Width'#2'w'#16'AutoCompleteTex'
+'cal'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTop' +'t'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#17'BorderSpacin'
+'ToBottom'#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Strings'#1#6#4'mbOK' +'g.Top'#2#2#10'ItemHeight'#2#13#9'ItemIndex'#2#0#13'Items.Strings'#1#6#4'mbO'
+#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' +'K'#6#8'mbCancel'#0#9'MaxLength'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrde'
+#16'StringResultEdit'#4'Left'#2#7#6'Height'#2#23#3'Top'#2'J'#5'Width'#2'w'#8 +'r'#2#5#4'Text'#6#4'mbOK'#0#0#11'TCheckGroup'#20'CaseResultCheckGroup'#22'An'
+'TabOrder'#2#7#4'Text'#6#16'StringResultEdit'#0#0#0#11'TActionList'#11'Actio' +'chorSideLeft.Control'#7#16'IfResultComboBox'#19'AnchorSideLeft.Side'#7#9'as'
+'nList1'#4'left'#3#216#1#3'top'#3#224#1#0#7'TAction'#8'AddConst'#7'Caption'#6 +'rBottom'#4'Left'#3#134#0#6'Height'#2'v'#3'Top'#2#255#5'Width'#2'y'#8'AutoFi'
+#8'AddConst'#18'DisableIfNoHandler'#9#9'OnExecute'#7#15'AddConstExecute'#0#0 +'ll'#9#18'BorderSpacing.Left'#2#8#7'Caption'#6#13'"case" RESULT'#28'ChildSiz'
+#7'TAction'#8'DelConst'#7'Caption'#6#8'DelConst'#18'DisableIfNoHandler'#9#9 +'ing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizi'
+'OnExecute'#7#15'DelConstExecute'#0#0#7'TAction'#12'MessageSetup'#7'Caption' +'ng.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlarge'
+#6#12'MessageSetup'#18'DisableIfNoHandler'#9#9'OnExecute'#7#19'MessageSetupE' +'Vertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7
+'xecute'#0#0#7'TAction'#12'MessagesInit'#7'Caption'#6#12'MessagesInit'#18'Di' +#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'C'
+'sableIfNoHandler'#9#9'OnExecute'#7#19'MessagesInitExecute'#0#0#7'TAction'#4 +'hildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Contr'
+'Test'#7'Caption'#6#4'Test'#18'DisableIfNoHandler'#9#9'OnExecute'#7#11'TestE' +'olsPerLine'#2#1#13'Items.Strings'#1#6#4'mbOK'#6#8'mbCancel'#0#8'TabOrder'#2
+'xecute'#0#0#7'TAction'#19'GetMessageForSource'#7'Caption'#6#19'GetMessageFo' +#6#4'Data'#10#6#0#0#0#2#0#0#0#3#2#0#0#5'TEdit'#16'StringResultEdit'#21'Ancho'
+'rSource'#18'DisableIfNoHandler'#9#9'OnExecute'#7#26'GetMessageForSourceExec' +'rSideTop.Control'#7#17'StringResultLabel'#18'AnchorSideTop.Side'#7#9'asrBot'
+'ute'#0#0#7'TAction'#12'GetParamsFmt'#7'Caption'#6#12'GetParamsFmt'#18'Disab' +'tom'#4'Left'#2#7#6'Height'#2#23#3'Top'#2'E'#5'Width'#2'w'#17'BorderSpacing.'
+'leIfNoHandler'#9#9'OnExecute'#7#19'GetParamsFmtExecute'#0#0#7'TAction'#11'S' +'Top'#2#4#8'TabOrder'#2#7#4'Text'#6#16'StringResultEdit'#0#0#0#11'TActionLis'
+'etIfOrCase'#7'Caption'#6#11'SetIfOrCase'#18'DisableIfNoHandler'#9#9'OnExecu' +'t'#11'ActionList1'#4'left'#3#152#1#3'top'#3#192#1#0#7'TAction'#8'AddConst'#7
+'te'#7#18'SetIfOrCaseExecute'#0#0#7'TAction'#22'UpdateQuestioDlgResult'#7'Ca' +'Caption'#6#8'AddConst'#18'DisableIfNoHandler'#9#9'OnExecute'#7#15'AddConstE'
+'ption'#6#22'UpdateQuestioDlgResult'#18'DisableIfNoHandler'#9#9'OnExecute'#7 +'xecute'#0#0#7'TAction'#8'DelConst'#7'Caption'#6#8'DelConst'#18'DisableIfNoH'
+#29'UpdateQuestioDlgResultExecute'#0#0#0#0 +'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
]); ]);

8
components/messagecomposer/messagecomposer.pas
View File

@ -126,7 +126,7 @@ const
resourcestring resourcestring
SMessageComposerCaption = 'Message Composer ...'; SMessageComposerCaption = 'Message Composer ...';
SMsgCaption = 'The message to be shown'; 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'; SMaskInput = 'Mask Input';
SSourceWrapper = 'SOURCE WRAPPER'; SSourceWrapper = 'SOURCE WRAPPER';
SKindofMessage = 'KIND OF MESSAGE'; SKindofMessage = 'KIND OF MESSAGE';
@ -186,6 +186,7 @@ end;
procedure TFormMessagesComposer.AddConstExecute(Sender: TObject); procedure TFormMessagesComposer.AddConstExecute(Sender: TObject);
begin begin
ButtonsStringGrid.RowCount := ButtonsStringGrid.RowCount+1; ButtonsStringGrid.RowCount := ButtonsStringGrid.RowCount+1;
ButtonsStringGrid.AutoAdjustColumns;
UpdateQuestioDlgResult.Execute; UpdateQuestioDlgResult.Execute;
end; 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). //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;
end; end;
ButtonsStringGrid.AutoAdjustColumns;
end; end;
procedure TFormMessagesComposer.DelConstExecute(Sender: TObject); procedure TFormMessagesComposer.DelConstExecute(Sender: TObject);
begin begin
if ButtonsStringGrid.RowCount = 1 then exit; if ButtonsStringGrid.RowCount = 1 then exit;
ButtonsStringGrid.RowCount := ButtonsStringGrid.RowCount-1; ButtonsStringGrid.RowCount := ButtonsStringGrid.RowCount-1;
ButtonsStringGrid.AutoAdjustColumns;
UpdateQuestioDlgResult.Execute; UpdateQuestioDlgResult.Execute;
end; end;
@ -436,6 +439,7 @@ begin
ButtonsStringGrid.Cols[0] := ListParams; ButtonsStringGrid.Cols[0] := ListParams;
end; end;
ListParams.Free; ListParams.Free;
ButtonsStringGrid.AutoAdjustColumns;
end; end;
procedure TFormMessagesComposer.MessageSetupExecute(Sender: TObject); procedure TFormMessagesComposer.MessageSetupExecute(Sender: TObject);
@ -699,7 +703,7 @@ begin
CaseResultCheckGroup.Checked[0] := true; CaseResultCheckGroup.Checked[0] := true;
end; end;
end; end;
ButtonsStringGrid.AutoAdjustColumns;
end; end;
procedure TFormMessagesComposer.MessagesInitExecute(Sender: TObject); procedure TFormMessagesComposer.MessagesInitExecute(Sender: TObject);