paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:39:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Avoid 'unused variable' hint on platfrorms other than Win32 and Gtk2

Browse Source 
git-svn-id: trunk@41784 -
This commit is contained in:
ask 2013-06-21 13:57:06 +00:00
parent b1866966f9
commit 04269eb231
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/taseries.pas
View File

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