From 75b5b1e10b0ef65f99a02d7da80fb2a3b7dd08d5 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Sun, 23 Dec 2007 11:36:42 +0000
Subject: GDI: Fixed issues where the mouse is used to resize controls in the
 UI Designer. Needs further testing as the UI Designer is acting strangely in
 other cases.

---
 src/corelib/gdi/gfx_gdi.pas | 23 ++++-------------------
 1 file changed, 4 insertions(+), 19 deletions(-)

diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas
index d7ef5a70..3a0c93b7 100644
--- a/src/corelib/gdi/gfx_gdi.pas
+++ b/src/corelib/gdi/gfx_gdi.pas
@@ -899,23 +899,15 @@ function TfpgWindowImpl.DoMouseEnterLeaveCheck(AWindow: TfpgWindowImpl; uMsg, wP
 
 var
   pt: Windows.POINT;
-//  Event: TFEvent;
   msgp: TfpgMessageParams;
 begin
   FillChar(msgp, sizeof(msgp), 0);
   if not FMouseInWindow then
   begin
     FMouseInWindow := True;
-//    DoSetCursor;
-    Windows.SetCapture(FWinHandle);
-    //Event := TFEvent.Create;
-    //try
-      //Event.lParam := lParam;
-      //Event.EventType := etMouseEnter;
-      //ProcessEvent(Event);
-    //finally
-      //Event.Free;
-    //end;
+//    Windows.SetCapture(FWinHandle);
+//    msgp.mouse.x := LoWord(lParam);
+//    msgp.mouse.y := HiWord(lParam);
     fpgSendMessage(nil, AWindow, FPGM_MOUSEENTER, msgp);
     Result := uMsg <> WM_MOUSEMOVE;
   end
@@ -932,14 +924,7 @@ begin
 
     if {(not FHasMouseCapture) and} (not FMouseInWindow) then
     begin
-      Windows.ReleaseCapture;
-      //Event := TFEvent.Create;
-      //try
-        //Event.EventType := etMouseLeave;
-        //ProcessEvent(Event);
-      //finally
-        //Event.Free;
-      //end;
+//      Windows.ReleaseCapture;
       msgp.mouse.x := LoWord(lParam);
       msgp.mouse.y := HiWord(lParam);
       fpgSendMessage(nil, AWindow, FPGM_MOUSEEXIT, msgp);
-- 
cgit v1.2.3-70-g09d2