Examples: TestAll:

- make dummy procedures for all tests and call them in the menu's onclick event
- fix typo
- refactor
- cleanup

git-svn-id: trunk@51826 -

examples/testallform.pp

@@ -79,15 +79,83 @@ type
     procedure ShowEventFmt(const Fmt: String; const Args: array of const);
 
     procedure ConnectStandardEvents(AControl: TControl);
-    function VkToString(Key: Word): String;
     procedure CreateMainMenu;
 
     // Components tests
     procedure TestArrow;
     procedure TestBitBtn;
+    procedure TestButton;
+    procedure TestButtonpanel;
+    procedure TestCalcedit;
+    procedure TestCalendar;
+    procedure TestCheckbox;
+    procedure TestCheckcombobox;
+    procedure TestCheckgroup;
+    procedure TestChecklistbox;
+    procedure TestColorbox;
+    procedure TestColorbutton;
+    procedure TestColorlistbox;
+    procedure TestCombobox;
+    procedure TestComboboxex;
+    procedure TestControlbar;
+    procedure TestCoolbar;
+    procedure TestDateedit;
+    procedure TestDirectoryedit;
+    procedure TestEdit;
+    procedure TestEditbutton;
+    procedure TestFilelistbox;
+    procedure TestFilenameedit;
+    procedure TestFiltercombobox;
+    procedure TestFloatspinedit;
+    procedure TestGroupbox;
+    procedure TestHeadercontrol;
+    procedure TestImage;
+    procedure TestLabel;
+    procedure TestLabelededit;
+    procedure TestListbox;
+    procedure TestListview;
+    procedure TestMaskedit;
+    procedure TestMemo;
+    procedure TestNotebook;
+    procedure TestPagecontrol;
+    procedure TestPaintbox;
+    procedure TestPanel;
+    procedure TestProgressbar;
+    procedure TestRadiobutton;
+    procedure TestRadiogroup;
+    procedure TestShape;
+    procedure TestShelllistview;
+    procedure TestShelltreeview;
+    procedure TestSpeedbutton;
+    procedure TestSpinedit;
+    procedure TestSplitter;
+    procedure TestStacTictext;
+    procedure TestStatusbar;
+    procedure TestStringgrid;
+    procedure TestTabcontrol;
+    procedure TestTimeedit;
+    procedure TestTimer;
+    procedure TestTogglebox;
+    procedure TestToolbar;
+    procedure TestTrackbar;
+    procedure TestTreeview;
+    procedure TestUpdown;
+    procedure TestValuelisteditor;
 
     // Dialog tests
-    procedure TestMsgDlg;
+    procedure TestMessageDialog;
+    procedure TestCalculatorDialog;
+    procedure TestCalendarDialog;
+    procedure TestColorDialog;
+    procedure TestFindDialog;
+    procedure TestFontDialog;
+    procedure TestOpenDialog;
+    procedure TestOpenpictureDialog;
+    procedure TestReplaceDialog;
+    procedure TestSaveDialog;
+    procedure TestSavepictureDialog;
+    procedure TestSelectdirectoryDialog;
+    procedure TestQuestionDialog;
 
   public
     { public declarations }
@@ -96,13 +164,13 @@ type
 var
   Form1: TForm1;
 
-{$i testallform_include.inc}
 
 implementation
 
 {$R *.lfm}
 {$R ../images/laz_images.res}
 {$R ../images/components_images.res}
+{$i testallform_include.inc}
 
 { TForm1 }
 
@@ -137,6 +205,63 @@ begin
   case taComponents(tg) of
     tacTarrow: TestArrow;
     tacTbitbtn: TestBitBtn;
+    tacTButton: TestButton;
+    tacTButtonpanel: TestButtonpanel;
+    tacTCalcedit: TestCalcedit;
+    tacTCalendar: TestCalendar;
+    tacTCheckbox: TestCheckbox;
+    tacTCheckcombobox: TestCheckcombobox;
+    tacTCheckgroup: TestCheckgroup;
+    tacTChecklistbox: TestChecklistbox;
+    tacTColorbox: TestColorbox;
+    tacTColorbutton: TestColorbutton;
+    tacTColorlistbox: TestColorlistbox;
+    tacTCombobox: TestCombobox;
+    tacTComboboxex: TestComboboxex;
+    tacTControlbar: TestControlbar;
+    tacTCoolbar: TestCoolbar;
+    tacTDateedit: TestDateedit;
+    tacTDirectoryedit: TestDirectoryedit;
+    tacTEdit: TestEdit;
+    tacTEditbutton: TestEditbutton;
+    tacTFilelistbox: TestFilelistbox;
+    tacTFilenameedit: TestFilenameedit;
+    tacTFiltercombobox: TestFiltercombobox;
+    tacTFloatspinedit: TestFloatspinedit;
+    tacTGroupbox: TestGroupbox;
+    tacTHeadercontrol: TestHeadercontrol;
+    tacTImage: TestImage;
+    tacTLabel: TestLabel;
+    tacTLabelededit: TestLabelededit;
+    tacTListbox: TestListbox;
+    tacTListview: TestListview;
+    tacTMaskedit: TestMaskedit;
+    tacTMemo: TestMemo;
+    tacTNotebook: TestNotebook;
+    tacTPagecontrol: TestPagecontrol;
+    tacTPaintbox: TestPaintbox;
+    tacTPanel: TestPanel;
+    tacTProgressbar: TestProgressbar;
+    tacTRadiobutton: TestRadiobutton;
+    tacTRadiogroup: TestRadiogroup;
+    tacTShape: TestShape;
+    tacTShelllistview: TestShelllistview;
+    tacTShelltreeview: TestShelltreeview;
+    tacTSpeedbutton: TestSpeedbutton;
+    tacTSpinedit: TestSpinedit;
+    tacTSplitter: TestSplitter;
+    tacTStacTictext: TestStacTictext;
+    tacTStatusbar: TestStatusbar;
+    tacTStringgrid: TestStringgrid;
+    tacTTabcontrol: TestTabcontrol;
+    tacTTimeedit: TestTimeedit;
+    tacTTimer: TestTimer;
+    tacTTogglebox: TestTogglebox;
+    tacTToolbar: TestToolbar;
+    tacTTrackbar: TestTrackbar;
+    tacTTreeview: TestTreeview;
+    tacTUpdown: TestUpdown;
+    tacTValuelisteditor: TestValuelisteditor;
   end;
   debugln('TForm1.CompMenuClick End');
 end;
@@ -159,7 +284,19 @@ begin
     Exit;
   end;
   case taDialogs(tg) of
-    tadTMessageDialog: TestMsgDlg;
+    tadTCalculatorDialog: TestCalculatorDialog;
+    tadTCalendarDialog: TestCalendarDialog;
+    tadTColorDialog: TestColorDialog;
+    tadTFindDialog: TestFindDialog;
+    tadTFontDialog: TestFontDialog;
+    tadTMessageDialog: TestMessageDialog;
+    tadTOpenDialog: TestOpenDialog;
+    tadTOpenpictureDialog: TestOpenpictureDialog;
+    tadTReplaceDialog: TestReplaceDialog;
+    tadTSaveDialog: TestSaveDialog;
+    tadTSavepictureDialog: TestSavepictureDialog;
+    tadTSelectdirectoryDialog: TestSelectdirectoryDialog;
+    tadTQuestionDialog: TestQuestionDialog;
   end;
   debugln('TForm1.DlgMenuClick End');
 end;
@@ -259,12 +396,6 @@ begin
   if (AControl is TCustomEdit) then TCustomEdit(AControl).OnKeyPress := @GenKeyPress;
 end;
 
-function TForm1.VkToString(Key: Word): String;
-begin
-  Result := DbgsVKCode(Key);
-  if (Pos('(', Result) > 0) and (Pos(')', Result) > 0) then
-    Result := '$' + IntToHex(Key,4);
-end;
 
 procedure TForm1.CreateMainMenu;
 var

examples/testallform_include.inc

@@ -20,6 +20,10 @@
  ***************************************************************************
 }
 
+{
+  Common types, consts, functions and procedures that are not part of
+  the TForm
+}
 const
   AppTitle = 'Test Many (but not all) Components';
   AboutMsg = 'A little test suite to test many (but not all) components' + LineEnding +
@@ -103,7 +107,7 @@ type
     tadTsavedialog,
     tadTsavepicturedialog,
     tadTselectdirectorydialog,
-    tadTQuesionDialog
+    tadTQuestionDialog
     );
 
 const
@@ -185,14 +189,12 @@ const
     False, //tadTsavedialog,
     False, //tadTsavepicturedialog,
     False, //tadTselectdirectorydialog,
-    False //tadTQuesionDialog
+    False //tadTQuestionDialog
   );
 
   taCompNames: Array[taComponents] of String = (
     'Tarrow',
-    //False, //   //tacTbevel,
     'Tbitbtn',
-    //False, //   //tacTbufdataset,
     'Tbutton',
     'Tbuttonpanel',
     'Tcalcedit',
@@ -208,73 +210,33 @@ const
     'Tcomboboxex',
     'Tcontrolbar',
     'Tcoolbar',
-    //False, //   //tacTdatasource,
     'Tdateedit',
-    //False, //   //tacTdbcalendar,
-    //False, //   //tacTdbcheckbox,
-    //False, //   //tacTdbcombobox,
-    //False, //   //tacTdbedit,
-    //False, //   //tacTdbdateedit,
-    //False, //   //tacTdbgrid,
-    //False, //   //tacTdbgroupbox,
-    //False, //   //tacTdbimage,
-    //False, //   //tacTdblistbox,
-    //False, //   //tacTdblookupcombobox,
-    //False, //   //tacTdblookuplistbox,
-    //False, //   //tacTdbmemo,
-    //False, //   //tacTdbnavigator,
-    //False, //   //tacTdbradiogroup,
-    //False, //   //tacTdbtext,
     'Tdirectoryedit',
-    //False, //   //tacTdrawgrid,
     'Tedit',
     'Teditbutton',
-    //False, //   //tacTeventlog,
     'Tfilelistbox',
     'Tfilenameedit',
     'Tfiltercombobox',
     'Tfloatspinedit',
-    //False, //   //tacTflowpanel,
-    //False, //   //tacTframe,
     'Tgroupbox',
     'Theadercontrol',
-    //False, //   //tacThtmlbrowserhelpviewer,
-    //False, //   //tacThtmlhelpdatabase,
-    //False, //   //tacTidedialoglayoutstorage,
-    //False, //   //tacTidletimer,
     'Timage',
-    //False, //   //tacTimagelist,
-    //False, //   //tacTinipropstorage,
     'Tlabel',
     'Tlabelededit',
-    //False, //   //tacTlazcomponentqueue,
     'Tlistbox',
     'Tlistview',
-    //False, //   //tacTmainmenu,
     'Tmaskedit',
     'Tmemo',
-    //False, //   //tacTmouse,
     'Tnotebook',
     'Tpagecontrol',
     'Tpaintbox',
-    //False, //   //tacTpairsplitter,
     'Tpanel',
-    //False, //   //tacTpicture,
-    //False, //   //tacTpopupmenu,
-    //False, //   //tacTpopupnotifier,
-    //False, //   //tacTprocess,
-    //False, //   //tacTprocessutf8,
     'Tprogressbar',
     'Tradiobutton',
     'Tradiogroup',
-    //False, //   //tacTscrollbar,
-    //False, //   //tacTscrollbox,
-    //False, //   //tacTservicemanager,
     'Tshape',
     'Tshelllistview',
     'Tshelltreeview',
-    //False, //   //tacTsimpleipcclient,
-    //False, //   //tacTsimpleipcserver,
     'Tspeedbutton',
     'Tspinedit',
     'Tsplitter',
@@ -287,12 +249,9 @@ const
     'Ttogglebox',
     'Ttoolbar',
     'Ttrackbar',
-    //False, //   //tacTtrayicon,
     'Ttreeview',
     'Tupdown',
     'Tvaluelisteditor'
-    //False, //   //tacTxmlconfig,
-    //False, //   //tacTxmlpropstorage
     );
 
     taDlgNames: Array[taDialogs] of String = (
@@ -311,4 +270,10 @@ const
       'QuesionDialog'
   );
 
+function VkToString(Key: Word): String;
+begin
+  Result := DbgsVKCode(Key);
+  if (Pos('(', Result) > 0) and (Pos(')', Result) > 0) then
+    Result := '$' + IntToHex(Key,4);
+end;
 

examples/testtools.inc

@@ -140,6 +140,520 @@ begin
   rg.Parent := TestPnl;
 end;
 
+{---------------- TButton; ----------------}
+
+procedure TForm1.TestButton;
+begin
+  Clear;
+end;
+{---------------- End of TButton; ---------}
+
+
+{---------------- TButtonpanel; ----------------}
+
+procedure TForm1.TestButtonpanel;
+begin
+  Clear;
+end;
+{---------------- End of TButtonpanel; ---------}
+
+
+{---------------- TCalcedit; ----------------}
+
+procedure TForm1.TestCalcedit;
+begin
+  Clear;
+end;
+{---------------- End of TCalcedit; ---------}
+
+
+{---------------- TCalendar; ----------------}
+
+procedure TForm1.TestCalendar;
+begin
+  Clear;
+end;
+{---------------- End of TCalendar; ---------}
+
+
+{---------------- TCheckbox; ----------------}
+
+procedure TForm1.TestCheckbox;
+begin
+  Clear;
+end;
+{---------------- End of TCheckbox; ---------}
+
+
+{---------------- TCheckcombobox; ----------------}
+
+procedure TForm1.TestCheckcombobox;
+begin
+  Clear;
+end;
+{---------------- End of TCheckcombobox; ---------}
+
+
+{---------------- TCheckgroup; ----------------}
+
+procedure TForm1.TestCheckgroup;
+begin
+  Clear;
+end;
+{---------------- End of TCheckgroup; ---------}
+
+
+{---------------- TChecklistbox; ----------------}
+
+procedure TForm1.TestChecklistbox;
+begin
+  Clear;
+end;
+{---------------- End of TChecklistbox; ---------}
+
+
+{---------------- TColorbox; ----------------}
+
+procedure TForm1.TestColorbox;
+begin
+  Clear;
+end;
+{---------------- End of TColorbox; ---------}
+
+
+{---------------- TColorbutton; ----------------}
+
+procedure TForm1.TestColorbutton;
+begin
+  Clear;
+end;
+{---------------- End of TColorbutton; ---------}
+
+
+{---------------- TColorlistbox; ----------------}
+
+procedure TForm1.TestColorlistbox;
+begin
+  Clear;
+end;
+{---------------- End of TColorlistbox; ---------}
+
+
+{---------------- TCombobox; ----------------}
+
+procedure TForm1.TestCombobox;
+begin
+  Clear;
+end;
+{---------------- End of TCombobox; ---------}
+
+
+{---------------- TComboboxex; ----------------}
+
+procedure TForm1.TestComboboxex;
+begin
+  Clear;
+end;
+{---------------- End of TComboboxex; ---------}
+
+
+{---------------- TControlbar; ----------------}
+
+procedure TForm1.TestControlbar;
+begin
+  Clear;
+end;
+{---------------- End of TControlbar; ---------}
+
+
+{---------------- TCoolbar; ----------------}
+
+procedure TForm1.TestCoolbar;
+begin
+  Clear;
+end;
+{---------------- End of TCoolbar; ---------}
+
+
+{---------------- TDateedit; ----------------}
+
+procedure TForm1.TestDateedit;
+begin
+  Clear;
+end;
+{---------------- End of TDateedit; ---------}
+
+
+{---------------- TDirectoryedit; ----------------}
+
+procedure TForm1.TestDirectoryedit;
+begin
+  Clear;
+end;
+{---------------- End of TDirectoryedit; ---------}
+
+
+{---------------- TEdit; ----------------}
+
+procedure TForm1.TestEdit;
+begin
+  Clear;
+end;
+{---------------- End of TEdit; ---------}
+
+
+{---------------- TEditbutton; ----------------}
+
+procedure TForm1.TestEditbutton;
+begin
+  Clear;
+end;
+{---------------- End of TEditbutton; ---------}
+
+
+{---------------- TFilelistbox; ----------------}
+
+procedure TForm1.TestFilelistbox;
+begin
+  Clear;
+end;
+{---------------- End of TFilelistbox; ---------}
+
+
+{---------------- TFilenameedit; ----------------}
+
+procedure TForm1.TestFilenameedit;
+begin
+  Clear;
+end;
+{---------------- End of TFilenameedit; ---------}
+
+
+{---------------- TFiltercombobox; ----------------}
+
+procedure TForm1.TestFiltercombobox;
+begin
+  Clear;
+end;
+{---------------- End of TFiltercombobox; ---------}
+
+
+{---------------- TFloatspinedit; ----------------}
+
+procedure TForm1.TestFloatspinedit;
+begin
+  Clear;
+end;
+{---------------- End of TFloatspinedit; ---------}
+
+
+{---------------- TGroupbox; ----------------}
+
+procedure TForm1.TestGroupbox;
+begin
+  Clear;
+end;
+{---------------- End of TGroupbox; ---------}
+
+
+{---------------- THeadercontrol; ----------------}
+
+procedure TForm1.TestHeadercontrol;
+begin
+  Clear;
+end;
+{---------------- End of THeadercontrol; ---------}
+
+
+{---------------- TImage; ----------------}
+
+procedure TForm1.TestImage;
+begin
+  Clear;
+end;
+{---------------- End of TImage; ---------}
+
+
+{---------------- TLabel; ----------------}
+
+procedure TForm1.TestLabel;
+begin
+  Clear;
+end;
+{---------------- End of TLabel; ---------}
+
+
+{---------------- TLabelededit; ----------------}
+
+procedure TForm1.TestLabelededit;
+begin
+  Clear;
+end;
+{---------------- End of TLabelededit; ---------}
+
+
+{---------------- TListbox; ----------------}
+
+procedure TForm1.TestListbox;
+begin
+  Clear;
+end;
+{---------------- End of TListbox; ---------}
+
+
+{---------------- TListview; ----------------}
+
+procedure TForm1.TestListview;
+begin
+  Clear;
+end;
+{---------------- End of TListview; ---------}
+
+
+{---------------- TMaskedit; ----------------}
+
+procedure TForm1.TestMaskedit;
+begin
+  Clear;
+end;
+{---------------- End of TMaskedit; ---------}
+
+
+{---------------- TMemo; ----------------}
+
+procedure TForm1.TestMemo;
+begin
+  Clear;
+end;
+{---------------- End of TMemo; ---------}
+
+
+{---------------- TNotebook; ----------------}
+
+procedure TForm1.TestNotebook;
+begin
+  Clear;
+end;
+{---------------- End of TNotebook; ---------}
+
+
+{---------------- TPagecontrol; ----------------}
+
+procedure TForm1.TestPagecontrol;
+begin
+  Clear;
+end;
+{---------------- End of TPagecontrol; ---------}
+
+
+{---------------- TPaintbox; ----------------}
+
+procedure TForm1.TestPaintbox;
+begin
+  Clear;
+end;
+{---------------- End of TPaintbox; ---------}
+
+
+{---------------- TPanel; ----------------}
+
+procedure TForm1.TestPanel;
+begin
+  Clear;
+end;
+{---------------- End of TPanel; ---------}
+
+
+{---------------- TProgressbar; ----------------}
+
+procedure TForm1.TestProgressbar;
+begin
+  Clear;
+end;
+{---------------- End of TProgressbar; ---------}
+
+
+{---------------- TRadiobutton; ----------------}
+
+procedure TForm1.TestRadiobutton;
+begin
+  Clear;
+end;
+{---------------- End of TRadiobutton; ---------}
+
+
+{---------------- TRadiogroup; ----------------}
+
+procedure TForm1.TestRadiogroup;
+begin
+  Clear;
+end;
+{---------------- End of TRadiogroup; ---------}
+
+
+{---------------- TShape; ----------------}
+
+procedure TForm1.TestShape;
+begin
+  Clear;
+end;
+{---------------- End of TShape; ---------}
+
+
+{---------------- TShelllistview; ----------------}
+
+procedure TForm1.TestShelllistview;
+begin
+  Clear;
+end;
+{---------------- End of TShelllistview; ---------}
+
+
+{---------------- TShelltreeview; ----------------}
+
+procedure TForm1.TestShelltreeview;
+begin
+  Clear;
+end;
+{---------------- End of TShelltreeview; ---------}
+
+
+{---------------- TSpeedbutton; ----------------}
+
+procedure TForm1.TestSpeedbutton;
+begin
+  Clear;
+end;
+{---------------- End of TSpeedbutton; ---------}
+
+
+{---------------- TSpinedit; ----------------}
+
+procedure TForm1.TestSpinedit;
+begin
+  Clear;
+end;
+{---------------- End of TSpinedit; ---------}
+
+
+{---------------- TSplitter; ----------------}
+
+procedure TForm1.TestSplitter;
+begin
+  Clear;
+end;
+{---------------- End of TSplitter; ---------}
+
+
+{---------------- TStacTictext; ----------------}
+
+procedure TForm1.TestStacTictext;
+begin
+  Clear;
+end;
+{---------------- End of TStacTictext; ---------}
+
+
+{---------------- TStatusbar; ----------------}
+
+procedure TForm1.TestStatusbar;
+begin
+  Clear;
+end;
+{---------------- End of TStatusbar; ---------}
+
+
+{---------------- TStringgrid; ----------------}
+
+procedure TForm1.TestStringgrid;
+begin
+  Clear;
+end;
+{---------------- End of TStringgrid; ---------}
+
+
+{---------------- TTabcontrol; ----------------}
+
+procedure TForm1.TestTabcontrol;
+begin
+  Clear;
+end;
+{---------------- End of TTabcontrol; ---------}
+
+
+{---------------- TTimeedit; ----------------}
+
+procedure TForm1.TestTimeedit;
+begin
+  Clear;
+end;
+{---------------- End of TTimeedit; ---------}
+
+
+{---------------- TTimer; ----------------}
+
+procedure TForm1.TestTimer;
+begin
+  Clear;
+end;
+{---------------- End of TTimer; ---------}
+
+
+{---------------- TTogglebox; ----------------}
+
+procedure TForm1.TestTogglebox;
+begin
+  Clear;
+end;
+{---------------- End of TTogglebox; ---------}
+
+
+{---------------- TToolbar; ----------------}
+
+procedure TForm1.TestToolbar;
+begin
+  Clear;
+end;
+{---------------- End of TToolbar; ---------}
+
+
+{---------------- TTrackbar; ----------------}
+
+procedure TForm1.TestTrackbar;
+begin
+  Clear;
+end;
+{---------------- End of TTrackbar; ---------}
+
+
+{---------------- TTreeview; ----------------}
+
+procedure TForm1.TestTreeview;
+begin
+  Clear;
+end;
+{---------------- End of TTreeview; ---------}
+
+
+{---------------- TUpdown; ----------------}
+
+procedure TForm1.TestUpdown;
+begin
+  Clear;
+end;
+{---------------- End of TUpdown; ---------}
+
+
+{---------------- TValuelisteditor; ----------------}
+
+procedure TForm1.TestValuelisteditor;
+begin
+  Clear;
+end;
+{---------------- End of TValuelisteditor; ---------}
+
+
+{---------------- MessageDialog; ----------------}
 
 type
   { TMsgDlgDummmy }
@@ -173,7 +687,7 @@ begin
   MessageDlg('MessageDlg test', aMsg, DT, Btns, 0);
 end;
 
-procedure TForm1.TestMsgDlg;
+procedure TForm1.TestMessageDialog;
 var
   ed: TEdit;
   cg: TCheckGroup;
@@ -222,5 +736,113 @@ begin
   btn.Left := rg.Left;
   btn.Parent := TestPnl;
 end;
+{---------------- End of MessageDialog; ---------}
 
 
+{---------------- CalculatorDialog; ----------------}
+
+procedure TForm1.TestCalculatorDialog;
+begin
+  Clear;
+end;
+{---------------- End of CalculatorDialog; ---------}
+
+
+{---------------- CalendarDialog; ----------------}
+
+procedure TForm1.TestCalendarDialog;
+begin
+  Clear;
+end;
+{---------------- End of CalendarDialog; ---------}
+
+
+{---------------- ColorDialog; ----------------}
+
+procedure TForm1.TestColorDialog;
+begin
+  Clear;
+end;
+{---------------- End of ColorDialog; ---------}
+
+
+{---------------- FindDialog; ----------------}
+
+procedure TForm1.TestFindDialog;
+begin
+  Clear;
+end;
+{---------------- End of FindDialog; ---------}
+
+
+{---------------- FontDialog; ----------------}
+
+procedure TForm1.TestFontDialog;
+begin
+  Clear;
+end;
+{---------------- End of FontDialog; ---------}
+
+
+{---------------- OpenDialog; ----------------}
+
+procedure TForm1.TestOpenDialog;
+begin
+  Clear;
+end;
+{---------------- End of OpenDialog; ---------}
+
+
+{---------------- OpenpictureDialog; ----------------}
+
+procedure TForm1.TestOpenpictureDialog;
+begin
+  Clear;
+end;
+{---------------- End of OpenpictureDialog; ---------}
+
+
+{---------------- ReplaceDialog; ----------------}
+
+procedure TForm1.TestReplaceDialog;
+begin
+  Clear;
+end;
+{---------------- End of ReplaceDialog; ---------}
+
+
+{---------------- SaveDialog; ----------------}
+
+procedure TForm1.TestSaveDialog;
+begin
+  Clear;
+end;
+{---------------- End of SaveDialog; ---------}
+
+
+{---------------- SavepictureDialog; ----------------}
+
+procedure TForm1.TestSavepictureDialog;
+begin
+  Clear;
+end;
+{---------------- End of SavepictureDialog; ---------}
+
+
+{---------------- SelectdirectoryDialog; ----------------}
+
+procedure TForm1.TestSelectdirectoryDialog;
+begin
+  Clear;
+end;
+{---------------- End of SelectdirectoryDialog; ---------}
+
+
+{---------------- QuesionDialog; ----------------}
+
+procedure TForm1.TestQuestionDialog;
+begin
+  Clear;
+end;
+{---------------- End of QuesionDialog; ---------}
+