diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-09-03 09:39:39 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-09-03 09:39:39 +0000 |
commit | feabd37193a4e63ff629b6f1e05039eeffcc8aa2 (patch) | |
tree | bcd172d5a17ca68ac5e17dcb053b33f5c52e6a84 /examples/gui/treeviewtest | |
parent | 7494409d38ba3cf3ed88f4ba34f5b20c02078932 (diff) | |
download | fpGUI-feabd37193a4e63ff629b6f1e05039eeffcc8aa2.tar.xz |
* Implemented more of the Treeview component. Started with the
painting routine as well. Still not usable though.
Diffstat (limited to 'examples/gui/treeviewtest')
-rw-r--r-- | examples/gui/treeviewtest/treeviewtest.lpi | 3 | ||||
-rw-r--r-- | examples/gui/treeviewtest/treeviewtest.lpr | 13 |
2 files changed, 13 insertions, 3 deletions
diff --git a/examples/gui/treeviewtest/treeviewtest.lpi b/examples/gui/treeviewtest/treeviewtest.lpi index 779a40a2..ca871164 100644 --- a/examples/gui/treeviewtest/treeviewtest.lpi +++ b/examples/gui/treeviewtest/treeviewtest.lpi @@ -4,9 +4,6 @@ <PathDelim Value="/"/> <Version Value="5"/> <General> - <Flags> - <SaveOnlyProjectUnits Value="True"/> - </Flags> <SessionStorage Value="InProjectDir"/> <MainUnit Value="0"/> <IconPath Value="./"/> diff --git a/examples/gui/treeviewtest/treeviewtest.lpr b/examples/gui/treeviewtest/treeviewtest.lpr index 85f7ffbc..7db4aafe 100644 --- a/examples/gui/treeviewtest/treeviewtest.lpr +++ b/examples/gui/treeviewtest/treeviewtest.lpr @@ -13,6 +13,8 @@ uses type TMainForm = class(TfpgForm) + private + TV: TfpgTreeView; public constructor Create(AOwner: TComponent); override; end; @@ -20,11 +22,22 @@ type { TMainForm } constructor TMainForm.Create(AOwner: TComponent); +var + n: TfpgTreeNode; begin inherited Create(AOwner); WindowTitle := 'Treeview Test'; WindowPosition := wpUser; SetPosition(100, 100, 300, 200); + + TV := TfpgTreeView.Create(self); + TV.SetPosition(8, 8, 250, 180); + TV.ShowColumns := False; + n := TV.RootNode.AppendText('Node 1'); + n.AppendText('Node 1.1'); + n := TV.RootNode.AppendText('Node 2'); + n.AppendText('Node 2.1'); + TV.RootNode.AppendText('Node 3'); end; |