paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:40:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

only change cursor if within client area

Browse Source 
git-svn-id: trunk@6654 -
This commit is contained in:
micha 2005-01-21 12:10:25 +00:00
parent 780de93e75
commit c5f71e2011
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
designer/designer.pp
View File

@ -981,9 +981,12 @@ end;
function TDesigner.HandleSetCursor(var TheMessage: TLMessage): boolean;
begin
Form.SetTempCursor(LastFormCursor);
TheMessage.Result := 1;
Result := true;
Result := Lo(TheMessage.LParam) = HTCLIENT;
if Result then
begin
Form.SetTempCursor(LastFormCursor);
TheMessage.Result := 1;
end;
end;
function TDesigner.SizeControl(Sender: TControl; TheMessage: TLMSize):boolean;