From 4cc1fe64b89879323cf9913ff34a8edbba7b627b Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Tue, 23 Apr 2013 11:11:52 +0100 Subject: Deletes obsolete test cases for UI Designer. There one only needed, years ago, when the UI Designer was started. --- uidesigner/tests/frm_menutest.pas | 86 ------------- uidesigner/tests/menutest.lpi | 57 --------- uidesigner/tests/menutest.lpr | 27 ----- uidesigner/tests/tabsheet_design.lpi | 58 --------- uidesigner/tests/tabsheet_design.lpr | 30 ----- uidesigner/tests/tabtest.pas | 226 ----------------------------------- 6 files changed, 484 deletions(-) delete mode 100644 uidesigner/tests/frm_menutest.pas delete mode 100644 uidesigner/tests/menutest.lpi delete mode 100644 uidesigner/tests/menutest.lpr delete mode 100644 uidesigner/tests/tabsheet_design.lpi delete mode 100644 uidesigner/tests/tabsheet_design.lpr delete mode 100644 uidesigner/tests/tabtest.pas (limited to 'uidesigner') diff --git a/uidesigner/tests/frm_menutest.pas b/uidesigner/tests/frm_menutest.pas deleted file mode 100644 index 4f707e11..00000000 --- a/uidesigner/tests/frm_menutest.pas +++ /dev/null @@ -1,86 +0,0 @@ -unit frm_menutest; - -{$mode objfpc}{$H+} - -interface - -uses - SysUtils, Classes, gfxbase, fpgfx, gui_edit, - gfx_widget, gui_form, gui_label, gui_button, - gui_listbox, gui_memo, gui_combobox, gui_grid, - gui_dialogs, gui_checkbox, gui_tree, gui_trackbar, - gui_progressbar, gui_radiobutton, gui_tab, gui_menu; - -type - - TfrmMain = class(TfpgForm) - private - procedure miExitClicked(Sender: TObject); - public - {@VFD_HEAD_BEGIN: frmMain} - MainMenu: TfpgMenuBar; - miFile: TfpgPopupMenu; - btnName1: TfpgButton; - {@VFD_HEAD_END: frmMain} - - procedure AfterCreate; override; - end; - -{@VFD_NEWFORM_DECL} - -implementation - -{@VFD_NEWFORM_IMPL} - -procedure TfrmMain.miExitClicked(Sender: TObject); -begin - Close; -end; - -procedure TfrmMain.AfterCreate; -begin - {@VFD_BODY_BEGIN: frmMain} - Name := 'frmMain'; - SetPosition(278, 186, 399, 142); - WindowTitle := 'frmMain'; - WindowPosition := wpScreenCenter; - - MainMenu := TfpgMenuBar.Create(self); - with MainMenu do - begin - Name := 'MainMenu'; - SetPosition(0, 0, 400, 23); - Anchors := [anLeft,anRight,anTop]; - end; - - miFile := TfpgPopupMenu.Create(self); - with miFile do - begin - Name := 'miFile'; - SetPosition(200, 48, 152, 24); - AddMenuItem('&New...', 'Ctrl-N', nil); - AddMenuItem('&Open...', 'Ctrl-O', nil); - AddMenuItem('-', '', nil); - AddMenuItem('E&xit', 'Alt+F4', @miExitClicked); - end; - - btnName1 := TfpgButton.Create(self); - with btnName1 do - begin - Name := 'btnName1'; - SetPosition(8, 112, 75, 24); - Text := 'Button'; - FontDesc := '#Label1'; - ImageName := 'stdimg.quit'; - ModalResult := 0; - ShowImage := True; - OnClick := @miExitClicked; - end; - - {@VFD_BODY_END: frmMain} - - MainMenu.AddMenuItem('&File', nil).SubMenu := miFile; -end; - - -end. diff --git a/uidesigner/tests/menutest.lpi b/uidesigner/tests/menutest.lpi deleted file mode 100644 index 3f9b35ec..00000000 --- a/uidesigner/tests/menutest.lpi +++ /dev/null @@ -1,57 +0,0 @@ - - - - - - - - - - - - - - - </General> - <VersionInfo> - <ProjectVersion Value=""/> - </VersionInfo> - <PublishOptions> - <Version Value="2"/> - <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> - <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> - </PublishOptions> - <RunParams> - <local> - <FormatVersion Value="1"/> - <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> - </local> - </RunParams> - <RequiredPackages Count="1"> - <Item1> - <PackageName Value="fpgui_toolkit"/> - </Item1> - </RequiredPackages> - <Units Count="2"> - <Unit0> - <Filename Value="menutest.lpr"/> - <IsPartOfProject Value="True"/> - <UnitName Value="menutest"/> - </Unit0> - <Unit1> - <Filename Value="frm_menutest.pas"/> - <IsPartOfProject Value="True"/> - <UnitName Value="frm_menutest"/> - </Unit1> - </Units> - </ProjectOptions> - <CompilerOptions> - <Version Value="5"/> - <CodeGeneration> - <Generate Value="Faster"/> - </CodeGeneration> - <Other> - <CompilerPath Value="$(CompPath)"/> - </Other> - </CompilerOptions> -</CONFIG> diff --git a/uidesigner/tests/menutest.lpr b/uidesigner/tests/menutest.lpr deleted file mode 100644 index 80b985be..00000000 --- a/uidesigner/tests/menutest.lpr +++ /dev/null @@ -1,27 +0,0 @@ -program menutest; - -{$mode objfpc}{$H+} - -uses - {$IFDEF UNIX}{$IFDEF UseCThreads} - cthreads, - {$ENDIF}{$ENDIF} - Classes, frm_menutest, fpgfx; - - - -procedure MainProc; -var - frm: TfrmMain; -begin - fpgApplication.Initialize; - frm := TfrmMain.Create(nil); - frm.Show; - fpgApplication.Run; -end; - -begin - MainProc; -end. - - diff --git a/uidesigner/tests/tabsheet_design.lpi b/uidesigner/tests/tabsheet_design.lpi deleted file mode 100644 index 2124c06d..00000000 --- a/uidesigner/tests/tabsheet_design.lpi +++ /dev/null @@ -1,58 +0,0 @@ -<?xml version="1.0"?> -<CONFIG> - <ProjectOptions> - <PathDelim Value="/"/> - <Version Value="6"/> - <General> - <Flags> - <SaveOnlyProjectUnits Value="True"/> - </Flags> - <SessionStorage Value="InProjectDir"/> - <MainUnit Value="0"/> - <IconPath Value="./"/> - <TargetFileExt Value=""/> - <Title Value="project1"/> - </General> - <VersionInfo> - <ProjectVersion Value=""/> - </VersionInfo> - <PublishOptions> - <Version Value="2"/> - <IgnoreBinaries Value="False"/> - <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> - <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> - </PublishOptions> - <RunParams> - <local> - <FormatVersion Value="1"/> - <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> - </local> - </RunParams> - <RequiredPackages Count="1"> - <Item1> - <PackageName Value="fpgui_toolkit"/> - </Item1> - </RequiredPackages> - <Units Count="2"> - <Unit0> - <Filename Value="tabsheet_design.lpr"/> - <IsPartOfProject Value="True"/> - <UnitName Value="tabsheet_design"/> - </Unit0> - <Unit1> - <Filename Value="tabtest.pas"/> - <IsPartOfProject Value="True"/> - <UnitName Value="tabtest"/> - </Unit1> - </Units> - </ProjectOptions> - <CompilerOptions> - <Version Value="5"/> - <CodeGeneration> - <Generate Value="Faster"/> - </CodeGeneration> - <Other> - <CompilerPath Value="$(CompPath)"/> - </Other> - </CompilerOptions> -</CONFIG> diff --git a/uidesigner/tests/tabsheet_design.lpr b/uidesigner/tests/tabsheet_design.lpr deleted file mode 100644 index 7acb50aa..00000000 --- a/uidesigner/tests/tabsheet_design.lpr +++ /dev/null @@ -1,30 +0,0 @@ -program tabsheet_design; - -{$mode objfpc}{$H+} - -uses - {$IFDEF UNIX}{$IFDEF UseCThreads} - cthreads, - {$ENDIF}{$ENDIF} - Classes, fpgfx, tabtest; - - -procedure MainProc; -var - frm: TfrmTabTest; -begin - fpgApplication.Initialize; - frm := TfrmTabTest.Create(nil); - try - frm.Show; - fpgApplication.Run; - finally - frm.Free; - end; -end; - -begin - MainProc; -end. - - diff --git a/uidesigner/tests/tabtest.pas b/uidesigner/tests/tabtest.pas deleted file mode 100644 index 9355a6d2..00000000 --- a/uidesigner/tests/tabtest.pas +++ /dev/null @@ -1,226 +0,0 @@ -unit tabtest; - -{$mode objfpc}{$H+} - -interface - -uses - SysUtils, Classes, gfxbase, fpgfx, gui_edit, - gfx_widget, gui_form, gui_label, gui_button, - gui_listbox, gui_memo, gui_combobox, gui_grid, - gui_dialogs, gui_checkbox, gui_tree, gui_trackbar, - gui_progressbar, gui_radiobutton, gui_tab, gui_menu, - gui_bevel; - -type - - TfraGeneral = class(TfpgForm) - public - {@VFD_HEAD_BEGIN: fraGeneral} - lblName1: TfpgLabel; - edtName1: TfpgEdit; - memName1: TfpgMemo; - btnName1: TfpgButton; - {@VFD_HEAD_END: fraGeneral} - procedure AfterCreate; override; - end; - - - TfraAddress = class(TfpgForm) - public - {@VFD_HEAD_BEGIN: fraAddress} - edtName1: TfpgEdit; - lblName1: TfpgLabel; - lblName2: TfpgLabel; - lblName3: TfpgLabel; - cbName1: TfpgComboBox; - {@VFD_HEAD_END: fraAddress} - procedure AfterCreate; override; - end; - - - TfrmTabTest = class(TfpgForm) - private - procedure btnCloseClicked(Sender: TObject); - public - {@VFD_HEAD_BEGIN: frmTabTest} - pcName1: TfpgPageControl; - btnClose: TfpgButton; - {@VFD_HEAD_END: frmTabTest} - - // these must be added manually for now, until the GUI Designer is improved. - tsGeneral: TfpgTabSheet; - tsAddress: TfpgTabSheet; - tsAccounts: TfpgTabSheet; - fraGeneral: TfraGeneral; - fraAddress: TfraAddress; - procedure AfterCreate; override; - end; - - -{@VFD_NEWFORM_DECL} - -implementation - -{@VFD_NEWFORM_IMPL} - -procedure TfraAddress.AfterCreate; -begin - {@VFD_BODY_BEGIN: fraAddress} - Name := 'fraAddress'; - SetPosition(602, 485, 208, 127); - WindowTitle := 'fraAddress'; - - edtName1 := TfpgEdit.Create(self); - with edtName1 do - begin - Name := 'edtName1'; - SetPosition(64, 32, 120, 22); - Text := ''; - FontDesc := '#Edit1'; - end; - - lblName1 := TfpgLabel.Create(self); - with lblName1 do - begin - Name := 'lblName1'; - SetPosition(4, 4, 156, 16); - Text := 'TabSheet - Address'; - FontDesc := '#Label2'; - end; - - lblName2 := TfpgLabel.Create(self); - with lblName2 do - begin - Name := 'lblName2'; - SetPosition(8, 36, 44, 16); - Text := 'Street'; - FontDesc := '#Label1'; - end; - - lblName3 := TfpgLabel.Create(self); - with lblName3 do - begin - Name := 'lblName3'; - SetPosition(8, 60, 48, 16); - Text := 'City'; - FontDesc := '#Label1'; - end; - - cbName1 := TfpgComboBox.Create(self); - with cbName1 do - begin - Name := 'cbName1'; - SetPosition(64, 56, 120, 23); - Items.Add('Somerset West'); - Items.Add('Cape Town'); - Items.Add('Durban'); - Items.Add('Jo''burg'); - Items.Add('Pretoria'); - FontDesc := '#List'; - FocusItem := 1; - end; - - {@VFD_BODY_END: fraAddress} -end; - - -procedure TfraGeneral.AfterCreate; -begin - {@VFD_BODY_BEGIN: fraGeneral} - Name := 'fraGeneral'; - SetPosition(611, 290, 197, 165); - WindowTitle := 'fraGeneral'; - - lblName1 := TfpgLabel.Create(self); - with lblName1 do - begin - Name := 'lblName1'; - SetPosition(4, 4, 212, 16); - Text := 'TabSheet - General'; - FontDesc := '#Label2'; - end; - - edtName1 := TfpgEdit.Create(self); - with edtName1 do - begin - Name := 'edtName1'; - SetPosition(12, 28, 144, 22); - Anchors := [anLeft,anRight,anTop]; - Text := ''; - FontDesc := '#Edit1'; - end; - - memName1 := TfpgMemo.Create(self); - with memName1 do - begin - Name := 'memName1'; - SetPosition(12, 56, 172, 96); - Anchors := [anLeft,anRight,anTop,anBottom]; - FontDesc := '#Edit1'; - end; - - btnName1 := TfpgButton.Create(self); - with btnName1 do - begin - Name := 'btnName1'; - SetPosition(160, 28, 19, 20); - Anchors := [anRight,anTop]; - Text := '...'; - FontDesc := '#Label1'; - ImageName := ''; - ModalResult := 0; - end; - - {@VFD_BODY_END: fraGeneral} -end; - -procedure TfrmTabTest.btnCloseClicked(Sender: TObject); -begin - Close; -end; - -procedure TfrmTabTest.AfterCreate; -begin - {@VFD_BODY_BEGIN: frmTabTest} - Name := 'frmTabTest'; - SetPosition(293, 290, 275, 198); - WindowTitle := 'Tab Design Test'; - - pcName1 := TfpgPageControl.Create(self); - with pcName1 do - begin - Name := 'pcName1'; - SetPosition(8, 12, 258, 148); - Anchors := [anLeft,anRight,anTop,anBottom]; - FixedTabWidth := 0; - Style := tsTabs; - TabPosition := tpTop; - tsGeneral := AppendTabSheet('General'); - tsAddress := AppendTabSheet('Address'); - tsAccounts := AppendTabSheet('EAddress'); - ActivePage := tsGeneral; - end; - - btnClose := TfpgButton.Create(self); - with btnClose do - begin - Name := 'btnClose'; - SetPosition(192, 168, 75, 24); - Anchors := [anRight,anBottom]; - Text := 'Close'; - FontDesc := '#Label1'; - ImageName := ''; - ModalResult := 0; - OnClick := @btnCloseClicked; - end; - - {@VFD_BODY_END: frmTabTest} - - fraGeneral := TfraGeneral.Create(tsGeneral); - fraGeneral.Align := alClient; - fraAddress := TfraAddress.Create(tsAddress); - fraAddress.Align := alClient; -end; - -end. -- cgit v1.2.3-70-g09d2