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

win32: notify LCL on mouse enter/leave, NC movements more correct

Browse Source 
git-svn-id: trunk@20069 -
This commit is contained in:
paul 2009-05-20 07:14:50 +00:00
parent 99fdb23855
commit 6306629a9e
3 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/win32/win32callback.inc
View File

@ -1823,12 +1823,12 @@ begin
WM_MOUSEHOVER: WM_MOUSEHOVER:
begin begin
NotifyUserInput := True; NotifyUserInput := True;
LMessage.Msg := LM_ENTER; LMessage.Msg := LM_MOUSEENTER;
end; end;
WM_MOUSELEAVE: WM_MOUSELEAVE:
begin begin
NotifyUserInput := True; NotifyUserInput := True;
LMessage.Msg := LM_LEAVE; LMessage.Msg := LM_MOUSELEAVE;
end; end;
WM_MOUSEMOVE: WM_MOUSEMOVE:
begin begin
@ -1949,6 +1949,11 @@ begin
end; end;
end; end;
WM_NCMOUSEMOVE, WM_NCMOUSELEAVE:
begin
NotifyUserInput := True;
Application.DoBeforeMouseMessage(nil);
end;
WM_NOTIFY: WM_NOTIFY:
begin begin
WindowInfo := GetWindowInfo(PNMHdr(LParam)^.hwndFrom); WindowInfo := GetWindowInfo(PNMHdr(LParam)^.hwndFrom);

16
lcl/interfaces/win32/win32extra.pas
View File

@ -331,15 +331,17 @@ const
// for GetRandomRgn // for GetRandomRgn
SYSRGN = 4; SYSRGN = 4;
// for SetWindowPos // for SetWindowPos
SWP_DEFERERASE = $2000; SWP_DEFERERASE = $2000;
SWP_ASYNCWINDOWPOS = $4000; SWP_ASYNCWINDOWPOS = $4000;
SWP_STATECHANGED = $8000; // used by windows but not documented (used even in wine) SWP_STATECHANGED = $8000; // used by windows but not documented (used even in wine)
// addition XP messages
WM_THEMECHANGED = $31A;
// other messages
WM_NCMOUSELEAVE = $2A2;
// addition XP messages
WM_THEMECHANGED = $31A;
// missing imagelist macros and constants // missing imagelist macros and constants
const const

1
lcl/interfaces/win32/win32proc.pp
View File

@ -394,6 +394,7 @@ begin
$0290: Result := 'WM_IME_KEYDOWN'; $0290: Result := 'WM_IME_KEYDOWN';
$0291: Result := 'WM_IME_KEYUP'; $0291: Result := 'WM_IME_KEYUP';
$02A1: Result := 'WM_MOUSEHOVER'; $02A1: Result := 'WM_MOUSEHOVER';
$02A2: Result := 'WM_NCMOUSELEAVE';
$02A3: Result := 'WM_MOUSELEAVE'; $02A3: Result := 'WM_MOUSELEAVE';
$0300: Result := 'WM_CUT'; $0300: Result := 'WM_CUT';
$0301: Result := 'WM_COPY'; $0301: Result := 'WM_COPY';