From 9528a09d43a1cb1aafe565e0541ddd3d26c63ae7 Mon Sep 17 00:00:00 2001 From: maxim Date: Sat, 8 May 2010 16:15:48 +0000 Subject: [PATCH] Message Composer: 1) Improved localization. 2) Removed LRS file. 3) Updated Russian translation and regenerated others. git-svn-id: trunk@25254 - --- .gitattributes | 1 - .../languages/messagecomposer.de.po | 86 +++++++- .../languages/messagecomposer.lt.po | 86 +++++++- .../languages/messagecomposer.pb.po | 85 +++++++- .../languages/messagecomposer.po | 72 ++++++- .../languages/messagecomposer.ru.po | 81 ++++++- .../languages/messagecomposer.zh_CN.po | 82 ++++++- .../messagecomposer/messagecomposer.lfm | 166 +++++++------- .../messagecomposer/messagecomposer.lrs | 204 ------------------ .../messagecomposer/messagecomposer.pas | 58 +++-- .../messagecomposer/messagecomposerpkg.lpk | 11 +- 11 files changed, 588 insertions(+), 344 deletions(-) delete mode 100644 components/messagecomposer/messagecomposer.lrs diff --git a/.gitattributes b/.gitattributes index 72968125bb..0f8af3ebe8 100644 --- a/.gitattributes +++ b/.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 diff --git a/components/messagecomposer/languages/messagecomposer.de.po b/components/messagecomposer/languages/messagecomposer.de.po index 67359aee01..03dc389819 100644 --- a/components/messagecomposer/languages/messagecomposer.de.po +++ b/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 "" + diff --git a/components/messagecomposer/languages/messagecomposer.lt.po b/components/messagecomposer/languages/messagecomposer.lt.po index c46abfa6d5..1480c0a9b6 100644 --- a/components/messagecomposer/languages/messagecomposer.lt.po +++ b/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 "" + diff --git a/components/messagecomposer/languages/messagecomposer.pb.po b/components/messagecomposer/languages/messagecomposer.pb.po index 29a1c39d72..da95dd7ee4 100644 --- a/components/messagecomposer/languages/messagecomposer.pb.po +++ b/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 "" + diff --git a/components/messagecomposer/languages/messagecomposer.po b/components/messagecomposer/languages/messagecomposer.po index 4dc9422bb5..713c108782 100644 --- a/components/messagecomposer/languages/messagecomposer.po +++ b/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 "" diff --git a/components/messagecomposer/languages/messagecomposer.ru.po b/components/messagecomposer/languages/messagecomposer.ru.po index 5465346c86..e59919bde9 100644 --- a/components/messagecomposer/languages/messagecomposer.ru.po +++ b/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" -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 "Значение (переменная)" + diff --git a/components/messagecomposer/languages/messagecomposer.zh_CN.po b/components/messagecomposer/languages/messagecomposer.zh_CN.po index b83c4bc7b4..3bf97a6ee5 100644 --- a/components/messagecomposer/languages/messagecomposer.zh_CN.po +++ b/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 "" diff --git a/components/messagecomposer/messagecomposer.lfm b/components/messagecomposer/messagecomposer.lfm index 6762e2aee0..51166f8d99 100644 --- a/components/messagecomposer/messagecomposer.lfm +++ b/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 - 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 = ( diff --git a/components/messagecomposer/messagecomposer.lrs b/components/messagecomposer/messagecomposer.lrs deleted file mode 100644 index 681a5c0dfa..0000000000 --- a/components/messagecomposer/messagecomposer.lrs +++ /dev/null @@ -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 -]); diff --git a/components/messagecomposer/messagecomposer.pas b/components/messagecomposer/messagecomposer.pas index c8e025758d..4052afdd47 100644 --- a/components/messagecomposer/messagecomposer.pas +++ b/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'; - 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. diff --git a/components/messagecomposer/messagecomposerpkg.lpk b/components/messagecomposer/messagecomposerpkg.lpk index 435ef3cdc1..53fd902e97 100644 --- a/components/messagecomposer/messagecomposerpkg.lpk +++ b/components/messagecomposer/messagecomposerpkg.lpk @@ -3,18 +3,15 @@ - + - - - - + @@ -24,10 +21,6 @@ - - - -