paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 03:22:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: dragmanager: apply patch to support Ctrl key during drag/dock operations from Hans-Peter Diettrich with small modifications (issue #0013427)

Browse Source 
git-svn-id: trunk@20066 -
This commit is contained in:
paul 2009-05-20 05:05:38 +00:00
parent f22d9341c2
commit dfb54d7324
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lcl/include/dragmanager.inc
View File

@ -408,7 +408,11 @@ begin
Exit;
//Inform user of entering and leaving
ATarget := FindDockSiteAtPosition;
if (GetKeyState(VK_CONTROL) and $8000) <> 0 then
ATarget := nil
else
ATarget := FindDockSiteAtPosition;
if ATarget <> FDockObject.DragTarget then
begin
SendCmDragMsg(FDockObject, dmDragLeave);
@ -629,19 +633,20 @@ end;
procedure TDragManagerDefault.KeyDown(var Key: Word; Shift: TShiftState);
begin
if Key = VK_ESCAPE then
begin
DragStop(False);
Key := 0;
end;
if Key = VK_CONTROL then
DragMove(Mouse.CursorPos);
end;
procedure TDragManagerDefault.KeyUp(var Key: Word; Shift: TShiftState);
begin
if Key = VK_ESCAPE then
begin
DragStop(False);
Key := 0;
case Key of
VK_CONTROL:
DragMove(Mouse.CursorPos);
VK_ESCAPE:
begin
DragStop(False);
Key := 0;
end;
end;
end;
@ -683,7 +688,7 @@ end;
procedure TDragManagerDefault.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
DragStop(true);
DragStop(not FWaitForTreshold);
end;
procedure TDragManagerDefault.CaptureChanged(OldCaptureControl: TControl);