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

*Fix regression: We must releaseMouse() when control lost focus.

Browse Source 
git-svn-id: trunk@11637 -
This commit is contained in:
zeljko 2007-07-26 12:51:45 +00:00
parent 0d3d586ef9
commit 3581fc71c9
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt/qtwidgets.pas
View File

@ -1065,7 +1065,13 @@ begin
QEventDestroy: SlotDestroy;
QEventEnter: SlotMouseEnter(Event);
QEventFocusIn: SlotFocus(True);
QEventFocusOut: SlotFocus(False);
QEventFocusOut:
begin
SlotFocus(False);
if QFocusEvent_reason(QFocusEventH(Event)) <> QtMouseFocusReason
then
releaseMouse;
end;
QEventHoverEnter : SlotHover(Event);
QEventHoverLeave : SlotHover(Event);