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

Merged revision(s) 47841 #f652020761 from trunk:

Browse Source 
LCL: issue #0014257 - SetCursor faulty under GTK2 - changes cursor for
                      wrong control
correction to rev 47814 #ed5fd30d67 to properly handle scrolled controls 
file include/graphiccontrol.inc
........

git-svn-id: branches/fixes_1_4@47851 -
This commit is contained in:
maxim 2015-02-17 00:12:33 +00:00
parent f9541e7a3a
commit f286250e92
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);