From c33d6d24a55c10a1ac1c548076acb07da93f7e1c Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Tue, 29 Sep 2020 09:29:49 +0000 Subject: [PATCH] LazStats: Fix compilation with Laz 2.0.10 git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7715 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- applications/lazstats/source/LazStats.lpi | 7 +++---- applications/lazstats/source/LazStats.res | Bin 55600 -> 55556 bytes .../forms/analysis/descriptive/frequnit.pas | 19 +++++++++--------- 3 files changed, 13 insertions(+), 13 deletions(-) diff --git a/applications/lazstats/source/LazStats.lpi b/applications/lazstats/source/LazStats.lpi index a8ca0c40a..4918f8da7 100644 --- a/applications/lazstats/source/LazStats.lpi +++ b/applications/lazstats/source/LazStats.lpi @@ -1,13 +1,11 @@ - + - - - + @@ -23,6 +21,7 @@ + diff --git a/applications/lazstats/source/LazStats.res b/applications/lazstats/source/LazStats.res index 608538ce6860335e76dbb5ac9dd06e922256845e..73ed432afb324c3520946bbd4db1fef113637198 100644 GIT binary patch delta 26 icmdn6iMeGH^8^LPO&b-bvQ2)%X2Zn5uvvj!;1U3aAPD9F delta 60 zcmZqK#Jph>^8^LP2OAZqvZ*N8<`k#e=%WZuUc=_L`3sxC FB>=UH7exR7 diff --git a/applications/lazstats/source/forms/analysis/descriptive/frequnit.pas b/applications/lazstats/source/forms/analysis/descriptive/frequnit.pas index d69c06d24..d2018d89f 100644 --- a/applications/lazstats/source/forms/analysis/descriptive/frequnit.pas +++ b/applications/lazstats/source/forms/analysis/descriptive/frequnit.pas @@ -7,9 +7,9 @@ unit FreqUnit; interface uses - Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, LCLVersion, StdCtrls, Buttons, ExtCtrls, ComCtrls, Spin, - Globals, MainUnit, GraphLib, DataProcs, + Globals, MainUnit, DataProcs, BasicStatsFormUnit, ReportFrameUnit, ChartFrameUnit; type @@ -84,7 +84,7 @@ implementation uses Math, TAChartUtils, TALegend, TASources, TACustomSeries, TASeries, - Utils, MathUnit, FreqSpecsUnit; + Utils, MathUnit; { TFreqFrm } @@ -407,18 +407,13 @@ procedure TFreqFrm.FormCreate(Sender: TObject); begin Assert(OS3MainFrm <> nil); - if FreqSpecsFrm = nil then - Application.CreateForm(TFreqSpecsFrm, FreqSpecsFrm); - - if GraphFrm = nil then - Application.CreateForm(TGraphFrm, GraphFrm); - InitForm(Self); FReportFrame := TReportFrame.Create(self); FReportFrame.Parent := ReportPage; FReportFrame.Align := alClient; + Position := poDefault; Reset; end; @@ -491,7 +486,9 @@ begin with (ser as TBarSeries) do begin BarBrush.Color := DATA_COLORS[(AColIndex-1) mod Length(DATA_COLORS)]; + {$IF LCL_FullVersion >= 2010000} DepthBrightnessDelta := -30; + {$IFEND} end; if HorBarsBtn.Down then isRotated := true; @@ -505,7 +502,9 @@ begin with TLineSeries(ser) do begin LinePen.Color := DATA_COLORS[(AColIndex-1) mod Length(DATA_COLORS)]; + {$IF LCL_FullVersion >= 2010000} DepthBrightnessDelta := -30; + {$IFEND} end; margin := 4; end @@ -519,7 +518,9 @@ begin AreaBrush.Color := DATA_COLORS[(AColIndex-1) mod Length(DATA_COLORS)]; AreaLinesPen.Color := AreaBrush.Color; AreaContourPen.Color := clBlack; //AreaBrush.Color; + {$IF LCL_FullVersion >= 2010000} DepthBrightnessDelta := -30; + {$IFEND} end; margin := 0; end;