From 4acb1b264cf35881c07f43be0df568e6aa5d24a8 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:24 +0000
Subject: [PATCH] small changes for fpc 1.1

git-svn-id: trunk@2466 -
---
 lcl/include/control.inc | 41 ++++++++++++++++++++---------------------
 1 file changed, 20 insertions(+), 21 deletions(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index b5d31bfce9..1cdfcc1657 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -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