From 2d7451b118849bf9aeacb79437fc07843cb9a7ad Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Thu, 21 Apr 2011 11:41:58 +0000 Subject: [PATCH] fpvectorial: Disables a debug define git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1591 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas b/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas index 62bca6733..16c3a5126 100644 --- a/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas +++ b/applications/fpvviewer/fpvectorialsrc/fpvtocanvas.pas @@ -115,7 +115,7 @@ end; DrawFPVectorialToCanvas(ASource, ADest, 0, ASource.Height, 1.0, -1.0); } -{$define FPVECTORIAL_TOCANVAS_DEBUG} +{.$define FPVECTORIAL_TOCANVAS_DEBUG} procedure DrawFPVectorialToCanvas(ASource: TvVectorialDocument; {$ifdef USE_LCL_CANVAS}ADest: TCanvas;{$else}ADest: TFPCustomCanvas;{$endif} ADestX: Integer = 0; ADestY: Integer = 0; AMulX: Double = 1.0; AMulY: Double = 1.0);