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

Qt: 1.Fixed crash on linux & macosx introduced by installing global EventFilter hook. Check win32 and delete at all this hook if not needed. Tabs works without it.

Browse Source 
2.Workaround for crazy menus problem, added define QT_NO_MENU_EFFECTS , so if U don't need fancy menus it is highly recommended to compile qt interface with this define on - this could be a Qt bug also.

git-svn-id: trunk@12257 -
This commit is contained in:
zeljko 2007-09-30 19:21:19 +00:00
parent 456ddd9f68
commit b6ce1f8f61
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -98,11 +98,25 @@ var
FHook: QObject_hookH;
begin
App := QApplication_Create(@argc, argv);
{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 }
{$IFDEF QT_NO_MENU_EFFECTS}
QApplication_setEffectEnabled(QtUI_AnimateMenu, False);
QApplication_setEffectEnabled(QtUI_FadeMenu, False);
{$ENDIF}
{This hook crashes linux & darwin ocasionally !
todo: check what happens with win32
and possibly remove this hook at all.
Tabs works under linux & darwin without this hook}
{$ifdef windows}
// install global event filter
FHook := QObject_hook_create(App);
TEventFilterMethod(Method) := @EventFilter;
QObject_hook_hook_events(FHook, Method);
{$endif}
end;
{------------------------------------------------------------------------------