mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-13 05:29:26 +02:00
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 -
This commit is contained in:
bart
parent
b9a5f9bcc9
commit
96ba7a6b40
@ -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
|
||||
|
||||
@ -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;
|
||||
|
||||
|
||||
@ -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; ---------}
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user