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

Qt: minor changes in ProcessMessage (no more "crazy menu")

Browse Source 
git-svn-id: trunk@12296 -
This commit is contained in:
paul 2007-10-02 14:50:57 +00:00
parent 58d1ed40c9
commit 36106630ec
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/qt/qtobject.inc
View File

@ -99,6 +99,8 @@ var
begin
App := QApplication_Create(@argc, argv);
FOldFocusWidget := nil;
{no more crazy menus if we disable fading & animating
my proposal is to remove this ifdef and disable
effects by default, or set IFNDEF QT_USE_MENU_EFFECTS }
@ -147,7 +149,7 @@ begin
end;
{------------------------------------------------------------------------------
Method: TQtWidgetSet.AppWaitMessage
Method: TQtWidgetSet.AppProcessMessages
Params: None
Returns: Nothing
@ -156,7 +158,7 @@ end;
procedure TQtWidgetSet.AppProcessMessages;
begin
if QCoreApplication_hasPendingEvents then
QCoreApplication_processEvents();
QCoreApplication_processEvents(QEventLoopAllEvents or QEventLoopDeferredDeletion);
end;
{------------------------------------------------------------------------------
@ -253,7 +255,8 @@ begin
WriteLn('found Taabed widget ', PtrInt(Sender));
{$endif}
QWidget_setFocusPolicy(QWidgetH(Sender), QtClickFocus);
QWidget_setFocus(FOldFocusWidget);
if FOldFocusWidget <> nil then
QWidget_setFocus(FOldFocusWidget);
end
else
FOldFocusWidget := QWidgetH(Sender);