paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 04:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Properly set TCustomAnimatedChartSource.XCount and .YCount for the case that its Origin in nil. Issue #35388, modified patch by Marcin Wiazowski.

Browse Source 
git-svn-id: trunk@61022 -
This commit is contained in:
wp 2019-04-19 15:39:03 +00:00
parent 5004cea104
commit a58d97ece8
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/tachart/taanimatedsource.pas
View File

@ -83,17 +83,29 @@ implementation
uses uses
LCLIntf, Math, SysUtils; LCLIntf, Math, SysUtils;
type
TCustomChartSourceAccess = class(TCustomChartSource);
{ TCustomAnimatedChartSource } { TCustomAnimatedChartSource }
procedure TCustomAnimatedChartSource.Changed(ASender: TObject); procedure TCustomAnimatedChartSource.Changed(ASender: TObject);
begin begin
Unused(ASender); Unused(ASender);
if FOrigin <> nil then begin
FXCount := Origin.XCount;
FYCount := Origin.YCount;
end else begin
FXCount := MaxInt;
FYCount := MaxInt;
end;
Notify; Notify;
end; end;
constructor TCustomAnimatedChartSource.Create(AOwner: TComponent); constructor TCustomAnimatedChartSource.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FXCount := MaxInt;
FYCount := MaxInt;
FListener := TListener.Create(@FOrigin, @Changed); FListener := TListener.Create(@FOrigin, @Changed);
FTimer := TCustomTimer.Create(nil); FTimer := TCustomTimer.Create(nil);
FTimer.Enabled := false; FTimer.Enabled := false;
@ -187,6 +199,7 @@ begin
FOrigin := AValue; FOrigin := AValue;
if FOrigin <> nil then if FOrigin <> nil then
FOrigin.Broadcaster.Subscribe(FListener); FOrigin.Broadcaster.Subscribe(FListener);
Changed(nil);
end; end;
procedure TCustomAnimatedChartSource.SetXCount(AValue: Cardinal); procedure TCustomAnimatedChartSource.SetXCount(AValue: Cardinal);