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

TAChart: Add TZoomDragTool.EscapeCancels property

Browse Source 
git-svn-id: trunk@38865 -
This commit is contained in:
ask 2012-09-27 15:29:31 +00:00
parent dba262b42f
commit 320655321d
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/tachart/tatools.pas
View File

@ -220,6 +220,8 @@ type
function GetProportional: Boolean;
procedure SetFrame(AValue: TChartPen);
procedure SetProportional(AValue: Boolean);
strict protected
procedure Cancel; override;
public
procedure MouseDown(APoint: TPoint); override;
procedure MouseMove(APoint: TPoint); override;
@ -230,6 +232,7 @@ type
procedure Draw(AChart: TChart; ADrawer: IChartDrawer); override;
published
property DrawingMode;
property EscapeCancels;
property Frame: TChartPen read FFrame write SetFrame;
property Proportional: Boolean
read GetProportional write SetProportional stored false default false;
@ -1038,6 +1041,17 @@ end;
{ TZoomDragTool }
procedure TZoomDragTool.Cancel;
begin
if not IsActive then exit;
if EffectiveDrawingMode = tdmXor then
Draw(FChart, FChart.Drawer)
else
FChart.StyleChanged(Self);
Deactivate;
Handled;
end;
constructor TZoomDragTool.Create(AOwner: TComponent);
begin
inherited;
@ -1140,6 +1154,7 @@ var
dragDir: TRestoreExtentOn;
begin
Unused(APoint);
if not IsActive then exit;
if EffectiveDrawingMode = tdmXor then
Draw(FChart, FChart.Drawer);