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

LazStats: Fix compilation with Laz 2.0.10

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7662 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-11 09:54:50 +00:00
parent 0b891471b9
commit e13d7e6e25
3 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
applications/lazstats/source/forms/simulations/distribunit.pas
View File

@ -12,7 +12,7 @@ unit DistribUnit;
interface interface
uses uses
Classes, SysUtils, FileUtil, TAFuncSeries, //TAGraph, TAFuncSeries, TASeries, Classes, SysUtils, FileUtil, LCLVersion, TAFuncSeries, //TAGraph, TAFuncSeries, TASeries,
//PrintersDlgs, LResources, //PrintersDlgs, LResources,
Forms, Controls, Graphics, Dialogs, StdCtrls, Forms, Controls, Graphics, Dialogs, StdCtrls,
//Printers, //Printers,
@ -122,7 +122,10 @@ begin
funcSer.Title := ATitle; funcSer.Title := ATitle;
if Cumulative then funcSer.Tag := 1; if Cumulative then funcSer.Tag := 1;
if XMin = 0 then 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); ChartFrame.Chart.AddSeries(funcSer);
if Cumulative then if Cumulative then

2
applications/lazstats/source/frames/chartframeunit.lfm
View File

@ -59,12 +59,10 @@ object ChartFrame: TChartFrame
Top = 272 Top = 272
object ZoomDragTool: TZoomDragTool object ZoomDragTool: TZoomDragTool
Shift = [ssLeft] Shift = [ssLeft]
LimitToExtent = [zdDown]
Brush.Style = bsClear Brush.Style = bsClear
end end
object PanDragTool: TPanDragTool object PanDragTool: TPanDragTool
Shift = [ssRight] Shift = [ssRight]
LimitToExtent = [pdDown]
end end
end end
end end

14
applications/lazstats/source/frames/chartframeunit.pas
View File

@ -5,7 +5,7 @@ unit ChartFrameUnit;
interface interface
uses uses
Classes, SysUtils, Forms, Controls, Graphics, ExtDlgs, PrintersDlgs, Classes, SysUtils, LCLVersion, Forms, Controls, Graphics, ExtDlgs, PrintersDlgs,
TAGraph, TATypes, TACustomSource, TACustomSeries, TASeries, TATools, TAGraph, TATypes, TACustomSource, TACustomSeries, TASeries, TATools,
Globals; Globals;
@ -28,6 +28,7 @@ type
ALineStyle: TPenStyle; ALegendTitle: String): TConstantLine; ALineStyle: TPenStyle; ALegendTitle: String): TConstantLine;
public public
constructor Create(AOwner: TComponent); override;
procedure Clear; procedure Clear;
procedure GetXRange(out XMin, XMax: Double; Logical: Boolean = true); procedure GetXRange(out XMin, XMax: Double; Logical: Boolean = true);
procedure GetYRange(out YMin, YMax: Double; Logical: Boolean = true); procedure GetYRange(out YMin, YMax: Double; Logical: Boolean = true);
@ -54,6 +55,17 @@ uses
Math, Printers, OSPrinters, Math, Printers, OSPrinters,
TAChartUtils, TADrawerSVG, TAPrint; 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; procedure TChartFrame.Clear;
begin begin
Chart.ClearSeries; Chart.ClearSeries;