paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 10:59:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

wince: use the same as win32 fix for WM_SETCURSOR

Browse Source 
git-svn-id: trunk@16534 -
This commit is contained in:
paul 2008-09-11 01:04:44 +00:00
parent 6c22b2ee3b
commit 730022505a
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/wince/wincecallback.inc
View File

@ -677,14 +677,10 @@ Var
capfAllowWinControls, capfHasScrollOffset]);
if lControl = nil then
lControl := lWinControl;
if lControl.Cursor <> crDefault then
ACursor := lControl.Cursor;
end;
if ACursor <> crDefault then
begin
Windows.SetCursor(Screen.Cursors[ACursor]);
LMessage.Result := 1;
ACursor := lControl.Cursor;
end;
Windows.SetCursor(Screen.Cursors[ACursor]);
LMessage.Result := 1;
end;
if LMessage.Result = 0 then
begin