mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-09 12:35:55 +02:00
messagescomposer: added resourcestrings
git-svn-id: trunk@15317 -
This commit is contained in:
mattias
parent
865c66425e
commit
30d78489eb
@ -4,31 +4,43 @@ msgstr ""
|
||||
"Content-Type: text/plain; charset=UTF-8\n"
|
||||
"Content-Transfer-Encoding: 8bit\n"
|
||||
|
||||
#: messagecomposer:smessagecomposercaption
|
||||
msgid "Message Composer ..."
|
||||
msgstr ""
|
||||
|
||||
#: messagecomposer:smsgcaption
|
||||
msgid "The message to be shown"
|
||||
msgstr ""
|
||||
|
||||
#: messagecomposer:spromptcaption
|
||||
msgid "Text asking the user for input"
|
||||
msgstr ""
|
||||
|
||||
#: messagecomposer:smaskinput
|
||||
msgid "Mask Input"
|
||||
msgstr ""
|
||||
|
||||
#: messagecomposer:ssourcewrapper
|
||||
msgid "SOURCE WRAPPER"
|
||||
#: messagecomposer:rscancel
|
||||
msgid "Cancel"
|
||||
msgstr ""
|
||||
|
||||
#: messagecomposer:skindofmessage
|
||||
msgid "KIND OF MESSAGE"
|
||||
msgstr ""
|
||||
|
||||
#: messagecomposer:smaskinput
|
||||
msgid "Mask Input"
|
||||
msgstr ""
|
||||
|
||||
#: messagecomposer:smessagecomposercaption
|
||||
msgid "Message Composer ..."
|
||||
msgstr ""
|
||||
|
||||
#: messagecomposer:snotimplementedyet
|
||||
msgid "Not Implemented Yet"
|
||||
msgstr ""
|
||||
|
||||
#: messagecomposer:rsok
|
||||
msgid "Ok"
|
||||
msgstr ""
|
||||
|
||||
#: messagecomposer:ssourcewrapper
|
||||
msgid "SOURCE WRAPPER"
|
||||
msgstr ""
|
||||
|
||||
#: messagecomposer:rstest
|
||||
msgid "Test"
|
||||
msgstr ""
|
||||
|
||||
#: messagecomposer:spromptcaption
|
||||
msgid "Text asking the user for input"
|
||||
msgstr ""
|
||||
|
||||
#: messagecomposer:smsgcaption
|
||||
msgid "The message to be shown"
|
||||
msgstr ""
|
||||
|
||||
|
||||
@ -1,15 +1,15 @@
|
||||
object FormMessagesComposer: TFormMessagesComposer
|
||||
Left = 356
|
||||
Height = 553
|
||||
Top = 202
|
||||
Left = 650
|
||||
Height = 552
|
||||
Top = 195
|
||||
Width = 822
|
||||
HorzScrollBar.Page = 821
|
||||
VertScrollBar.Page = 552
|
||||
VertScrollBar.Page = 551
|
||||
ActiveControl = CaptionEdit
|
||||
BorderIcons = [biSystemMenu]
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Messages Composer'
|
||||
ClientHeight = 553
|
||||
ClientHeight = 552
|
||||
ClientWidth = 822
|
||||
OnCreate = MessagesInitExecute
|
||||
Position = poScreenCenter
|
||||
@ -390,7 +390,7 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
TabOrder = 12
|
||||
Text = 'DefaultEdit'
|
||||
end
|
||||
object Button1: TButton
|
||||
object TestButton: TButton
|
||||
Left = 307
|
||||
Height = 37
|
||||
Top = 501
|
||||
@ -399,7 +399,7 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
BorderSpacing.InnerBorder = 4
|
||||
TabOrder = 13
|
||||
end
|
||||
object Button2: TBitBtn
|
||||
object OkButton: TBitBtn
|
||||
Left = 605
|
||||
Height = 37
|
||||
Top = 501
|
||||
@ -414,8 +414,8 @@ object FormMessagesComposer: TFormMessagesComposer
|
||||
NumGlyphs = 0
|
||||
TabOrder = 14
|
||||
end
|
||||
object Button3: TBitBtn
|
||||
AnchorSideLeft.Control = Button2
|
||||
object CancelButton: TBitBtn
|
||||
AnchorSideLeft.Control = OkButton
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 709
|
||||
Height = 37
|
||||
|
||||
@ -1,22 +1,22 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TFormMessagesComposer','FORMDATA',[
|
||||
'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
|
||||
'TPF0'#21'TFormMessagesComposer'#20'FormMessagesComposer'#4'Left'#3#138#2#6'H'
|
||||
+'eight'#3'('#2#3'Top'#3#195#0#5'Width'#3'6'#3#18'HorzScrollBar.Page'#3'5'#3
|
||||
+#18'VertScrollBar.Page'#3''''#2#13'ActiveControl'#7#11'CaptionEdit'#11'Borde'
|
||||
+'rIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17
|
||||
+'Messages Composer'#12'ClientHeight'#3'('#2#11'ClientWidth'#3'6'#3#8'OnCreat'
|
||||
+'e'#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
|
||||
+'MsgLabel'#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'Paren'
|
||||
+'tColor'#8#0#0#6'TLabel'#16'HelpContextLabel'#4'Left'#2#8#6'Height'#2#20#3'T'
|
||||
+'op'#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
|
||||
+'Width'#2'W'#7'Caption'#6#12'Help KeyWord'#11'ParentColor'#8#0#0#6'TLabel'#6
|
||||
+'XLabel'#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'
|
||||
@ -100,41 +100,228 @@ LazarusResources.Add('TFormMessagesComposer','FORMDATA',[
|
||||
+'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'
|
||||
+'rder'#2#12#4'Text'#6#11'DefaultEdit'#0#0#7'TButton'#10'TestButton'#4'Left'#3
|
||||
+'3'#1#6'Height'#2'%'#3'Top'#3#245#1#5'Width'#3#0#1#6'Action'#7#4'Test'#25'Bo'
|
||||
+'rderSpacing.InnerBorder'#2#4#8'TabOrder'#2#13#0#0#7'TBitBtn'#8'OkButton'#4
|
||||
+'Left'#3']'#2#6'Height'#2'%'#3'Top'#3#245#1#5'Width'#2'd'#8'AutoSize'#9#7'Ca'
|
||||
+'ption'#6#3'&OK'#21'Constraints.MinHeight'#2'%'#20'Constraints.MinWidth'#2'd'
|
||||
+#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOr'
|
||||
+'der'#2#14#0#0#7'TBitBtn'#12'CancelButton'#22'AnchorSideLeft.Control'#7#8'Ok'
|
||||
+'Button'#19'AnchorSideLeft.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'Ca'
|
||||
+'ption'#6#6'Cancel'#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'TGroupBox'#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'C'
|
||||
+'lientHeight'#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'Ancho'
|
||||
+'rSideTop.Side'#7#9'asrBottom'#4'Left'#2#9#6'Height'#2#20#3'Top'#3#145#0#5'W'
|
||||
+'idth'#2'Z'#17'BorderSpacing.Top'#2#8#7'Caption'#6#13'String RESULT'#11'Pare'
|
||||
+'ntColor'#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'SetIfOrCaseExecute'#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0
|
||||
+#0#12'TRadioButton'#21'IfThenElseRadioButton'#4'Left'#2#7#6'Height'#2#22#3'T'
|
||||
+'op'#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'CaseOfEndRadioB'
|
||||
+'utton'#4'Left'#3#199#0#6'Height'#2#22#3'Top'#3#143#0#5'Width'#3#134#0#7'Cap'
|
||||
+'tion'#6#20'case ... of ... end;'#7'OnClick'#7#18'SetIfOrCaseExecute'#8'TabO'
|
||||
+'rder'#2#2#0#0#12'TRadioButton'#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'OnClick'#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#3#0#0#9'TCh'
|
||||
,'eckBox'#16'BeginEndCheckBox'#4'Left'#3#129#1#6'Height'#2#22#3'Top'#3#152#0#5
|
||||
+'Width'#2'g'#7'Caption'#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'cbactSearchAscendin'
|
||||
+'g'#0#17'BorderSpacing.Top'#2#3#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#192#0#6'Height'#2'v'#3'Top'#2#255#5'Width'#3'+'#1#8'Auto'
|
||||
+'Fill'#9#18'BorderSpacing.Left'#2#10#7'Caption'#6#13'"case" RESULT'#28'Child'
|
||||
+'Sizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildS'
|
||||
+'izing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enla'
|
||||
+'rgeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'
|
||||
+#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18
|
||||
+'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Cont'
|
||||
+'rolsPerLine'#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'StringResu'
|
||||
+'ltEdit'#21'AnchorSideTop.Control'#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'StringResultEd'
|
||||
+'it'#0#0#0#9'TComboBox'#19'KindMessageComboBox'#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'cb'
|
||||
+'actEndOfLineComplete'#20'cbactSearchAscending'#0#18'BorderSpacing.Left'#2#6
|
||||
+#17'BorderSpacing.Top'#2#4#19'BorderSpacing.Right'#2#6#9'ItemIndex'#2#0#13'I'
|
||||
+'tems.Strings'#1#6':MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCt'
|
||||
+'x]'#6'CMessageDlg[Caption, Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
|
||||
+#6'GMessageDlg[Caption, Msg, DlgType, Buttons(TMsgDlgButtons), HelpKeyword]'
|
||||
+#6'CMessageDlgPos[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y]'#6'U'
|
||||
+'MessageDlgPosHelp[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y, Hel'
|
||||
+'pFileName]'#6'DQuestionDlg[Caption, Msg, DlgType, Buttons(array of const), '
|
||||
+'HelpCtx]'#6'HQuestionDlg[Caption, Msg, DlgType, Buttons(array of const), He'
|
||||
+'lpKeyword]'#6#25'ShowMessage[Msg: string];'#6',ShowMessageFmt[Msg, Params(a'
|
||||
+'rray of const)];'#6#26'ShowMessagePos[Msg, X, Y];'#6'>InputQuery[Caption, P'
|
||||
+'rompt, MaskInput(Boolean), Value(String)]'#6'*InputQuery[Caption, Prompt, V'
|
||||
+'alue(String)]'#6'"InputBox[Caption, Prompt, Default]'#6#28'PasswordBox[Capt'
|
||||
+'ion, Prompt]'#0#8'OnChange'#7#19'MessageSetupExecute'#5'Style'#7#14'csDropD'
|
||||
+'ownList'#8'TabOrder'#2#17#4'Text'#6':MessageDlg[Msg, DlgType, Buttons(TMsgD'
|
||||
+'lgButtons), 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'BorderSpacing.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'Ac'
|
||||
+'tionList1'#4'left'#3#200#1#3'top'#3'p'#1#0#7'TAction'#8'AddConst'#7'Caption'
|
||||
+#6#8'AddConst'#18'DisableIfNoHandler'#9#9'OnExecute'#7#15'AddConstExecute'#0
|
||||
+#0#7'TAction'#8'DelConst'#7'Caption'#6#8'DelConst'#18'DisableIfNoHandler'#9#9
|
||||
+'OnExecute'#7#15'DelConstExecute'#0#0#7'TAction'#12'MessageSetup'#7'Caption'
|
||||
+#6#12'MessageSetup'#18'DisableIfNoHandler'#9#9'OnExecute'#7#19'MessageSetupE'
|
||||
+'xecute'#0#0#7'TAction'#12'MessagesInit'#7'Caption'#6#12'MessagesInit'#18'Di'
|
||||
+'sableIfNoHandler'#9#9'OnExecute'#7#19'MessagesInitExecute'#0#0#7'TAction'#4
|
||||
+'Test'#7'Caption'#6#4'Test'#18'DisableIfNoHandler'#9#9'OnExecute'#7#11'TestE'
|
||||
+'xecute'#0#0#7'TAction'#19'GetMessageForSource'#7'Caption'#6#19'GetMessageFo'
|
||||
+'rSource'#18'DisableIfNoHandler'#9#9'OnExecute'#7#26'GetMessageForSourceExec'
|
||||
+'ute'#0#0#7'TAction'#12'GetParamsFmt'#7'Caption'#6#12'GetParamsFmt'#18'Disab'
|
||||
+'leIfNoHandler'#9#9'OnExecute'#7#19'GetParamsFmtExecute'#0#0#7'TAction'#11'S'
|
||||
+'etIfOrCase'#7'Caption'#6#11'SetIfOrCase'#18'DisableIfNoHandler'#9#9'OnExecu'
|
||||
+'te'#7#18'SetIfOrCaseExecute'#0#0#7'TAction'#22'UpdateQuestioDlgResult'#7'Ca'
|
||||
+'ption'#6#22'UpdateQuestioDlgResult'#18'DisableIfNoHandler'#9#9'OnExecute'#7
|
||||
+#29'UpdateQuestioDlgResultExecute'#0#0#0#0#21'TFormMessagesComposer'#20'Form'
|
||||
+'MessagesComposer'#4'Left'#3#138#2#6'Height'#3'('#2#3'Top'#3#195#0#5'Width'#3
|
||||
+'6'#3#18'HorzScrollBar.Page'#3'5'#3#18'VertScrollBar.Page'#3''''#2#13'Active'
|
||||
+'Control'#7#11'CaptionEdit'#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderS'
|
||||
+'tyle'#7#8'bsDialog'#7'Caption'#6#17'Messages 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'MsgLabel'#4'Left'#2#6#6'Height'#2#20#3'To'
|
||||
+'p'#3#133#0#5'Width'#2'='#7'Caption'#6#8'MsgLabel'#11'ParentColor'#8#0#0#6'T'
|
||||
+'Label'#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'ParentColor'#8#0#0#6'TLabel'#16'HelpContext'
|
||||
+'Label'#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'Lef'
|
||||
+'t'#2'g'#6'Height'#2#20#3'Top'#3':'#1#5'Width'#2'W'#7'Caption'#6#12'Help Key'
|
||||
+'Word'#11'ParentColor'#8#0#0#6'TLabel'#6'XLabel'#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'Bord'
|
||||
+'erSpacing.Left'#2#8#7'Caption'#6#1'Y'#11'ParentColor'#8#0#0#6'TLabel'#17'He'
|
||||
+'lpFileNameLabel'#4'Left'#2#8#6'Height'#2#20#3'Top'#3'l'#1#5'Width'#2']'#7'C'
|
||||
+'aption'#6#13'Help FileName'#11'ParentColor'#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'Pr'
|
||||
+'omptLabel'#11'ParentColor'#8#0#0#6'TLabel'#10'ValueLabel'#4'Left'#2#16#6'He'
|
||||
+'ight'#2#20#3'Top'#3#222#1#5'Width'#2'F'#7'Caption'#6#11'Value (var)'#11'Par'
|
||||
+'entColor'#8#0#0#6'TLabel'#12'DefaultValue'#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'Bevel2'#4'Left'#2#8#6'Height'#2#9#3'T'
|
||||
+'op'#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'bsTopL'
|
||||
+'ine'#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'BorderS'
|
||||
+'pacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'Caption'#6#16'KindMessageLabe'
|
||||
+'l'#11'ParentColor'#8#0#0#5'TEdit'#11'CaptionEdit'#4'Left'#2#6#6'Height'#2#23
|
||||
+#3'Top'#2'V'#5'Width'#3#136#0#17'BorderSpacing.Top'#2#3#8'TabOrder'#2#0#4'Te'
|
||||
+'xt'#6#11'CaptionEdit'#0#0#9'TComboBox'#15'DlgTypeComboBox'#21'AnchorSideTop'
|
||||
+'.Control'#7#12'DlgTypeLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3
|
||||
+#154#0#6'Height'#2#31#3'Top'#2']'#5'Width'#2'x'#16'AutoCompleteText'#11#22'c'
|
||||
+'bactEndOfLineComplete'#20'cbactSearchAscending'#0#17'BorderSpacing.Top'#2#3
|
||||
+#9'ItemIndex'#2#0#13'Items.Strings'#1#6#9'mtWarning'#6#7'mtError'#6#13'mtInf'
|
||||
+'ormation'#6#14'mtConfirmation'#6#8'mtCustom'#0#9'MaxLength'#2#0#5'Style'#7
|
||||
+#14'csDropDownList'#8'TabOrder'#2#1#4'Text'#6#9'mtWarning'#0#0#11'TCheckGrou'
|
||||
+'p'#17'ButtonsCheckGroup'#4'Left'#3#29#1#6'Height'#3#177#0#3'Top'#2'F'#5'Wid'
|
||||
+'th'#3#216#0#8'AutoFill'#9#7'Caption'#6#24'BUTTONS (TMsgDlgButtons)'#28'Chil'
|
||||
+'dSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'Child'
|
||||
+'Sizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enl'
|
||||
+'argeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizonta'
|
||||
+'l'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'
|
||||
+#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.C'
|
||||
+'ontrolsPerLine'#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'mbRetry'#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'AnchorS'
|
||||
+'ideTop.Control'#7#16'HelpContextLabel'#18'AnchorSideTop.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'HelpKeyWordLabel'#18'AnchorSideTop.Side'#7#9'as'
|
||||
+'rBottom'#4'Left'#2'g'#6'Height'#2#23#3'Top'#3'Q'#1#5'Width'#3#171#0#17'Bord'
|
||||
+'erSpacing.Top'#2#3#8'TabOrder'#2#4#4'Text'#6#15'HelpKeyWordEdit'#0#0#6'TPan'
|
||||
+'el'#12'ButtonsPanel'#4'Left'#3#253#1#6'Height'#3#177#0#3'Top'#2'F'#5'Width'
|
||||
+#3#29#1#12'ClientHeight'#3#177#0#11'ClientWidth'#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'ColCount'#2#2#10'FixedColor'#7#9'clBt'
|
||||
+'nFace'#9'FixedCols'#2#0#7'Options'#11#15'goFixedVertLine'#15'goFixedHorzLin'
|
||||
+'e'#10'goVertLine'#10'goHorzLine'#13'goRangeSelect'#9'goEditing'#14'goSmooth'
|
||||
+'Scroll'#0#8'RowCount'#2#4#8'TabOrder'#2#0#16'OnPickListSelect'#7#29'UpdateQ'
|
||||
+'uestioDlgResultExecute'#14'OnSelectEditor'#7#29'ButtonsStringGridSelectEdit'
|
||||
+'or'#9'ColWidths'#1#3#171#0#2'h'#0#5'Cells'#1#2#8#2#0#2#0#6#24'BUTTONS (arra'
|
||||
,'y of const)'#2#0#2#1#6#3'Yes'#2#0#2#2#6#2'No'#2#0#2#3#6#6'Cancel'#2#1#2#0#6
|
||||
+#12'Modal Result'#2#1#2#1#6#5'mrYes'#2#1#2#2#6#4'mrNo'#2#1#2#3#6#8'mrCancel'
|
||||
+#0#0#0#6'TPanel'#6'Panel2'#4'Left'#2#1#6'Height'#2'%'#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'ClientWidth'#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'Ta'
|
||||
+'bOrder'#2#1#0#0#0#0#9'TSpinEdit'#9'XSpinEdit'#22'AnchorSideLeft.Control'#7#6
|
||||
+'XLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#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'TabOrd'
|
||||
+'er'#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'BorderSpacing.Left'#2#4#8'TabOrder'#2#7
|
||||
+#0#0#13'TFileNameEdit'#16'HelpFileNameEdit'#21'AnchorSideTop.Control'#7#17'H'
|
||||
+'elpFileNameLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Heigh'
|
||||
+'t'#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'ValueLabel'#18'AnchorSideTop.Si'
|
||||
+'de'#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'Text'#6#9'ValueEdit'#0#0#5'TEd'
|
||||
+'it'#11'DefaultEdit'#21'AnchorSideTop.Control'#7#12'DefaultValue'#18'AnchorS'
|
||||
+'ideTop.Side'#7#9'asrBottom'#4'Left'#3#138#0#6'Height'#2#23#3'Top'#3#245#1#5
|
||||
+'Width'#3#136#0#17'BorderSpacing.Top'#2#3#8'TabOrder'#2#12#4'Text'#6#11'Defa'
|
||||
+'ultEdit'#0#0#7'TButton'#10'TestButton'#4'Left'#3'3'#1#6'Height'#2'%'#3'Top'
|
||||
+#3#245#1#5'Width'#3#0#1#6'Action'#7#4'Test'#25'BorderSpacing.InnerBorder'#2#4
|
||||
+#8'TabOrder'#2#13#0#0#7'TBitBtn'#8'OkButton'#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'Default'#9#4'Kind'#7#4'bkO'
|
||||
+'K'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#14#0#0#7'TBitBtn'#12
|
||||
+'CancelButton'#22'AnchorSideLeft.Control'#7#8'OkButton'#19'AnchorSideLeft.Si'
|
||||
+'de'#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'Cancel'#21'Constra'
|
||||
+'ints.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'TGroupBox'#21'Sour'
|
||||
+'ceWrapperGroupBox'#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'Cl'
|
||||
+'ientWidth'#3#249#1#8'TabOrder'#2#16#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Hei'
|
||||
+'ght'#2#20#3'Top'#2#6#5'Width'#2'E'#7'Caption'#6#11'"if" RESULT'#11'ParentCo'
|
||||
+'lor'#8#0#0#6'TLabel'#17'StringResultLabel'#18'AnchorSideTop.Side'#7#9'asrBo'
|
||||
+'ttom'#4'Left'#2#9#6'Height'#2#20#3'Top'#3#145#0#5'Width'#2'Z'#17'BorderSpac'
|
||||
+'ing.Top'#2#8#7'Caption'#6#13'String RESULT'#11'ParentColor'#8#0#0#12'TRadio'
|
||||
+'Button'#17'IfThenRadioButton'#4'Left'#2#7#6'Height'#2#22#3'Top'#2'H'#5'Widt'
|
||||
+'h'#2'S'#7'Caption'#6#12'if...then...'#7'Checked'#9#7'OnClick'#7#18'SetIfOrC'
|
||||
+'aseExecute'#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 ... of '
|
||||
+'... end;'#7'OnClick'#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#2#0#0#12'TRadio'
|
||||
+'Button'#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'OnClick'
|
||||
+#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#3#0#0#9'TCheckBox'#16'BeginEndCheckB'
|
||||
+'ox'#4'Left'#3#129#1#6'Height'#2#22#3'Top'#3#152#0#5'Width'#2'g'#7'Caption'#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'
|
||||
,'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
|
||||
|
||||
@ -25,8 +25,9 @@ unit MessageComposer;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources, LCLType, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||
ExtCtrls, Spin, Grids, ActnList, ComCtrls, Buttons, EditBtn;
|
||||
Classes, SysUtils, LResources, LCLType, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, ExtCtrls, Spin, Grids, ActnList, ComCtrls, Buttons, EditBtn,
|
||||
IDECommands, MenuIntf, LazIDEIntf, SrcEditorIntf;
|
||||
|
||||
type
|
||||
|
||||
@ -46,8 +47,8 @@ type
|
||||
IfResultComboBox: TComboBox;
|
||||
StringResultEdit: TEdit;
|
||||
GetParamsFmt: TAction;
|
||||
Button2: TBitBtn;
|
||||
Button3: TBitBtn;
|
||||
OkButton: TBitBtn;
|
||||
CancelButton: TBitBtn;
|
||||
GetMessageForSource: TAction;
|
||||
Label1: TLabel;
|
||||
StringResultLabel: TLabel;
|
||||
@ -57,7 +58,7 @@ type
|
||||
CaseOfEndElseRadioButton: TRadioButton;
|
||||
SourceWrapperGroupBox: TGroupBox;
|
||||
Test: TAction;
|
||||
Button1: TButton;
|
||||
TestButton: TButton;
|
||||
MaskInputCheckBox: TCheckBox;
|
||||
PromptEdit: TEdit;
|
||||
ValueEdit: TEdit;
|
||||
@ -116,11 +117,9 @@ var
|
||||
|
||||
implementation
|
||||
|
||||
uses IDECommands, MenuIntf, LazIDEIntf, SrcEditorIntf;
|
||||
|
||||
const
|
||||
cMessageComposer = 'Message Composer';
|
||||
DoubleSpace = ' ';
|
||||
cMessageComposer = 'Message Composer';
|
||||
DoubleSpace = ' ';
|
||||
|
||||
resourcestring
|
||||
SMessageComposerCaption = 'Message Composer ...';
|
||||
@ -130,6 +129,9 @@ resourcestring
|
||||
SSourceWrapper = 'SOURCE WRAPPER';
|
||||
SKindofMessage = 'KIND OF MESSAGE';
|
||||
SNotImplementedYet = 'Not Implemented Yet';
|
||||
rsTest = 'Test';
|
||||
rsOk = 'Ok';
|
||||
rsCancel = 'Cancel';
|
||||
|
||||
var
|
||||
CmdMessageComposer: TIDECommand;
|
||||
@ -140,29 +142,29 @@ var
|
||||
procedure ExecuteMessagesComposer(Sender: TObject);
|
||||
var FormMessagesComposer: TFormMessagesComposer;
|
||||
|
||||
procedure FormatSrcMessage;
|
||||
var ListSrcMessages: TStringList;
|
||||
indx: integer;
|
||||
BaseStart: string;
|
||||
begin
|
||||
BaseStart := EmptyStr;
|
||||
for indx := 1 to SourceEditorWindow.ActiveEditor.CursorTextXY.x-
|
||||
Length(SourceEditorWindow.ActiveEditor.Selection)-1 do
|
||||
BaseStart := BaseStart+#32;
|
||||
procedure FormatSrcMessage;
|
||||
var ListSrcMessages: TStringList;
|
||||
indx: integer;
|
||||
BaseStart: string;
|
||||
begin
|
||||
BaseStart := EmptyStr;
|
||||
for indx := 1 to SourceEditorWindow.ActiveEditor.CursorTextXY.x-
|
||||
Length(SourceEditorWindow.ActiveEditor.Selection)-1 do
|
||||
BaseStart := BaseStart+#32;
|
||||
|
||||
ListSrcMessages := TStringList.Create;
|
||||
ListSrcMessages.Text := srcMessage;
|
||||
if (Pos('if ',srcMessage) = 1)or(Pos('case ',srcMessage) = 1) then
|
||||
for indx := 1 to ListSrcMessages.Count-1 do
|
||||
ListSrcMessages.Strings[indx] := BaseStart+ListSrcMessages.Strings[indx];
|
||||
ListSrcMessages := TStringList.Create;
|
||||
ListSrcMessages.Text := srcMessage;
|
||||
if (Pos('if ',srcMessage) = 1)or(Pos('case ',srcMessage) = 1) then
|
||||
for indx := 1 to ListSrcMessages.Count-1 do
|
||||
ListSrcMessages.Strings[indx] := BaseStart+ListSrcMessages.Strings[indx];
|
||||
|
||||
if Pos('case ',srcMessage) = 1 then
|
||||
for indx := 1 to ListSrcMessages.Count-2 do
|
||||
ListSrcMessages.Strings[indx] := DoubleSpace+ListSrcMessages.Strings[indx];
|
||||
if Pos('case ',srcMessage) = 1 then
|
||||
for indx := 1 to ListSrcMessages.Count-2 do
|
||||
ListSrcMessages.Strings[indx] := DoubleSpace+ListSrcMessages.Strings[indx];
|
||||
|
||||
srcMessage := ListSrcMessages.Text;
|
||||
ListSrcMessages.Free;
|
||||
end;
|
||||
srcMessage := ListSrcMessages.Text;
|
||||
ListSrcMessages.Free;
|
||||
end;
|
||||
|
||||
begin
|
||||
Assert(Sender <> nil); // removes compiler warning
|
||||
@ -732,6 +734,9 @@ begin
|
||||
MaskInputCheckBox.Caption := SMaskInput;
|
||||
SourceWrapperGroupBox.Caption := SSourceWrapper;
|
||||
KindMessageLabel.Caption := SKindofMessage;
|
||||
TestButton.Caption:=rsTest;
|
||||
OkButton.Caption:=rsOk;
|
||||
CancelButton.Caption:=rsCancel;
|
||||
|
||||
MessageSetup.Execute;
|
||||
end;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user