From 04269eb231a761ab12f6d78bcd7a082e0c53600c Mon Sep 17 00:00:00 2001 From: ask Date: Fri, 21 Jun 2013 13:57:06 +0000 Subject: [PATCH] TAChart: Avoid 'unused variable' hint on platfrorms other than Win32 and Gtk2 git-svn-id: trunk@41784 - --- components/tachart/taseries.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas index b337b89f4d..3a55238c14 100644 --- a/components/tachart/taseries.pas +++ b/components/tachart/taseries.pas @@ -431,13 +431,15 @@ var // the above-mentioned inefficiency for long ones. // First value was selected by some experiments as "optimal enough" for // both affected platforms. + {$IF defined(LCLWIN32) or defined(LCLGTK2)} MAX_LENGTH: array [Boolean] of Integer = (50000, 1000000); + {$ENDIF} begin - {$IF defined(WIN32)} + {$IF defined(LCLWIN32)} Result := (breakCount > 0) and (pointCount - breaks[breakCount - 1] > MAX_LENGTH[LinePen.Width = 1]); - {$ELSEIF defined(GTK2)} + {$ELSEIF defined(LCLGTK2)} Result := (LinePen.Width > 1) and (breakCount > 0) and (pointCount - breaks[breakCount - 1] > MAX_LENGTH[false]);