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

win32: skip invisible windows while setting a cursor (bug #0017636)

Browse Source 
git-svn-id: trunk@27719 -
This commit is contained in:
paul 2010-10-16 14:49:19 +00:00
parent 3f9bb3899a
commit 3efdffe38a
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2426,7 +2426,7 @@ begin
LM_ERASEBKGND, LM_SETCURSOR, LM_RBUTTONUP, LM_CONTEXTMENU, LM_MOUSEWHEEL:
begin
if PLMsg^.Result = 0 then
WinProcess := true;
WinProcess := True;
end;
WM_SYSCOMMAND:
begin

13
lcl/interfaces/win32/win32wscontrols.pp
View File

@ -533,7 +533,8 @@ var
begin
// in win32 controls have no cursor property. they can change their cursor
// by listening WM_SETCURSOR and adjusting global cursor
if csDesigning in AWinControl.ComponentState then begin
if csDesigning in AWinControl.ComponentState then
begin
Windows.SetCursor(ACursor);
exit;
end;
@ -559,12 +560,14 @@ begin
capfAllowWinControls, capfRecursive]);
if (lControl = nil) then
lControl := AWinControl;
if lControl.Cursor = crDefault then begin
if lControl.Cursor = crDefault then
begin
// comboboxes, groupboxes,... may have internal child handles
h := Windows.ChildWindowFromPointEx(AWinControl.Handle, Windows.POINT(p),CWP_ALL);
h := Windows.ChildWindowFromPointEx(AWinControl.Handle, Windows.POINT(p), CWP_SKIPINVISIBLE);
if h = 0 then exit;
c := HCURSOR(GetClassLong(h, GCL_HCURSOR));
if c <> 0 then begin
if c <> 0 then
begin
Windows.SetCursor(c);
exit;
end;
@ -625,7 +628,7 @@ const
VisibilityToFlag: array[Boolean] of UINT = (SWP_HIDEWINDOW, SWP_SHOWWINDOW);
begin
Windows.SetWindowPos(AWinControl.Handle, 0, 0, 0, 0, 0,
SWP_NOSIZE or SWP_NOMOVE or SWP_NOZORDER or SWP_NOACTIVATE or VisibilityToFlag[AWinControl.HandleObjectShouldBeVisible]);
SWP_NOSIZE or SWP_NOMOVE or SWP_NOZORDER or SWP_NOACTIVATE or VisibilityToFlag[AWinControl.HandleObjectShouldBeVisible])
end;
{ TWin32WSDragImageList }