paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 20:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixes to SetCursor (Windows) / Cleanup

Browse Source 
git-svn-id: trunk@21197 -
This commit is contained in:
martin 2009-08-12 13:54:59 +00:00
parent c34d49893d
commit 7a30d2fdae
1 changed files with 3 additions and 4 deletions

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

@ -475,8 +475,6 @@ class procedure TWin32WSWinControl.SetCursor(const AWinControl: TWinControl;
const ACursor: HCursor);
var
P: TPoint;
BoundsOffset: TRect;
Hnd: HWND;
lControl: TControl;
begin
// in win32 controls have no cursor property. they can change their cursor
@ -497,8 +495,9 @@ begin
lControl := AWinControl.ControlAtPos(P, [capfOnlyClientAreas,
capfAllowWinControls, capfRecursive]);
if (lControl = nil) or (lControl = AWinControl) then
Windows.SetCursor(ACursor);
if (lControl = nil) then
lControl := AWinControl;
Windows.SetCursor(Screen.Cursors[lControl.Cursor]);
end;
class procedure TWin32WSWinControl.SetShape(const AWinControl: TWinControl;