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.

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