paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 07:36:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Change TAnimatedChartSource Extent properties to be like those of TSortedChartSource. Issue #35612, patch by Marcin Wiazowski.

Browse Source 
git-svn-id: trunk@61270 -
This commit is contained in:
wp 2019-05-22 10:47:26 +00:00
parent b9b93e077d
commit 01762d1065
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/tachart/taanimatedsource.pas
View File

@ -54,9 +54,12 @@ type
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
function BasicExtent: TDoubleRect; override;
function Extent: TDoubleRect; override; function Extent: TDoubleRect; override;
function ExtentCumulative: TDoubleRect; override; function ExtentCumulative: TDoubleRect; override;
function ExtentList: TDoubleRect; override; function ExtentList: TDoubleRect; override;
function ExtentXYList: TDoubleRect; override;
function ValuesTotal: Double; override;
function IsAnimating: Boolean; inline; function IsAnimating: Boolean; inline;
function Progress: Double; inline; function Progress: Double; inline;
@ -116,6 +119,14 @@ begin
inherited; inherited;
end; end;
function TCustomAnimatedChartSource.BasicExtent: TDoubleRect;
begin
if Origin = nil then
Result := EmptyExtent
else
Result := Origin.BasicExtent;
end;
function TCustomAnimatedChartSource.Extent: TDoubleRect; function TCustomAnimatedChartSource.Extent: TDoubleRect;
begin begin
if Origin = nil then if Origin = nil then
@ -140,6 +151,22 @@ begin
Result := Origin.ExtentList; Result := Origin.ExtentList;
end; end;
function TCustomAnimatedChartSource.ExtentXYList: TDoubleRect;
begin
if Origin = nil then
Result := EmptyExtent
else
Result := Origin.ExtentXYList;
end;
function TCustomAnimatedChartSource.ValuesTotal: Double;
begin
if Origin = nil then
Result := 0
else
Result := Origin.ValuesTotal;
end;
function TCustomAnimatedChartSource.GetCount: Integer; function TCustomAnimatedChartSource.GetCount: Integer;
begin begin
if Origin = nil then if Origin = nil then