diff --git a/src/ce_messages.pas b/src/ce_messages.pas index cb16de1b..0e30fd12 100644 --- a/src/ce_messages.pas +++ b/src/ce_messages.pas @@ -256,6 +256,10 @@ begin widg.fastDisplay:= fFastDisplay; widg.fMsgColors := fMsgColors; widg.fAutoDemangle:=fAutoDemangle; + if fFastDisplay then + widg.updaterByLoopInterval:= 70 + else + widg.updaterByLoopInterval:= 0; end else inherited; end; diff --git a/src/ce_widget.pas b/src/ce_widget.pas index 13e8610e..4d0c7638 100644 --- a/src/ce_widget.pas +++ b/src/ce_widget.pas @@ -144,7 +144,7 @@ begin fToolBarVisible := true; fIsDockable := true; fUpdaterAuto := TTimer.Create(self); - fUpdaterAuto.Interval := 70; + fUpdaterAuto.Interval := 0; fUpdaterAuto.OnTimer := @updaterAutoProc; fUpdaterDelay := TTimer.Create(self); @@ -269,10 +269,16 @@ end; procedure TCEWidget.setLoopInt(value: Integer); begin - if value < 30 then value := 30; - if fLoopInter = value then exit; + if fLoopInter = value then + exit; fLoopInter := value; fUpdaterAuto.Interval := fLoopInter; + if value = 0 then + begin + fUpdaterAuto.Enabled:= false; + fLoopUpdateCount := 0; + end + else fUpdaterAuto.Enabled:= true; end; procedure TCEWidget.IncLoopUpdate;