AI_Slop/WinComm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add render throttle to decouple parse throughput from GDI overhead

Browse source 
During bulk serial data flow, renders are capped at ~20fps (50ms interval)
so the ANSI parser can run at full speed without blocking on FlipToScreen.
When idle, renders immediately for interactive responsiveness.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
Scott Duensing 2026-03-02 17:02:01 -06:00
parent 75d598c4c5
commit 64b3962c59
1 changed files with 19 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
delphi/TESTMAIN.PAS
View file

@ -165,13 +165,18 @@ end;
procedure TMainForm.Run;
const
RenderMs = 50; { Minimum ms between renders during bulk flow (20 fps) }
var
Msg: TMsg;
S: string;
HasData: Boolean;
Msg: TMsg;
S: string;
HasData: Boolean;
Now: Longint;
LastRenderTick: Longint;
begin
Show;
FDone := False;
FDone := False;
LastRenderTick := GetTickCount;
while not FDone do
begin
{ Process all pending Windows messages (keyboard, paint, scrollbar) }
@ -218,9 +223,16 @@ begin
if FDone then
Break;
{ Tick blink (dirties rows if interval elapsed), then render }
FAnsi.TickBlink;
FAnsi.FlipToScreen;
{ Render throttle: during bulk data flow, only render every RenderMs }
{ to decouple parse throughput from GDI overhead. When idle, render }
{ immediately for interactive responsiveness. }
Now := GetTickCount;
if (not HasData) or (Now - LastRenderTick >= RenderMs) then
begin
FAnsi.TickBlink;
FAnsi.FlipToScreen;
LastRenderTick := Now;
end;
{ Yield CPU to other apps when no serial data is flowing. }
{ PM_NOYIELD keeps message draining fast; Yield here gives other }