added test dialog for all common dialog descendants (issue #1735)

git-svn-id: trunk@8775 -

components/trayicon/examples/wndtray.lpi

@@ -16,8 +16,6 @@
     <LazDoc Paths=""/>
     <PublishOptions>
       <Version Value="2"/>
-      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
-      <IgnoreBinaries Value="False"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
     </PublishOptions>

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;

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';

languages/objinspstrconsts.ca.po

@@ -778,6 +778,10 @@ msgstr "Editor de la cadena de la graella"
 msgid "Strings Editor Dialog"
 msgstr "Diàleg editor de les cadenes"
 
+#: objinspstrconsts:oistestdialog
+msgid "Test dialog..."
+msgstr ""
+
 #: objinspstrconsts:oistestinput
 msgid "Test Input"
 msgstr ""

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

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

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"

languages/objinspstrconsts.fr.po

@@ -778,6 +778,10 @@ msgstr "Editeur de tableau"
 msgid "Strings Editor Dialog"
 msgstr "Dialogue d'éditeur de chaînes"
 
+#: objinspstrconsts:oistestdialog
+msgid "Test dialog..."
+msgstr ""
+
 #: objinspstrconsts:oistestinput
 msgid "Test Input"
 msgstr ""

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

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

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"

languages/objinspstrconsts.pb.po

@@ -778,6 +778,10 @@ msgstr "Editeur de tableau"
 msgid "Strings Editor Dialog"
 msgstr "Dialogo de edição de texto"
 
+#: objinspstrconsts:oistestdialog
+msgid "Test dialog..."
+msgstr ""
+
 #: objinspstrconsts:oistestinput
 msgid "Test Input"
 msgstr ""

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

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

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

languages/objinspstrconsts.po

@@ -818,6 +818,10 @@ msgstr ""
 msgid "All files"
 msgstr ""
 
+#: objinspstrconsts:oistestdialog
+msgid "Test dialog..."
+msgstr ""
+
 #: objinspstrconsts:oissort
 msgid "Sort"
 msgstr ""

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 "Тестовый ввод"

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 "Тестове Введення"