From e13d7e6e252839a084e7fe21f027e94fbb4e33c7 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 11 Sep 2020 09:54:50 +0000
Subject: [PATCH] LazStats: Fix compilation with Laz 2.0.10

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7662 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../source/forms/simulations/distribunit.pas       |  7 +++++--
 .../lazstats/source/frames/chartframeunit.lfm      |  2 --
 .../lazstats/source/frames/chartframeunit.pas      | 14 +++++++++++++-
 3 files changed, 18 insertions(+), 5 deletions(-)

diff --git a/applications/lazstats/source/forms/simulations/distribunit.pas b/applications/lazstats/source/forms/simulations/distribunit.pas
index e5d6f6bcb..675de38c9 100644
--- a/applications/lazstats/source/forms/simulations/distribunit.pas
+++ b/applications/lazstats/source/forms/simulations/distribunit.pas
@@ -12,7 +12,7 @@ unit DistribUnit;
 interface
 
 uses
-  Classes, SysUtils, FileUtil, TAFuncSeries, //TAGraph, TAFuncSeries, TASeries,
+  Classes, SysUtils, FileUtil, LCLVersion, TAFuncSeries, //TAGraph, TAFuncSeries, TASeries,
   //PrintersDlgs, LResources,
   Forms, Controls, Graphics, Dialogs, StdCtrls,
   //Printers,
@@ -122,7 +122,10 @@ begin
   funcSer.Title := ATitle;
   if Cumulative then funcSer.Tag := 1;
   if XMin = 0 then
-    funcSer.DomainExclusions.AddRange(-Infinity, 0, [ioOpenEnd]);
+    funcSer.DomainExclusions.AddRange(
+      -Infinity, 0
+      {$IF LCL_FullVersion >= 2010000}, [ioOpenEnd] {$IFEND}
+    );
   ChartFrame.Chart.AddSeries(funcSer);
 
   if Cumulative then
diff --git a/applications/lazstats/source/frames/chartframeunit.lfm b/applications/lazstats/source/frames/chartframeunit.lfm
index 6e2284476..2d484f8c0 100644
--- a/applications/lazstats/source/frames/chartframeunit.lfm
+++ b/applications/lazstats/source/frames/chartframeunit.lfm
@@ -59,12 +59,10 @@ object ChartFrame: TChartFrame
     Top = 272
     object ZoomDragTool: TZoomDragTool
       Shift = [ssLeft]
-      LimitToExtent = [zdDown]
       Brush.Style = bsClear
     end
     object PanDragTool: TPanDragTool
       Shift = [ssRight]
-      LimitToExtent = [pdDown]
     end
   end
 end
diff --git a/applications/lazstats/source/frames/chartframeunit.pas b/applications/lazstats/source/frames/chartframeunit.pas
index 350f0dc03..ea2d49697 100644
--- a/applications/lazstats/source/frames/chartframeunit.pas
+++ b/applications/lazstats/source/frames/chartframeunit.pas
@@ -5,7 +5,7 @@ unit ChartFrameUnit;
 interface
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, ExtDlgs, PrintersDlgs,
+  Classes, SysUtils, LCLVersion, Forms, Controls, Graphics, ExtDlgs, PrintersDlgs,
   TAGraph, TATypes, TACustomSource, TACustomSeries, TASeries, TATools,
   Globals;
 
@@ -28,6 +28,7 @@ type
       ALineStyle: TPenStyle; ALegendTitle: String): TConstantLine;
 
   public
+    constructor Create(AOwner: TComponent); override;
     procedure Clear;
     procedure GetXRange(out XMin, XMax: Double; Logical: Boolean = true);
     procedure GetYRange(out YMin, YMax: Double; Logical: Boolean = true);
@@ -54,6 +55,17 @@ uses
   Math, Printers, OSPrinters,
   TAChartUtils, TADrawerSVG, TAPrint;
 
+
+constructor TChartFrame.Create(AOwner: TComponent);
+begin
+  inherited;
+  {$IF LCL_FullVersion >= 2010000}
+  ZoomDragTool.LimitToExtent := [zdDown];
+  PanDragTool.LimitToExtent := [pdDown];
+  {$IFEND}
+end;
+
+
 procedure TChartFrame.Clear;
 begin
   Chart.ClearSeries;