paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 15:48:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix initialization/reset issue in TCustomAxisChartSource. Issue #35387, patch by Marcin Wiazowski.

Browse Source 
git-svn-id: trunk@60997 -
This commit is contained in:
wp 2019-04-16 14:24:51 +00:00
parent 5d5d933bd5
commit dcb6dc0705
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/tachart/taaxissource.pas
View File

@ -31,7 +31,6 @@ type
procedure SetYCount(AValue: Cardinal); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
public
function IsSorted: Boolean; override;
@ -42,6 +41,7 @@ type
implementation
uses
Math,
TAChartUtils;
{ TCustomAxisChartSource }
@ -50,14 +50,10 @@ constructor TCustomAxisChartSource.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FItem.Color := clTAColor;
FItem.XList := nil;
FItem.YList := nil;
end;
destructor TCustomAxisChartSource.Destroy;
begin
inherited Destroy;
end;
function TCustomAxisChartSource.GetCount: Integer;
begin
if AxisFrom = nil then
@ -71,7 +67,12 @@ var
v: Double;
begin
Result := @FItem;
if AxisFrom = nil then exit;
if AxisFrom = nil then begin
FItem.Text := '';
FItem.X := NaN;
FItem.Y := NaN;
exit;
end;
with AxisFrom.Value[AIndex] do begin
FItem.Text := FText;
v := FValue;