* Applied patch from Michael van Canneyt fixing the anchors of the checkboxes in Treeview example.

2 files changed, 3 insertions, 0 deletions

diff --git a/examples/gui/treeviewtest/treeviewtest.lpi b/examples/gui/treeviewtest/treeviewtest.lpi
index 4e659945..4e8a85c2 100644
--- a/examples/gui/treeviewtest/treeviewtest.lpi
+++ b/examples/gui/treeviewtest/treeviewtest.lpi
@@ -46,6 +46,7 @@
       <Generate Value="Faster"/>
     </CodeGeneration>
     <Other>
+      <CustomOptions Value="-FUunits"/>
       <CompilerPath Value="$(CompPath)"/>
     </Other>
   </CompilerOptions>
diff --git a/examples/gui/treeviewtest/treeviewtest.lpr b/examples/gui/treeviewtest/treeviewtest.lpr
index 2ef9c974..f45a07c5 100644
--- a/examples/gui/treeviewtest/treeviewtest.lpr
+++ b/examples/gui/treeviewtest/treeviewtest.lpr
@@ -103,11 +103,13 @@ begin
   cbShowImages := CreateCheckBox(self, 8, 204, 'Show images');
   cbShowImages.Checked := True;
   cbShowImages.OnChange := @cbShowImagesChange;
+  cbShowImages.Anchors := [anLeft, anBottom];
   
   // create a checkbox
   cbIndentNode := CreateCheckBox(self, 120, 204, 'Indent node with no image');
   cbIndentNode.Checked := True;
   cbIndentNode.OnChange := @cbIndentNodeChange;
+  cbIndentNode.Anchors := [anLeft, anBottom];
 end;
 
 destructor TMainForm.Destroy;