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

fix setcursor to only change cursor within client area, not on scrollbars etc.

Browse Source 
git-svn-id: trunk@5622 -
This commit is contained in:
micha 2004-06-30 10:38:51 +00:00
parent 59507123a6
commit db5790517d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -809,7 +809,8 @@ Begin
WM_SETCURSOR:
begin
if (TheWinControl <> nil) and (TheWinControl.Cursor <> crDefault) and
not (csDesigning in TheWinControl.ComponentState) then
not (csDesigning in TheWinControl.ComponentState) and
(Lo(LParam) = HTCLIENT) then
begin
Windows.SetCursor(Windows.LoadCursor(0, LclCursorToWin32CursorMap[TheWinControl.Cursor]));
LMessage.Result := 1;
@ -1255,6 +1256,9 @@ end;
{
$Log$
Revision 1.123 2004/06/30 10:38:51 micha
fix setcursor to only change cursor within client area, not on scrollbars etc.
Revision 1.122 2004/06/29 14:38:28 micha
fix default button notification win32 intf