paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-01 02:27:17 +01: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

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

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

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

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