paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-16 10:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

message composer plug-in: improved layout (bug #11126)

Browse Source 
patch by: Salvatore Coppola 

git-svn-id: trunk@14803 -
This commit is contained in:
vincents 2008-04-11 20:28:05 +00:00
parent a239a91f28
commit c94e2e7098
4 changed files with 494 additions and 432 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

476
components/messagecomposer/messagecomposer.lfm
View File

@ -1,192 +1,161 @@
object FormMessagesComposer: TFormMessagesComposer
Left = 104
Height = 586
Top = 118
Width = 800
HorzScrollBar.Page = 799
VertScrollBar.Page = 585
Left = 356
Height = 553
Top = 202
Width = 822
HorzScrollBar.Page = 821
VertScrollBar.Page = 552
ActiveControl = CaptionEdit
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Messages Composer'
ClientHeight = 586
ClientWidth = 800
ClientHeight = 553
ClientWidth = 822
OnCreate = MessagesInitExecute
Position = poScreenCenter
LCLVersion = '0.9.25'
object CaptionLabel: TLabel
Left = 8
Height = 14
Top = 8
Width = 38
Left = 6
Height = 20
Top = 70
Width = 50
Caption = 'Caption'
ParentColor = False
end
object MsgLabel: TLabel
Left = 8
Height = 14
Top = 56
Width = 45
Left = 6
Height = 20
Top = 133
Width = 61
Caption = 'MsgLabel'
ParentColor = False
end
object DlgTypeLabel: TLabel
Left = 108
Height = 14
Top = 8
Width = 40
Left = 154
Height = 20
Top = 70
Width = 50
Caption = 'DlgType'
ParentColor = False
end
object HelpContextLabel: TLabel
Left = 8
Height = 14
Top = 278
Width = 64
Height = 20
Top = 314
Width = 84
Caption = 'Help Context'
ParentColor = False
end
object HelpKeyWordLabel: TLabel
Left = 103
Height = 14
Top = 278
Width = 69
Height = 20
Top = 314
Width = 87
Caption = 'Help KeyWord'
ParentColor = False
end
object XLabel: TLabel
Left = 8
Height = 14
Top = 242
Width = 7
Left = 6
Height = 20
Top = 277
Width = 9
Caption = 'X'
ParentColor = False
end
object YLabel: TLabel
AnchorSideLeft.Control = XSpinEdit
AnchorSideLeft.Side = asrBottom
Left = 66
Height = 14
Top = 242
Width = 7
Left = 93
Height = 20
Top = 277
Width = 8
BorderSpacing.Left = 8
Caption = 'Y'
ParentColor = False
end
object HelpFileNameLabel: TLabel
Left = 8
Height = 14
Top = 328
Width = 68
Height = 20
Top = 364
Width = 93
Caption = 'Help FileName'
ParentColor = False
end
object PromptLabel: TLabel
Left = 8
Height = 14
Top = 112
Width = 60
Left = 16
Height = 20
Top = 425
Width = 82
Caption = 'PromptLabel'
ParentColor = False
end
object ValueLabel: TLabel
Left = 8
Height = 14
Top = 181
Width = 54
Left = 16
Height = 20
Top = 478
Width = 70
Caption = 'Value (var)'
ParentColor = False
end
object DefaultValue: TLabel
Left = 108
Height = 14
Top = 181
Width = 36
Left = 138
Height = 20
Top = 478
Width = 47
Caption = 'Default'
ParentColor = False
end
object Bevel1: TBevel
Left = 10
Left = 5
Height = 9
Top = 103
Width = 201
Top = 260
Width = 269
Shape = bsTopLine
end
object Bevel2: TBevel
Left = 8
Height = 9
Top = 225
Width = 207
Top = 417
Width = 266
Shape = bsTopLine
end
object Bevel3: TBevel
Left = 8
Height = 9
Top = 269
Width = 203
Top = 305
Width = 266
Shape = bsTopLine
end
object KindMessageRadioGroup: TRadioGroup
Left = 215
Height = 359
Top = 7
Width = 576
AutoFill = True
Caption = 'KindMessageRadioGroup'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 341
ClientWidth = 572
ItemIndex = 0
Items.Strings = (
'MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
'MessageDlg[Caption, Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
'MessageDlg[Caption, Msg, DlgType, Buttons(TMsgDlgButtons), HelpKeyword]'
'MessageDlgPos[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y]'
'MessageDlgPosHelp[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y, HelpFileName]'
'QuestionDlg[Caption, Msg, DlgType, Buttons(array of const), HelpCtx]'
'QuestionDlg[Caption, Msg, DlgType, Buttons(array of const), HelpKeyword]'
'ShowMessage[Msg: string];'
'ShowMessageFmt[Msg, Params(array of const)];'
'ShowMessagePos[Msg, X, Y];'
'InputQuery[Caption, Prompt, MaskInput(Boolean), Value(String)]'
'InputQuery[Caption, Prompt, Value(String)]'
'InputBox[Caption, Prompt, Default]'
'PasswordBox[Caption, Prompt]'
)
OnClick = MessageSetupExecute
TabOrder = 2
object KindMessageLabel: TLabel
Left = 6
Height = 20
Top = 6
Width = 810
Align = alTop
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'KindMessageLabel'
ParentColor = False
end
object CaptionEdit: TEdit
Left = 8
Left = 6
Height = 23
Top = 24
Width = 93
Top = 86
Width = 136
BorderSpacing.Top = 3
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 = 103
AnchorSideTop.Control = DlgTypeLabel
AnchorSideTop.Side = asrBottom
Left = 154
Height = 31
Top = 93
Width = 120
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
BorderSpacing.Top = 3
ItemIndex = 0
Items.Strings = (
'mtWarning'
@ -197,13 +166,13 @@ object FormMessagesComposer: TFormMessagesComposer
)
MaxLength = 0
Style = csDropDownList
TabOrder = 3
TabOrder = 1
Text = 'mtWarning'
end
object ButtonsCheckGroup: TCheckGroup
Left = 575
Left = 285
Height = 177
Top = 369
Top = 70
Width = 216
AutoFill = True
Caption = 'BUTTONS (TMsgDlgButtons)'
@ -231,35 +200,41 @@ object FormMessagesComposer: TFormMessagesComposer
'mbClose'
)
OnItemClick = ButtonsCheckGroupItemClick
TabOrder = 4
TabOrder = 2
Data = {
0C000000020203030202020202020202
}
end
object HelpContextSpinEdit: TSpinEdit
AnchorSideTop.Control = HelpContextLabel
AnchorSideTop.Side = asrBottom
Left = 8
Height = 23
Top = 297
Top = 337
Width = 61
BorderSpacing.Top = 3
MaxValue = 9999
TabOrder = 5
TabOrder = 3
end
object HelpKeyWordEdit: TEdit
AnchorSideTop.Control = HelpKeyWordLabel
AnchorSideTop.Side = asrBottom
Left = 103
Height = 23
Top = 297
Width = 108
TabOrder = 6
Top = 337
Width = 171
BorderSpacing.Top = 3
TabOrder = 4
Text = 'HelpKeyWordEdit'
end
object ButtonsPanel: TPanel
Left = 278
Height = 170
Top = 376
Left = 509
Height = 177
Top = 70
Width = 285
ClientHeight = 170
ClientHeight = 177
ClientWidth = 285
TabOrder = 7
TabOrder = 5
object ButtonsStringGrid: TStringGrid
Left = 1
Height = 138
@ -271,7 +246,6 @@ object FormMessagesComposer: TFormMessagesComposer
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
RowCount = 4
ScrollBars = ssAutoBoth
TabOrder = 0
OnPickListSelect = UpdateQuestioDlgResultExecute
OnSelectEditor = ButtonsStringGridSelectEditor
@ -309,18 +283,18 @@ object FormMessagesComposer: TFormMessagesComposer
end
object Panel2: TPanel
Left = 1
Height = 30
Height = 37
Top = 139
Width = 283
Align = alClient
BevelInner = bvLowered
BevelOuter = bvSpace
ClientHeight = 30
ClientHeight = 37
ClientWidth = 283
TabOrder = 1
object BitBtn1: TBitBtn
Left = 2
Height = 26
Height = 33
Top = 2
Width = 128
Action = AddConst
@ -330,7 +304,7 @@ object FormMessagesComposer: TFormMessagesComposer
end
object BitBtn2: TBitBtn
Left = 153
Height = 26
Height = 33
Top = 2
Width = 128
Action = DelConst
@ -344,137 +318,151 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideLeft.Control = XLabel
AnchorSideLeft.Side = asrBottom
Left = 19
Height = 22
Top = 237
Width = 39
Height = 27
Top = 272
Width = 66
AutoSize = True
BorderSpacing.Left = 4
TabOrder = 8
TabOrder = 6
end
object YSpinEdit: TSpinEdit
AnchorSideLeft.Control = YLabel
AnchorSideLeft.Side = asrBottom
Left = 77
Height = 22
Top = 237
Width = 33
Left = 105
Height = 27
Top = 272
Width = 66
AutoSize = True
BorderSpacing.Left = 4
TabOrder = 9
TabOrder = 7
end
object HelpFileNameEdit: TFileNameEdit
AnchorSideTop.Control = HelpFileNameLabel
AnchorSideTop.Side = asrBottom
Left = 8
Height = 23
Top = 344
Width = 181
Top = 387
Width = 244
ButtonWidth = 23
NumGlyphs = 1
BorderSpacing.Top = 3
ParentColor = False
TabOrder = 10
TabOrder = 8
end
object PromptEdit: TEdit
Left = 8
AnchorSideTop.Control = PromptLabel
AnchorSideTop.Side = asrBottom
Left = 16
Height = 23
Top = 128
Width = 203
TabOrder = 11
Top = 448
Width = 164
BorderSpacing.Top = 3
TabOrder = 9
Text = 'PromptEdit'
end
object MaskInputCheckBox: TCheckBox
Left = 8
Height = 19
Top = 156
Width = 76
Left = 191
Height = 22
Top = 441
Width = 89
Caption = 'MaskInput'
TabOrder = 12
TabOrder = 10
end
object ValueEdit: TEdit
Left = 8
AnchorSideTop.Control = ValueLabel
AnchorSideTop.Side = asrBottom
Left = 16
Height = 23
Top = 197
Width = 80
TabOrder = 13
Top = 501
Width = 112
BorderSpacing.Top = 3
TabOrder = 11
Text = 'ValueEdit'
end
object DefaultEdit: TEdit
Left = 106
AnchorSideTop.Control = DefaultValue
AnchorSideTop.Side = asrBottom
Left = 138
Height = 23
Top = 197
Width = 105
TabOrder = 14
Top = 501
Width = 136
BorderSpacing.Top = 3
TabOrder = 12
Text = 'DefaultEdit'
end
object Button1: TButton
Left = 279
Height = 25
Top = 552
Width = 284
Left = 307
Height = 37
Top = 501
Width = 256
Action = Test
BorderSpacing.InnerBorder = 4
TabOrder = 15
TabOrder = 13
end
object Button2: TBitBtn
Left = 616
Height = 26
Top = 552
Width = 60
Left = 605
Height = 37
Top = 501
Width = 100
AutoSize = True
Caption = '&OK'
Constraints.MinHeight = 37
Constraints.MinWidth = 100
Default = True
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
TabOrder = 16
TabOrder = 14
end
object Button3: TBitBtn
AnchorSideLeft.Control = Button2
AnchorSideLeft.Side = asrBottom
Left = 680
Height = 26
Top = 551
Width = 78
AutoSize = True
Left = 709
Height = 37
Top = 501
Width = 100
BorderSpacing.Left = 4
Cancel = True
Caption = 'Cancel'
Constraints.MinHeight = 37
Constraints.MinWidth = 100
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 17
TabOrder = 15
end
object SourceWrapperGroupBox: TGroupBox
Left = 8
Height = 208
Top = 368
Width = 264
Left = 307
Height = 221
Top = 264
Width = 509
Caption = 'SourceWrapperGroupBox'
ClientHeight = 190
ClientWidth = 260
TabOrder = 18
ClientHeight = 202
ClientWidth = 505
TabOrder = 16
object Label1: TLabel
Left = 7
Height = 14
Height = 20
Top = 6
Width = 55
Width = 69
Caption = '"if" RESULT'
ParentColor = False
end
object StringResultLabel: TLabel
AnchorSideTop.Control = IfResultComboBox
AnchorSideTop.Side = asrBottom
Left = 7
Height = 14
Top = 51
Width = 69
Left = 9
Height = 20
Top = 145
Width = 90
BorderSpacing.Top = 8
Caption = 'String RESULT'
ParentColor = False
end
object IfThenRadioButton: TRadioButton
Left = 7
Height = 19
Top = 111
Width = 70
Height = 22
Top = 72
Width = 83
Caption = 'if...then...'
Checked = True
OnClick = SetIfOrCaseExecute
@ -483,36 +471,36 @@ object FormMessagesComposer: TFormMessagesComposer
end
object IfThenElseRadioButton: TRadioButton
Left = 7
Height = 19
Top = 129
Width = 101
Height = 22
Top = 93
Width = 125
Caption = 'if...then...else ...'
OnClick = SetIfOrCaseExecute
TabOrder = 1
end
object CaseOfEndRadioButton: TRadioButton
Left = 7
Height = 19
Top = 152
Width = 109
Left = 199
Height = 22
Top = 143
Width = 134
Caption = 'case ... of ... end;'
OnClick = SetIfOrCaseExecute
TabOrder = 2
end
object CaseOfEndElseRadioButton: TRadioButton
Left = 7
Height = 19
Top = 170
Width = 119
Left = 199
Height = 22
Top = 164
Width = 148
Caption = 'case ... of ... else ...'
OnClick = SetIfOrCaseExecute
TabOrder = 3
end
object BeginEndCheckBox: TCheckBox
Left = 150
Height = 19
Top = 121
Width = 85
Left = 385
Height = 22
Top = 152
Width = 103
Caption = 'begin ... end'
TabOrder = 4
end
@ -520,12 +508,11 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 7
Height = 21
Top = 22
Width = 119
Height = 31
Top = 29
Width = 175
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Top = 2
ItemHeight = 13
BorderSpacing.Top = 3
ItemIndex = 0
Items.Strings = (
'mbOK'
@ -539,12 +526,12 @@ object FormMessagesComposer: TFormMessagesComposer
object CaseResultCheckGroup: TCheckGroup
AnchorSideLeft.Control = IfResultComboBox
AnchorSideLeft.Side = asrBottom
Left = 134
Left = 192
Height = 118
Top = -1
Width = 121
Width = 299
AutoFill = True
BorderSpacing.Left = 8
BorderSpacing.Left = 10
Caption = '"case" RESULT'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
@ -553,7 +540,8 @@ object FormMessagesComposer: TFormMessagesComposer
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ChildSizing.ControlsPerLine = 3
Columns = 3
Items.Strings = (
'mbOK'
'mbCancel'
@ -566,18 +554,66 @@ object FormMessagesComposer: TFormMessagesComposer
object StringResultEdit: TEdit
AnchorSideTop.Control = StringResultLabel
AnchorSideTop.Side = asrBottom
Left = 7
Left = 9
Height = 23
Top = 69
Width = 119
BorderSpacing.Top = 4
Top = 168
Width = 173
BorderSpacing.Top = 3
TabOrder = 7
Text = 'StringResultEdit'
end
end
object KindMessageComboBox: TComboBox
Left = 6
Height = 31
Top = 30
Width = 810
Align = alTop
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Left = 6
BorderSpacing.Top = 4
BorderSpacing.Right = 6
ItemIndex = 0
Items.Strings = (
'MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
'MessageDlg[Caption, Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
'MessageDlg[Caption, Msg, DlgType, Buttons(TMsgDlgButtons), HelpKeyword]'
'MessageDlgPos[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y]'
'MessageDlgPosHelp[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y, HelpFileName]'
'QuestionDlg[Caption, Msg, DlgType, Buttons(array of const), HelpCtx]'
'QuestionDlg[Caption, Msg, DlgType, Buttons(array of const), HelpKeyword]'
'ShowMessage[Msg: string];'
'ShowMessageFmt[Msg, Params(array of const)];'
'ShowMessagePos[Msg, X, Y];'
'InputQuery[Caption, Prompt, MaskInput(Boolean), Value(String)]'
'InputQuery[Caption, Prompt, Value(String)]'
'InputBox[Caption, Prompt, Default]'
'PasswordBox[Caption, Prompt]'
)
OnChange = MessageSetupExecute
Style = csDropDownList
TabOrder = 17
Text = 'MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
end
object MsgMemo: TMemo
AnchorSideTop.Control = MsgLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 94
Top = 156
Width = 268
BorderSpacing.Top = 3
Lines.Strings = (
'MsgLabel'
)
OnEditingDone = GetParamsFmtExecute
ScrollBars = ssAutoVertical
TabOrder = 18
WordWrap = False
end
object ActionList1: TActionList
left = 408
top = 448
left = 456
top = 368
object AddConst: TAction
Caption = 'AddConst'
DisableIfNoHandler = True

360
components/messagecomposer/messagecomposer.lrs
View File

@ -1,177 +1,191 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TFormMessagesComposer','FORMDATA',[
'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
'TPF0'#21'TFormMessagesComposer'#20'FormMessagesComposer'#4'Left'#3'd'#1#6'He'
+'ight'#3')'#2#3'Top'#3#202#0#5'Width'#3'6'#3#18'HorzScrollBar.Page'#3'5'#3#18
+'VertScrollBar.Page'#3'('#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'#12'ClientHeight'#3')'#2#11'ClientWidth'#3'6'#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#6#6'Height'#2#20#3'Top'#2'F'
+#5'Width'#2'2'#7'Caption'#6#7'Caption'#11'ParentColor'#8#0#0#6'TLabel'#8'Msg'
+'Label'#4'Left'#2#6#6'Height'#2#20#3'Top'#3#133#0#5'Width'#2'='#7'Caption'#6
+#8'MsgLabel'#11'ParentColor'#8#0#0#6'TLabel'#12'DlgTypeLabel'#4'Left'#3#154#0
+#6'Height'#2#20#3'Top'#2'F'#5'Width'#2'2'#7'Caption'#6#7'DlgType'#11'ParentC'
+'olor'#8#0#0#6'TLabel'#16'HelpContextLabel'#4'Left'#2#8#6'Height'#2#20#3'Top'
+#3':'#1#5'Width'#2'T'#7'Caption'#6#12'Help Context'#11'ParentColor'#8#0#0#6
+'TLabel'#16'HelpKeyWordLabel'#4'Left'#2'g'#6'Height'#2#20#3'Top'#3':'#1#5'Wi'
+'dth'#2'W'#7'Caption'#6#12'Help KeyWord'#11'ParentColor'#8#0#0#6'TLabel'#6'X'
+'Label'#4'Left'#2#6#6'Height'#2#20#3'Top'#3#21#1#5'Width'#2#9#7'Caption'#6#1
+'X'#11'ParentColor'#8#0#0#6'TLabel'#6'YLabel'#22'AnchorSideLeft.Control'#7#9
+'XSpinEdit'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2']'#6'Height'#2
+#20#3'Top'#3#21#1#5'Width'#2#8#18'BorderSpacing.Left'#2#8#7'Caption'#6#1'Y'
+#11'ParentColor'#8#0#0#6'TLabel'#17'HelpFileNameLabel'#4'Left'#2#8#6'Height'
+#2#20#3'Top'#3'l'#1#5'Width'#2']'#7'Caption'#6#13'Help FileName'#11'ParentCo'
+'lor'#8#0#0#6'TLabel'#11'PromptLabel'#4'Left'#2#16#6'Height'#2#20#3'Top'#3
+#169#1#5'Width'#2'R'#7'Caption'#6#11'PromptLabel'#11'ParentColor'#8#0#0#6'TL'
+'abel'#10'ValueLabel'#4'Left'#2#16#6'Height'#2#20#3'Top'#3#222#1#5'Width'#2
+'F'#7'Caption'#6#11'Value (var)'#11'ParentColor'#8#0#0#6'TLabel'#12'DefaultV'
+'alue'#4'Left'#3#138#0#6'Height'#2#20#3'Top'#3#222#1#5'Width'#2'/'#7'Caption'
+#6#7'Default'#11'ParentColor'#8#0#0#6'TBevel'#6'Bevel1'#4'Left'#2#5#6'Height'
+#2#9#3'Top'#3#4#1#5'Width'#3#13#1#5'Shape'#7#9'bsTopLine'#0#0#6'TBevel'#6'Be'
+'vel2'#4'Left'#2#8#6'Height'#2#9#3'Top'#3#161#1#5'Width'#3#10#1#5'Shape'#7#9
+'bsTopLine'#0#0#6'TBevel'#6'Bevel3'#4'Left'#2#8#6'Height'#2#9#3'Top'#3'1'#1#5
+'Width'#3#10#1#5'Shape'#7#9'bsTopLine'#0#0#6'TLabel'#16'KindMessageLabel'#4
+'Left'#2#6#6'Height'#2#20#3'Top'#2#6#5'Width'#3'*'#3#5'Align'#7#5'alTop'#18
+'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2
+#6#7'Caption'#6#16'KindMessageLabel'#11'ParentColor'#8#0#0#5'TEdit'#11'Capti'
+'onEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'V'#5'Width'#3#136#0#17'BorderSp'
+'acing.Top'#2#3#8'TabOrder'#2#0#4'Text'#6#11'CaptionEdit'#0#0#9'TComboBox'#15
+'DlgTypeComboBox'#21'AnchorSideTop.Control'#7#12'DlgTypeLabel'#18'AnchorSide'
+'Top.Side'#7#9'asrBottom'#4'Left'#3#154#0#6'Height'#2#31#3'Top'#2']'#5'Width'
+#2'x'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscen'
+'ding'#0#17'BorderSpacing.Top'#2#3#9'ItemIndex'#2#0#13'Items.Strings'#1#6#9
+'mtWarning'#6#7'mtError'#6#13'mtInformation'#6#14'mtConfirmation'#6#8'mtCust'
+'om'#0#9'MaxLength'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#4'Text'
+#6#9'mtWarning'#0#0#11'TCheckGroup'#17'ButtonsCheckGroup'#4'Left'#3#29#1#6'H'
+'eight'#3#177#0#3'Top'#2'F'#5'Width'#3#216#0#8'AutoFill'#9#7'Caption'#6#24'B'
+'UTTONS (TMsgDlgButtons)'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizin'
+'g.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenou'
+'sChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'
+#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Shrink'
+'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh'
+'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#2#7'Columns'#2#2#13'Items.'
+'Strings'#1#6#5'mbYes'#6#4'mbNo'#6#4'mbOK'#6#8'mbCancel'#6#7'mbAbort'#6#7'mb'
+'Retry'#6#8'mbIgnore'#6#5'mbAll'#6#9'mbNoToAll'#6#10'mbYesToAll'#6#6'mbHelp'
+#6#7'mbClose'#0#11'OnItemClick'#7#26'ButtonsCheckGroupItemClick'#8'TabOrder'
+#2#2#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'#21'AnchorSideTop.Control'#7#16'HelpContextLabel'#18'An'
+'chorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#23#3'Top'#3'Q'#1#5
+'Width'#2'='#17'BorderSpacing.Top'#2#3#8'MaxValue'#3#15''''#8'TabOrder'#2#3#0
+#0#5'TEdit'#15'HelpKeyWordEdit'#21'AnchorSideTop.Control'#7#16'HelpKeyWordLa'
+'bel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'g'#6'Height'#2#23#3'To'
+'p'#3'Q'#1#5'Width'#3#171#0#17'BorderSpacing.Top'#2#3#8'TabOrder'#2#4#4'Text'
+#6#15'HelpKeyWordEdit'#0#0#6'TPanel'#12'ButtonsPanel'#4'Left'#3#253#1#6'Heig'
+'ht'#3#177#0#3'Top'#2'F'#5'Width'#3#29#1#12'ClientHeight'#3#177#0#11'ClientW'
+'idth'#3#29#1#8'TabOrder'#2#5#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'ColC'
,'ount'#2#2#10'FixedColor'#7#9'clBtnFace'#9'FixedCols'#2#0#7'Options'#11#15'g'
+'oFixedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#13'goRang'
+'eSelect'#9'goEditing'#14'goSmoothScroll'#0#8'RowCount'#2#4#8'TabOrder'#2#0
+#16'OnPickListSelect'#7#29'UpdateQuestioDlgResultExecute'#14'OnSelectEditor'
+#7#29'ButtonsStringGridSelectEditor'#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'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'Heigh'
+'t'#2'%'#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'%'#11'ClientW'
+'idth'#3#27#1#8'TabOrder'#2#1#0#7'TBitBtn'#7'BitBtn1'#4'Left'#2#2#6'Height'#2
+'!'#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'!'#3'Top'#2#2#5'Width'#3#128#0#6'Action'#7#8'DelConst'#5'Align'#7
+#7'alRight'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#0#0#9'TSpinEdit'#9'XSpinEdi'
+'t'#22'AnchorSideLeft.Control'#7#6'XLabel'#19'AnchorSideLeft.Side'#7#9'asrBo'
+'ttom'#4'Left'#2#19#6'Height'#2#27#3'Top'#3#16#1#5'Width'#2'B'#8'AutoSize'#9
+#18'BorderSpacing.Left'#2#4#8'TabOrder'#2#6#0#0#9'TSpinEdit'#9'YSpinEdit'#22
+'AnchorSideLeft.Control'#7#6'YLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4
+'Left'#2'i'#6'Height'#2#27#3'Top'#3#16#1#5'Width'#2'B'#8'AutoSize'#9#18'Bord'
+'erSpacing.Left'#2#4#8'TabOrder'#2#7#0#0#13'TFileNameEdit'#16'HelpFileNameEd'
+'it'#21'AnchorSideTop.Control'#7#17'HelpFileNameLabel'#18'AnchorSideTop.Side'
+#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#23#3'Top'#3#131#1#5'Width'#3#244#0#11
+'ButtonWidth'#2#23#9'NumGlyphs'#2#1#17'BorderSpacing.Top'#2#3#11'ParentColor'
+#8#8'TabOrder'#2#8#0#0#5'TEdit'#10'PromptEdit'#21'AnchorSideTop.Control'#7#11
+'PromptLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#16#6'Height'#2
+#23#3'Top'#3#192#1#5'Width'#3#164#0#17'BorderSpacing.Top'#2#3#8'TabOrder'#2#9
+#4'Text'#6#10'PromptEdit'#0#0#9'TCheckBox'#17'MaskInputCheckBox'#4'Left'#3
+#191#0#6'Height'#2#22#3'Top'#3#185#1#5'Width'#2'Y'#7'Caption'#6#9'MaskInput'
+#8'TabOrder'#2#10#0#0#5'TEdit'#9'ValueEdit'#21'AnchorSideTop.Control'#7#10'V'
+'alueLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#16#6'Height'#2#23
+#3'Top'#3#245#1#5'Width'#2'p'#17'BorderSpacing.Top'#2#3#8'TabOrder'#2#11#4'T'
+'ext'#6#9'ValueEdit'#0#0#5'TEdit'#11'DefaultEdit'#21'AnchorSideTop.Control'#7
+#12'DefaultValue'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#138#0#6'He'
+'ight'#2#23#3'Top'#3#245#1#5'Width'#3#136#0#17'BorderSpacing.Top'#2#3#8'TabO'
+'rder'#2#12#4'Text'#6#11'DefaultEdit'#0#0#7'TButton'#7'Button1'#4'Left'#3'3'
+#1#6'Height'#2'%'#3'Top'#3#245#1#5'Width'#3#0#1#6'Action'#7#4'Test'#25'Borde'
+'rSpacing.InnerBorder'#2#4#8'TabOrder'#2#13#0#0#7'TBitBtn'#7'Button2'#4'Left'
+#3']'#2#6'Height'#2'%'#3'Top'#3#245#1#5'Width'#2'd'#8'AutoSize'#9#7'Caption'
+#6#3'&OK'#21'Constraints.MinHeight'#2'%'#20'Constraints.MinWidth'#2'd'#7'Def'
+'ault'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2
+#14#0#0#7'TBitBtn'#7'Button3'#22'AnchorSideLeft.Control'#7#7'Button2'#19'Anc'
+'horSideLeft.Side'#7#9'asrBottom'#4'Left'#3#197#2#6'Height'#2'%'#3'Top'#3#245
+#1#5'Width'#2'd'#18'BorderSpacing.Left'#2#4#6'Cancel'#9#7'Caption'#6#6'Cance'
+'l'#21'Constraints.MinHeight'#2'%'#20'Constraints.MinWidth'#2'd'#4'Kind'#7#8
+'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#15#0#0#9'TGrou'
+'pBox'#21'SourceWrapperGroupBox'#4'Left'#3'3'#1#6'Height'#3#221#0#3'Top'#3#8
+#1#5'Width'#3#253#1#7'Caption'#6#21'SourceWrapperGroupBox'#12'ClientHeight'#3
+#202#0#11'ClientWidth'#3#249#1#8'TabOrder'#2#16#0#6'TLabel'#6'Label1'#4'Left'
+#2#7#6'Height'#2#20#3'Top'#2#6#5'Width'#2'E'#7'Caption'#6#11'"if" RESULT'#11
+'ParentColor'#8#0#0#6'TLabel'#17'StringResultLabel'#18'AnchorSideTop.Side'#7
+#9'asrBottom'#4'Left'#2#9#6'Height'#2#20#3'Top'#3#145#0#5'Width'#2'Z'#17'Bor'
+'derSpacing.Top'#2#8#7'Caption'#6#13'String RESULT'#11'ParentColor'#8#0#0#12
+'TRadioButton'#17'IfThenRadioButton'#4'Left'#2#7#6'Height'#2#22#3'Top'#2'H'#5
+'Width'#2'S'#7'Caption'#6#12'if...then...'#7'Checked'#9#7'OnClick'#7#18'SetI'
+'fOrCaseExecute'#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#12'TRadioButton'
+#21'IfThenElseRadioButton'#4'Left'#2#7#6'Height'#2#22#3'Top'#2']'#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#199
+#0#6'Height'#2#22#3'Top'#3#143#0#5'Width'#3#134#0#7'Caption'#6#20'case ... o'
+'f ... end;'#7'OnClick'#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#2#0#0#12'TRad'
+'ioButton'#24'CaseOfEndElseRadioButton'#4'Left'#3#199#0#6'Height'#2#22#3'Top'
+#3#164#0#5'Width'#3#148#0#7'Caption'#6#24'case ... of ... else ...'#7'OnClic'
+'k'#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#3#0#0#9'TCheckBox'#16'BeginEndChe'
,'ckBox'#4'Left'#3#129#1#6'Height'#2#22#3'Top'#3#152#0#5'Width'#2'g'#7'Captio'
+'n'#6#13'begin ... end'#8'TabOrder'#2#4#0#0#9'TComboBox'#16'IfResultComboBox'
+#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'
+#4'Left'#2#7#6'Height'#2#31#3'Top'#2#29#5'Width'#3#175#0#16'AutoCompleteText'
+#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#17'BorderSpacing.T'
+'op'#2#3#9'ItemIndex'#2#0#13'Items.Strings'#1#6#4'mbOK'#6#8'mbCancel'#0#9'Ma'
+'xLength'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#5#4'Text'#6#4'mbOK'
+#0#0#11'TCheckGroup'#20'CaseResultCheckGroup'#22'AnchorSideLeft.Control'#7#16
+'IfResultComboBox'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#3#192#0#6
+'Height'#2'v'#3'Top'#2#255#5'Width'#3'+'#1#8'AutoFill'#9#18'BorderSpacing.Le'
+'ft'#2#10#7'Caption'#6#13'"case" RESULT'#28'ChildSizing.LeftRightSpacing'#2#6
+#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24
+'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenou'
+'sChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'Chil'
+'dSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cc'
+'lLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#3#7'Columns'
+#2#3#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'AnchorSideTop.Cont'
+'rol'#7#17'StringResultLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
+#9#6'Height'#2#23#3'Top'#3#168#0#5'Width'#3#173#0#17'BorderSpacing.Top'#2#3#8
+'TabOrder'#2#7#4'Text'#6#16'StringResultEdit'#0#0#0#9'TComboBox'#19'KindMess'
+'ageComboBox'#4'Left'#2#6#6'Height'#2#31#3'Top'#2#30#5'Width'#3'*'#3#5'Align'
+#7#5'alTop'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearc'
+'hAscending'#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#4#19'Borde'
+'rSpacing.Right'#2#6#9'ItemIndex'#2#0#13'Items.Strings'#1#6':MessageDlg[Msg,'
+' DlgType, Buttons(TMsgDlgButtons), HelpCtx]'#6'CMessageDlg[Caption, Msg, Dl'
+'gType, Buttons(TMsgDlgButtons), HelpCtx]'#6'GMessageDlg[Caption, Msg, DlgTy'
+'pe, Buttons(TMsgDlgButtons), HelpKeyword]'#6'CMessageDlgPos[Msg, DlgType, B'
+'uttons(TMsgDlgButtons), HelpCtx, X, Y]'#6'UMessageDlgPosHelp[Msg, DlgType, '
+'Buttons(TMsgDlgButtons), HelpCtx, X, Y, HelpFileName]'#6'DQuestionDlg[Capti'
+'on, Msg, DlgType, Buttons(array of const), HelpCtx]'#6'HQuestionDlg[Caption'
+', Msg, DlgType, Buttons(array of const), HelpKeyword]'#6#25'ShowMessage[Msg'
+': string];'#6',ShowMessageFmt[Msg, Params(array of const)];'#6#26'ShowMessa'
+'gePos[Msg, X, Y];'#6'>InputQuery[Caption, Prompt, MaskInput(Boolean), Value'
+'(String)]'#6'*InputQuery[Caption, Prompt, Value(String)]'#6'"InputBox[Capti'
+'on, Prompt, Default]'#6#28'PasswordBox[Caption, Prompt]'#0#8'OnChange'#7#19
+'MessageSetupExecute'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#17#4'Text'
+#6':MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'#0#0#5'TMemo'
+#7'MsgMemo'#21'AnchorSideTop.Control'#7#8'MsgLabel'#18'AnchorSideTop.Side'#7
+#9'asrBottom'#4'Left'#2#6#6'Height'#2'^'#3'Top'#3#156#0#5'Width'#3#12#1#17'B'
+'orderSpacing.Top'#2#3#13'Lines.Strings'#1#6#8'MsgLabel'#0#13'OnEditingDone'
+#7#19'GetParamsFmtExecute'#10'ScrollBars'#7#14'ssAutoVertical'#8'TabOrder'#2
+#18#8'WordWrap'#8#0#0#11'TActionList'#11'ActionList1'#4'left'#3#200#1#3'top'
+#3'p'#1#0#7'TAction'#8'AddConst'#7'Caption'#6#8'AddConst'#18'DisableIfNoHand'
+'ler'#9#9'OnExecute'#7#15'AddConstExecute'#0#0#7'TAction'#8'DelConst'#7'Capt'
+'ion'#6#8'DelConst'#18'DisableIfNoHandler'#9#9'OnExecute'#7#15'DelConstExecu'
+'te'#0#0#7'TAction'#12'MessageSetup'#7'Caption'#6#12'MessageSetup'#18'Disabl'
+'eIfNoHandler'#9#9'OnExecute'#7#19'MessageSetupExecute'#0#0#7'TAction'#12'Me'
+'ssagesInit'#7'Caption'#6#12'MessagesInit'#18'DisableIfNoHandler'#9#9'OnExec'
+'ute'#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'G'
+'etMessageForSource'#7'Caption'#6#19'GetMessageForSource'#18'DisableIfNoHand'
+'ler'#9#9'OnExecute'#7#26'GetMessageForSourceExecute'#0#0#7'TAction'#12'GetP'
+'aramsFmt'#7'Caption'#6#12'GetParamsFmt'#18'DisableIfNoHandler'#9#9'OnExecut'
+'e'#7#19'GetParamsFmtExecute'#0#0#7'TAction'#11'SetIfOrCase'#7'Caption'#6#11
+'SetIfOrCase'#18'DisableIfNoHandler'#9#9'OnExecute'#7#18'SetIfOrCaseExecute'
+#0#0#7'TAction'#22'UpdateQuestioDlgResult'#7'Caption'#6#22'UpdateQuestioDlgR'
+'esult'#18'DisableIfNoHandler'#9#9'OnExecute'#7#29'UpdateQuestioDlgResultExe'
+'cute'#0#0#0#0
]);

86
components/messagecomposer/messagecomposer.pas
View File

@ -35,6 +35,9 @@ type
{ TFormMessagesComposer }
TFormMessagesComposer = class(TForm)
KindMessageComboBox: TComboBox;
KindMessageLabel: TLabel;
MsgMemo: TMemo;
UpdateQuestioDlgResult: TAction;
SetIfOrCase: TAction;
Bevel1: TBevel;
@ -82,8 +85,6 @@ type
HelpKeyWordEdit: TEdit;
HelpContextLabel: TLabel;
HelpKeyWordLabel: TLabel;
KindMessageRadioGroup: TRadioGroup;
MsgEdit: TEdit;
CaptionLabel: TLabel;
MsgLabel: TLabel;
HelpContextSpinEdit: TSpinEdit;
@ -200,7 +201,7 @@ procedure TFormMessagesComposer.ButtonsStringGridSelectEditor(Sender: TObject; a
aRow: Integer; var Editor: TWinControl);
begin
if aCol<>1 then exit;
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
5, 6: begin
Editor := TStringGrid(Sender).EditorByStyle(cbsPickList);
TPickListCellEditor(Editor).Style := csDropDownList;
@ -249,7 +250,17 @@ var Msg, MsgCaption, MsgHelpKeyword, HelpFileName, Prompt, MsgDefault,
intParam: integer;
floatParam: double;
begin
Msg := QuotedStr(MsgEdit.Text);
Msg := QuotedStr(MsgMemo.Lines.Text);
if Copy(Msg,Length(Msg)-Length(LineEnding),Length(LineEnding))=LineEnding then
Delete(Msg,Length(Msg)-Length(LineEnding),Length(LineEnding));
i := pos(LineEnding,Msg);
while i>0 do begin
Delete(Msg,i,Length(LineEnding));
system.Insert(QuotedStr('+LineEnding+'),Msg,i);
i := pos(LineEnding,Msg)
end;
DlgType := DlgTypeComboBox.Text;
MsgButtons := EmptyStr;
if ButtonsCheckGroup.Enabled then begin //MessageDlg();
@ -278,7 +289,7 @@ begin
if ButtonsCheckGroup.Checked[11] then
MsgButtons := MsgButtons+' mbClose,';
end else begin //maybe QuestionDlg() or ShowMessageFmt();
if KindMessageRadioGroup.ItemIndex=8 then begin //ShowMessageFmt();
if KindMessageComboBox.ItemIndex=8 then begin //ShowMessageFmt();
for i := 1 to ButtonsStringGrid.RowCount-1 do begin
//'D', 'E', 'F', 'G', 'M', 'N', 'P', 'S', 'U', 'X' format
strParam := #32;
@ -324,7 +335,8 @@ begin
if MsgButtons<>EmptyStr then begin
MsgButtons[1] := '[';
MsgButtons[Length(MsgButtons)] := ']';
end;
end else
MsgButtons:='[]';
MsgCaption := QuotedStr(CaptionEdit.Text);
HelpCtx := HelpContextSpinEdit.Text;
MsgHelpKeyword := QuotedStr(HelpKeyWordEdit.Text);
@ -334,7 +346,7 @@ begin
Prompt := QuotedStr(PromptEdit.Text);
MsgDefault := QuotedStr(DefaultEdit.Text);
Value := ValueEdit.Text;//user must knows Value var in his source
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
0: srcMessage := 'MessageDlg('+Msg+', '+DlgType+', '+MsgButtons+','+HelpCtx+')';
1: srcMessage := 'MessageDlg('+MsgCaption+', '+Msg+', '+DlgType+', '+
MsgButtons+', '+HelpCtx+')';
@ -414,14 +426,14 @@ var strtmp: string;
indx: integer;
chrtmp: Char;
begin
if KindMessageRadioGroup.ItemIndex<>8 then exit;
if KindMessageComboBox.ItemIndex<>8 then exit;
ButtonsStringGrid.Cells[0, 0] := 'Params (array of const)';
ButtonsStringGrid.Cells[1, 0] := 'Values';
ButtonsStringGrid.FixedCols := 1;
Panel2.Visible := false;
ListParams := TStringList.Create;
strtmp := UpperCase(MsgEdit.Text);
strtmp := UpperCase(MsgMemo.Lines.Text);
indx := pos('%', strtmp);
while (indx>0)and(indx<Length(strtmp)) do begin
@ -447,18 +459,18 @@ var indx: integer;
ListResult: TStringList;
begin
//Msg
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
0,1,2,3,4,5,6,7,8,9: begin
MsgEdit.Color := clWindow;
MsgEdit.Enabled := true;
MsgMemo.Color := clWindow;
MsgMemo.Enabled := true;
end;
else begin
MsgEdit.Color := clBtnFace;
MsgEdit.Enabled := false;
MsgMemo.Color := clBtnFace;
MsgMemo.Enabled := false;
end;
end;
//Caption
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
1,2,5,6,10,11,12,13: begin
CaptionEdit.Color := clWindow;
CaptionEdit.Enabled := true;
@ -469,7 +481,7 @@ begin
end;
end;
//DlgType;
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
0,1,2,3,4,5,6: begin
DlgTypeComboBox.Color := clWindow;
DlgTypeComboBox.Enabled := true;
@ -480,7 +492,7 @@ begin
end;
end;
//BUTTONS (TMsgDlgButtons)
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
0,1,2,3,4: begin
ButtonsCheckGroup.Enabled := true;
end;
@ -489,7 +501,7 @@ begin
end;
end;
//HelpContext
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
0,1,3,4,5: begin
HelpContextSpinEdit.Color := clWindow;
HelpContextSpinEdit.Enabled := true;
@ -500,7 +512,7 @@ begin
end;
end;
//HelpKeyword
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
2,6: begin
HelpKeyWordEdit.Color := clWindow;
HelpKeyWordEdit.Enabled := true;
@ -511,7 +523,7 @@ begin
end;
end;
//Position X Y
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
3,4,9: begin
XSpinEdit.Color := clWindow;
XSpinEdit.Enabled := true;
@ -526,7 +538,7 @@ begin
end;
end;
//HelpFileName
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
4: begin
HelpFileNameEdit.Color := clWindow;
HelpFileNameEdit.Enabled := true;
@ -537,7 +549,7 @@ begin
end;
end;
//Params BUTTONS (array of const)
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
5,6,8: begin
ButtonsPanel.Enabled := true;
ButtonsStringGrid.Color := clWindow;
@ -548,7 +560,7 @@ begin
end;
end;
//Params (array of const)
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
8: begin
GetParamsFmt.Execute;
end;
@ -560,7 +572,7 @@ begin
end;
end;
//Prompt
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
10,11,12,13: begin
PromptEdit.Color := clWindow;
PromptEdit.Enabled := true;
@ -571,7 +583,7 @@ begin
end;
end;
//MaskInput
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
10: begin
MaskInputCheckBox.Enabled := true;
end;
@ -580,7 +592,7 @@ begin
end;
end;
//Value
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
10,11: begin
ValueEdit.Color := clWindow;
ValueEdit.Enabled := true;
@ -591,7 +603,7 @@ begin
end;
end;
//Default
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
12: begin
DefaultEdit.Color := clWindow;
DefaultEdit.Enabled := true;
@ -605,7 +617,7 @@ begin
///// Results and Source Wrapper for message //////
//InputBox(); PasswordBox();
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
12,13: begin
StringResultEdit.Enabled := true;
StringResultEdit.Color := clWindow;
@ -626,14 +638,14 @@ begin
end;
//ShowMessage(); ShowMessageFmt(); ShowMessagePos();
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
7,8,9: SourceWrapperGroupBox.Enabled := false;
else
SourceWrapperGroupBox.Enabled := true;
end;
//MessageDlg() Result
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
0,1,2,3,4: begin
ListResult := TStringList.Create;
for indx := 0 to ButtonsCheckGroup.Items.Count-1 do
@ -675,7 +687,7 @@ begin
end;
//QuestionDlg() Result
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
5,6: begin
ListResult := TStringList.Create;
ListResult.Assign(ButtonsStringGrid.Cols[1]);
@ -693,7 +705,7 @@ begin
end;
//InputQuery() Result
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
10,11: if CaseResultCheckGroup.Items[0]<>'false' then begin
CaseResultCheckGroup.Items.Clear;
CaseResultCheckGroup.Items.Add('false');
@ -721,15 +733,15 @@ begin
PromptLabel.Caption := SPromptCaption;
MaskInputCheckBox.Caption := SMaskInput;
SourceWrapperGroupBox.Caption := SSourceWrapper;
KindMessageRadioGroup.Caption := SKindofMessage;
KindMessageLabel.Caption := SKindofMessage;
MessageSetup.Execute;
end;
procedure TFormMessagesComposer.SetIfOrCaseExecute(Sender: TObject);
begin
if (KindMessageRadioGroup.ItemIndex = 12)or
(KindMessageRadioGroup.ItemIndex = 13) then exit;
if (KindMessageComboBox.ItemIndex = 12)or
(KindMessageComboBox.ItemIndex = 13) then exit;
if (Sender=IfThenRadioButton)or(Sender=IfThenElseRadioButton) then begin
IfResultComboBox.Color := clWindow;
IfResultComboBox.Enabled := true;
@ -749,7 +761,7 @@ var Msg, MsgCaption, MsgHelpKeyword, HelpFileName, Prompt,
HelpCtx: Longint;
X, Y: integer;
begin
Msg := MsgEdit.Text;
Msg := MsgMemo.Lines.Text;
DlgType := TMsgDlgType(DlgTypeComboBox.ItemIndex);
MsgButtons := [];
if ButtonsCheckGroup.Checked[0] then
@ -784,7 +796,7 @@ begin
Prompt := PromptEdit.Text;
MsgDefault := DefaultEdit.Text;
Value := ValueEdit.Text;
case KindMessageRadioGroup.ItemIndex of
case KindMessageComboBox.ItemIndex of
0: MessageDlg(Msg, DlgType, MsgButtons, HelpCtx);
1: MessageDlg(MsgCaption, Msg, DlgType, MsgButtons, HelpCtx);
2: MessageDlg(MsgCaption, Msg, DlgType, MsgButtons, MsgHelpKeyword);

4
components/messagecomposer/messagecomposerpkg.pas
View File

@ -2,7 +2,7 @@
This source is only used to compile and install the package.
}
unit messagescomposerpkg;
unit messagecomposerpkg;
interface
@ -17,5 +17,5 @@ begin
end;
initialization
RegisterPackage('messagescomposerpkg', @Register);
RegisterPackage('messagecomposerpkg', @Register);
end.