paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: issue #0014257 - SetCursor faulty under GTK2 - changes cursor for

Browse Source 
wrong control
correction to rev 47814 #ed5fd30d67 to properly handle scrolled controls 
file include/graphiccontrol.inc

git-svn-id: trunk@47841 -
This commit is contained in:
giuliano 2015-02-16 23:33:20 +00:00
parent b0bc92627b
commit f652020761
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/graphiccontrol.inc
View File

@ -113,7 +113,7 @@ begin
if not Visible then exit;
if Parent <> nil then begin
// execute only if the cursor is actually over the control
Pt := Parent.ScreenToClient(Mouse.CursorPos);
Pt := Parent.ScreenToControl(Mouse.CursorPos);
Ct := Parent.ControlAtPos(Pt, True);
if (Self = Ct) then
SetTempCursor(FCursor);