paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-22 04:39:53 +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

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

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