From fd56c8003d577a7923a301647be9b9943778a1ea Mon Sep 17 00:00:00 2001
From: Scott Duensing <scott@duensing.com>
Date: Tue, 3 Mar 2026 17:09:57 -0600
Subject: [PATCH] Increase default font size from 9 to 12 for 800x600 displays

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
---
 delphi/KPANSI.PAS   | 8 ++++----
 delphi/TESTMAIN.PAS | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/delphi/KPANSI.PAS b/delphi/KPANSI.PAS
index 7fb5db3..522f0f7 100644
--- a/delphi/KPANSI.PAS
+++ b/delphi/KPANSI.PAS
@@ -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 }
diff --git a/delphi/TESTMAIN.PAS b/delphi/TESTMAIN.PAS
index 05f162c..0ba4778 100644
--- a/delphi/TESTMAIN.PAS
+++ b/delphi/TESTMAIN.PAS
@@ -87,8 +87,8 @@ begin
   inherited CreateNew(AOwner);
 
   Caption     := 'KPComm ANSI Terminal';
-  Width       := 660;
-  Height      := 460;
+  Width       := 780;
+  Height      := 560;
   BorderStyle := bsSingle;
 
   { Serial component }