diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2015-02-26 11:06:21 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2015-02-26 11:06:21 +0000 |
commit | 62e66eb3df4848919d3e564b2818b90cc8e1c874 (patch) | |
tree | 88c18dd73cf080349b34f3298f32b38f8aebac20 | |
parent | eb3fd7a82cf077db2e13e7ffc146837ea333123a (diff) | |
download | fpGUI-62e66eb3df4848919d3e564b2818b90cc8e1c874.tar.xz |
fpcunit: fixes the bug where the treeview is partiall obscured
The panel containing the treeview is set to alClient alignment, and it was
set before any of the other non-client aligned panels. This was the wrong
order of doing things.
-rw-r--r-- | examples/apps/fpcunit/fpg_guitestrunner.pas | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/examples/apps/fpcunit/fpg_guitestrunner.pas b/examples/apps/fpcunit/fpg_guitestrunner.pas index b29150ca..ecd8e9d5 100644 --- a/examples/apps/fpcunit/fpg_guitestrunner.pas +++ b/examples/apps/fpcunit/fpg_guitestrunner.pas @@ -473,16 +473,6 @@ begin SetPosition(305, 196, 530, 547); WindowTitle := 'GUI Test Runner'; - bvlTree := TfpgBevel.Create(self); - with bvlTree do - begin - Name := 'bvlTree'; - SetPosition(4, 8, 512, 364); - Shape := bsSpacer; - MinHeight := 200; - Align := alClient; - end; - bvlButtons := TfpgBevel.Create(self); with bvlButtons do begin @@ -510,6 +500,16 @@ begin Align := alBottom; end; + bvlTree := TfpgBevel.Create(self); + with bvlTree do + begin + Name := 'bvlTree'; + SetPosition(4, 8, 512, 364); + Shape := bsSpacer; + MinHeight := 200; + Align := alClient; + end; + pbName1 := TfpgProgressBar.Create(bvlTree); with pbName1 do begin |