Message Composer:

1) Improved localization.
  2) Removed LRS file.
  3) Updated Russian translation and regenerated others.

git-svn-id: trunk@25254 -
This commit is contained in:
maxim 2010-05-08 16:15:48 +00:00
parent 208b0d5205
commit 9528a09d43
11 changed files with 588 additions and 344 deletions

1
.gitattributes vendored
View File

@ -1564,7 +1564,6 @@ components/messagecomposer/languages/messagecomposer.po svneol=native#text/plain
components/messagecomposer/languages/messagecomposer.ru.po svneol=native#text/plain
components/messagecomposer/languages/messagecomposer.zh_CN.po svneol=native#text/plain
components/messagecomposer/messagecomposer.lfm svneol=native#text/plain
components/messagecomposer/messagecomposer.lrs svneol=native#text/pascal
components/messagecomposer/messagecomposer.pas svneol=native#text/plain
components/messagecomposer/messagecomposerpkg.lpk svneol=native#text/plain
components/messagecomposer/messagecomposerpkg.pas svneol=native#text/plain

View File

@ -17,31 +17,101 @@ msgid "Cancel"
msgstr "Abbrechen"
#: messagecomposer.rsok
msgid "Ok"
#, fuzzy
#| msgid "Ok"
msgid "OK"
msgstr "OK"
#: messagecomposer.rstest
msgid "Test"
msgstr "Test"
#: messagecomposer.sadd
msgid "Add"
msgstr ""
#: messagecomposer.sbuttonsarrayofconst
msgid "Buttons (array of const)"
msgstr ""
#: messagecomposer.sbuttonstmsgdlgbuttons
msgid "Buttons (TMsgDlgButtons)"
msgstr ""
#: messagecomposer.scaseresult
msgid "\"Case\" result"
msgstr ""
#: messagecomposer.sdefault
msgid "Default"
msgstr ""
#: messagecomposer.sdelete
msgid "Delete"
msgstr ""
#: messagecomposer.sdlgcaption
msgid "Dialog caption"
msgstr ""
#: messagecomposer.sdlgtype
msgid "Dialog type"
msgstr ""
#: messagecomposer.shelpcontext
msgid "Help context"
msgstr ""
#: messagecomposer.shelpfilename
msgid "Help filename"
msgstr ""
#: messagecomposer.shelpkeyword
msgid "Help keyword"
msgstr ""
#: messagecomposer.sifresult
msgid "\"If\" result"
msgstr ""
#: messagecomposer.skindofmessage
msgid "KIND OF MESSAGE"
#, fuzzy
#| msgid "KIND OF MESSAGE"
msgid "Kind of message"
msgstr "ART DER MELDUNG"
#: messagecomposer.smaskinput
msgid "Mask Input"
#, fuzzy
#| msgid "Mask Input"
msgid "Mask input"
msgstr "Maskeneingabe"
#: messagecomposer.smessagecomposercaption
#, fuzzy
#| msgid "Message Composer ..."
msgctxt "messagecomposer.smessagecomposercaption"
msgid "Message Composer"
msgstr "Message-Composer ..."
#: messagecomposer.smessagecomposermenucaption
#, fuzzy
#| msgid "Message Composer ..."
msgctxt "messagecomposer.smessagecomposermenucaption"
msgid "Message Composer ..."
msgstr "Message-Composer ..."
#: messagecomposer.smodalresult
msgid "Modal result"
msgstr ""
#: messagecomposer.smsgcaption
msgid "The message to be shown"
msgstr "Die anzuzeigende Meldung"
#: messagecomposer.snotimplementedyet
msgid "Not Implemented Yet"
#, fuzzy
#| msgid "Not Implemented Yet"
msgid "Not implemented yet"
msgstr "Noch nicht implementiert"
#: messagecomposer.spromptcaption
@ -49,6 +119,12 @@ msgid "Text asking the user for input"
msgstr "Text um nach einer Eingabe zu fragen"
#: messagecomposer.ssourcewrapper
msgid "SOURCE WRAPPER"
#, fuzzy
#| msgid "SOURCE WRAPPER"
msgid "Source wrapper"
msgstr "QUELL-MANTEL"
#: messagecomposer.svaluevar
msgid "Value (var)"
msgstr ""

View File

@ -15,31 +15,101 @@ msgid "Cancel"
msgstr "Atsisakyti"
#: messagecomposer.rsok
msgid "Ok"
#, fuzzy
#| msgid "Ok"
msgid "OK"
msgstr "Tinka"
#: messagecomposer.rstest
msgid "Test"
msgstr "Testas"
#: messagecomposer.sadd
msgid "Add"
msgstr ""
#: messagecomposer.sbuttonsarrayofconst
msgid "Buttons (array of const)"
msgstr ""
#: messagecomposer.sbuttonstmsgdlgbuttons
msgid "Buttons (TMsgDlgButtons)"
msgstr ""
#: messagecomposer.scaseresult
msgid "\"Case\" result"
msgstr ""
#: messagecomposer.sdefault
msgid "Default"
msgstr ""
#: messagecomposer.sdelete
msgid "Delete"
msgstr ""
#: messagecomposer.sdlgcaption
msgid "Dialog caption"
msgstr ""
#: messagecomposer.sdlgtype
msgid "Dialog type"
msgstr ""
#: messagecomposer.shelpcontext
msgid "Help context"
msgstr ""
#: messagecomposer.shelpfilename
msgid "Help filename"
msgstr ""
#: messagecomposer.shelpkeyword
msgid "Help keyword"
msgstr ""
#: messagecomposer.sifresult
msgid "\"If\" result"
msgstr ""
#: messagecomposer.skindofmessage
msgid "KIND OF MESSAGE"
#, fuzzy
#| msgid "KIND OF MESSAGE"
msgid "Kind of message"
msgstr "Pranešimo tipas"
#: messagecomposer.smaskinput
msgid "Mask Input"
#, fuzzy
#| msgid "Mask Input"
msgid "Mask input"
msgstr "Įvestis pagal kaukę"
#: messagecomposer.smessagecomposercaption
#, fuzzy
#| msgid "Message Composer ..."
msgctxt "messagecomposer.smessagecomposercaption"
msgid "Message Composer"
msgstr "Pranešimų rengyklė ..."
#: messagecomposer.smessagecomposermenucaption
#, fuzzy
#| msgid "Message Composer ..."
msgctxt "messagecomposer.smessagecomposermenucaption"
msgid "Message Composer ..."
msgstr "Pranešimų rengyklė ..."
#: messagecomposer.smodalresult
msgid "Modal result"
msgstr ""
#: messagecomposer.smsgcaption
msgid "The message to be shown"
msgstr "Rodomas pranešimas"
#: messagecomposer.snotimplementedyet
msgid "Not Implemented Yet"
#, fuzzy
#| msgid "Not Implemented Yet"
msgid "Not implemented yet"
msgstr "Dar neįgyvendinta"
#: messagecomposer.spromptcaption
@ -47,6 +117,12 @@ msgid "Text asking the user for input"
msgstr "Tekstas, kviečiantis įvesti"
#: messagecomposer.ssourcewrapper
msgid "SOURCE WRAPPER"
#, fuzzy
#| msgid "SOURCE WRAPPER"
msgid "Source wrapper"
msgstr "Pirminio kodo formuotojas"
#: messagecomposer.svaluevar
msgid "Value (var)"
msgstr ""

View File

@ -14,31 +14,101 @@ msgid "Cancel"
msgstr "Cancelar"
#: messagecomposer.rsok
msgid "Ok"
#, fuzzy
#| msgid "Ok"
msgid "OK"
msgstr "Ok"
#: messagecomposer.rstest
msgid "Test"
msgstr "Testar"
#: messagecomposer.sadd
msgid "Add"
msgstr ""
#: messagecomposer.sbuttonsarrayofconst
msgid "Buttons (array of const)"
msgstr ""
#: messagecomposer.sbuttonstmsgdlgbuttons
msgid "Buttons (TMsgDlgButtons)"
msgstr ""
#: messagecomposer.scaseresult
msgid "\"Case\" result"
msgstr ""
#: messagecomposer.sdefault
msgid "Default"
msgstr ""
#: messagecomposer.sdelete
msgid "Delete"
msgstr ""
#: messagecomposer.sdlgcaption
msgid "Dialog caption"
msgstr ""
#: messagecomposer.sdlgtype
msgid "Dialog type"
msgstr ""
#: messagecomposer.shelpcontext
msgid "Help context"
msgstr ""
#: messagecomposer.shelpfilename
msgid "Help filename"
msgstr ""
#: messagecomposer.shelpkeyword
msgid "Help keyword"
msgstr ""
#: messagecomposer.sifresult
msgid "\"If\" result"
msgstr ""
#: messagecomposer.skindofmessage
msgid "KIND OF MESSAGE"
#, fuzzy
#| msgid "KIND OF MESSAGE"
msgid "Kind of message"
msgstr "NATUREZA DA MENSAGEM"
#: messagecomposer.smaskinput
msgid "Mask Input"
#, fuzzy
#| msgid "Mask Input"
msgid "Mask input"
msgstr "Entrar máscara"
#: messagecomposer.smessagecomposercaption
#, fuzzy
#| msgid "Message Composer ..."
msgctxt "messagecomposer.smessagecomposercaption"
msgid "Message Composer"
msgstr "Compositor Mensagens ..."
#: messagecomposer.smessagecomposermenucaption
#, fuzzy
#| msgid "Message Composer ..."
msgctxt "messagecomposer.smessagecomposermenucaption"
msgid "Message Composer ..."
msgstr "Compositor Mensagens ..."
#: messagecomposer.smodalresult
msgid "Modal result"
msgstr ""
#: messagecomposer.smsgcaption
msgid "The message to be shown"
msgstr "A mensagem à ser mostrada"
#: messagecomposer.snotimplementedyet
msgid "Not Implemented Yet"
#, fuzzy
#| msgid "Not Implemented Yet"
msgid "Not implemented yet"
msgstr "Não Implementado Ainda"
#: messagecomposer.spromptcaption
@ -47,6 +117,11 @@ msgstr "Texto solicitando digitação do usuário"
#: messagecomposer.ssourcewrapper
#, fuzzy
msgid "SOURCE WRAPPER"
#| msgid "SOURCE WRAPPER"
msgid "Source wrapper"
msgstr "INVÓLUCRO FONTE"
#: messagecomposer.svaluevar
msgid "Value (var)"
msgstr ""

View File

@ -9,31 +9,89 @@ msgid "Cancel"
msgstr ""
#: messagecomposer.rsok
msgid "Ok"
msgid "OK"
msgstr ""
#: messagecomposer.rstest
msgid "Test"
msgstr ""
#: messagecomposer.sadd
msgid "Add"
msgstr ""
#: messagecomposer.sbuttonsarrayofconst
msgid "Buttons (array of const)"
msgstr ""
#: messagecomposer.sbuttonstmsgdlgbuttons
msgid "Buttons (TMsgDlgButtons)"
msgstr ""
#: messagecomposer.scaseresult
msgid "\"Case\" result"
msgstr ""
#: messagecomposer.sdefault
msgid "Default"
msgstr ""
#: messagecomposer.sdelete
msgid "Delete"
msgstr ""
#: messagecomposer.sdlgcaption
msgid "Dialog caption"
msgstr ""
#: messagecomposer.sdlgtype
msgid "Dialog type"
msgstr ""
#: messagecomposer.shelpcontext
msgid "Help context"
msgstr ""
#: messagecomposer.shelpfilename
msgid "Help filename"
msgstr ""
#: messagecomposer.shelpkeyword
msgid "Help keyword"
msgstr ""
#: messagecomposer.sifresult
msgid "\"If\" result"
msgstr ""
#: messagecomposer.skindofmessage
msgid "KIND OF MESSAGE"
msgid "Kind of message"
msgstr ""
#: messagecomposer.smaskinput
msgid "Mask Input"
msgid "Mask input"
msgstr ""
#: messagecomposer.smessagecomposercaption
msgctxt "messagecomposer.smessagecomposercaption"
msgid "Message Composer"
msgstr ""
#: messagecomposer.smessagecomposermenucaption
msgctxt "messagecomposer.smessagecomposermenucaption"
msgid "Message Composer ..."
msgstr ""
#: messagecomposer.smodalresult
msgid "Modal result"
msgstr ""
#: messagecomposer.smsgcaption
msgid "The message to be shown"
msgstr ""
#: messagecomposer.snotimplementedyet
msgid "Not Implemented Yet"
msgid "Not implemented yet"
msgstr ""
#: messagecomposer.spromptcaption
@ -41,6 +99,10 @@ msgid "Text asking the user for input"
msgstr ""
#: messagecomposer.ssourcewrapper
msgid "SOURCE WRAPPER"
msgid "Source wrapper"
msgstr ""
#: messagecomposer.svaluevar
msgid "Value (var)"
msgstr ""

View File

@ -14,38 +14,107 @@ msgid "Cancel"
msgstr "Отмена"
#: messagecomposer.rsok
msgid "Ok"
#| msgid "Ok"
msgid "OK"
msgstr "ОК"
#: messagecomposer.rstest
msgid "Test"
msgstr "Тест"
#: messagecomposer.sadd
msgid "Add"
msgstr "Добавить"
#: messagecomposer.sbuttonsarrayofconst
msgid "Buttons (array of const)"
msgstr "Кнопки (array of const)"
#: messagecomposer.sbuttonstmsgdlgbuttons
msgid "Buttons (TMsgDlgButtons)"
msgstr "Кнопки (TMsgDlgButtons)"
#: messagecomposer.scaseresult
msgid "\"Case\" result"
msgstr "Результат \"Case\""
#: messagecomposer.sdefault
msgid "Default"
msgstr "По умолчанию"
#: messagecomposer.sdelete
msgid "Delete"
msgstr "Удалить"
#: messagecomposer.sdlgcaption
msgid "Dialog caption"
msgstr "Заголовок диалога"
#: messagecomposer.sdlgtype
msgid "Dialog type"
msgstr "Тип диалога"
#: messagecomposer.shelpcontext
msgid "Help context"
msgstr "Контекст справки"
#: messagecomposer.shelpfilename
msgid "Help filename"
msgstr "Имя файла справки"
#: messagecomposer.shelpkeyword
msgid "Help keyword"
msgstr "Ключевое слово справки"
#: messagecomposer.sifresult
msgid "\"If\" result"
msgstr "Результат \"If\""
#: messagecomposer.skindofmessage
msgid "KIND OF MESSAGE"
#| msgid "KIND OF MESSAGE"
msgid "Kind of message"
msgstr "Тип сообщения"
#: messagecomposer.smaskinput
msgid "Mask Input"
#| msgid "Mask Input"
msgid "Mask input"
msgstr "Маскировать ввод"
#: messagecomposer.smessagecomposercaption
#| msgid "Message Composer ..."
msgctxt "messagecomposer.smessagecomposercaption"
msgid "Message Composer"
msgstr "Составитель сообщений"
#: messagecomposer.smessagecomposermenucaption
#| msgid "Message Composer ..."
msgctxt "messagecomposer.smessagecomposermenucaption"
msgid "Message Composer ..."
msgstr "Составитель сообщений ..."
#: messagecomposer.smodalresult
msgid "Modal result"
msgstr "Модальный результат"
#: messagecomposer.smsgcaption
msgid "The message to be shown"
msgstr "Отображаемое сообщение"
#: messagecomposer.snotimplementedyet
msgid "Not Implemented Yet"
msgstr "Еще не реализовано"
#| msgid "Not Implemented Yet"
msgid "Not implemented yet"
msgstr "Ещё не реализовано"
#: messagecomposer.spromptcaption
msgid "Text asking the user for input"
msgstr "Текст запроса на ввод пользователем"
#: messagecomposer.ssourcewrapper
msgid "SOURCE WRAPPER"
#| msgid "SOURCE WRAPPER"
msgid "Source wrapper"
msgstr "Вызывающий исходный код"
#: messagecomposer.svaluevar
msgid "Value (var)"
msgstr "Значение (переменная)"

View File

@ -17,31 +17,99 @@ msgid "Cancel"
msgstr "取消"
#: messagecomposer.rsok
msgid "Ok"
#, fuzzy
#| msgid "Ok"
msgid "OK"
msgstr "确定"
#: messagecomposer.rstest
msgid "Test"
msgstr "测试"
#: messagecomposer.sadd
msgid "Add"
msgstr ""
#: messagecomposer.sbuttonsarrayofconst
msgid "Buttons (array of const)"
msgstr ""
#: messagecomposer.sbuttonstmsgdlgbuttons
msgid "Buttons (TMsgDlgButtons)"
msgstr ""
#: messagecomposer.scaseresult
msgid "\"Case\" result"
msgstr ""
#: messagecomposer.sdefault
msgid "Default"
msgstr ""
#: messagecomposer.sdelete
msgid "Delete"
msgstr ""
#: messagecomposer.sdlgcaption
msgid "Dialog caption"
msgstr ""
#: messagecomposer.sdlgtype
msgid "Dialog type"
msgstr ""
#: messagecomposer.shelpcontext
msgid "Help context"
msgstr ""
#: messagecomposer.shelpfilename
msgid "Help filename"
msgstr ""
#: messagecomposer.shelpkeyword
msgid "Help keyword"
msgstr ""
#: messagecomposer.sifresult
msgid "\"If\" result"
msgstr ""
#: messagecomposer.skindofmessage
msgid "KIND OF MESSAGE"
#, fuzzy
#| msgid "KIND OF MESSAGE"
msgid "Kind of message"
msgstr "信息类型"
#: messagecomposer.smaskinput
msgid "Mask Input"
msgid "Mask input"
msgstr ""
#: messagecomposer.smessagecomposercaption
#, fuzzy
#| msgid "Message Composer ..."
msgctxt "messagecomposer.smessagecomposercaption"
msgid "Message Composer"
msgstr "ÐÅÏ¢¿ØÖÆ ..."
#: messagecomposer.smessagecomposermenucaption
#, fuzzy
#| msgid "Message Composer ..."
msgctxt "messagecomposer.smessagecomposermenucaption"
msgid "Message Composer ..."
msgstr "信息控制 ..."
#: messagecomposer.smodalresult
msgid "Modal result"
msgstr ""
#: messagecomposer.smsgcaption
msgid "The message to be shown"
msgstr "显示信息"
#: messagecomposer.snotimplementedyet
msgid "Not Implemented Yet"
#, fuzzy
#| msgid "Not Implemented Yet"
msgid "Not implemented yet"
msgstr "未实现"
#: messagecomposer.spromptcaption
@ -49,6 +117,10 @@ msgid "Text asking the user for input"
msgstr "询问用户输入文本"
#: messagecomposer.ssourcewrapper
msgid "SOURCE WRAPPER"
msgid "Source wrapper"
msgstr ""
#: messagecomposer.svaluevar
msgid "Value (var)"
msgstr ""

View File

@ -4,7 +4,6 @@ object FormMessagesComposer: TFormMessagesComposer
Height = 552
Top = 195
Width = 822
ActiveControl = CaptionEdit
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Messages Composer'
@ -12,12 +11,12 @@ object FormMessagesComposer: TFormMessagesComposer
ClientWidth = 822
OnCreate = MessagesInitExecute
Position = poScreenCenter
LCLVersion = '0.9.27'
LCLVersion = '0.9.29'
object CaptionLabel: TLabel
Left = 6
Height = 18
Height = 14
Top = 70
Width = 84
Width = 63
Caption = 'CaptionLabel'
ParentColor = False
end
@ -25,18 +24,18 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = CaptionEdit
AnchorSideTop.Side = asrBottom
Left = 6
Height = 18
Top = 130
Width = 61
Height = 14
Top = 120
Width = 45
BorderSpacing.Top = 12
Caption = 'MsgLabel'
ParentColor = False
end
object DlgTypeLabel: TLabel
Left = 154
Height = 18
Height = 14
Top = 70
Width = 50
Width = 40
Caption = 'DlgType'
ParentColor = False
end
@ -44,9 +43,9 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = HelpCtxBevel
AnchorSideTop.Side = asrBottom
Left = 8
Height = 18
Top = 308
Width = 84
Height = 14
Top = 294
Width = 64
Caption = 'Help Context'
ParentColor = False
end
@ -54,9 +53,9 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = HelpContextLabel
AnchorSideTop.Side = asrCenter
Left = 103
Height = 18
Top = 308
Width = 87
Height = 14
Top = 294
Width = 69
Caption = 'Help KeyWord'
ParentColor = False
end
@ -64,9 +63,9 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = XSpinEdit
AnchorSideTop.Side = asrCenter
Left = 6
Height = 18
Top = 270
Width = 9
Height = 14
Top = 258
Width = 7
Caption = 'X'
ParentColor = False
end
@ -75,10 +74,10 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = YSpinEdit
AnchorSideTop.Side = asrCenter
Left = 93
Height = 18
Top = 270
Width = 8
Left = 91
Height = 14
Top = 258
Width = 7
BorderSpacing.Left = 8
Caption = 'Y'
ParentColor = False
@ -87,34 +86,34 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = HelpContextSpinEdit
AnchorSideTop.Side = asrBottom
Left = 8
Height = 18
Top = 362
Width = 93
Height = 14
Top = 344
Width = 68
BorderSpacing.Top = 6
Caption = 'Help FileName'
ParentColor = False
end
object PromptLabel: TLabel
Left = 16
Height = 18
Height = 14
Top = 425
Width = 82
Width = 60
Caption = 'PromptLabel'
ParentColor = False
end
object ValueLabel: TLabel
Left = 16
Height = 18
Height = 14
Top = 478
Width = 70
Width = 54
Caption = 'Value (var)'
ParentColor = False
end
object DefaultValue: TLabel
Left = 138
Height = 18
Height = 14
Top = 478
Width = 47
Width = 36
Caption = 'Default'
ParentColor = False
end
@ -123,7 +122,7 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Side = asrBottom
Left = 5
Height = 9
Top = 251
Top = 237
Width = 269
BorderSpacing.Top = 6
Shape = bsTopLine
@ -140,13 +139,13 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Side = asrBottom
Left = 8
Height = 9
Top = 299
Top = 285
Width = 266
Shape = bsTopLine
end
object KindMessageLabel: TLabel
Left = 6
Height = 18
Height = 14
Top = 6
Width = 810
Align = alTop
@ -160,8 +159,8 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = CaptionLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 27
Top = 91
Height = 21
Top = 87
Width = 136
BorderSpacing.Top = 3
TabOrder = 0
@ -171,11 +170,11 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = DlgTypeLabel
AnchorSideTop.Side = asrBottom
Left = 154
Height = 31
Top = 91
Height = 21
Top = 87
Width = 120
BorderSpacing.Top = 3
ItemHeight = 0
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'mtWarning'
@ -229,7 +228,7 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Side = asrBottom
Left = 8
Height = 27
Top = 329
Top = 311
Width = 61
BorderSpacing.Top = 3
MaxValue = 9999
@ -239,8 +238,8 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = HelpKeyWordLabel
AnchorSideTop.Side = asrBottom
Left = 103
Height = 27
Top = 329
Height = 21
Top = 311
Width = 171
BorderSpacing.Top = 3
TabOrder = 4
@ -337,9 +336,9 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = PositionBevel
AnchorSideTop.Side = asrBottom
Left = 19
Left = 17
Height = 27
Top = 266
Top = 252
Width = 66
BorderSpacing.Left = 4
BorderSpacing.Top = 6
@ -351,9 +350,9 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = XSpinEdit
AnchorSideTop.Side = asrCenter
Left = 105
Left = 102
Height = 27
Top = 266
Top = 252
Width = 66
BorderSpacing.Left = 4
TabOrder = 7
@ -362,8 +361,8 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = HelpFileNameLabel
AnchorSideTop.Side = asrBottom
Left = 8
Height = 27
Top = 383
Height = 21
Top = 361
Width = 244
DialogOptions = []
FilterIndex = 0
@ -371,14 +370,15 @@ object FormMessagesComposer: TFormMessagesComposer
ButtonWidth = 23
NumGlyphs = 1
BorderSpacing.Top = 3
MaxLength = 0
TabOrder = 8
end
object PromptEdit: TEdit
AnchorSideTop.Control = PromptLabel
AnchorSideTop.Side = asrBottom
Left = 16
Height = 27
Top = 446
Height = 21
Top = 442
Width = 164
BorderSpacing.Top = 3
TabOrder = 9
@ -388,9 +388,9 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = PromptEdit
AnchorSideTop.Side = asrCenter
Left = 191
Height = 22
Top = 448
Width = 89
Height = 17
Top = 444
Width = 68
Caption = 'MaskInput'
TabOrder = 10
end
@ -398,8 +398,8 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = ValueLabel
AnchorSideTop.Side = asrBottom
Left = 16
Height = 27
Top = 499
Height = 21
Top = 495
Width = 112
BorderSpacing.Top = 3
TabOrder = 11
@ -409,8 +409,8 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = DefaultValue
AnchorSideTop.Side = asrBottom
Left = 138
Height = 27
Top = 499
Height = 21
Top = 495
Width = 136
BorderSpacing.Top = 3
TabOrder = 12
@ -463,32 +463,32 @@ object FormMessagesComposer: TFormMessagesComposer
Top = 264
Width = 509
Caption = 'SourceWrapperGroupBox'
ClientHeight = 202
ClientHeight = 203
ClientWidth = 505
TabOrder = 16
object Label1: TLabel
Left = 7
Height = 18
Height = 14
Top = 6
Width = 69
Width = 55
Caption = '"if" RESULT'
ParentColor = False
end
object StringResultLabel: TLabel
AnchorSideTop.Side = asrBottom
Left = 9
Height = 18
Height = 14
Top = 145
Width = 90
Width = 69
BorderSpacing.Top = 8
Caption = 'String RESULT'
ParentColor = False
end
object IfThenRadioButton: TRadioButton
Left = 7
Height = 22
Height = 17
Top = 72
Width = 83
Width = 70
Caption = 'if...then...'
Checked = True
OnClick = SetIfOrCaseExecute
@ -499,9 +499,9 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = IfThenRadioButton
AnchorSideTop.Side = asrBottom
Left = 7
Height = 22
Top = 96
Width = 125
Height = 17
Top = 91
Width = 104
BorderSpacing.Top = 2
Caption = 'if...then...else ...'
OnClick = SetIfOrCaseExecute
@ -510,9 +510,9 @@ object FormMessagesComposer: TFormMessagesComposer
end
object CaseOfEndRadioButton: TRadioButton
Left = 199
Height = 22
Height = 17
Top = 143
Width = 134
Width = 108
Caption = 'case ... of ... end;'
OnClick = SetIfOrCaseExecute
TabOrder = 2
@ -522,9 +522,9 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = CaseOfEndRadioButton
AnchorSideTop.Side = asrBottom
Left = 199
Height = 22
Top = 167
Width = 148
Height = 17
Top = 162
Width = 120
BorderSpacing.Top = 2
Caption = 'case ... of ... else ...'
OnClick = SetIfOrCaseExecute
@ -533,9 +533,9 @@ object FormMessagesComposer: TFormMessagesComposer
end
object BeginEndCheckBox: TCheckBox
Left = 385
Height = 22
Height = 17
Top = 152
Width = 103
Width = 80
Caption = 'begin ... end'
TabOrder = 4
end
@ -543,11 +543,11 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 7
Height = 31
Top = 27
Height = 21
Top = 23
Width = 175
BorderSpacing.Top = 3
ItemHeight = 0
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'mbOK'
@ -589,8 +589,8 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = StringResultLabel
AnchorSideTop.Side = asrBottom
Left = 9
Height = 27
Top = 166
Height = 21
Top = 162
Width = 173
BorderSpacing.Top = 3
TabOrder = 7
@ -599,14 +599,14 @@ object FormMessagesComposer: TFormMessagesComposer
end
object KindMessageComboBox: TComboBox
Left = 6
Height = 31
Top = 28
Height = 21
Top = 24
Width = 810
Align = alTop
BorderSpacing.Left = 6
BorderSpacing.Top = 4
BorderSpacing.Right = 6
ItemHeight = 0
ItemHeight = 13
ItemIndex = 0
Items.Strings = (
'MessageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'
@ -634,7 +634,7 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Side = asrBottom
Left = 6
Height = 94
Top = 151
Top = 137
Width = 268
BorderSpacing.Top = 3
Lines.Strings = (

View File

@ -1,204 +0,0 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TFormMessagesComposer','FORMDATA',[
'TPF0'#21'TFormMessagesComposer'#20'FormMessagesComposer'#19'AnchorSideLeft.S'
+'ide'#7#9'asrBottom'#4'Left'#3#138#2#6'Height'#3'('#2#3'Top'#3#195#0#5'Width'
+#3'6'#3#13'ActiveControl'#7#11'CaptionEdit'#11'BorderIcons'#11#12'biSystemMe'
+'nu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Messages Composer'#12'C'
+'lientHeight'#3'('#2#11'ClientWidth'#3'6'#3#8'OnCreate'#7#19'MessagesInitExe'
+'cute'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6'TLabe'
+'l'#12'CaptionLabel'#4'Left'#2#6#6'Height'#2#18#3'Top'#2'F'#5'Width'#2'T'#7
+'Caption'#6#12'CaptionLabel'#11'ParentColor'#8#0#0#6'TLabel'#8'MsgLabel'#21
+'AnchorSideTop.Control'#7#11'CaptionEdit'#18'AnchorSideTop.Side'#7#9'asrBott'
+'om'#4'Left'#2#6#6'Height'#2#18#3'Top'#3#130#0#5'Width'#2'='#17'BorderSpacin'
+'g.Top'#2#12#7'Caption'#6#8'MsgLabel'#11'ParentColor'#8#0#0#6'TLabel'#12'Dlg'
+'TypeLabel'#4'Left'#3#154#0#6'Height'#2#18#3'Top'#2'F'#5'Width'#2'2'#7'Capti'
+'on'#6#7'DlgType'#11'ParentColor'#8#0#0#6'TLabel'#16'HelpContextLabel'#21'An'
+'chorSideTop.Control'#7#12'HelpCtxBevel'#18'AnchorSideTop.Side'#7#9'asrBotto'
+'m'#4'Left'#2#8#6'Height'#2#18#3'Top'#3'4'#1#5'Width'#2'T'#7'Caption'#6#12'H'
+'elp Context'#11'ParentColor'#8#0#0#6'TLabel'#16'HelpKeyWordLabel'#21'Anchor'
+'SideTop.Control'#7#16'HelpContextLabel'#18'AnchorSideTop.Side'#7#9'asrCente'
+'r'#4'Left'#2'g'#6'Height'#2#18#3'Top'#3'4'#1#5'Width'#2'W'#7'Caption'#6#12
+'Help KeyWord'#11'ParentColor'#8#0#0#6'TLabel'#6'XLabel'#21'AnchorSideTop.Co'
+'ntrol'#7#9'XSpinEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#6#6'H'
+'eight'#2#18#3'Top'#3#14#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'AnchorSi'
+'deLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#9'YSpinEdit'#18'Anc'
+'horSideTop.Side'#7#9'asrCenter'#4'Left'#2']'#6'Height'#2#18#3'Top'#3#14#1#5
+'Width'#2#8#18'BorderSpacing.Left'#2#8#7'Caption'#6#1'Y'#11'ParentColor'#8#0
+#0#6'TLabel'#17'HelpFileNameLabel'#21'AnchorSideTop.Control'#7#19'HelpContex'
+'tSpinEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#18
+#3'Top'#3'j'#1#5'Width'#2']'#17'BorderSpacing.Top'#2#6#7'Caption'#6#13'Help '
+'FileName'#11'ParentColor'#8#0#0#6'TLabel'#11'PromptLabel'#4'Left'#2#16#6'He'
+'ight'#2#18#3'Top'#3#169#1#5'Width'#2'R'#7'Caption'#6#11'PromptLabel'#11'Par'
+'entColor'#8#0#0#6'TLabel'#10'ValueLabel'#4'Left'#2#16#6'Height'#2#18#3'Top'
+#3#222#1#5'Width'#2'F'#7'Caption'#6#11'Value (var)'#11'ParentColor'#8#0#0#6
+'TLabel'#12'DefaultValue'#4'Left'#3#138#0#6'Height'#2#18#3'Top'#3#222#1#5'Wi'
+'dth'#2'/'#7'Caption'#6#7'Default'#11'ParentColor'#8#0#0#6'TBevel'#13'Positi'
+'onBevel'#21'AnchorSideTop.Control'#7#7'MsgMemo'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#2#5#6'Height'#2#9#3'Top'#3#251#0#5'Width'#3#13#1#17'Bord'
+'erSpacing.Top'#2#6#5'Shape'#7#9'bsTopLine'#0#0#6'TBevel'#6'Bevel2'#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'#12'HelpCtxBevel'#21'AnchorSideTop.Control'#7#9'XSpinEdit'#18'Anchor'
+'SideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#9#3'Top'#3'+'#1#5'Widt'
+'h'#3#10#1#5'Shape'#7#9'bsTopLine'#0#0#6'TLabel'#16'KindMessageLabel'#4'Left'
+#2#6#6'Height'#2#18#3'Top'#2#6#5'Width'#3'*'#3#5'Align'#7#5'alTop'#18'Border'
+'Spacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Right'#2#6#7'C'
+'aption'#6#16'KindMessageLabel'#11'ParentColor'#8#0#0#5'TEdit'#11'CaptionEdi'
+'t'#21'AnchorSideTop.Control'#7#12'CaptionLabel'#18'AnchorSideTop.Side'#7#9
+'asrBottom'#4'Left'#2#6#6'Height'#2#27#3'Top'#2'['#5'Width'#3#136#0#17'Borde'
+'rSpacing.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'AnchorS'
+'ideTop.Side'#7#9'asrBottom'#4'Left'#3#154#0#6'Height'#2#31#3'Top'#2'['#5'Wi'
+'dth'#2'x'#17'BorderSpacing.Top'#2#3#10'ItemHeight'#2#0#9'ItemIndex'#2#0#13
+'Items.Strings'#1#6#9'mtWarning'#6#7'mtError'#6#13'mtInformation'#6#14'mtCon'
+'firmation'#6#8'mtCustom'#0#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'Height'#3#177#0#3'Top'#2'F'#5'Width'#3#216#0#8'AutoFill'#9#7'Caption'#6
+#24'BUTTONS (TMsgDlgButtons)'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildS'
+'izing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomog'
+'enousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildRe'
+'size'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.'
+'ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToR'
+'ightThenTopToBottom'#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'mbRetry'#6#8'mbIgnore'#6#5'mbAll'#6#9'mbNoToAll'#6#10'mbYesToAll'#6#6'mbH'
+'elp'#6#7'mbClose'#0#11'OnItemClick'#7#26'ButtonsCheckGroupItemClick'#8'TabO'
+'rder'#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'TSpinE'
,'dit'#19'HelpContextSpinEdit'#21'AnchorSideTop.Control'#7#16'HelpContextLabe'
+'l'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#27#3'Top'#3
+'I'#1#5'Width'#2'='#17'BorderSpacing.Top'#2#3#8'MaxValue'#3#15''''#8'TabOrde'
+'r'#2#3#0#0#5'TEdit'#15'HelpKeyWordEdit'#21'AnchorSideTop.Control'#7#16'Help'
+'KeyWordLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'g'#6'Height'#2
+#27#3'Top'#3'I'#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'Height'#3#177#0#3'Top'#2'F'#5'Width'#3#29#1#12'ClientHeight'#3#177#0#11'C'
+'lientWidth'#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#9'FixedCols'#2#0#7'Options'#11#15'goFixedVertLine'#15'goFixed'
+'HorzLine'#10'goVertLine'#10'goHorzLine'#13'goRangeSelect'#9'goEditing'#14'g'
+'oSmoothScroll'#0#8'RowCount'#2#4#8'TabOrder'#2#0#16'OnPickListSelect'#7#29
+'UpdateQuestioDlgResultExecute'#14'OnSelectEditor'#7#29'ButtonsStringGridSel'
+'ectEditor'#9'ColWidths'#1#3#171#0#2'h'#0#5'Cells'#1#2#8#2#0#2#0#6#24'BUTTON'
+'S (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'mrC'
+'ancel'#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'Bevel'
+'Outer'#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'TabOr'
+'der'#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'XSpinEdit'#22'AnchorSideLeft.Con'
+'trol'#7#6'XLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.C'
+'ontrol'#7#13'PositionBevel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
+#19#6'Height'#2#27#3'Top'#3#10#1#5'Width'#2'B'#18'BorderSpacing.Left'#2#4#17
+'BorderSpacing.Top'#2#6#20'BorderSpacing.Bottom'#2#6#8'TabOrder'#2#6#0#0#9'T'
+'SpinEdit'#9'YSpinEdit'#22'AnchorSideLeft.Control'#7#6'YLabel'#19'AnchorSide'
+'Left.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#9'XSpinEdit'#18'Ancho'
+'rSideTop.Side'#7#9'asrCenter'#4'Left'#2'i'#6'Height'#2#27#3'Top'#3#10#1#5'W'
+'idth'#2'B'#18'BorderSpacing.Left'#2#4#8'TabOrder'#2#7#0#0#13'TFileNameEdit'
+#16'HelpFileNameEdit'#21'AnchorSideTop.Control'#7#17'HelpFileNameLabel'#18'A'
+'nchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#2#27#3'Top'#3#127#1
+#5'Width'#3#244#0#13'DialogOptions'#11#0#11'FilterIndex'#2#0#15'HideDirector'
+'ies'#8#11'ButtonWidth'#2#23#9'NumGlyphs'#2#1#17'BorderSpacing.Top'#2#3#8'Ta'
+'bOrder'#2#8#0#0#5'TEdit'#10'PromptEdit'#21'AnchorSideTop.Control'#7#11'Prom'
+'ptLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#16#6'Height'#2#27#3
+'Top'#3#190#1#5'Width'#3#164#0#17'BorderSpacing.Top'#2#3#8'TabOrder'#2#9#4'T'
+'ext'#6#10'PromptEdit'#0#0#9'TCheckBox'#17'MaskInputCheckBox'#21'AnchorSideT'
+'op.Control'#7#10'PromptEdit'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3
+#191#0#6'Height'#2#22#3'Top'#3#192#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#27
+#3'Top'#3#243#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#27#3'Top'#3#243#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'#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#18#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#18#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'#21'AnchorSideTop.Control'#7#17
+'IfThenRadioButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#7#6'Heig'
+'ht'#2#22#3'Top'#2'`'#5'Width'#2'}'#17'BorderSpacing.Top'#2#2#7'Caption'#6#20
+'if...then...else ...'#7'OnClick'#7#18'SetIfOrCaseExecute'#8'TabOrder'#2#1#7
+'TabStop'#8#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#7'TabStop'#8#0#0
+#12'TRadioButton'#24'CaseOfEndElseRadioButton'#21'AnchorSideTop.Control'#7#20
+'CaseOfEndRadioButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#199#0
+#6'Height'#2#22#3'Top'#3#167#0#5'Width'#3#148#0#17'BorderSpacing.Top'#2#2#7
+'Caption'#6#24'case ... of ... else ...'#7'OnClick'#7#18'SetIfOrCaseExecute'
+#8'TabOrder'#2#3#7'TabStop'#8#0#0#9'TCheckBox'#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'AnchorSideTo'
+'p.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#7#6
+'Height'#2#31#3'Top'#2#27#5'Width'#3#175#0#17'BorderSpacing.Top'#2#3#10'Item'
+'Height'#2#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#4'mbOK'#6#8'mbCancel'#0#5
+'Style'#7#14'csDropDownList'#8'TabOrder'#2#5#4'Text'#6#4'mbOK'#0#0#11'TCheck'
+'Group'#20'CaseResultCheckGroup'#22'AnchorSideLeft.Control'#7#16'IfResultCom'
+'boBox'#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.Left'#2#10#7'Ca'
+'ption'#6#13'"case" RESULT'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSiz'
+'ing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogen'
+'ousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResi'
+'ze'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Sh'
+'rinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRig'
+'htThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#3#7'Columns'#2#3#13'It'
+'ems.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.Control'#7#17
+'StringResultLabel'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#9#6'Heig'
+'ht'#2#27#3'Top'#3#166#0#5'Width'#3#173#0#17'BorderSpacing.Top'#2#3#8'TabOrd'
+'er'#2#7#4'Text'#6#16'StringResultEdit'#0#0#0#9'TComboBox'#19'KindMessageCom'
+'boBox'#4'Left'#2#6#6'Height'#2#31#3'Top'#2#28#5'Width'#3'*'#3#5'Align'#7#5
+'alTop'#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#4#19'BorderSpacin'
+'g.Right'#2#6#10'ItemHeight'#2#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6':Mes'
+'sageDlg[Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'#6'CMessageDlg[Capt'
+'ion, Msg, DlgType, Buttons(TMsgDlgButtons), HelpCtx]'#6'GMessageDlg[Caption'
+', Msg, DlgType, Buttons(TMsgDlgButtons), HelpKeyword]'#6'CMessageDlgPos[Msg'
+', DlgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y]'#6'UMessageDlgPosHelp[Ms'
+'g, DlgType, Buttons(TMsgDlgButtons), HelpCtx, X, Y, HelpFileName]'#6'DQuest'
+'ionDlg[Caption, Msg, DlgType, Buttons(array of const), HelpCtx]'#6'HQuestio'
+'nDlg[Caption, Msg, DlgType, Buttons(array of const), HelpKeyword]'#6#25'Sho'
+'wMessage[Msg: string];'#6',ShowMessageFmt[Msg, Params(array of const)];'#6
+#26'ShowMessagePos[Msg, X, Y];'#6'>InputQuery[Caption, Prompt, MaskInput(Boo'
+'lean), Value(String)]'#6'*InputQuery[Caption, Prompt, Value(String)]'#6'"In'
+'putBox[Caption, Prompt, Default]'#6#28'PasswordBox[Caption, Prompt]'#0#8'On'
+'Change'#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'AnchorSi'
+'deTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2'^'#3'Top'#3#151#0#5'Widt'
+'h'#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'ActionList1'#4'left'#3
+#200#1#3'top'#3'p'#1#0#7'TAction'#8'AddConst'#7'Caption'#6#8'AddConst'#9'OnE'
+'xecute'#7#15'AddConstExecute'#0#0#7'TAction'#8'DelConst'#7'Caption'#6#8'Del'
+'Const'#9'OnExecute'#7#15'DelConstExecute'#0#0#7'TAction'#12'MessageSetup'#7
+'Caption'#6#12'MessageSetup'#9'OnExecute'#7#19'MessageSetupExecute'#0#0#7'TA'
+'ction'#12'MessagesInit'#7'Caption'#6#12'MessagesInit'#9'OnExecute'#7#19'Mes'
,'sagesInitExecute'#0#0#7'TAction'#4'Test'#7'Caption'#6#4'Test'#9'OnExecute'#7
+#11'TestExecute'#0#0#7'TAction'#19'GetMessageForSource'#7'Caption'#6#19'GetM'
+'essageForSource'#9'OnExecute'#7#26'GetMessageForSourceExecute'#0#0#7'TActio'
+'n'#12'GetParamsFmt'#7'Caption'#6#12'GetParamsFmt'#9'OnExecute'#7#19'GetPara'
+'msFmtExecute'#0#0#7'TAction'#11'SetIfOrCase'#7'Caption'#6#11'SetIfOrCase'#9
+'OnExecute'#7#18'SetIfOrCaseExecute'#0#0#7'TAction'#22'UpdateQuestioDlgResul'
+'t'#7'Caption'#6#22'UpdateQuestioDlgResult'#9'OnExecute'#7#29'UpdateQuestioD'
+'lgResultExecute'#0#0#0#0
]);

View File

@ -117,21 +117,38 @@ var
implementation
{$R *.lfm}
const
cMessageComposer = 'Message Composer';
DoubleSpace = ' ';
resourcestring
SMessageComposerCaption = 'Message Composer ...';
SMessageComposerMenuCaption = 'Message Composer ...';
SMessageComposerCaption = 'Message Composer';
SMsgCaption = 'The message to be shown';
SDlgCaption = 'Dialog caption';
SDlgType = 'Dialog type';
SPromptCaption = 'Text asking the user for input';
SMaskInput = 'Mask Input';
SSourceWrapper = 'SOURCE WRAPPER';
SKindofMessage = 'KIND OF MESSAGE';
SNotImplementedYet = 'Not Implemented Yet';
SMaskInput = 'Mask input';
SSourceWrapper = 'Source wrapper';
SKindofMessage = 'Kind of message';
SNotImplementedYet = 'Not implemented yet';
rsTest = 'Test';
rsOk = 'Ok';
rsOk = 'OK';
rsCancel = 'Cancel';
SHelpContext = 'Help context';
SHelpKeyword = 'Help keyword';
SHelpFilename = 'Help filename';
SValueVar = 'Value (var)';
SDefault = 'Default';
SButtonsTMsgDlgButtons = 'Buttons (TMsgDlgButtons)';
SAdd = 'Add';
SDelete = 'Delete';
SButtonsArrayOfConst = 'Buttons (array of const)';
SModalResult = 'Modal result';
SIfResult = '"If" result';
SCaseResult = '"Case" result';
var
CmdMessageComposer: TIDECommand;
@ -565,8 +582,8 @@ begin
GetParamsFmt.Execute;
end;
else begin
ButtonsStringGrid.Cells[0, 0] := 'BUTTONS (array of const)';
ButtonsStringGrid.Cells[1, 0] := 'Modal Result';
ButtonsStringGrid.Cells[0, 0] := SButtonsArrayOfConst;
ButtonsStringGrid.Cells[1, 0] := SModalResult;
ButtonsStringGrid.FixedCols := 0;
Panel2.Visible := true;
end;
@ -721,23 +738,36 @@ end;
procedure TFormMessagesComposer.MessagesInitExecute(Sender: TObject);
begin
XSpinEdit.MaxValue := Screen.Width;
XLabel.Caption := 'X'+IntToStr(Screen.Width);
XLabel.Caption := 'X ('+IntToStr(Screen.Width)+')';
YSpinEdit.MaxValue := Screen.Height;
YLabel.Caption := 'Y'+IntToStr(Screen.Height);
YLabel.Caption := 'Y ('+IntToStr(Screen.Height)+')';
HelpContextSpinEdit.Width := 80;
XSpinEdit.Width := 60;
YSpinEdit.Width := 60;
Caption := SMessageComposerCaption;
CaptionLabel.Caption := SDlgCaption;
DlgTypeLabel.Caption := SDlgType;
MsgLabel.Caption := SMsgCaption;
ButtonsCheckGroup.Caption := SButtonsTMsgDlgButtons;
ButtonsStringGrid.Cells[0,0] := SButtonsArrayOfConst;
ButtonsStringGrid.Cells[1,0] := SModalResult;
BitBtn1.Caption := SAdd;
BitBtn2.Caption := SDelete;
PromptLabel.Caption := SPromptCaption;
MaskInputCheckBox.Caption := SMaskInput;
ValueLabel.Caption := SValueVar;
DefaultValue.Caption := SDefault;
SourceWrapperGroupBox.Caption := SSourceWrapper;
KindMessageLabel.Caption := SKindofMessage;
Label1.Caption := SIfResult;
CaseResultCheckGroup.Caption := SCaseResult;
TestButton.Caption:=rsTest;
OkButton.Caption:=rsOk;
CancelButton.Caption:=rsCancel;
HelpContextLabel.Caption := SHelpContext;
HelpKeyWordLabel.Caption := SHelpKeyword;
HelpFileNameLabel.Caption := SHelpFilename;
MessageSetup.Execute;
end;
@ -856,13 +886,9 @@ begin
@ExecuteMessagesComposer);
RegisterIDEMenuCommand(itmEditMenuCodeTools, cMessageComposer,
SMessageComposerCaption,
SMessageComposerMenuCaption,
nil, nil, CmdMessageComposer);
end;
initialization
{$I messagecomposer.lrs}
end.

View File

@ -3,18 +3,15 @@
<Package Version="3">
<Name Value="messagecomposerpkg"/>
<CompilerOptions>
<Version Value="5"/>
<Version Value="8"/>
<SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Files Count="3">
<Files Count="2">
<Item1>
<Filename Value="messagecomposer.pas"/>
<HasRegisterProc Value="True"/>
@ -24,10 +21,6 @@
<Filename Value="messagecomposer.lfm"/>
<Type Value="LFM"/>
</Item2>
<Item3>
<Filename Value="messagecomposer.lrs"/>
<Type Value="LRS"/>
</Item3>
</Files>
<i18n>
<EnableI18N Value="True"/>