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

qt,qt5: do not eat cpu with gtk theme. issue #31191

Browse Source 
git-svn-id: trunk@54589 -
This commit is contained in:
zeljko 2017-04-09 09:47:38 +00:00
parent 6b1b3acb9f
commit cfaa72128b
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -290,7 +290,10 @@ var
begin begin
{$IFDEF QtUseNativeEventLoop} {$IFDEF QtUseNativeEventLoop}
ATimer := QTimer_create(QCoreApplication_instance()); ATimer := QTimer_create(QCoreApplication_instance());
QTimer_setInterval(ATimer, 0); if StyleName = 'gtk' then
QTimer_setInterval(ATimer, 1) {issue #31191}
else
QTimer_setInterval(ATimer, 0);
QTimer_start(ATimer); QTimer_start(ATimer);
FMainTimerID := QTimer_timerId(ATimer); FMainTimerID := QTimer_timerId(ATimer);
QApplication_exec(); QApplication_exec();

5
lcl/interfaces/qt5/qtobject.inc
View File

@ -239,7 +239,10 @@ begin
{$IFDEF QtUseNativeEventLoop} {$IFDEF QtUseNativeEventLoop}
FMainTimerID := -1; FMainTimerID := -1;
ATimer := QTimer_Create(QCoreApplication_instance()); ATimer := QTimer_Create(QCoreApplication_instance());
QTimer_setInterval(ATimer, 0); if StyleName = 'gtk' then
QTimer_setInterval(ATimer, 1) {issue #31191}
else
QTimer_setInterval(ATimer, 0);
QTimer_start(ATimer); QTimer_start(ATimer);
FMainTimerID := QTimer_timerId(ATimer); FMainTimerID := QTimer_timerId(ATimer);
QApplication_exec(); QApplication_exec();