From 07a9b508b9743d2502287f465abc49e855ba7005 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sat, 8 Oct 2022 18:05:39 +0000 Subject: [PATCH] tvplanit: Disable not used functions. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8527 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/tvplanit/source/vpcontactgrid.pas | 6 +++--- components/tvplanit/source/vpcontactgridpainter.pas | 2 +- components/tvplanit/source/vpdayview.pas | 10 ++++++++-- components/tvplanit/source/vpmonthview.pas | 4 ++++ components/tvplanit/source/vpweekview.pas | 4 ++++ 5 files changed, 20 insertions(+), 6 deletions(-) diff --git a/components/tvplanit/source/vpcontactgrid.pas b/components/tvplanit/source/vpcontactgrid.pas index 79934ce93..024b79624 100644 --- a/components/tvplanit/source/vpcontactgrid.pas +++ b/components/tvplanit/source/vpcontactgrid.pas @@ -252,7 +252,7 @@ type function GetCityStateZipFormat: String; function GetControlType: TVpItemType; override; procedure DeleteActiveContact(Verify: Boolean); - procedure PaintToCanvas(ACanvas: TCanvas; ARect: TRect; Angle: TVpRotationAngle); +// procedure PaintToCanvas(ACanvas: TCanvas; ARect: TRect; Angle: TVpRotationAngle); procedure RenderToCanvas(RenderCanvas: TCanvas; RenderIn: TRect; Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime; StartLine, StopLine: Integer; UseGran: TVpGranularity; @@ -829,12 +829,12 @@ procedure TVpContactGrid.Paint; begin RenderToCanvas(Canvas, Rect(0, 0, Width, Height), ra0, 1, Now, -1, -1, gr30Min, False); end; - + (* procedure TVpContactGrid.PaintToCanvas(ACanvas: TCanvas; ARect: TRect; Angle: TVpRotationAngle); begin RenderToCanvas(ACanvas, ARect, Angle, 1, Now, -1, -1, gr30Min, True); -end; +end; *) procedure TVpContactGrid.RenderToCanvas(RenderCanvas: TCanvas; RenderIn: TRect; Angle: TVpRotationAngle; Scale: Extended; diff --git a/components/tvplanit/source/vpcontactgridpainter.pas b/components/tvplanit/source/vpcontactgridpainter.pas index 402035438..5f3ae4a47 100644 --- a/components/tvplanit/source/vpcontactgridpainter.pas +++ b/components/tvplanit/source/vpcontactgridpainter.pas @@ -868,7 +868,7 @@ begin Clear; // Draw the contacts - if StartLine <> -2 then + if StartLine <> -2 then // Do not change. Paint calls it with StartLine = -1... DrawContacts; // Draw the vertical bars diff --git a/components/tvplanit/source/vpdayview.pas b/components/tvplanit/source/vpdayview.pas index 28202ed60..bb9175964 100644 --- a/components/tvplanit/source/vpdayview.pas +++ b/components/tvplanit/source/vpdayview.pas @@ -447,11 +447,15 @@ type procedure EditSelectedEvent(IsNewEvent: Boolean = false); function GetControlType: TVpItemType; override; + { procedure AutoScaledPaintToCanvas(PaintCanvas: TCanvas; PaintTo: TRect; Angle: TVpRotationAngle; RenderDate: TDateTime; StartLine, StopLine: Integer; UseGran: TVpGranularity); + } + { procedure PaintToCanvas (ACanvas: TCanvas; ARect: TRect; Angle: TVpRotationAngle; ADate: TDateTime; StartHour, EndHour: TVpHours; UseGran: TVpGranularity); + } procedure RenderToCanvas(RenderCanvas: TCanvas; RenderIn: TRect; Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime; StartLine, StopLine: Integer; UseGran: TVpGranularity; DisplayOnly: Boolean); override; @@ -2659,6 +2663,7 @@ begin Result := itDayView; end; +{ procedure TVpDayView.AutoScaledPaintToCanvas(PaintCanvas: TCanvas; PaintTo: TRect; Angle: TVpRotationAngle; RenderDate: TDateTime; StartLine, StopLine: Integer; UseGran: TVpGranularity); @@ -2672,7 +2677,8 @@ begin Scale := DestResY / SrcResY; RenderToCanvas(PaintCanvas, PaintTo, Angle, Scale, RenderDate, StartLine, StopLine, UseGran, True); end; - +} + (* procedure TVpDayView.PaintToCanvas(ACanvas: TCanvas; ARect: TRect; Angle: TVpRotationAngle; ADate: TDateTime; StartHour, EndHour: TVpHours; UseGran: TVpGranularity); @@ -2687,7 +2693,7 @@ begin HourToLine(EndHour, UseGran), UseGran, True); -end; +end; *) procedure TVpDayView.RenderToCanvas(RenderCanvas: TCanvas; RenderIn: TRect; Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime; diff --git a/components/tvplanit/source/vpmonthview.pas b/components/tvplanit/source/vpmonthview.pas index b1c39ad6f..3fff9a1c3 100644 --- a/components/tvplanit/source/vpmonthview.pas +++ b/components/tvplanit/source/vpmonthview.pas @@ -306,8 +306,10 @@ type procedure LinkHandler(Sender: TComponent; NotificationType: TVpNotificationType; const Value: Variant); override; function GetControlType: TVpItemType; override; + { procedure PaintToCanvas(ACanvas: TCanvas; ARect: TRect; Angle: TVpRotationAngle; ADate: TDateTime); + } procedure RenderToCanvas(RenderCanvas: TCanvas; RenderIn: TRect; Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime; StartLine, StopLine: Integer; UseGran: TVpGranularity; @@ -720,11 +722,13 @@ begin -1, -1, gr30Min, False); end; +{ procedure TVpMonthView.PaintToCanvas(ACanvas: TCanvas; ARect: TRect; Angle: TVpRotationAngle; ADate: TDateTime); begin RenderToCanvas(ACanvas, ARect, Angle, 1, ADate, -1, -1, gr30Min, True); end; +} procedure TVpMonthView.RenderToCanvas(RenderCanvas: TCanvas; RenderIn: TRect; Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime; diff --git a/components/tvplanit/source/vpweekview.pas b/components/tvplanit/source/vpweekview.pas index b6f814380..fe5e4ab11 100644 --- a/components/tvplanit/source/vpweekview.pas +++ b/components/tvplanit/source/vpweekview.pas @@ -307,8 +307,10 @@ type NotificationType: TVpNotificationType; const Value: Variant); override; function GetControlType: TVpItemType; override; procedure EditSelectedEvent(IsNewEvent: Boolean = false); + { procedure PaintToCanvas(ACanvas: TCanvas; ARect: TRect; Angle: TVpRotationAngle; ADate: TDateTime); + } procedure RenderToCanvas(RenderCanvas: TCanvas; RenderIn: TRect; Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime; StartLine: Integer; StopLine: Integer; UseGran: TVpGranularity; @@ -850,11 +852,13 @@ begin ); end; +{ procedure TVpWeekView.PaintToCanvas(ACanvas: TCanvas; ARect: TRect; Angle: TVpRotationAngle; ADate: TDateTime); begin RenderToCanvas(ACanvas, ARect, Angle, 1, ADate, -1, -1, gr30Min, True); end; +} procedure TVpWeekView.RenderToCanvas(RenderCanvas: TCanvas; RenderIn: TRect; Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime;