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

TAChart: Add TZoomDragTool.SelectionRect property

Browse Source 
git-svn-id: trunk@38949 -
This commit is contained in:
ask 2012-10-02 13:51:37 +00:00
parent 983bc213aa
commit f50a958fad
1 changed files with 23 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
components/tachart/tatools.pas
View File

@ -231,6 +231,7 @@ type
procedure SetBrush(AValue: TZoomDragBrush);
procedure SetFrame(AValue: TChartPen);
procedure SetProportional(AValue: Boolean);
procedure SetSelectionRect(AValue: TRect);
strict protected
procedure Cancel; override;
public
@ -241,6 +242,7 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Draw(AChart: TChart; ADrawer: IChartDrawer); override;
property SelectionRect: TRect read FSelectionRect write SetSelectionRect;
published
property AdjustSelection: Boolean
read FAdjustSelection write FAdjustSelection default true;
@ -1179,22 +1181,7 @@ end;
procedure TZoomDragTool.MouseMove(APoint: TPoint);
begin
if not IsActive or IsAnimating then exit;
case EffectiveDrawingMode of
tdmXor: with FChart.Drawer do begin
SetXor(true);
Pen := Frame;
Brush := Self.Brush;
Rectangle(CalculateDrawRect);
FSelectionRect.BottomRight := APoint;
Rectangle(CalculateDrawRect);
SetXor(false);
end;
tdmNormal: begin
FSelectionRect.BottomRight := APoint;
FChart.StyleChanged(Self);
end;
end;
SelectionRect := Rect(SelectionRect.Left, SelectionRect.Top, APoint.X, APoint.Y);
Handled;
end;
@ -1257,6 +1244,26 @@ begin
RatioLimit := zrlNone;
end;
procedure TZoomDragTool.SetSelectionRect(AValue: TRect);
begin
if (FSelectionRect = AValue) or not IsActive or IsAnimating then exit;
case EffectiveDrawingMode of
tdmXor: with FChart.Drawer do begin
SetXor(true);
Pen := Frame;
Brush := Self.Brush;
Rectangle(CalculateDrawRect);
FSelectionRect := AValue;
Rectangle(CalculateDrawRect);
SetXor(false);
end;
tdmNormal: begin
FSelectionRect := AValue;
FChart.StyleChanged(Self);
end;
end;
end;
{ TReticuleTool }
procedure TReticuleTool.MouseMove(APoint: TPoint);