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

LCL: fixed compilation for fpc 2.3.1

Browse Source 
git-svn-id: trunk@13569 -
This commit is contained in:
mattias 2008-01-02 00:26:54 +00:00
parent 88fd13adc5
commit cad606b93f
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/include/dragmanager.inc
View File

@ -129,6 +129,8 @@ end;
constructor TDragPerformer.Create(AManager: TDragManagerDefault; AControl: TControl);
//Start a drag operation, if not already running
var
p: TPoint;
begin
inherited Create(AManager, AControl);
@ -137,7 +139,9 @@ begin
FDragObjectAutoFree := true;
FDragObject := TDragControlObject.Create(AControl);
end;
GetCursorPos(FDragObject.DragPos);
GetCursorPos(p);
FDragObject.DragPos:=p;
SetCaptureControl(AControl);
end;
@ -221,8 +225,7 @@ begin
TargetPos.X := 0;
TargetPos.Y := 0;
DragMsg := dmDragCancel;
ADragObjectCopy.DragPos.X := 0;
ADragObjectCopy.DragPos.Y := 0;
ADragObjectCopy.DragPos:=Point(0,0);
ADragObjectCopy.DragTarget := nil;
end
else DragMsg := dmDragDrop;
@ -246,6 +249,8 @@ end;
constructor TDockPerformer.Create(AManager: TDragManagerDefault; AControl: TControl);
//Start a drag operation, if not already running
var
p: TPoint;
begin
inherited Create(AManager, AControl);
AControl.DoStartDock(TDragObject(FDockObject));
@ -253,10 +258,12 @@ begin
FDragObjectAutoFree := true;
FDockObject := TDragDockObject.Create(AControl);
end;
GetCursorPos(FDockObject.DragPos);
GetCursorPos(p);
FDockObject.DragPos:=p;
AControl.CalculateDockSizes;
FDockObject.DockRect := AControl.BoundsRect;
FDockObject.EraseDockRect.Left:=Maxint;
FDockObject.EraseDockRect:=Rect(Maxint,0,MaxInt,0);
SetCaptureControl(AControl);
end;
@ -463,8 +470,7 @@ begin
TargetPos.X := 0;
TargetPos.Y := 0;
DragMsg := dmDragCancel;
ADockObjectCopy.DragPos.X := 0;
ADockObjectCopy.DragPos.Y := 0;
ADockObjectCopy.DragPos:=Point(0,0);
ADockObjectCopy.DragTarget:=nil;
end
else DragMsg := dmDragDrop;