Message Composer:

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

git-svn-id: trunk@25254 -

.gitattributes

@@ -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

components/messagecomposer/languages/messagecomposer.de.po

@@ -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 ""
+

components/messagecomposer/languages/messagecomposer.lt.po

@@ -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 ""
+

components/messagecomposer/languages/messagecomposer.pb.po

@@ -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 ""
+

components/messagecomposer/languages/messagecomposer.po

@@ -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 ""
 

components/messagecomposer/languages/messagecomposer.ru.po

@@ -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"
+#| msgid "Not Implemented Yet"
-msgstr "Еще не реализовано"
+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 "Значение (переменная)"
+

components/messagecomposer/languages/messagecomposer.zh_CN.po

@@ -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 ""
 

components/messagecomposer/messagecomposer.lfm

@@ -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
+    Height = 14
-    Top = 130
+    Top = 120
-    Width = 61
+    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
+    Height = 14
-    Top = 308
+    Top = 294
-    Width = 84
+    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
+    Height = 14
-    Top = 308
+    Top = 294
-    Width = 87
+    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
+    Height = 14
-    Top = 270
+    Top = 258
-    Width = 9
+    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
+    Left = 91
-    Height = 18
+    Height = 14
-    Top = 270
+    Top = 258
-    Width = 8
+    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
+    Height = 14
-    Top = 362
+    Top = 344
-    Width = 93
+    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
+    Height = 21
-    Top = 91
+    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
+    Height = 21
-    Top = 91
+    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
+    Height = 21
-    Top = 329
+    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
+    Height = 21
-    Top = 383
+    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
+    Height = 21
-    Top = 446
+    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
+    Height = 17
-    Top = 448
+    Top = 444
-    Width = 89
+    Width = 68
     Caption = 'MaskInput'
     TabOrder = 10
   end
@@ -398,8 +398,8 @@ object FormMessagesComposer: TFormMessagesComposer
     AnchorSideTop.Control = ValueLabel
     AnchorSideTop.Side = asrBottom
     Left = 16
-    Height = 27
+    Height = 21
-    Top = 499
+    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
+    Height = 21
-    Top = 499
+    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
+      Height = 17
-      Top = 96
+      Top = 91
-      Width = 125
+      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
+      Height = 17
-      Top = 167
+      Top = 162
-      Width = 148
+      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
+      Height = 21
-      Top = 27
+      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
+      Height = 21
-      Top = 166
+      Top = 162
       Width = 173
       BorderSpacing.Top = 3
       TabOrder = 7
@@ -599,14 +599,14 @@ object FormMessagesComposer: TFormMessagesComposer
   end
   object KindMessageComboBox: TComboBox
     Left = 6
-    Height = 31
+    Height = 21
-    Top = 28
+    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 = (

components/messagecomposer/messagecomposer.lrs

@@ -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
-]);

components/messagecomposer/messagecomposer.pas

@@ -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';
+  SMaskInput = 'Mask input';
-  SSourceWrapper = 'SOURCE WRAPPER';
+  SSourceWrapper = 'Source wrapper';
-  SKindofMessage = 'KIND OF MESSAGE';
+  SKindofMessage = 'Kind of message';
-  SNotImplementedYet = 'Not Implemented Yet';
+  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[0, 0] := SButtonsArrayOfConst;
-      ButtonsStringGrid.Cells[1, 0] := 'Modal Result';
+      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.
 

components/messagecomposer/messagecomposerpkg.lpk

@@ -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"/>