diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/corelib/gdi/gfx_gdi.pas | 23 |
1 files 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); |