* Advanced demo: fix layout to look good on all platforms + cleaunp

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1103 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/virtualtreeview-new/trunk/demos/advanced/DrawTreeDemo.lfm

@@ -1,18 +1,20 @@
 object DrawTreeForm: TDrawTreeForm
   Left = 333
-  Height = 477
+  Height = 453
   Top = 339
   Width = 710
   ActiveControl = VDT1
   Caption = 'DrawTreeForm'
-  ClientHeight = 477
+  ClientHeight = 453
   ClientWidth = 710
   Font.Height = -13
   Font.Name = 'Trebuchet MS'
   OnCreate = FormCreate
-  LCLVersion = '0.9.27'
+  LCLVersion = '0.9.29'
   object Label7: TLabel
+    Left = 0
     Height = 61
+    Top = 0
     Width = 710
     Align = alTop
     AutoSize = False
@@ -22,31 +24,35 @@ object DrawTreeForm: TDrawTreeForm
   end
   object Label1: TLabel
     Left = 4
-    Height = 19
-    Top = 380
-    Width = 248
+    Height = 18
+    Top = 424
+    Width = 274
     Anchors = [akLeft, akBottom]
     Caption = 'Adjust vertical image alignment of nodes:'
     ParentColor = False
   end
   object Label3: TLabel
-    Left = 424
-    Height = 19
-    Top = 380
-    Width = 23
+    AnchorSideLeft.Control = TrackBar1
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideBottom.Control = TrackBar1
+    AnchorSideBottom.Side = asrCenter
+    Left = 450
+    Height = 18
+    Top = 424
+    Width = 30
     Anchors = [akLeft, akBottom]
+    BorderSpacing.Left = 8
     Caption = '50%'
     ParentColor = False
   end
   object VDT1: TVirtualDrawTree
     Left = 10
-    Height = 278
-    Top = 84
+    Height = 330
+    Top = 81
     Width = 684
     Anchors = [akTop, akLeft, akRight, akBottom]
     AutoExpandDelay = 200
     AutoScrollDelay = 200
-    BorderStyle = bsSingle
     ClipboardFormats.Strings = (
       'Virtual Tree Data'
     )
@@ -59,6 +65,7 @@ object DrawTreeForm: TDrawTreeForm
     Header.Columns = <    
       item
         Options = [coAllowClick, coEnabled, coParentColor, coResizable, coShowDropMark, coVisible]
+        Position = 0
         Text = 'Image file name'
         Width = 217
       end    
@@ -72,6 +79,7 @@ object DrawTreeForm: TDrawTreeForm
         Text = 'Properties'
         Width = 160
       end>
+    Header.DefaultHeight = 17
     Header.Height = 22
     Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoRestrictDrag, hoShowSortGlyphs, hoVisible]
     Header.ParentFont = True
@@ -103,15 +111,20 @@ object DrawTreeForm: TDrawTreeForm
     OnStateChange = VDT1StateChange
   end
   object TrackBar1: TTrackBar
-    Left = 264
-    Height = 33
-    Top = 367
+    AnchorSideLeft.Control = Label1
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideBottom.Control = Label1
+    AnchorSideBottom.Side = asrCenter
+    Left = 285
+    Height = 38
+    Top = 414
     Width = 157
     Max = 100
     OnChange = TrackBar1Change
     Position = 50
     TickStyle = tsNone
     Anchors = [akLeft, akBottom]
+    BorderSpacing.Left = 7
     TabOrder = 1
   end
   object SystemImages: TImageList