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

tvplanit: Disable not used functions.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8527 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-08 18:05:39 +00:00
parent 736c3abb6c
commit 07a9b508b9
5 changed files with 20 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/source/vpcontactgrid.pas
View File

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