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

TAChart: Extract PrepareDrawingModePen helper procedure

Browse Source 
git-svn-id: trunk@38431 -
This commit is contained in:
ask 2012-08-30 02:20:09 +00:00
parent 27dded466e
commit 4cf420b246
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/tachart/tatools.pas
View File

@ -22,7 +22,7 @@ interface
{$H+}
uses
Classes, Controls, CustomTimer, Forms, Types,
Classes, Controls, CustomTimer, Forms, FPCanvas, Types,
TAChartUtils, TADrawUtils, TAGraph, TATypes;
type
@ -72,6 +72,7 @@ type
procedure MouseUp(APoint: TPoint); virtual;
procedure MouseWheelDown(APoint: TPoint); virtual;
procedure MouseWheelUp(APoint: TPoint); virtual;
procedure PrepareDrawingModePen(ADrawer: IChartDrawer; APen: TFPCustomPen);
procedure RestoreCursor;
procedure SetCursor;
procedure SetIndex(AValue: Integer); override;
@ -606,7 +607,7 @@ var
implementation
uses
FPCanvas, Graphics, GraphMath, InterfaceBase, LCLIntf, LCLType, Math, SysUtils,
Graphics, GraphMath, InterfaceBase, LCLIntf, LCLType, Math, SysUtils,
TAChartAxis, TACustomSeries, TADrawerCanvas, TAEnumerators, TAGeometry, TAMath;
const
@ -851,6 +852,15 @@ begin
Unused(APoint);
end;
procedure TChartTool.PrepareDrawingModePen(
ADrawer: IChartDrawer; APen: TFPCustomPen);
begin
case EffectiveDrawingMode of
tdmXor: ADrawer.SetXorPen(APen);
tdmNormal: ADrawer.Pen := APen;
end;
end;
procedure TChartTool.ReadState(Reader: TReader);
begin
inherited ReadState(Reader);
@ -1105,12 +1115,7 @@ procedure TZoomDragTool.Draw(AChart: TChart; ADrawer: IChartDrawer);
begin
if not IsActive or IsAnimating then exit;
inherited;
case EffectiveDrawingMode of
tdmXor:
ADrawer.SetXorPen(Frame);
tdmNormal:
FChart.Drawer.Pen := Frame;
end;
PrepareDrawingModePen(ADrawer, Frame);
FChart.Drawer.Rectangle(FSelectionRect);
end;
@ -1750,12 +1755,7 @@ end;
procedure TDataPointDrawTool.Draw(AChart: TChart; ADrawer: IChartDrawer);
begin
inherited;
case EffectiveDrawingMode of
tdmXor:
FChart.Drawer.SetXorPen(FPen);
tdmNormal:
FChart.Drawer.Pen := FPen;
end;
PrepareDrawingModePen(ADrawer, FPen);
DoDraw;
end;