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

Qt: updated note about widget activation under X11.

Browse Source 
git-svn-id: trunk@25401 -
This commit is contained in:
zeljko 2010-05-14 09:56:54 +00:00
parent bc8f5f3d69
commit 23ca943e68
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3400,7 +3400,8 @@ var
AGrabWidget: QWidgetH; AGrabWidget: QWidgetH;
begin begin
// capture widget can be one of childs of Widget if Widget is complex control // capture widget can be one of childs of Widget if Widget is complex control
// so better to look for current Capture widget to release it instead of pass Widget as argument // so better to look for current Capture widget to release it
// instead of pass Widget as argument
AGrabWidget := QWidget_mouseGrabber(); AGrabWidget := QWidget_mouseGrabber();
//DebugLn(['releasing current grab: ', dbgs(AGrabWidget)]); //DebugLn(['releasing current grab: ', dbgs(AGrabWidget)]);
if AGrabWidget <> nil then if AGrabWidget <> nil then
@ -4463,7 +4464,8 @@ begin
QBoxLayout_setSpacing(LayoutWidget, 0); QBoxLayout_setSpacing(LayoutWidget, 0);
QLayout_setContentsMargins(LayoutWidget, 0, 0, 0, 0); QLayout_setContentsMargins(LayoutWidget, 0, 0, 0, 0);
{we must fix mouse events in QMDISubWindow by adding FCentralWidget as it''s widget } // we must fix mouse events in QMDISubWindow by
// adding FCentralWidget as it''s widget
if IsMdiChild then if IsMdiChild then
QMdiSubWindow_setWidget(QMdiSubWindowH(Result), FCentralWidget); QMdiSubWindow_setWidget(QMdiSubWindowH(Result), FCentralWidget);
@ -4539,7 +4541,7 @@ begin
{$IFDEF LINUX} {$IFDEF LINUX}
// qt X11 bug ? activates window but it's not in // qt X11 bug ? activates window but it's not in
// front of others. // front of others.
{$note TQtWidget.Activate: Check this with next qt version (>4.3.4)} {$note TQtWidget.Activate: Check this with next qt version (>=4.7)}
if not QWidget_isModal(Widget) then if not QWidget_isModal(Widget) then
QWidget_raise(Widget); QWidget_raise(Widget);
{$ENDIF} {$ENDIF}