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.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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 = {

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

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