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

TAChart: Add TListener.OnNotify property

Browse Source 
git-svn-id: trunk@31664 -
This commit is contained in:
ask 2011-07-10 16:25:11 +00:00
parent 03f4033c49
commit e3caa9ce61
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tachartutils.pas
View File

@ -151,8 +151,9 @@ type
constructor Create(ARef: PPointer; AOnNotify: TNotifyEvent);
destructor Destroy; override;
procedure Forget; virtual;
procedure Notify(ASender: TObject); virtual;
procedure Notify(ASender: TObject);
property IsListening: Boolean read GetIsListening;
property OnNotify: TNotifyEvent read FOnNotify write FOnNotify;
end;
{ TBroadcaster }
@ -598,7 +599,8 @@ end;
procedure TListener.Notify(ASender: TObject);
begin
FOnNotify(ASender)
if Assigned(FOnNotify) then
FOnNotify(ASender)
end;
{ TBroadcaster }