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

TAChart: Improved cooperation of TAxisClickTool with other tools.

Browse Source 
git-svn-id: trunk@60796 -
This commit is contained in:
wp 2019-03-29 23:57:33 +00:00
parent 6a763b0115
commit e2af06f634
2 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tagraph.pas
View File

@ -1335,10 +1335,7 @@ var
ts: TBasicChartToolset;
begin
ts := GetToolset;
if
// PtInRect(FClipRect, Point(X, Y)) and
(ts <> nil) and ts.Dispatch(Self, evidMouseDown, Shift, Point(X, Y))
then
if (ts <> nil) and ts.Dispatch(Self, evidMouseDown, Shift, Point(X, Y)) then
exit;
inherited;
end;

19
components/tachart/tatools.pas
View File

@ -60,6 +60,7 @@ type
property DrawingMode: TChartToolDrawingMode
read FDrawingMode write SetDrawingMode default tdmDefault;
strict protected
FIgnoreClipRect: Boolean;
procedure Activate; override;
procedure Cancel; virtual;
procedure Deactivate; override;
@ -763,11 +764,12 @@ begin
case AEventId of
evidKeyDown : KeyDown (APoint);
evidKeyUp : KeyUp (APoint);
evidMouseDown : MouseDown (APoint);
evidMouseMove : MouseMove (APoint);
evidMouseUp : MouseUp (APoint);
evidMouseWheelDown: MouseWheelDown(APoint);
evidMouseWheelUp : MouseWheelUp (APoint);
evidMouseMove : MouseMove (APoint);
evidMouseUp : MouseUp (APoint);
evidMouseDown : if FIgnoreClipRect or PtInRect(FChart.ClipRect, APoint) then
MouseDown(APoint);
end;
ev := FEventsAfter[AEventId];
if Assigned(ev) then
@ -2027,6 +2029,7 @@ constructor TAxisClickTool.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
SetPropDefaults(Self, ['GrabRadius']);
FIgnoreClipRect := true; // Allow mousedown outside cliprect
end;
function TAxisClickTool.GetHitTestInfo(APoint: TPoint): Boolean;
@ -2048,14 +2051,20 @@ end;
procedure TAxisClickTool.MouseDown(APoint: TPoint);
begin
if GetHitTestInfo(APoint) then
if GetHitTestInfo(APoint) then begin
Activate;
Handled;
end;
end;
procedure TAxisClickTool.MouseUp(APoint: TPoint);
begin
if FHitTest <> [] then
if FHitTest <> [] then begin
GetHitTestInfo(APoint);
if Assigned(FOnClick) then FOnClick(Self, FAxis, FHitTest);
end;
Deactivate;
Handled;
end;