tvplanit: Fix another scaling issue with fulldemo

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

components/tvplanit/examples/fulldemo/demomain.lfm

@@ -16,6 +16,7 @@ object MainForm: TMainForm
     Top = 0
     Width = 834
     Align = alClient
+    AutoSize = True
     BevelOuter = bvNone
     ClientHeight = 576
     ClientWidth = 834
@@ -440,19 +441,27 @@ object MainForm: TMainForm
       end
       object Resources: TPage
         object BtnDeleteRes: TButton
-          Left = 176
+          AnchorSideLeft.Control = BtnEditRes
+          AnchorSideLeft.Side = asrBottom
+          Left = 128
           Height = 25
           Top = 64
-          Width = 75
+          Width = 59
+          AutoSize = True
+          BorderSpacing.Left = 8
           Caption = 'Delete'
           OnClick = BtnDeleteResClick
           TabOrder = 0
         end
         object BtnEditRes: TButton
-          Left = 96
+          AnchorSideLeft.Control = BtnNewRes
+          AnchorSideLeft.Side = asrBottom
+          Left = 74
           Height = 25
           Top = 64
           Width = 46
+          AutoSize = True
+          BorderSpacing.Left = 8
           Caption = 'Edit'
           OnClick = BtnEditResClick
           TabOrder = 1
@@ -462,6 +471,7 @@ object MainForm: TMainForm
           Height = 25
           Top = 64
           Width = 50
+          AutoSize = True
           Caption = 'New'
           OnClick = BtnNewResClick
           TabOrder = 2

components/tvplanit/examples/fulldemo/demomain.pas

@@ -738,7 +738,7 @@ begin
     GetLabelWidth(LblDrawingStyle)
   ]);
   CbLanguages.Left := 24 + w + 8;
-
+  (*
   // Resources page
   w := MaxValue([BtnNewRes.Width, BtnEditRes.Width, BtnDeleteRes.Width]);
   BtnNewRes.AutoSize := false;
@@ -747,6 +747,7 @@ begin
   BtnNewRes.Width := w;
   BtnEditRes.Width := w;
   BtnDeleteRes.Width := w;
+  *)
 end;
 
 procedure TMainForm.RbAllTasksChange(Sender: TObject);