pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Some more code for integration of TVpGanttView in tvplanit's printing eco-system.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8454 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-07 15:43:18 +00:00
parent 39d169dea7
commit 803fc6ce41
1 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/tvplanit/source/vpprtfmt.pas
View File

@ -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