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

small changes to dragmanager code to prevent possible errors

Browse Source 
git-svn-id: trunk@13576 -
This commit is contained in:
paul 2008-01-02 08:46:23 +00:00
parent 8855211af5
commit 28f8ce52b5
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/include/dragmanager.inc
View File

@ -108,6 +108,7 @@ type
constructor TDragDockComon.Create(AManager: TDragManagerDefault; AControl: TControl);
begin
FManager := AManager;
FDragImageList := nil;
end;
function TDragDockComon.SendDragMessage(AControl: TControl; Msg: TDragMessage; ADragObject: TDragObject; Target: TControl; const Position: TPoint): LRESULT;
@ -121,8 +122,8 @@ end;
function TDragDockComon.SendCmDragMsg(ADragObject: TDragObject; ADragMsg: TDragMessage): Boolean;
//Send a CM_DRAG message to the window..
begin
Result := boolean(SendDragMessage(ADragObject.DragTarget, ADragMsg,
ADragObject, ADragObject.DragTarget, ADragObject.DragPos));
Result := SendDragMessage(ADragObject.DragTarget, ADragMsg,
ADragObject, ADragObject.DragTarget, ADragObject.DragPos) <> 0;
end;
{ TDragPerformer }
@ -137,7 +138,7 @@ begin
AControl.DoStartDock(FDragObject);
if FDragObject = nil then begin
FDragObjectAutoFree := true;
FDragObject := TDragControlObject.Create(AControl);
FDragObject := TDragControlObject.Create(AControl);
end;
GetCursorPos(p);
@ -168,7 +169,8 @@ begin
end;
procedure TDragPerformer.DragMove(APosition: TPoint);
var ATarget: TControl;
var
ATarget: TControl;
DragCursor: TCursor;
begin
if FDragObject=nil
@ -202,7 +204,8 @@ begin
end;
procedure TDragPerformer.DragStop(ADropped : Boolean);
var ADragObjectCopy:TDragObject;
var
ADragObjectCopy: TDragObject;
DragMsg: TDragMessage;
Accepted: Boolean;
TargetPos: TPoint;