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

TEdit/TMemo and some other with LCL cursor = crDefault had problems with setting their default cursor if it was differ from default application cursor.

Browse Source 
git-svn-id: trunk@11001 -
This commit is contained in:
paul 2007-04-25 11:43:38 +00:00
parent 576446d7e6
commit 06e9d893e8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -439,8 +439,8 @@ End;
class procedure TWin32WSWinControl.SetCursor(const AWinControl: TWinControl;
const ACursor: HCursor);
begin
Windows.SetCursor(ACursor);
//Windows.SetCursor(Windows.LoadCursor(0, LclCursorToWin32CursorMap[ACursor]));
// in win32 controls have no cursor property. they can change their cursor
// by listening WM_SETCURSOR and adjusting global cursor
end;
class procedure TWin32WSWinControl.ConstraintsChange(const AWinControl: TWinControl);