forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

disable widgets timers by default

This commit is contained in:
Basile Burg 2016-10-28 10:46:28 +02:00
parent 49ecb0aa0a
commit 0a80061d92
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_messages.pas
View File

@ -256,6 +256,10 @@ begin
widg.fastDisplay:= fFastDisplay; widg.fastDisplay:= fFastDisplay;
widg.fMsgColors := fMsgColors; widg.fMsgColors := fMsgColors;
widg.fAutoDemangle:=fAutoDemangle; widg.fAutoDemangle:=fAutoDemangle;
if fFastDisplay then
widg.updaterByLoopInterval:= 70
else
widg.updaterByLoopInterval:= 0;
end end
else inherited; else inherited;
end; end;

12
src/ce_widget.pas
View File

@ -144,7 +144,7 @@ begin
fToolBarVisible := true; fToolBarVisible := true;
fIsDockable := true; fIsDockable := true;
fUpdaterAuto := TTimer.Create(self); fUpdaterAuto := TTimer.Create(self);
fUpdaterAuto.Interval := 70; fUpdaterAuto.Interval := 0;
fUpdaterAuto.OnTimer := @updaterAutoProc; fUpdaterAuto.OnTimer := @updaterAutoProc;
fUpdaterDelay := TTimer.Create(self); fUpdaterDelay := TTimer.Create(self);
@ -269,10 +269,16 @@ end;
procedure TCEWidget.setLoopInt(value: Integer); procedure TCEWidget.setLoopInt(value: Integer);
begin begin
if value < 30 then value := 30; if fLoopInter = value then
if fLoopInter = value then exit; exit;
fLoopInter := value; fLoopInter := value;
fUpdaterAuto.Interval := fLoopInter; fUpdaterAuto.Interval := fLoopInter;
if value = 0 then
begin
fUpdaterAuto.Enabled:= false;
fLoopUpdateCount := 0;
end
else fUpdaterAuto.Enabled:= true;
end; end;
procedure TCEWidget.IncLoopUpdate; procedure TCEWidget.IncLoopUpdate;