From 7b4cc885f53b85f41bb493d53b6dc165f0e58829 Mon Sep 17 00:00:00 2001 From: mappu Date: Sun, 30 Jun 2024 13:16:27 +1200 Subject: [PATCH] gui: use Consolas as monospace font on Windows --- main.go | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/main.go b/main.go index 8150a1d..c20b4bd 100644 --- a/main.go +++ b/main.go @@ -3,6 +3,7 @@ package main import ( "errors" "fmt" + "runtime" "runtime/debug" "strings" "unsafe" @@ -233,7 +234,11 @@ func (f *TMainForm) OnFormCreate(sender vcl.IObject) { f.queryInput.SetHeight(MY_HEIGHT) f.queryInput.SetAlign(types.AlTop) f.queryInput.SetTop(1) - f.queryInput.Font().SetName("monospace") + if runtime.GOOS == "windows" { + f.queryInput.Font().SetName("Consolas") + } else { + f.queryInput.Font().SetName("monospace") + } f.queryInput.BorderSpacing().SetLeft(MY_SPACING) //f.queryInput.BorderSpacing().SetTop(1) f.queryInput.BorderSpacing().SetRight(MY_SPACING)