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

lcl: don't disable mouse handlers calling when dragging (bug #0012554)

Browse Source 
git-svn-id: trunk@18666 -
This commit is contained in:
paul 2009-02-13 16:20:17 +00:00
parent ddf3663f55
commit 2ac2054abd
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/control.inc
View File

@ -3243,7 +3243,6 @@ begin
begin
P := ClientToScreen(Point(X,Y));
DragManager.MouseDown(Button, Shift, P.X, P.Y);
exit;
end;
if Assigned(FOnMouseDown) then FOnMouseDown(Self, Button, Shift, X,Y);
@ -3260,7 +3259,6 @@ begin
begin
P := ClientToScreen(Point(X, Y));
DragManager.MouseMove(Shift, P.X, P.Y);
exit;
end;
if Assigned(FOnMouseMove) then FOnMouseMove(Self, Shift, X,Y);
@ -3278,7 +3276,6 @@ begin
begin
P := ClientToScreen(Point(X, Y));
DragManager.MouseUp(Button, Shift, P.X, P.Y);
exit;
end;
if Assigned(FOnMouseUp) then FOnMouseUp(Self, Button, Shift, X,Y);
end;

2
lcl/include/wincontrol.inc
View File

@ -4466,7 +4466,7 @@ end;
procedure TWinControl.SetShape(AShape: TRegion);
begin
LCLIntf.SetWindowRgn(Handle, AShape.Handle, True);
LCLIntf.SetWindowRgn(Handle, AShape.Reference.Handle, True);
end;
{------------------------------------------------------------------------------