paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 08:39:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Remove "not initialized" warnings.

Browse Source 
git-svn-id: trunk@63574 -
This commit is contained in:
wp 2020-07-16 20:11:06 +00:00
parent f504fdbac9
commit fcdba55052
13 changed files with 55 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
components/tachart/demo/nogui/noguidemo.lpi
View File

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions BuildModesCount="1"> <ProjectOptions>
<Version Value="12"/> <Version Value="12"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
@ -18,7 +18,7 @@
<Macro1 Name="LCLWidgetType" Value="nogui"/> <Macro1 Name="LCLWidgetType" Value="nogui"/>
</MacroValues> </MacroValues>
<BuildModes> <BuildModes>
<Item1 Name="Default" Default="True"/> <Item Name="default" Default="True"/>
<SharedMatrixOptions Count="1"> <SharedMatrixOptions Count="1">
<Item1 ID="909616661520" Modes="Default" Type="IDEMacro" MacroName="LCLWidgetType" Value="nogui"/> <Item1 ID="909616661520" Modes="Default" Type="IDEMacro" MacroName="LCLWidgetType" Value="nogui"/>
</SharedMatrixOptions> </SharedMatrixOptions>
@ -28,24 +28,20 @@
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes Count="1"> <Modes>
<Mode0 Name="default"/> <Mode Name="default"/>
</Modes> </Modes>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages>
<Item1> <Item>
<PackageName Value="TAChartLazarusPkg"/> <PackageName Value="TAChartLazarusPkg"/>
</Item1> </Item>
</RequiredPackages> </RequiredPackages>
<Units Count="2"> <Units>
<Unit0> <Unit>
<Filename Value="noguidemo.lpr"/> <Filename Value="noguidemo.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit0> </Unit>
<Unit1>
<Filename Value="..\..\tadrawerfpcanvas.pas"/>
<IsPartOfProject Value="True"/>
</Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -70,16 +66,16 @@
</Linking> </Linking>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="3"> <Exceptions>
<Item1> <Item>
<Name Value="EAbort"/> <Name Value="EAbort"/>
</Item1> </Item>
<Item2> <Item>
<Name Value="ECodetoolError"/> <Name Value="ECodetoolError"/>
</Item2> </Item>
<Item3> <Item>
<Name Value="EFOpenError"/> <Name Value="EFOpenError"/>
</Item3> </Item>
</Exceptions> </Exceptions>
</Debugging> </Debugging>
</CONFIG> </CONFIG>

2
components/tachart/demo/nogui/noguidemo.lpr
View File

@ -6,7 +6,7 @@ uses
{$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF}
Interfaces, Classes, tachartlazaruspkg { you can add units after this }, Interfaces, Classes, tachartlazaruspkg { you can add units after this },
FPCanvas, FPImage, FPImgCanv, FPCanvas, FPImage, FPImgCanv,
TAGraph, TASeries, TADrawerFPCanvas in '../../TADrawerFPCanvas.pas', TADrawerCanvas, TADrawUtils; TAGraph, TASeries, TADrawerCanvas, TADrawUtils, TADrawerFPCanvas;
const const
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}

4
components/tachart/tachartutils.pas
View File

@ -854,7 +854,7 @@ end;
procedure TBroadcaster.Broadcast(ASender: TObject); procedure TBroadcaster.Broadcast(ASender: TObject);
var var
ListCopy: array of Pointer; ListCopy: array of Pointer = nil;
Exceptions: TStringList; Exceptions: TStringList;
Aborted: Boolean; Aborted: Boolean;
i: Integer; i: Integer;
@ -1002,7 +1002,7 @@ function TPublishedIntegerSet.AsBooleans(ACount: Integer): TBooleanDynArray;
var var
i: Integer; i: Integer;
begin begin
SetLength(Result, ACount); SetLength(Result{%H-}, ACount);
if ACount = 0 then exit; if ACount = 0 then exit;
if AllSet then if AllSet then
FillChar(Result[0], Length(Result), true) FillChar(Result[0], Length(Result), true)

2
components/tachart/taexpressionseries.pas
View File

@ -341,7 +341,7 @@ var
SaveListEpsilon: Double; SaveListEpsilon: Double;
a, b: Double; a, b: Double;
i, j: Integer; i, j: Integer;
points: array of Double; points: array of Double = nil;
begin begin
if ADomain.IntervalCount = 0 then if ADomain.IntervalCount = 0 then
exit; exit;

14
components/tachart/tafitlib.pas
View File

@ -131,7 +131,7 @@ function CalcBestFitValues(const x, y: TArbFloatArray; n, m: Integer;
var var
i, j: Integer; i, j: Integer;
begin begin
SetLength(Result, Length(y)); SetLength(Result{%H-}, Length(y));
for i := 0 to n - 1 do begin for i := 0 to n - 1 do begin
Result[i] := 0.0; Result[i] := 0.0;
for j := 0 to m - 1 do for j := 0 to m - 1 do
@ -202,11 +202,11 @@ end;
function LinearFit(const x, y, dy: TArbFloatArray; function LinearFit(const x, y, dy: TArbFloatArray;
FitParams: TFitParamArray): TFitResults; FitParams: TFitParamArray): TFitResults;
var var
alpha: TArbFloatArray; alpha: TArbFloatArray = nil;
beta: TArbFloatArray; beta: TArbFloatArray = nil;
xx: TArbFloatArray; xx: TArbFloatArray = nil;
funcs: TArbFloatArray; funcs: TArbFloatArray = nil;
list: Array of Integer; list: Array of Integer = nil;
ycalc: TArbFloatArray; ycalc: TArbFloatArray;
fp: TFitParam; fp: TFitParam;
n, m, mfit: Integer; n, m, mfit: Integer;
@ -216,7 +216,7 @@ var
ca: ArbFloat = 0.0; ca: ArbFloat = 0.0;
term: ArbInt = 0; term: ArbInt = 0;
begin begin
SetLength(Result.ParamValues, 0); SetLength(Result{%H-}.ParamValues, 0);
SetLength(Result.CovarianceMatrix, 0); SetLength(Result.CovarianceMatrix, 0);
// Check parameters // Check parameters

17
components/tachart/tafuncseries.pas
View File

@ -945,7 +945,7 @@ end;
function TBSplineSeries.Calculate(AX: Double): Double; function TBSplineSeries.Calculate(AX: Double): Double;
var var
p: array of TDoublePoint; p: array of TDoublePoint = nil;
startIndex: Integer; startIndex: Integer;
splineStart: Integer = 0; splineStart: Integer = 0;
splineEnd: Integer = -2; splineEnd: Integer = -2;
@ -981,8 +981,9 @@ var
var var
i,n: Integer; i,n: Integer;
pp: TDoublePoint; pp: TDoublePoint;
xval, yval: array of ArbFloat; xval: array of ArbFloat = nil;
coeff: array of ArbFloat; yval: array of ArbFloat = nil;
coeff: array of ArbFloat = nil;
ok: Integer; ok: Integer;
t: ArbFloat; t: ArbFloat;
begin begin
@ -1055,7 +1056,7 @@ end;
procedure TBSplineSeries.Draw(ADrawer: IChartDrawer); procedure TBSplineSeries.Draw(ADrawer: IChartDrawer);
var var
p: array of TDoublePoint; p: array of TDoublePoint = nil;
startIndex: Integer; startIndex: Integer;
splineStart: Integer; splineStart: Integer;
splineEnd: Integer; splineEnd: Integer;
@ -1789,7 +1790,7 @@ end;
function TFitSeries.EquationText: IFitEquationText; function TFitSeries.EquationText: IFitEquationText;
var var
basis: Array of string; basis: Array of string = nil;
i: Integer; i: Integer;
begin begin
if State = fpsValid then begin if State = fpsValid then begin
@ -1840,7 +1841,9 @@ var
procedure TryFit; procedure TryFit;
var var
i, j, ns, n: Integer; i, j, ns, n: Integer;
xv, yv, dy: array of ArbFloat; xv: array of ArbFloat = nil;
yv: array of ArbFloat = nil;
dy: array of ArbFloat = nil;
yp, yn: Double; yp, yn: Double;
fitRes: TFitResults; fitRes: TFitResults;
hasErrorBars: Boolean; hasErrorBars: Boolean;
@ -1946,7 +1949,7 @@ function TFitSeries.FitParams: TDoubleDynArray;
var var
i: Integer; i: Integer;
begin begin
SetLength(Result, ParamCount); SetLength(Result{%H-}, ParamCount);
for i := 0 to High(Result) do for i := 0 to High(Result) do
Result[i] := Param[i]; Result[i] := Param[i];
end; end;

4
components/tachart/tageometry.pas
View File

@ -124,7 +124,7 @@ var
i: Integer; i: Integer;
begin begin
Assert(ANumPts >= 0); Assert(ANumPts >= 0);
SetLength(Result, ANumPts); SetLength(Result{%H-}, ANumPts);
for i := 0 to ANumPts - 1 do for i := 0 to ANumPts - 1 do
Result[i] := APoints[i + AStartIndex]; Result[i] := APoints[i + AStartIndex];
end; end;
@ -692,7 +692,7 @@ end;
function TesselateRect(const ARect: TRect): TPointArray; function TesselateRect(const ARect: TRect): TPointArray;
begin begin
SetLength(Result, 4); SetLength(Result{%H-}, 4);
with ARect do begin with ARect do begin
Result[0] := TopLeft; Result[0] := TopLeft;
Result[1] := Point(Left, Bottom); Result[1] := Point(Left, Bottom);

8
components/tachart/taradialseries.pas
View File

@ -451,7 +451,7 @@ var
var var
next_angle: Double; next_angle: Double;
begin begin
SetLength(APoints, 0); SetLength(APoints{%H-}, 0);
next_angle := ASlice.FixedNextAngle; next_angle := ASlice.FixedNextAngle;
CalcArcPoints(ASlice, ASlice.FPrevAngle, next_angle, FRadius, APoints); CalcArcPoints(ASlice, ASlice.FPrevAngle, next_angle, FRadius, APoints);
CalcArcPoints(ASlice, ASlice.FPrevAngle, next_angle, innerRadius, APoints); CalcArcPoints(ASlice, ASlice.FPrevAngle, next_angle, innerRadius, APoints);
@ -470,7 +470,7 @@ var
procedure DrawArc3D(ASlice: TPieSlice; AInside: Boolean); procedure DrawArc3D(ASlice: TPieSlice; AInside: Boolean);
var var
i, numSteps: Integer; i, numSteps: Integer;
p: Array of TPoint; p: Array of TPoint = nil;
angle1, angle2: Double; angle1, angle2: Double;
clr: TColor; clr: TColor;
r: Integer; r: Integer;
@ -585,7 +585,7 @@ var
procedure DrawEdge3D(ASlice: TPieSlice; Angle: Double; APart: TSlicePart); procedure DrawEdge3D(ASlice: TPieSlice; Angle: Double; APart: TSlicePart);
var var
P1, P2, ofs: TPoint; P1, P2, ofs: TPoint;
p: TPointArray; p: TPointArray = nil;
begin begin
ADrawer.SetBrushParams( ADrawer.SetBrushParams(
bsSolid, GetDepthColor(SliceColor(ASlice.FOrigIndex))); bsSolid, GetDepthColor(SliceColor(ASlice.FOrigIndex)));
@ -1035,7 +1035,7 @@ var
i, j: Integer; i, j: Integer;
compareFunc: TAngleFunc; compareFunc: TAngleFunc;
begin begin
SetLength(ASlices, Length(FSlices) + 1); SetLength(ASlices{%H-}, Length(FSlices) + 1);
j := 0; j := 0;
for i:=0 to High(FSlices) do begin for i:=0 to High(FSlices) do begin
if FSlices[i].Angle >= pi then begin if FSlices[i].Angle >= pi then begin

13
components/tachart/taseries.pas
View File

@ -1267,7 +1267,7 @@ var
ext2: TDoubleRect; ext2: TDoubleRect;
w: Double; w: Double;
p: TDoublePoint; p: TDoublePoint;
heights: TDoubleDynArray; heights: TDoubleDynArray = nil;
procedure BuildBar(x, y1, y2: Double); procedure BuildBar(x, y1, y2: Double);
var var
@ -1463,7 +1463,7 @@ var
cx, cy: Integer; cx, cy: Integer;
w, h: Integer; w, h: Integer;
c: TColor; c: TColor;
pts: array of TPoint; pts: array of TPoint = nil;
i, j: Integer; i, j: Integer;
begin begin
if IsRotated then begin if IsRotated then begin
@ -1518,7 +1518,7 @@ const
PYRAMID_3D: array[0..3] of TPoint = ((X:0; Y:0), (X:1; Y:0), (X:1; Y:1), (X:0; Y:1)); PYRAMID_3D: array[0..3] of TPoint = ((X:0; Y:0), (X:1; Y:0), (X:1; Y:1), (X:0; Y:1));
var var
c: TColor; c: TColor;
pts: TPointArray; pts: TPointArray = nil;
i: Integer; i: Integer;
depth2: Integer; depth2: Integer;
w, h: Integer; w, h: Integer;
@ -1659,7 +1659,7 @@ var
graphClickPt: TDoublePoint; graphClickPt: TDoublePoint;
sp: TDoublePoint; sp: TDoublePoint;
ofs, w: Double; ofs, w: Double;
heights: TDoubleDynArray; heights: TDoubleDynArray = nil;
y: Double; y: Double;
stackindex: Integer; stackindex: Integer;
begin begin
@ -1930,10 +1930,11 @@ end;
procedure TAreaSeries.Draw(ADrawer: IChartDrawer); procedure TAreaSeries.Draw(ADrawer: IChartDrawer);
var var
pts, basePts: TPointArray; pts: TPointArray = nil;
basePts: TPointArray = nil;
numPts, numBasePts: Integer; numPts, numBasePts: Integer;
scaled_depth: Integer; scaled_depth: Integer;
missing: array of Integer; missing: array of Integer = nil;
numMissing: Integer; numMissing: Integer;
zero: Double; zero: Double;
ext, ext2: TDoubleRect; ext, ext2: TDoubleRect;

2
components/tachart/tasources.pas
View File

@ -1705,7 +1705,7 @@ procedure TCalculatedChartSource.ExtractItem(AIndex: Integer);
end; end;
var var
t: TDoubleDynArray; t: TDoubleDynArray = nil;
i: Integer; i: Integer;
begin begin
FItem := Origin[AIndex]^; FItem := Origin[AIndex]^;

2
components/tachart/tatools.pas
View File

@ -1063,7 +1063,7 @@ function TChartToolset.Dispatch(
AChart: TChart; AEventId: TChartToolEventId; AChart: TChart; AEventId: TChartToolEventId;
AShift: TShiftState; APoint: TPoint): Boolean; AShift: TShiftState; APoint: TPoint): Boolean;
var var
candidates: array of TChartTool; candidates: array of TChartTool = nil;
candidateCount: Integer; candidateCount: Integer;
procedure AddCandidate(AIndex: Integer); procedure AddCandidate(AIndex: Integer);

4
components/tachart/tatypes.pas
View File

@ -435,7 +435,7 @@ procedure TSeriesPointer.DrawSize(ADrawer: IChartDrawer;
procedure DrawByString(const AStr: String); procedure DrawByString(const AStr: String);
var var
pts: array of TPoint; pts: array of TPoint = nil;
i: Integer; i: Integer;
j: Integer = 0; j: Integer = 0;
notClosed: Boolean; notClosed: Boolean;
@ -461,7 +461,7 @@ procedure TSeriesPointer.DrawSize(ADrawer: IChartDrawer;
const const
INNER = 0.5; INNER = 0.5;
var var
p: array of TPoint; p: array of TPoint = nil;
pt: TDoublePoint; pt: TDoublePoint;
phi, sinphi, cosphi, dPhi: Math.float; phi, sinphi, cosphi, dPhi: Math.float;
i: Integer; i: Integer;

BIN
examples/canvas_test/canvastest.res
View File

Binary file not shown.