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

TAChart: Add TZoomDragTool.Frame property

Browse Source 
git-svn-id: trunk@31965 -
This commit is contained in:
ask 2011-08-12 17:36:14 +00:00
parent f1e69d3d5f
commit b132e87418
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/tachart/tatools.pas
View File

@ -186,18 +186,23 @@ type
TZoomDragTool = class(TBasicZoomTool)
strict private
FFrame: TChartPen;
FRatioLimit: TZoomRatioLimit;
FSelectionRect: TRect;
function GetProportional: Boolean;
procedure SetFrame(AValue: TChartPen);
procedure SetProportional(AValue: Boolean);
public
procedure MouseDown(APoint: TPoint); override;
procedure MouseMove(APoint: TPoint); override;
procedure MouseUp(APoint: TPoint); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Draw(AChart: TChart; ADrawer: IChartDrawer); override;
published
property DrawingMode;
property Frame: TChartPen read FFrame write SetFrame;
property Proportional: Boolean
read GetProportional write SetProportional stored false default false;
deprecated;
@ -881,6 +886,18 @@ end;
{ TZoomDragTool }
constructor TZoomDragTool.Create(AOwner: TComponent);
begin
inherited;
FFrame := TChartPen.Create;
end;
destructor TZoomDragTool.Destroy;
begin
FreeAndNil(FFrame);
inherited;
end;
procedure TZoomDragTool.Draw(AChart: TChart; ADrawer: IChartDrawer);
begin
if not IsActive or IsAnimating then exit;
@ -889,7 +906,7 @@ begin
tdmDefault, tdmXor:
PrepareXorPen(FChart.Canvas);
tdmNormal:
FChart.Drawer.PrepareSimplePen($0);
FChart.Drawer.Pen := Frame;
end;
FChart.Drawer.Rectangle(FSelectionRect);
end;
@ -981,6 +998,11 @@ begin
Handled;
end;
procedure TZoomDragTool.SetFrame(AValue: TChartPen);
begin
FFrame.Assign(AValue);
end;
procedure TZoomDragTool.SetProportional(AValue: Boolean);
begin
if AValue then