From 803fc6ce411add2434764c3221e2c13443bf70f4 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 7 Sep 2022 15:43:18 +0000
Subject: [PATCH] tvplanit: Some more code for integration of TVpGanttView in
 tvplanit's printing eco-system.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8454 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpprtfmt.pas | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/components/tvplanit/source/vpprtfmt.pas b/components/tvplanit/source/vpprtfmt.pas
index a25d0307b..b375767b4 100644
--- a/components/tvplanit/source/vpprtfmt.pas
+++ b/components/tvplanit/source/vpprtfmt.pas
@@ -68,7 +68,7 @@
   3) Modify RenderItem inside of TVpPrinter.PaintToCanvasRect to
      set the LinkableControl to the cached component for the appropriate
      value of the TVpItemType enumeration.
-  4) If the component is date base (calendar, dayview, weekview and the
+  4) If the component is date-based (calendar, dayview, weekview and the
      like), set HaveDate to true at the end of RenderItem in
      TVpPrinter.PaintToCanvasRect.  Other changes may be required in
      RenderItem.
@@ -426,6 +426,7 @@ type
       property CurFormat: Integer read FCurFormat write SetCurFormat;
       property DayView: TComponent read FDayView write FDayView;
       property DefaultXMLFileName: string read FDefaultXMLFileName write SetDefaultXMLFileName;
+      property GanttView: TComponent read FGanttView write FGanttView;
       property HaveDate: Boolean read FHaveDate;
       property HaveTaskList: Boolean read FHaveTaskList;
       property LastTask: Integer read FLastTask;
@@ -434,7 +435,6 @@ 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;
 
@@ -1375,6 +1375,7 @@ begin
   FCalendar := TVpCalendar.CreateParented(FParentHandle);
   FContactGrid := TVpContactGrid.CreateParented(FParentHandle);
   FTaskList := TVpTaskList.CreateParented(FParentHandle);
+  FGanttView := TVpGanttView.CreateParented(FParentHandle);
 {$ELSE}
   FParent := TForm.Create(nil);
   FDayView := TVpDayView.Create(FParent);
@@ -1405,6 +1406,7 @@ begin
   FCalendar.Free;                                                      
   FContactGrid.Free;                                                   
   FTaskList.Free;
+  FGanttView.Free;
 {$ELSE}
   FDayView.Free;
   FWeekView.Free;
@@ -1712,7 +1714,8 @@ var
         itDayView,
         itMonthView,
         itWeekView,
-        itCalendar: FHaveDate := True;
+        itCalendar,
+        itGanttView: FHaveDate := True;
       end;
   end;
 
@@ -2230,6 +2233,7 @@ begin
           itDayView   : Writeln(fpOut, '      Item="DayView"');
           itWeekView  : Writeln(fpOut, '      Item="WeekView"');
           itMonthView : Writeln(fpOut, '      Item="MonthView"');
+          itGanttView : WriteLn(fpOut, '      Item="GanttView"');
           itCalendar  : Writeln(fpOut, '      Item="Calendar"');
           itShape     : Writeln(fpOut, '      Item="Shape"');
           itCaption   : Writeln(fpOut, '      Item="Caption"');
@@ -2624,6 +2628,9 @@ begin
           if attr.Value = 'MonthView' then
             NewElement.ItemType := itMonthView
           else
+          if attr.Value = 'GanttView' then
+            NewElement.ItemType := itGanttView
+          else
           if attr.Value = 'Shape' then
             NewElement.ItemType := itShape
           else