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

fix small but constant load on idle caused by several timers

This commit is contained in:
Basile Burg 2020-02-18 06:44:56 +01:00
parent 647aa115e8
commit 90eedf284a
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/u_messages.pas
View File

@ -422,7 +422,7 @@ begin
fMsgColors[amkInf] := $FFD0A8; fMsgColors[amkInf] := $FFD0A8;
fMsgColors[amkHint] := $C2FFC2; fMsgColors[amkHint] := $C2FFC2;
updaterByLoopInterval := 12; updaterByLoopInterval := 200;
fOptions := TMessagesOptions.Create(Self); fOptions := TMessagesOptions.Create(Self);
fOptions.assign(self); fOptions.assign(self);
fOptions.Name:= 'messageOptions'; fOptions.Name:= 'messageOptions';
@ -993,10 +993,11 @@ procedure TMessagesWidget.updateLoop;
begin begin
if fastDisplay then if fastDisplay then
begin begin
List.BeginUpdate;
clearOutOfRangeMessg; clearOutOfRangeMessg;
scrollToBack; scrollToBack;
List.Update;
filterMessages(fCtxt); filterMessages(fCtxt);
List.EndUpdate;
end; end;
end; end;

2
src/u_processes.pas
View File

@ -178,7 +178,7 @@ begin
fStdoutEx := TMemoryStream.Create; fStdoutEx := TMemoryStream.Create;
fStderrEx := TMemoryStream.Create; fStderrEx := TMemoryStream.Create;
FTerminateChecker := TTimer.Create(nil); FTerminateChecker := TTimer.Create(nil);
FTerminateChecker.Interval := 50; FTerminateChecker.Interval := 200;
fTerminateChecker.OnTimer := @checkTerminated; fTerminateChecker.OnTimer := @checkTerminated;
fTerminateChecker.Enabled := false; fTerminateChecker.Enabled := false;
TAsyncProcess(self).OnTerminate := @internalDoOnTerminate; TAsyncProcess(self).OnTerminate := @internalDoOnTerminate;