tvplanit: Beginning to integrate TVpGanttView in the tvplanit printing system. Still a long way to go...

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

components/tvplanit/source/vpedelem.lfm

@@ -1,6 +1,6 @@
 object frmEditElement: TfrmEditElement
   Left = 288
-  Height = 447
+  Height = 466
   Top = 321
   Width = 473
   HorzScrollBar.Page = 378
@@ -8,7 +8,7 @@ object frmEditElement: TfrmEditElement
   AutoSize = True
   BorderStyle = bsDialog
   Caption = 'Edit Element'
-  ClientHeight = 447
+  ClientHeight = 466
   ClientWidth = 473
   OnCreate = FormCreate
   OnShow = FormShow
@@ -16,7 +16,7 @@ object frmEditElement: TfrmEditElement
   object gbVisual: TGroupBox
     Left = 12
     Height = 144
-    Top = 196
+    Top = 215
     Width = 449
     Align = alTop
     AutoSize = True
@@ -359,7 +359,7 @@ object frmEditElement: TfrmEditElement
   object gbCaption: TGroupBox
     Left = 12
     Height = 54
-    Top = 352
+    Top = 371
     Width = 449
     Align = alTop
     AutoSize = True
@@ -466,7 +466,7 @@ object frmEditElement: TfrmEditElement
   object Panel2: TPanel
     Left = 12
     Height = 51
-    Top = 133
+    Top = 152
     Width = 451
     Align = alTop
     AutoSize = True
@@ -564,7 +564,7 @@ object frmEditElement: TfrmEditElement
   object ButtonPanel: TPanel
     Left = 0
     Height = 25
-    Top = 414
+    Top = 433
     Width = 461
     Align = alTop
     AutoSize = True
@@ -613,7 +613,7 @@ object frmEditElement: TfrmEditElement
   end
   object ItemTypePanel: TPanel
     Left = 12
-    Height = 78
+    Height = 97
     Top = 43
     Width = 451
     Align = alTop
@@ -622,12 +622,12 @@ object frmEditElement: TfrmEditElement
     BorderSpacing.Top = 12
     BorderSpacing.Right = 10
     BevelOuter = bvNone
-    ClientHeight = 78
+    ClientHeight = 97
     ClientWidth = 451
     TabOrder = 1
     object rgItemType: TRadioGroup
       Left = 0
-      Height = 78
+      Height = 97
       Top = 0
       Width = 451
       Align = alClient
@@ -641,10 +641,10 @@ object frmEditElement: TfrmEditElement
       ChildSizing.ShrinkHorizontal = crsScaleChilds
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
-      ChildSizing.ControlsPerLine = 4
-      ClientHeight = 58
+      ChildSizing.ControlsPerLine = 3
+      ClientHeight = 77
       ClientWidth = 447
-      Columns = 4
+      Columns = 3
       ItemIndex = 0
       Items.Strings = (
         'DayView'
@@ -655,6 +655,7 @@ object frmEditElement: TfrmEditElement
         'Caption'
         'Tasks'
         'Contacts'
+        'GanttView'
       )
       OnClick = rgItemTypeClick
       ParentFont = False

components/tvplanit/source/vpprtfmt.pas

@@ -370,6 +370,7 @@ type
       FCalendar: TComponent;
       FContactGrid: TComponent;
       FTaskList: TComponent;
+      FGanttView: TComponent;
       { Notification Handles }
       FNotifiers: TList;
       FDefaultXMLFileName: string;
@@ -433,6 +434,7 @@ type
       property MonthView: TComponent read FMonthView write FMonthView;
       property Printing: Boolean read FPrintJob;
       property TaskList: TComponent read FTaskList write FTaskList;
+      property GanttView: TComponent read FGanttView write FGanttView;
       property UseFormComponents: Boolean read FUseFormComponents write SetUseFormComponents default True;
       property WeekView: TComponent read FWeekView write FWeekView;
 
@@ -455,7 +457,8 @@ uses
   DateUtils,
  {$ENDIF}
   VpConst, VpMisc, VpBaseDS, VpPrtFmtCBox,
-  VpDayView, VpWeekView, VpMonthView, VpTaskList, VpContactGrid, VpCalendar;
+  VpDayView, VpWeekView, VpMonthView, VpGanttView,
+  VpTaskList, VpContactGrid, VpCalendar;
 
 function XMLizeString(const s: string): string;
 var
@@ -1386,6 +1389,8 @@ begin
   TVpContactGrid(FContactGrid).Parent := FParent;
   FTaskList := TVpTaskList.Create(FParent);
   TVpTaskList(FTaskList).Parent := FParent;
+  FGanttView := TVpGanttView.Create(FParent);
+  TVpGanttView(FGanttView).Parent := FParent;
 {$ENDIF}
 end;
 {=====}
@@ -1407,6 +1412,7 @@ begin
   FCalendar.Free;
   FContactGrid.Free;
   FTaskList.Free;
+  FGanttView.Free;
   FParent.Free;
 {$ENDIF}
 end;
@@ -1646,6 +1652,7 @@ var
         itCalendar    : RenderControl := TVpLinkableControl(FCalendar);
         itContacts    : RenderControl := TVpLinkableControl(FContactGrid);
         itTasks       : RenderControl := TVpLinkableControl(FTaskList);
+        itGanttView   : RenderControl := TVpLinkableControl(FGanttView);
       end;
       if FOwner is TVpControlLink then
         RenderControl.DataStore := (FOwner as TVPControlLink).DataStore;