paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 05:41:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Designer: Fix flickering cursor when dragging control on windows 7 64 bit. Issue #20292, patch from Cyrax.

Browse Source 
git-svn-id: trunk@41934 -
This commit is contained in:
juha 2013-06-29 08:03:30 +00:00
parent 2be358f6f3
commit 0acde59704
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/designer.pp
View File

@ -1543,7 +1543,7 @@ end;
function TDesigner.HandleSetCursor(var TheMessage: TLMessage): boolean;
begin
Result := Lo(TheMessage.LParam) = HTCLIENT;
Result := Lo(DWord(TheMessage.LParam)) = HTCLIENT;
if Result then
begin
SetTempCursor(Form, LastFormCursor);