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

TAChart: Clear chart reference for inactive tools to fix multiple charts per toolset case

Browse Source 
git-svn-id: trunk@32917 -
This commit is contained in:
ask 2011-10-16 07:08:16 +00:00
parent f77855dddf
commit 21a7f6daf5
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/tachart/tatools.pas
View File

@ -82,6 +82,7 @@ type
function GetParentComponent: TComponent; override;
function HasParent: Boolean; override;
public
procedure AfterDraw(AChart: TChart; ADrawer: IChartDrawer); virtual;
procedure Assign(Source: TPersistent); override;
procedure Dispatch(
AChart: TChart; AEventId: TChartToolEventId; APoint: TPoint); overload;
@ -508,6 +509,13 @@ begin
SetCursor;
end;
procedure TChartTool.AfterDraw(AChart: TChart; ADrawer: IChartDrawer);
begin
Unused(AChart, ADrawer);
if not IsActive then
FChart := nil;
end;
procedure TChartTool.Assign(Source: TPersistent);
begin
if Source is TChartTool then
@ -562,6 +570,8 @@ begin
ev := FEventsAfter[AEventId];
if Assigned(ev) then
ev(Self, APoint);
if not IsActive then
FChart := nil;
end;
procedure TChartTool.Draw(AChart: TChart; ADrawer: IChartDrawer);
@ -783,8 +793,10 @@ procedure TChartToolset.Draw(AChart: TChart; ADrawer: IChartDrawer);
var
t: TChartTool;
begin
for t in Tools do
for t in Tools do begin
t.Draw(AChart, ADrawer);
t.AfterDraw(AChart, ADrawer);
end;
end;
procedure TChartToolset.GetChildren(Proc: TGetChildProc; Root: TComponent);