paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:39:31 +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
{$IFDEF QtUseNativeEventLoop}
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);
FMainTimerID := QTimer_timerId(ATimer);
QApplication_exec();

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

@ -239,7 +239,10 @@ begin
{$IFDEF QtUseNativeEventLoop}
FMainTimerID := -1;
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);
FMainTimerID := QTimer_timerId(ATimer);
QApplication_exec();