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

Increase default font size from 9 to 12 for 800x600 displays

Browse source 
Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
Scott Duensing 2026-03-03 17:09:57 -06:00
parent 9102dd1938
commit fd56c8003d
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
delphi/KPANSI.PAS
View file

@ -316,8 +316,8 @@ var
Line: PTermLine;
begin
inherited Create(AOwner);
Width := 640;
Height := 400;
Width := 660;
Height := 450;
Color := clBlack;
TabStop := True;
FCols := 80;
@ -328,14 +328,14 @@ begin
FScrollback := TList.Create;
FAttrFG := 7;
FCellWidth := 8;
FCellHeight := 16;
FCellHeight := 18;
FBlinkOn := True;
FLastBlinkTick := GetTickCount;
FWrapMode := True;
FAllDirty := True;
{ Set a monospace font -- OEM charset selected in CreatePaintFont }
Font.Name := 'Terminal';
Font.Size := 9;
Font.Size := 12;
Font.Pitch := fpFixed;
{ Allocate initial screen lines }

4
delphi/TESTMAIN.PAS
View file

@ -87,8 +87,8 @@ begin
inherited CreateNew(AOwner);
Caption := 'KPComm ANSI Terminal';
Width := 660;
Height := 460;
Width := 780;
Height := 560;
BorderStyle := bsSingle;
{ Serial component }