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@7715 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-09-29 09:29:49 +00:00
parent f4da217825
commit c33d6d24a5
3 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
applications/lazstats/source/LazStats.lpi
View File

@ -1,13 +1,11 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="12"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Scaled Value="True"/> <Scaled Value="True"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<XPManifest> <XPManifest>
@ -23,6 +21,7 @@
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams> </RunParams>
<RequiredPackages Count="7"> <RequiredPackages Count="7">
<Item1> <Item1>

BIN
applications/lazstats/source/LazStats.res
View File

Binary file not shown.

19
applications/lazstats/source/forms/analysis/descriptive/frequnit.pas
View File

@ -7,9 +7,9 @@ unit FreqUnit;
interface interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, LCLVersion,
StdCtrls, Buttons, ExtCtrls, ComCtrls, Spin, StdCtrls, Buttons, ExtCtrls, ComCtrls, Spin,
Globals, MainUnit, GraphLib, DataProcs, Globals, MainUnit, DataProcs,
BasicStatsFormUnit, ReportFrameUnit, ChartFrameUnit; BasicStatsFormUnit, ReportFrameUnit, ChartFrameUnit;
type type
@ -84,7 +84,7 @@ implementation
uses uses
Math, TAChartUtils, TALegend, TASources, TACustomSeries, TASeries, Math, TAChartUtils, TALegend, TASources, TACustomSeries, TASeries,
Utils, MathUnit, FreqSpecsUnit; Utils, MathUnit;
{ TFreqFrm } { TFreqFrm }
@ -407,18 +407,13 @@ procedure TFreqFrm.FormCreate(Sender: TObject);
begin begin
Assert(OS3MainFrm <> nil); Assert(OS3MainFrm <> nil);
if FreqSpecsFrm = nil then
Application.CreateForm(TFreqSpecsFrm, FreqSpecsFrm);
if GraphFrm = nil then
Application.CreateForm(TGraphFrm, GraphFrm);
InitForm(Self); InitForm(Self);
FReportFrame := TReportFrame.Create(self); FReportFrame := TReportFrame.Create(self);
FReportFrame.Parent := ReportPage; FReportFrame.Parent := ReportPage;
FReportFrame.Align := alClient; FReportFrame.Align := alClient;
Position := poDefault;
Reset; Reset;
end; end;
@ -491,7 +486,9 @@ begin
with (ser as TBarSeries) do with (ser as TBarSeries) do
begin begin
BarBrush.Color := DATA_COLORS[(AColIndex-1) mod Length(DATA_COLORS)]; BarBrush.Color := DATA_COLORS[(AColIndex-1) mod Length(DATA_COLORS)];
{$IF LCL_FullVersion >= 2010000}
DepthBrightnessDelta := -30; DepthBrightnessDelta := -30;
{$IFEND}
end; end;
if HorBarsBtn.Down then if HorBarsBtn.Down then
isRotated := true; isRotated := true;
@ -505,7 +502,9 @@ begin
with TLineSeries(ser) do with TLineSeries(ser) do
begin begin
LinePen.Color := DATA_COLORS[(AColIndex-1) mod Length(DATA_COLORS)]; LinePen.Color := DATA_COLORS[(AColIndex-1) mod Length(DATA_COLORS)];
{$IF LCL_FullVersion >= 2010000}
DepthBrightnessDelta := -30; DepthBrightnessDelta := -30;
{$IFEND}
end; end;
margin := 4; margin := 4;
end end
@ -519,7 +518,9 @@ begin
AreaBrush.Color := DATA_COLORS[(AColIndex-1) mod Length(DATA_COLORS)]; AreaBrush.Color := DATA_COLORS[(AColIndex-1) mod Length(DATA_COLORS)];
AreaLinesPen.Color := AreaBrush.Color; AreaLinesPen.Color := AreaBrush.Color;
AreaContourPen.Color := clBlack; //AreaBrush.Color; AreaContourPen.Color := clBlack; //AreaBrush.Color;
{$IF LCL_FullVersion >= 2010000}
DepthBrightnessDelta := -30; DepthBrightnessDelta := -30;
{$IFEND}
end; end;
margin := 0; margin := 0;
end; end;