diff options
| -rw-r--r-- | examples/gui/treeviewtest/extrafpc.cfg | 5 | ||||
| -rw-r--r-- | examples/gui/treeviewtest/treeviewtest.lpi | 52 | ||||
| -rw-r--r-- | examples/gui/treeviewtest/treeviewtest.lpr | 45 | ||||
| -rw-r--r-- | src/gui/fpgui_package.lpk | 6 | ||||
| -rw-r--r-- | src/gui/fpgui_package.pas | 2 | ||||
| -rw-r--r-- | src/gui/gui_tree.pas | 27 |
6 files changed, 135 insertions, 2 deletions
diff --git a/examples/gui/treeviewtest/extrafpc.cfg b/examples/gui/treeviewtest/extrafpc.cfg new file mode 100644 index 00000000..073dc4b6 --- /dev/null +++ b/examples/gui/treeviewtest/extrafpc.cfg @@ -0,0 +1,5 @@ +-FUunits +-Fu../../../lib +-Xs +-XX +-CX diff --git a/examples/gui/treeviewtest/treeviewtest.lpi b/examples/gui/treeviewtest/treeviewtest.lpi new file mode 100644 index 00000000..91f47616 --- /dev/null +++ b/examples/gui/treeviewtest/treeviewtest.lpi @@ -0,0 +1,52 @@ +<?xml version="1.0"?> +<CONFIG> + <ProjectOptions> + <PathDelim Value="/"/> + <Version Value="5"/> + <General> + <Flags> + <SaveOnlyProjectUnits Value="True"/> + </Flags> + <SessionStorage Value="InProjectDir"/> + <MainUnit Value="0"/> + <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"/> + <MinVersion Minor="5" Valid="True"/> + </Item1> + </RequiredPackages> + <Units Count="1"> + <Unit0> + <Filename Value="treeviewtest.lpr"/> + <IsPartOfProject Value="True"/> + <UnitName Value="treeviewtest"/> + </Unit0> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="5"/> + <CodeGeneration> + <Generate Value="Faster"/> + </CodeGeneration> + <Other> + <CompilerPath Value="$(CompPath)"/> + </Other> + </CompilerOptions> +</CONFIG> diff --git a/examples/gui/treeviewtest/treeviewtest.lpr b/examples/gui/treeviewtest/treeviewtest.lpr new file mode 100644 index 00000000..85f7ffbc --- /dev/null +++ b/examples/gui/treeviewtest/treeviewtest.lpr @@ -0,0 +1,45 @@ +program treeviewtest; + +{$mode objfpc}{$H+} + +uses + {$IFDEF UNIX}{$IFDEF UseCThreads} + cthreads, + {$ENDIF}{$ENDIF} + Classes, + fpgfx, + gui_form, + gui_tree; + +type + TMainForm = class(TfpgForm) + public + constructor Create(AOwner: TComponent); override; + end; + +{ TMainForm } + +constructor TMainForm.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + WindowTitle := 'Treeview Test'; + WindowPosition := wpUser; + SetPosition(100, 100, 300, 200); +end; + + +procedure MainProc; +var + frm: TMainForm; +begin + fpgApplication.Initialize; + frm := TMainForm.Create(nil); + frm.Show; + fpgApplication.Run; +end; + +begin + MainProc; +end. + + diff --git a/src/gui/fpgui_package.lpk b/src/gui/fpgui_package.lpk index d6f2e0ae..9ac337fb 100644 --- a/src/gui/fpgui_package.lpk +++ b/src/gui/fpgui_package.lpk @@ -18,7 +18,7 @@ <Description Value="fpGUI - multi-handle redesign"/> <License Value="Modified LGPL"/> <Version Minor="5"/> - <Files Count="21"> + <Files Count="22"> <Item1> <Filename Value="gui_button.pas"/> <UnitName Value="gui_button"/> @@ -103,6 +103,10 @@ <Filename Value="gui_grid.pas"/> <UnitName Value="gui_grid"/> </Item21> + <Item22> + <Filename Value="gui_tree.pas"/> + <UnitName Value="gui_tree"/> + </Item22> </Files> <RequiredPkgs Count="2"> <Item1> diff --git a/src/gui/fpgui_package.pas b/src/gui/fpgui_package.pas index a633053b..0bd885ab 100644 --- a/src/gui/fpgui_package.pas +++ b/src/gui/fpgui_package.pas @@ -10,7 +10,7 @@ uses gui_button, gui_combobox, gui_dialogs, gui_edit, gui_form, gui_label, gui_listbox, gui_memo, gui_scrollbar, gui_bevel, gui_checkbox, gui_radiobutton, gui_trackbar, gui_tab, gui_basegrid, gui_listview, - gui_customgrid, gui_progressbar, gui_menu, gui_style, gui_grid; + gui_customgrid, gui_progressbar, gui_menu, gui_style, gui_grid, gui_tree; implementation diff --git a/src/gui/gui_tree.pas b/src/gui/gui_tree.pas new file mode 100644 index 00000000..68fcffc4 --- /dev/null +++ b/src/gui/gui_tree.pas @@ -0,0 +1,27 @@ +unit gui_tree; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, + SysUtils, + gfx_widget, + gfxbase, + fpgfx; + +type + + TfpgTreeNode = class(TObject) + end; + + + TfpgTreeview = class(TfpgWidget) + end; + + +implementation + +end. + |