diff options
Diffstat (limited to 'examples/gui')
| -rw-r--r-- | examples/gui/listbox/frm_main.pas | 160 | ||||
| -rw-r--r-- | examples/gui/listbox/listboxtest.lpi | 58 | ||||
| -rw-r--r-- | examples/gui/listbox/listboxtest.lpr | 29 |
3 files changed, 0 insertions, 247 deletions
diff --git a/examples/gui/listbox/frm_main.pas b/examples/gui/listbox/frm_main.pas deleted file mode 100644 index 9757bfc9..00000000 --- a/examples/gui/listbox/frm_main.pas +++ /dev/null @@ -1,160 +0,0 @@ -unit frm_main; - -{$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_basegrid, gui_grid, - gui_dialogs, gui_checkbox, gui_tree, gui_trackbar, - gui_progressbar, gui_radiobutton, gui_tab, gui_menu, - gui_panel, gui_popupcalendar, gui_gauge; - -type - - TMainForm = class(TfpgForm) - private - procedure cbHotTrackChanged(Sender: TObject); - procedure btnAdd1Clicked(Sender: TObject); - procedure btnFocusClicked(Sender: TObject); - procedure btnClearClicked(Sender: TObject); - procedure btnAdd10Clicked(Sender: TObject); - public - {@VFD_HEAD_BEGIN: MainForm} - lstName1: TfpgListBox; - btnAdd10: TfpgButton; - btnClear: TfpgButton; - btnFocus: TfpgButton; - btnAdd1: TfpgButton; - memName1: TfpgMemo; - cbHotTrack: TfpgCheckBox; - {@VFD_HEAD_END: MainForm} - procedure AfterCreate; override; - end; - -{@VFD_NEWFORM_DECL} - -implementation - -{@VFD_NEWFORM_IMPL} - -procedure TMainForm.cbHotTrackChanged(Sender: TObject); -begin - lstName1.HotTrack := cbHotTrack.Checked; -end; - -procedure TMainForm.btnAdd1Clicked(Sender: TObject); -begin - lstName1.Items.Add(Format('Item %2d', [lstName1.ItemCount])); -end; - -procedure TMainForm.btnFocusClicked(Sender: TObject); -begin - if lstName1.ItemCount > 1 then - lstName1.FocusItem := 2; -end; - -procedure TMainForm.btnClearClicked(Sender: TObject); -begin - lstName1.Items.Clear; -end; - -procedure TMainForm.btnAdd10Clicked(Sender: TObject); -var - i: integer; -begin - for i := 1 to 10 do - lstName1.Items.Add(Format('Item %2d', [lstName1.ItemCount])); -end; - -procedure TMainForm.AfterCreate; -begin - {@VFD_BODY_BEGIN: MainForm} - Name := 'MainForm'; - SetPosition(345, 220, 300, 270); - WindowTitle := 'ListBox test'; - WindowPosition := wpScreenCenter; - - lstName1 := TfpgListBox.Create(self); - with lstName1 do - begin - Name := 'lstName1'; - SetPosition(12, 12, 128, 168); - FontDesc := '#List'; - end; - - btnAdd10 := TfpgButton.Create(self); - with btnAdd10 do - begin - Name := 'btnAdd10'; - SetPosition(204, 28, 92, 23); - Text := 'Add 10 items'; - FontDesc := '#Label1'; - ImageName := ''; - TabOrder := 1; - OnClick := @btnAdd10Clicked; - end; - - btnClear := TfpgButton.Create(self); - with btnClear do - begin - Name := 'btnClear'; - SetPosition(204, 56, 92, 23); - Text := 'Clear Items'; - FontDesc := '#Label1'; - ImageName := ''; - TabOrder := 2; - OnClick := @btnClearClicked; - end; - - btnFocus := TfpgButton.Create(self); - with btnFocus do - begin - Name := 'btnFocus'; - SetPosition(204, 84, 92, 23); - Text := 'FocusItem = 2'; - FontDesc := '#Label1'; - ImageName := ''; - TabOrder := 3; - OnClick := @btnFocusClicked; - end; - - btnAdd1 := TfpgButton.Create(self); - with btnAdd1 do - begin - Name := 'btnAdd1'; - SetPosition(204, 112, 92, 23); - Text := 'Add 1 item'; - FontDesc := '#Label1'; - ImageName := ''; - TabOrder := 4; - OnClick := @btnAdd1Clicked; - end; - - memName1 := TfpgMemo.Create(self); - with memName1 do - begin - Name := 'memName1'; - SetPosition(12, 188, 280, 77); - FontDesc := '#Edit1'; - TabOrder := 5; - end; - - cbHotTrack := TfpgCheckBox.Create(self); - with cbHotTrack do - begin - Name := 'cbHotTrack'; - SetPosition(204, 140, 120, 19); - FontDesc := '#Label1'; - TabOrder := 6; - Text := 'Track Focus'; - OnChange := @cbHotTrackChanged; - end; - - {@VFD_BODY_END: MainForm} -end; - - -end. diff --git a/examples/gui/listbox/listboxtest.lpi b/examples/gui/listbox/listboxtest.lpi deleted file mode 100644 index f80a70b0..00000000 --- a/examples/gui/listbox/listboxtest.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=""/> - </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_package"/> - </Item1> - </RequiredPackages> - <Units Count="2"> - <Unit0> - <Filename Value="listboxtest.lpr"/> - <IsPartOfProject Value="True"/> - <UnitName Value="listboxtest"/> - </Unit0> - <Unit1> - <Filename Value="frm_main.pas"/> - <IsPartOfProject Value="True"/> - <UnitName Value="frm_main"/> - </Unit1> - </Units> - </ProjectOptions> - <CompilerOptions> - <Version Value="5"/> - <CodeGeneration> - <Generate Value="Faster"/> - </CodeGeneration> - <Other> - <CustomOptions Value="-FUunits"/> - <CompilerPath Value="$(CompPath)"/> - </Other> - </CompilerOptions> -</CONFIG> diff --git a/examples/gui/listbox/listboxtest.lpr b/examples/gui/listbox/listboxtest.lpr deleted file mode 100644 index dd14a408..00000000 --- a/examples/gui/listbox/listboxtest.lpr +++ /dev/null @@ -1,29 +0,0 @@ -program listboxtest; - -{$mode objfpc}{$H+} - -uses - {$IFDEF UNIX}{$IFDEF UseCThreads} - cthreads, - {$ENDIF}{$ENDIF} - Classes, fpgfx, frm_main, fpgui_package; - -procedure MainProc; -var - frm: TMainForm; -begin - fpgApplication.Initialize; - frm := TMainForm.Create(nil); - try - frm.Show; - fpgApplication.Run; - finally - frm.Free; - end; -end; - -begin - MainProc; -end. - - |