From fcf6f19164d8801ece46653c805653734efd4b41 Mon Sep 17 00:00:00 2001 From: vincents Date: Sun, 19 Feb 2006 18:29:45 +0000 Subject: [PATCH] added test dialog for all common dialog descendants (issue #1735) git-svn-id: trunk@8775 - --- components/trayicon/examples/wndtray.lpi | 2 -- ideintf/componenteditors.pas | 20 ++++++++++---------- ideintf/objinspstrconsts.pas | 3 +++ languages/objinspstrconsts.ca.po | 4 ++++ languages/objinspstrconsts.de.po | 4 ++++ languages/objinspstrconsts.es.po | 4 ++++ languages/objinspstrconsts.fi.po | 4 ++++ languages/objinspstrconsts.fr.po | 4 ++++ languages/objinspstrconsts.it.po | 4 ++++ languages/objinspstrconsts.itiso.po | 4 ++++ languages/objinspstrconsts.nl.po | 4 ++++ languages/objinspstrconsts.pb.po | 4 ++++ languages/objinspstrconsts.pl.po | 4 ++++ languages/objinspstrconsts.pliso.po | 4 ++++ languages/objinspstrconsts.plwin.po | 4 ++++ languages/objinspstrconsts.po | 4 ++++ languages/objinspstrconsts.ru.po | 4 ++++ languages/objinspstrconsts.ua.po | 4 ++++ 18 files changed, 73 insertions(+), 12 deletions(-) diff --git a/components/trayicon/examples/wndtray.lpi b/components/trayicon/examples/wndtray.lpi index 8d64dfa914..b43fa08554 100644 --- a/components/trayicon/examples/wndtray.lpi +++ b/components/trayicon/examples/wndtray.lpi @@ -16,8 +16,6 @@ - - diff --git a/ideintf/componenteditors.pas b/ideintf/componenteditors.pas index a137687e61..09930f60b7 100644 --- a/ideintf/componenteditors.pas +++ b/ideintf/componenteditors.pas @@ -305,7 +305,7 @@ type { TFileDialogComponentEditor The default componenteditor for TFileDialog } - TFileDialogComponentEditor = class(TComponentEditor) + TCommonDialogComponentEditor = class(TComponentEditor) private procedure TestDialog; public @@ -1319,28 +1319,28 @@ begin Result:=TToolBar(GetComponent); end; -{ TFileDialogComponentEditor } +{ TCommonDialogComponentEditor } -procedure TFileDialogComponentEditor.TestDialog; +procedure TCommonDialogComponentEditor.TestDialog; begin - with Component as TFileDialog do Execute; + with Component as TCommonDialog do Execute; end; -function TFileDialogComponentEditor.GetVerbCount: integer; +function TCommonDialogComponentEditor.GetVerbCount: integer; begin Result:=1; end; -function TFileDialogComponentEditor.GetVerb(Index: integer): string; +function TCommonDialogComponentEditor.GetVerb(Index: integer): string; begin case Index of - 0:Result:='Test dialog...'; + 0:Result:=oisTestDialog; else Result:=inherited GetVerb(Index); end; end; -procedure TFileDialogComponentEditor.ExecuteVerb(Index: integer); +procedure TCommonDialogComponentEditor.ExecuteVerb(Index: integer); begin case Index of 0:TestDialog; @@ -1349,7 +1349,7 @@ begin end; end; -procedure TFileDialogComponentEditor.Edit; +procedure TCommonDialogComponentEditor.Edit; begin TestDialog; end; @@ -1382,7 +1382,7 @@ initialization RegisterComponentEditor(TCheckListBox,TCheckListBoxComponentEditor); RegisterComponentEditor(TCheckGroup,TCheckGroupComponentEditor); RegisterComponentEditor(TToolBar,TToolBarComponentEditor); - RegisterComponentEditor(TFileDialog, TFileDialogComponentEditor); + RegisterComponentEditor(TCommonDialog, TCommonDialogComponentEditor); finalization InternalFinal; diff --git a/ideintf/objinspstrconsts.pas b/ideintf/objinspstrconsts.pas index 8e861c5a55..23d451fde9 100644 --- a/ideintf/objinspstrconsts.pas +++ b/ideintf/objinspstrconsts.pas @@ -258,6 +258,9 @@ resourcestring oisSelectAFile = 'Select a file'; oisPropertiesOf = 'Properties of %s'; oisAllFiles = 'All files'; + + // TCommonDialogComponentEditor + oisTestDialog = 'Test dialog...'; // property editors oisSort = 'Sort'; diff --git a/languages/objinspstrconsts.ca.po b/languages/objinspstrconsts.ca.po index ad4f43dba3..448e7de8db 100644 --- a/languages/objinspstrconsts.ca.po +++ b/languages/objinspstrconsts.ca.po @@ -778,6 +778,10 @@ msgstr "Editor de la cadena de la graella" msgid "Strings Editor Dialog" msgstr "Dileg editor de les cadenes" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "" diff --git a/languages/objinspstrconsts.de.po b/languages/objinspstrconsts.de.po index b8cce5a6e1..12e77bfff0 100644 --- a/languages/objinspstrconsts.de.po +++ b/languages/objinspstrconsts.de.po @@ -789,6 +789,10 @@ msgstr "StringGrid Editor" msgid "Strings Editor Dialog" msgstr "Zeichenketteneditordialog" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "" diff --git a/languages/objinspstrconsts.es.po b/languages/objinspstrconsts.es.po index 33c9b58adb..fed73ee84e 100644 --- a/languages/objinspstrconsts.es.po +++ b/languages/objinspstrconsts.es.po @@ -788,6 +788,10 @@ msgstr "Editor de StringGrid" msgid "Strings Editor Dialog" msgstr "Diálogo Editor de Strings" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "" diff --git a/languages/objinspstrconsts.fi.po b/languages/objinspstrconsts.fi.po index 23c971d888..2bef314b96 100644 --- a/languages/objinspstrconsts.fi.po +++ b/languages/objinspstrconsts.fi.po @@ -778,6 +778,10 @@ msgstr "StringGrid muokkain" msgid "Strings Editor Dialog" msgstr "Merkkijonojen muokkain" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "Maskin testauspaikka" diff --git a/languages/objinspstrconsts.fr.po b/languages/objinspstrconsts.fr.po index 6965ea4874..cf40c7ca17 100644 --- a/languages/objinspstrconsts.fr.po +++ b/languages/objinspstrconsts.fr.po @@ -778,6 +778,10 @@ msgstr "Editeur de tableau" msgid "Strings Editor Dialog" msgstr "Dialogue d'diteur de chanes" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "" diff --git a/languages/objinspstrconsts.it.po b/languages/objinspstrconsts.it.po index 5f7a7b023e..acff32e164 100644 --- a/languages/objinspstrconsts.it.po +++ b/languages/objinspstrconsts.it.po @@ -788,6 +788,10 @@ msgstr "Editor StringGrid" msgid "Strings Editor Dialog" msgstr "Finestra di dialogo editor delle stringhe" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "" diff --git a/languages/objinspstrconsts.itiso.po b/languages/objinspstrconsts.itiso.po index c33f227717..9e0cdb6d5c 100644 --- a/languages/objinspstrconsts.itiso.po +++ b/languages/objinspstrconsts.itiso.po @@ -788,6 +788,10 @@ msgstr "Editor StringGrid" msgid "Strings Editor Dialog" msgstr "Finestra di dialogo editor delle stringhe" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "" diff --git a/languages/objinspstrconsts.nl.po b/languages/objinspstrconsts.nl.po index 6eb943e03d..7ff953ff53 100644 --- a/languages/objinspstrconsts.nl.po +++ b/languages/objinspstrconsts.nl.po @@ -778,6 +778,10 @@ msgstr "StringGrid Bewerker" msgid "Strings Editor Dialog" msgstr "Strings Editor Dialoog" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "Test Invoer" diff --git a/languages/objinspstrconsts.pb.po b/languages/objinspstrconsts.pb.po index 2d892c19d7..c5f4ce03df 100644 --- a/languages/objinspstrconsts.pb.po +++ b/languages/objinspstrconsts.pb.po @@ -778,6 +778,10 @@ msgstr "Editeur de tableau" msgid "Strings Editor Dialog" msgstr "Dialogo de edio de texto" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "" diff --git a/languages/objinspstrconsts.pl.po b/languages/objinspstrconsts.pl.po index 1790891b53..94913d95fb 100644 --- a/languages/objinspstrconsts.pl.po +++ b/languages/objinspstrconsts.pl.po @@ -789,6 +789,10 @@ msgstr "Edytor StringGrid" msgid "Strings Editor Dialog" msgstr "" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "" diff --git a/languages/objinspstrconsts.pliso.po b/languages/objinspstrconsts.pliso.po index 4b49a56be7..a12006afeb 100644 --- a/languages/objinspstrconsts.pliso.po +++ b/languages/objinspstrconsts.pliso.po @@ -789,6 +789,10 @@ msgstr "Edytor StringGrid" msgid "Strings Editor Dialog" msgstr "" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "" diff --git a/languages/objinspstrconsts.plwin.po b/languages/objinspstrconsts.plwin.po index 7e62a719c8..a6919d69a9 100644 --- a/languages/objinspstrconsts.plwin.po +++ b/languages/objinspstrconsts.plwin.po @@ -789,6 +789,10 @@ msgstr "Edytor StringGrid" msgid "Strings Editor Dialog" msgstr "" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "" diff --git a/languages/objinspstrconsts.po b/languages/objinspstrconsts.po index 9ec722238b..d9654ab53a 100644 --- a/languages/objinspstrconsts.po +++ b/languages/objinspstrconsts.po @@ -818,6 +818,10 @@ msgstr "" msgid "All files" msgstr "" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oissort msgid "Sort" msgstr "" diff --git a/languages/objinspstrconsts.ru.po b/languages/objinspstrconsts.ru.po index 5dceb7e778..aee0110c81 100644 --- a/languages/objinspstrconsts.ru.po +++ b/languages/objinspstrconsts.ru.po @@ -789,6 +789,10 @@ msgstr "Редактор StringGrid" msgid "Strings Editor Dialog" msgstr "Диалог ввода строк" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "Тестовый ввод" diff --git a/languages/objinspstrconsts.ua.po b/languages/objinspstrconsts.ua.po index 56d514b7d5..7dc3fefab6 100644 --- a/languages/objinspstrconsts.ua.po +++ b/languages/objinspstrconsts.ua.po @@ -778,6 +778,10 @@ msgstr "Редактор StringGrid" msgid "Strings Editor Dialog" msgstr "Редактор рядків" +#: objinspstrconsts:oistestdialog +msgid "Test dialog..." +msgstr "" + #: objinspstrconsts:oistestinput msgid "Test Input" msgstr "Тестове Введення"