Fun (not) with fonts

Running SBBSCTRL on Windows 11 with a 4K monitor looked horrible. The default font sizes varied widely - I'm not sure why this wasn't apparent before now. And the default font ("MS Sans Serif") is no longer included in modern Windows versions, so when choosing a Log font, the pre-selected font was just blank. So change use of "MS Sans Serif" everywhere to "Microsoft Sans Serif" which appears to have been around since Win95 and be the preferred alternative. I would consider Segoe, but that wasn't introduced into Windows until Vista and I'm not sure (yet) what troubles that might introduce. I'll experiment with a WinXP VM maybe and find out.

Fun (not) with fonts
275155a2 · Rob Swindell · 5d2195b2 · 275155a2 · 275155a2 · 275155a2
Commit 275155a2 authored 1 year ago by Rob Swindell
--- a/src/sbbs3/ctrl/AboutBoxFormUnit.dfm
+++ b/src/sbbs3/ctrl/AboutBoxFormUnit.dfm
@@ -9,7 +9,7 @@ object AboutBoxForm: TAboutBoxForm
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
-  Font.Name = 'MS Sans Serif'
+  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
@@ -13377,7 +13377,7 @@ object AboutBoxForm: TAboutBoxForm
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
-    Font.Name = 'MS Sans Serif'
+    Font.Name = 'Microsoft Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
@@ -13414,7 +13414,7 @@ object AboutBoxForm: TAboutBoxForm
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
-    Font.Name = 'MS Sans Serif'
+    Font.Name = 'Microsoft Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
@@ -13435,7 +13435,7 @@ object AboutBoxForm: TAboutBoxForm
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
-    Font.Name = 'MS Sans Serif'
+    Font.Name = 'Microsoft Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False

--- a/src/sbbs3/ctrl/ClientFormUnit.dfm
+++ b/src/sbbs3/ctrl/ClientFormUnit.dfm
@@ -10,8 +10,8 @@ object ClientForm: TClientForm
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWhite
-  Font.Height = -10
-  Font.Name = 'MS Sans Serif'
+  Font.Height = -12
+  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnHide = FormHide

--- a/src/sbbs3/ctrl/ConfigWizardUnit.dfm
+++ b/src/sbbs3/ctrl/ConfigWizardUnit.dfm
@@ -9,12 +9,12 @@ object ConfigWizard: TConfigWizard
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
-  Font.Name = 'MS Sans Serif'
+  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
-  PixelsPerInch = 120
+  PixelsPerInch = 96
  TextHeight = 16
  object Shape1: TShape
    Left = 0
@@ -599,7 +599,7 @@ object ConfigWizard: TConfigWizard
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
-        Font.Name = 'MS Sans Serif'
+        Font.Name = 'Microsoft Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
@@ -1084,7 +1084,7 @@ object ConfigWizard: TConfigWizard
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
-        Font.Name = 'MS Sans Serif'
+        Font.Name = 'Microsoft Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
@@ -1136,7 +1136,7 @@ object ConfigWizard: TConfigWizard
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
-        Font.Name = 'MS Sans Serif'
+        Font.Name = 'Microsoft Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end

--- a/src/sbbs3/ctrl/CtrlPathDialogUnit.dfm
+++ b/src/sbbs3/ctrl/CtrlPathDialogUnit.dfm
@@ -14,7 +14,7 @@ object CtrlPathDialog: TCtrlPathDialog
  DesignSize = (
    473
    114)
-  PixelsPerInch = 120
+  PixelsPerInch = 96
  TextHeight = 16
  object Bevel1: TBevel
    Left = 10

--- a/src/sbbs3/ctrl/EventsFormUnit.dfm
+++ b/src/sbbs3/ctrl/EventsFormUnit.dfm
@@ -8,11 +8,6 @@ object EventsForm: TEventsForm
  DefaultMonitor = dmPrimary
  DragKind = dkDock
  DragMode = dmAutomatic
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -10
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
  OldCreateOrder = False
  OnHide = FormHide
  PixelsPerInch = 96
@@ -27,7 +22,7 @@ object EventsForm: TEventsForm
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -12
-    Font.Name = 'MS Sans Serif'
+    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    HideScrollBars = False
    ParentFont = False

--- a/src/sbbs3/ctrl/FtpCfgDlgUnit.dfm
+++ b/src/sbbs3/ctrl/FtpCfgDlgUnit.dfm
@@ -6,7 +6,11 @@ object FtpCfgDlg: TFtpCfgDlg
  ClientHeight = 245
  ClientWidth = 286
  Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Microsoft Sans Serif'
+  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnShow = FormShow

--- a/src/sbbs3/ctrl/FtpFormUnit.dfm
+++ b/src/sbbs3/ctrl/FtpFormUnit.dfm
@@ -10,8 +10,8 @@ object FtpForm: TFtpForm
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
-  Font.Height = -10
-  Font.Name = 'MS Sans Serif'
+  Font.Height = -12
+  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnHide = FormHide
@@ -147,7 +147,7 @@ object FtpForm: TFtpForm
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -12
-    Font.Name = 'MS Sans Serif'
+    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    HideScrollBars = False
    ParentFont = False

--- a/src/sbbs3/ctrl/LoginAttemptsFormUnit.dfm
+++ b/src/sbbs3/ctrl/LoginAttemptsFormUnit.dfm
@@ -8,8 +8,8 @@ object LoginAttemptsForm: TLoginAttemptsForm
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
+  Font.Height = -12
+  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False

--- a/src/sbbs3/ctrl/MailCfgDlgUnit.dfm
+++ b/src/sbbs3/ctrl/MailCfgDlgUnit.dfm
@@ -6,7 +6,11 @@ object MailCfgDlg: TMailCfgDlg
  ClientHeight = 246
  ClientWidth = 286
  Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Microsoft Sans Serif'
+  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnShow = FormShow

--- a/src/sbbs3/ctrl/MailFormUnit.dfm
+++ b/src/sbbs3/ctrl/MailFormUnit.dfm
@@ -11,8 +11,8 @@ object MailForm: TMailForm
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
+  Font.Height = -12
+  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
@@ -150,7 +150,7 @@ object MailForm: TMailForm
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -12
-    Font.Name = 'MS Sans Serif'
+    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    HideScrollBars = False
    ParentFont = False

--- a/src/sbbs3/ctrl/MainFormUnit.dfm
+++ b/src/sbbs3/ctrl/MainFormUnit.dfm
@@ -9,8 +9,8 @@ object MainForm: TMainForm
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
+  Font.Height = -12
+  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
--- a/src/sbbs3/ctrl/NodeFormUnit.dfm
+++ b/src/sbbs3/ctrl/NodeFormUnit.dfm
@@ -11,8 +11,8 @@ object NodeForm: TNodeForm
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWhite
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
+  Font.Height = -12
+  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault

--- a/src/sbbs3/ctrl/PreviewFormUnit.dfm
+++ b/src/sbbs3/ctrl/PreviewFormUnit.dfm
@@ -8,14 +8,14 @@ object PreviewForm: TPreviewForm
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
-  Font.Name = 'MS Sans Serif'
+  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = PopupMenu
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnShow = FormShow
-  PixelsPerInch = 120
+  PixelsPerInch = 96
  TextHeight = 16
  object PopupMenu: TPopupMenu
    Left = 144

--- a/src/sbbs3/ctrl/PropertiesDlgUnit.dfm
+++ b/src/sbbs3/ctrl/PropertiesDlgUnit.dfm
@@ -6,7 +6,11 @@ object PropertiesDlg: TPropertiesDlg
  ClientHeight = 234
  ClientWidth = 352
  Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Microsoft Sans Serif'
+  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  ShowHint = True
@@ -723,7 +727,7 @@ object PropertiesDlg: TPropertiesDlg
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
-    Font.Name = 'MS Sans Serif'
+    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0

--- a/src/sbbs3/ctrl/ServicesCfgDlgUnit.dfm
+++ b/src/sbbs3/ctrl/ServicesCfgDlgUnit.dfm
@@ -6,11 +6,6 @@ object ServicesCfgDlg: TServicesCfgDlg
  ClientHeight = 245
  ClientWidth = 286
  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -10
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
@@ -36,6 +31,11 @@ object ServicesCfgDlg: TServicesCfgDlg
    000FF800000FFC00001FFE00001FE0000001C000000180000001800000018000
    00018000000180000001FC00001FFC00001FFE00001FFC00000FF800000FF800
    001FF800003FFC180C7FFE380EFFFFF80FFFFFF80FFFFFF80FFFFFFFFFFF}
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Microsoft Sans Serif'
+  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose

--- a/src/sbbs3/ctrl/ServicesFormUnit.dfm
+++ b/src/sbbs3/ctrl/ServicesFormUnit.dfm
@@ -9,8 +9,8 @@ object ServicesForm: TServicesForm
  DragKind = dkDock
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
-  Font.Height = -10
-  Font.Name = 'MS Sans Serif'
+  Font.Height = -12
+  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnHide = FormHide
@@ -131,7 +131,7 @@ object ServicesForm: TServicesForm
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -12
-    Font.Name = 'MS Sans Serif'
+    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    HideScrollBars = False
    ParentFont = False

--- a/src/sbbs3/ctrl/SoundCfgDlgUnit.dfm
+++ b/src/sbbs3/ctrl/SoundCfgDlgUnit.dfm
@@ -6,7 +6,11 @@ object SoundCfgDlg: TSoundCfgDlg
  ClientHeight = 186
  ClientWidth = 313
  Color = clBtnFace
-  ParentFont = True
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Microsoft Sans Serif'
+  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnShow = FormShow

--- a/src/sbbs3/ctrl/SpyFormUnit.dfm
+++ b/src/sbbs3/ctrl/SpyFormUnit.dfm
@@ -10,7 +10,7 @@ object SpyForm: TSpyForm
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
-  Font.Name = 'MS Sans Serif'
+  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Icon.Data = {

--- a/src/sbbs3/ctrl/StatsFormUnit.dfm
+++ b/src/sbbs3/ctrl/StatsFormUnit.dfm
@@ -12,8 +12,8 @@ object StatsForm: TStatsForm
  DragMode = dmAutomatic
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
-  Font.Height = -10
-  Font.Name = 'MS Sans Serif'
+  Font.Height = -12
+  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnHide = FormHide
@@ -26,13 +26,7 @@ object StatsForm: TStatsForm
    Height = 143
    Caption = 'Today'
    Color = clBtnFace
-    Font.Charset = ANSI_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -12
-    Font.Name = 'MS Sans Serif'
-    Font.Style = []
    ParentColor = False
-    ParentFont = False
    TabOrder = 0
    object LogonsTodayLabel: TLabel
      Left = 7

--- a/src/sbbs3/ctrl/StatsLogFormUnit.dfm
+++ b/src/sbbs3/ctrl/StatsLogFormUnit.dfm
@@ -8,7 +8,7 @@ object StatsLogForm: TStatsLogForm
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
-  Font.Name = 'MS Sans Serif'
+  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
@@ -38,7 +38,7 @@ object StatsLogForm: TStatsLogForm
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
-  PixelsPerInch = 120
+  PixelsPerInch = 96
  TextHeight = 16
  object Log: TMemo
    Left = 0