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

TAChart: Fix mouse coordinates passed to KeyUp/KeyDown tool events

Browse Source 
git-svn-id: trunk@31970 -
This commit is contained in:
ask 2011-08-13 09:20:36 +00:00
parent 9589bb8c23
commit ad3dfd2bae
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tagraph.pas
View File

@ -1024,20 +1024,26 @@ begin
end; end;
procedure TChart.KeyDownAfterInterface(var AKey: Word; AShift: TShiftState); procedure TChart.KeyDownAfterInterface(var AKey: Word; AShift: TShiftState);
var
p: TPoint;
begin begin
if GetToolset.Dispatch(Self, evidKeyDown, AShift, Mouse.CursorPos) then exit; p := ScreenToClient(Mouse.CursorPos);
if GetToolset.Dispatch(Self, evidKeyDown, AShift, p) then exit;
inherited; inherited;
end; end;
procedure TChart.KeyUpAfterInterface(var AKey: Word; AShift: TShiftState); procedure TChart.KeyUpAfterInterface(var AKey: Word; AShift: TShiftState);
var
p: TPoint;
begin begin
p := ScreenToClient(Mouse.CursorPos);
// To find a tool, toolset must see the shift state with the key still down. // To find a tool, toolset must see the shift state with the key still down.
case AKey of case AKey of
VK_CONTROL: AShift += [ssCtrl]; VK_CONTROL: AShift += [ssCtrl];
VK_MENU: AShift += [ssAlt]; VK_MENU: AShift += [ssAlt];
VK_SHIFT: AShift += [ssShift]; VK_SHIFT: AShift += [ssShift];
end; end;
if GetToolset.Dispatch(Self, evidKeyUp, AShift, Mouse.CursorPos) then exit; if GetToolset.Dispatch(Self, evidKeyUp, AShift, p) then exit;
inherited; inherited;
end; end;