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

TAChart: Deactivate cross-hair tool after call to Hide

Browse Source 
git-svn-id: trunk@32025 -
This commit is contained in:
ask 2011-08-21 09:01:13 +00:00
parent 9835faabb1
commit 1f845378e0
1 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/tachart/tatools.pas
View File

@ -381,6 +381,7 @@ type
FShape: TChartCrosshairShape;
FSize: Integer;
procedure DoDraw;
procedure DoHide;
procedure SetCrosshairPen(AValue: TChartPen);
public
constructor Create(AOwner: TComponent); override;
@ -1461,6 +1462,20 @@ begin
OnDraw(Self);
end;
procedure TDataPointCrosshairTool.DoHide;
begin
if FSeries = nil then exit;
FSeries := nil;
case EffectiveDrawingMode of
tdmXor: begin
PrepareXorPen(FChart.Canvas);
DoDraw;
end;
tdmNormal:
FChart.StyleChanged(Self);
end;
end;
procedure TDataPointCrosshairTool.Draw(AChart: TChart; ADrawer: IChartDrawer);
begin
if FSeries = nil then exit;
@ -1476,16 +1491,8 @@ end;
procedure TDataPointCrosshairTool.Hide;
begin
if FSeries = nil then exit;
FSeries := nil;
case EffectiveDrawingMode of
tdmXor: begin
PrepareXorPen(FChart.Canvas);
DoDraw;
end;
tdmNormal:
FChart.StyleChanged(Self);
end;
DoHide;
FChart := nil;
end;
procedure TDataPointCrosshairTool.KeyDown(APoint: TPoint);
@ -1495,7 +1502,7 @@ end;
procedure TDataPointCrosshairTool.MouseMove(APoint: TPoint);
begin
Hide;
DoHide;
FindNearestPoint(APoint);
if FSeries = nil then exit;
FPosition := FNearestGraphPoint;