tvplanit: Improved layout of ganttview demo form.

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

components/tvplanit/examples/gantt/main.lfm

@@ -12,7 +12,7 @@ object MainForm: TMainForm
     Cursor = crVSplit
     Left = 0
     Height = 5
-    Top = 306
+    Top = 240
     Width = 800
     Align = alTop
     ResizeAnchor = akTop
@@ -20,48 +20,64 @@ object MainForm: TMainForm
   object Panel1: TPanel
     Left = 0
     Height = 66
-    Top = 0
+    Top = 534
     Width = 800
-    Align = alTop
+    Align = alBottom
     BevelOuter = bvNone
     ClientHeight = 66
     ClientWidth = 800
     TabOrder = 1
     object Button1: TButton
-      Left = 10
+      AnchorSideLeft.Control = Panel1
+      AnchorSideTop.Control = Panel1
+      Left = 6
       Height = 25
-      Top = 10
+      Top = 6
       Width = 77
       AutoSize = True
+      BorderSpacing.Around = 6
       Caption = 'All events'
       OnClick = Button1Click
       TabOrder = 0
     end
     object Button2: TButton
-      Left = 95
+      AnchorSideLeft.Control = Button1
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = Panel1
+      Left = 89
       Height = 25
-      Top = 10
+      Top = 6
       Width = 167
       AutoSize = True
+      BorderSpacing.Around = 6
       Caption = 'Week of selected date only'
       OnClick = Button2Click
       TabOrder = 1
     end
     object Button3: TButton
-      Left = 272
+      AnchorSideLeft.Control = Button2
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = Panel1
+      Left = 262
       Height = 25
-      Top = 8
+      Top = 6
       Width = 174
       AutoSize = True
+      BorderSpacing.Around = 6
       Caption = 'Month of selected date only'
       OnClick = Button3Click
       TabOrder = 2
     end
     object CheckBox1: TCheckBox
+      AnchorSideLeft.Control = Button3
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = Panel1
       Left = 456
       Height = 19
-      Top = 8
+      Top = 6
       Width = 102
+      BorderSpacing.Left = 20
+      BorderSpacing.Top = 6
       Caption = 'Show weekends'
       Checked = True
       OnChange = CheckBox1Change
@@ -69,11 +85,16 @@ object MainForm: TMainForm
       TabOrder = 3
     end
     object CheckGroup1: TCheckGroup
+      AnchorSideTop.Control = Panel1
+      AnchorSideBottom.Control = Panel1
+      AnchorSideBottom.Side = asrBottom
       Left = 581
-      Height = 50
-      Top = 10
+      Height = 54
+      Top = 6
       Width = 185
+      Anchors = [akTop, akLeft, akBottom]
       AutoFill = True
+      BorderSpacing.Around = 6
       Caption = 'Show headers'
       ChildSizing.LeftRightSpacing = 6
       ChildSizing.TopBottomSpacing = 6
@@ -83,7 +104,7 @@ object MainForm: TMainForm
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 3
-      ClientHeight = 30
+      ClientHeight = 34
       ClientWidth = 181
       Columns = 3
       Items.Strings = (
@@ -98,10 +119,14 @@ object MainForm: TMainForm
       }
     end
     object CheckBox2: TCheckBox
+      AnchorSideLeft.Control = CheckBox1
+      AnchorSideTop.Control = CheckBox1
+      AnchorSideTop.Side = asrBottom
       Left = 456
       Height = 19
-      Top = 24
+      Top = 31
       Width = 32
+      BorderSpacing.Top = 6
       Caption = '3D'
       Checked = True
       OnChange = CheckBox2Change
@@ -109,41 +134,60 @@ object MainForm: TMainForm
       TabOrder = 5
     end
     object Button4: TButton
-      Left = 8
+      AnchorSideLeft.Control = Panel1
+      AnchorSideTop.Control = Button1
+      AnchorSideTop.Side = asrBottom
+      Left = 6
       Height = 25
       Top = 37
       Width = 129
       AutoSize = True
+      BorderSpacing.Around = 6
       Caption = 'Edit Print Formats...'
       OnClick = Button4Click
       TabOrder = 6
     end
     object Button5: TButton
-      Left = 144
+      AnchorSideLeft.Control = Button4
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = Button1
+      AnchorSideTop.Side = asrBottom
+      Left = 141
       Height = 25
       Top = 37
       Width = 104
       AutoSize = True
+      BorderSpacing.Around = 6
       Caption = 'Print Preview...'
       OnClick = Button5Click
       TabOrder = 7
     end
     object Button6: TButton
-      Left = 256
+      AnchorSideLeft.Control = Button5
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = Button1
+      AnchorSideTop.Side = asrBottom
+      Left = 251
       Height = 25
       Top = 37
       Width = 51
       AutoSize = True
+      BorderSpacing.Around = 6
       Caption = 'Print'
       OnClick = Button6Click
       TabOrder = 8
     end
     object VpPrintFormatComboBox1: TVpPrintFormatComboBox
-      Left = 320
+      AnchorSideLeft.Control = Button6
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = Button6
+      AnchorSideTop.Side = asrCenter
+      Left = 308
       Height = 23
-      Top = 37
+      Top = 38
       Width = 126
       ControlLink = VpControlLink1
+      Borderspacing.Around = 6
       ItemHeight = 15
       Sorted = True
       TabOrder = 9
@@ -152,7 +196,7 @@ object MainForm: TMainForm
   object Panel2: TPanel
     Left = 0
     Height = 240
-    Top = 66
+    Top = 0
     Width = 800
     Align = alTop
     Caption = 'Panel2'
@@ -284,8 +328,8 @@ object MainForm: TMainForm
           end>
         FormatName = 'Gantt inc 10d'
       end>
-    Left = 79
-    Top = 208
+    Left = 288
+    Top = 296
   end
   object VpIniDatastore1: TVpIniDatastore
     CategoryColorMap.Category0.BackgroundColor = clSkyBlue
@@ -318,8 +362,8 @@ object MainForm: TMainForm
     OnDateChanged = VpIniDatastore1DateChanged
     AutoConnect = True
     FileName = 'data.ini'
-    Left = 79
-    Top = 144
+    Left = 400
+    Top = 296
   end
   object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog
     Version = 'v1.7.0'
@@ -331,8 +375,8 @@ object MainForm: TMainForm
     Placement.Left = 10
     Placement.Height = 480
     Placement.Width = 640
-    Left = 79
-    Top = 88
+    Left = 128
+    Top = 56
   end
   object VpPrintPreviewDialog1: TVpPrintPreviewDialog
     Version = 'v1.7.0'
@@ -347,11 +391,11 @@ object MainForm: TMainForm
     Placement.Left = 10
     Placement.Height = 480
     Placement.Width = 720
-    Left = 223
-    Top = 88
+    Left = 128
+    Top = 184
   end
   object PrintDialog1: TPrintDialog
-    Left = 223
-    Top = 144
+    Left = 128
+    Top = 120
   end
 end