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

4
delphi/TESTMAIN.PAS
View file

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