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

TAChart: Use drawer everywhere instead of canvas in tools

Browse Source 
git-svn-id: trunk@38433 -
This commit is contained in:
ask 2012-08-30 05:34:59 +00:00
parent ad680a75f4
commit c5350721c8
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/tachart/tatools.pas
View File

@ -525,7 +525,7 @@ implementation
uses
GraphMath, InterfaceBase, Math, SysUtils,
TAChartAxis, TACustomSeries, TADrawerCanvas, TAEnumerators, TAGeometry, TAMath;
TACustomSeries, TAEnumerators, TAGeometry, TAMath;
function InitBuiltinTools(AChart: TChart): TBasicChartToolset;
var
@ -587,7 +587,7 @@ end;
procedure TChartTool.Activate;
begin
inherited Activate;
inherited;
SetCursor;
end;
@ -619,7 +619,7 @@ end;
procedure TChartTool.Deactivate;
begin
RestoreCursor;
inherited Deactivate;
inherited;
end;
destructor TChartTool.Destroy;
@ -1030,11 +1030,11 @@ procedure TZoomDragTool.MouseMove(APoint: TPoint);
begin
if not IsActive or IsAnimating then exit;
case EffectiveDrawingMode of
tdmXor: begin
FChart.Drawer.SetXorPen(Frame);
FChart.Canvas.Rectangle(FSelectionRect);
tdmXor: with FChart.Drawer do begin
SetXorPen(Frame);
Rectangle(FSelectionRect);
FSelectionRect.BottomRight := APoint;
FChart.Canvas.Rectangle(FSelectionRect);
Rectangle(FSelectionRect);
end;
tdmNormal: begin
FSelectionRect.BottomRight := APoint;
@ -1091,7 +1091,7 @@ begin
Unused(APoint);
FChart.Drawer.SetXorPen(Frame);
FChart.Canvas.Rectangle(FSelectionRect);
FChart.Drawer.Rectangle(FSelectionRect);
with FSelectionRect do begin
dragDir := DRAG_DIR[Sign(Right - Left), Sign(Bottom - Top)];
if