diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-31 07:50:42 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-31 07:50:42 +0000 |
commit | d972f23b5cad43ace0ff31f3b5436abc9d56fbae (patch) | |
tree | 89431555ae7f3108b9580f37b19a0b9df122a1d0 /examples/gui/treeviewtest/treeviewtest.lpr | |
parent | 5e28b873d852f64020ac991d64f8c1dd0e21b0f6 (diff) | |
download | fpGUI-d972f23b5cad43ace0ff31f3b5436abc9d56fbae.tar.xz |
* Created a template test project for the upcoming Treeview component.
Diffstat (limited to 'examples/gui/treeviewtest/treeviewtest.lpr')
-rw-r--r-- | examples/gui/treeviewtest/treeviewtest.lpr | 45 |
1 files changed, 45 insertions, 0 deletions
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. + + |