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

small changes for fpc 1.1

Browse Source 
git-svn-id: trunk@2466 -
This commit is contained in:
mattias 2002-08-17 23:41:24 +00:00
parent d419191e73
commit 4acb1b264c
1 changed files with 20 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
lcl/include/control.inc
View File

@ -669,30 +669,26 @@ end;
{ TControl.DoDragMsg
}
{------------------------------------------------------------------------------}
Procedure TControl.DoDragMsg(var Dragmsg : TCMDrag);
Procedure TControl.DoDragMsg(var Dragmsg: TCMDrag);
var
Accepts : Boolean;
S : TObject;
Accepts: Boolean;
S: TObject;
P: TPoint;
Begin
with DragMSg, Dragrec^ do
Begin
S := Source;
with ScreentoClient(pos) do
S := DragMsg.Dragrec^.Source;
Accepts := True;
P:=ScreenToClient(DragMsg.Dragrec^.pos);
case DragMsg.DragMessage of
dmDragEnter, dmDragLeave, dmDragMove:
begin
case DragMessage of
dmDragEnter, dmDragLeave, dmDragMove:
begin
Accepts := True;
case DragMessage of
dmDragEnter : DragOver(S,X,Y,dsDragEnter,Accepts);
dmDragLeave : DragOver(S,X,Y,dsDragLeave,Accepts);
dmDragMove : DragOver(S,X,Y,dsDragMove,Accepts);
end;
Result := ord(Accepts);
end;
end; //case
end;//with
end; //with
case DragMsg.DragMessage of
dmDragEnter : DragOver(S,P.X,P.Y,dsDragEnter,Accepts);
dmDragLeave : DragOver(S,P.X,P.Y,dsDragLeave,Accepts);
dmDragMove : DragOver(S,P.X,P.Y,dsDragMove,Accepts);
end;
DragMsg.Result := ord(Accepts);
end;
end; //case
end;
{------------------------------------------------------------------------------}
@ -2108,6 +2104,9 @@ end;
{ =============================================================================
$Log$
Revision 1.126 2003/06/07 17:14:12 mattias
small changes for fpc 1.1
Revision 1.125 2003/05/28 08:46:24 mattias
break;points dialog now gets the items without debugger