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"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Scaled Value="True"/>
<UseXPManifest Value="True"/>
<XPManifest>
@ -23,6 +21,7 @@
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams>
<RequiredPackages Count="7">
<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
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;