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

Qt: do not pass to lcl mouse press/release events from mdichild titlebar.

Browse Source 
git-svn-id: trunk@33377 -
This commit is contained in:
zeljko 2011-11-06 15:34:49 +00:00
parent f0cabaa74f
commit 42ef49460c
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5368,6 +5368,20 @@ begin
BeginEventProcessing; BeginEventProcessing;
case QEvent_type(Event) of case QEvent_type(Event) of
QEventMouseButtonPress,
QEventMouseButtonRelease,
QEventMouseButtonDblClick:
begin
if IsMdiChild then
begin
if QMouseEvent_y(QMouseEventH(Event)) <= QStyle_pixelMetric(
QApplication_style(), QStylePM_TitleBarHeight, nil, Widget) then
QEvent_ignore(Event)
else
Result := SlotMouse(Sender, Event);
end else
Result := SlotMouse(Sender, Event);
end;
QEventWindowUnblocked: Blocked := False; QEventWindowUnblocked: Blocked := False;
QEventWindowBlocked: Blocked := True; QEventWindowBlocked: Blocked := True;
QEventWindowActivate: if not IsMDIChild then SlotActivateWindow(True); QEventWindowActivate: if not IsMDIChild then SlotActivateWindow(True);