paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 03:59:14 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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