From 5aa3e5c54a797c69d5e0ff3077d83a3131b58f4b Mon Sep 17 00:00:00 2001
From: "Rob Swindell (on Windows 11)" <rob@synchro.net>
Date: Wed, 27 Sep 2023 18:48:44 -0700
Subject: [PATCH] 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 | 8 ++++----
src/sbbs3/ctrl/ClientFormUnit.dfm | 4 ++--
src/sbbs3/ctrl/ConfigWizardUnit.dfm | 10 +++++-----
src/sbbs3/ctrl/CtrlPathDialogUnit.dfm | 2 +-
src/sbbs3/ctrl/EventsFormUnit.dfm | 7 +------
src/sbbs3/ctrl/FtpCfgDlgUnit.dfm | 6 +++++-
src/sbbs3/ctrl/FtpFormUnit.dfm | 6 +++---
src/sbbs3/ctrl/LoginAttemptsFormUnit.dfm | 4 ++--
src/sbbs3/ctrl/MailCfgDlgUnit.dfm | 6 +++++-
src/sbbs3/ctrl/MailFormUnit.dfm | 6 +++---
src/sbbs3/ctrl/MainFormUnit.dfm | 4 ++--
src/sbbs3/ctrl/NodeFormUnit.dfm | 4 ++--
src/sbbs3/ctrl/PreviewFormUnit.dfm | 4 ++--
src/sbbs3/ctrl/PropertiesDlgUnit.dfm | 8 ++++++--
src/sbbs3/ctrl/ServicesCfgDlgUnit.dfm | 10 +++++-----
src/sbbs3/ctrl/ServicesFormUnit.dfm | 6 +++---
src/sbbs3/ctrl/SoundCfgDlgUnit.dfm | 6 +++++-
src/sbbs3/ctrl/SpyFormUnit.dfm | 2 +-
src/sbbs3/ctrl/StatsFormUnit.dfm | 10 ++--------
src/sbbs3/ctrl/StatsLogFormUnit.dfm | 4 ++--
src/sbbs3/ctrl/TelnetCfgDlgUnit.dfm | 6 +++++-
src/sbbs3/ctrl/TelnetFormUnit.dfm | 6 +++---
src/sbbs3/ctrl/TextFileEditUnit.dfm | 8 ++++----
src/sbbs3/ctrl/UserListFormUnit.dfm | 5 -----
src/sbbs3/ctrl/UserMsgFormUnit.dfm | 4 ++--
src/sbbs3/ctrl/WebCfgDlgUnit.dfm | 4 ++--
src/sbbs3/ctrl/WebFormUnit.dfm | 6 +++---
27 files changed, 80 insertions(+), 76 deletions(-)
diff --git a/src/sbbs3/ctrl/AboutBoxFormUnit.dfm b/src/sbbs3/ctrl/AboutBoxFormUnit.dfm
index 78a563107d..01baa81e5b 100644
--- 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
diff --git a/src/sbbs3/ctrl/ClientFormUnit.dfm b/src/sbbs3/ctrl/ClientFormUnit.dfm
index fcab73c125..5015e15fd3 100644
--- 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
diff --git a/src/sbbs3/ctrl/ConfigWizardUnit.dfm b/src/sbbs3/ctrl/ConfigWizardUnit.dfm
index 865c827fb9..16008f53d2 100644
--- 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
diff --git a/src/sbbs3/ctrl/CtrlPathDialogUnit.dfm b/src/sbbs3/ctrl/CtrlPathDialogUnit.dfm
index e1228128b2..e79cf4cac7 100644
--- 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
diff --git a/src/sbbs3/ctrl/EventsFormUnit.dfm b/src/sbbs3/ctrl/EventsFormUnit.dfm
index f816a60970..47cee0a318 100644
--- 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
diff --git a/src/sbbs3/ctrl/FtpCfgDlgUnit.dfm b/src/sbbs3/ctrl/FtpCfgDlgUnit.dfm
index 43044d1ee0..c992559a10 100644
--- 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
diff --git a/src/sbbs3/ctrl/FtpFormUnit.dfm b/src/sbbs3/ctrl/FtpFormUnit.dfm
index eac7cb770b..b8fca6e73e 100644
--- 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
diff --git a/src/sbbs3/ctrl/LoginAttemptsFormUnit.dfm b/src/sbbs3/ctrl/LoginAttemptsFormUnit.dfm
index da19a68da0..48ec93a565 100644
--- 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
diff --git a/src/sbbs3/ctrl/MailCfgDlgUnit.dfm b/src/sbbs3/ctrl/MailCfgDlgUnit.dfm
index 1213c662c0..ae0c22658a 100644
--- 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
diff --git a/src/sbbs3/ctrl/MailFormUnit.dfm b/src/sbbs3/ctrl/MailFormUnit.dfm
index b1e737ef98..c8223a0591 100644
--- 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
diff --git a/src/sbbs3/ctrl/MainFormUnit.dfm b/src/sbbs3/ctrl/MainFormUnit.dfm
index bd96eb321f..299dc938cf 100644
--- 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
diff --git a/src/sbbs3/ctrl/NodeFormUnit.dfm b/src/sbbs3/ctrl/NodeFormUnit.dfm
index 8541939bdd..9f313dd130 100644
--- 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
diff --git a/src/sbbs3/ctrl/PreviewFormUnit.dfm b/src/sbbs3/ctrl/PreviewFormUnit.dfm
index 4cba9c6b5d..b856fec08a 100644
--- 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
diff --git a/src/sbbs3/ctrl/PropertiesDlgUnit.dfm b/src/sbbs3/ctrl/PropertiesDlgUnit.dfm
index f3c6294c61..d8f90d53d5 100644
--- 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
diff --git a/src/sbbs3/ctrl/ServicesCfgDlgUnit.dfm b/src/sbbs3/ctrl/ServicesCfgDlgUnit.dfm
index 73088f8188..b94d58dac5 100644
--- 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
diff --git a/src/sbbs3/ctrl/ServicesFormUnit.dfm b/src/sbbs3/ctrl/ServicesFormUnit.dfm
index bfaabcf57a..9184ca58fd 100644
--- 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
diff --git a/src/sbbs3/ctrl/SoundCfgDlgUnit.dfm b/src/sbbs3/ctrl/SoundCfgDlgUnit.dfm
index 5f0e0a2346..8d362c36b4 100644
--- 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
diff --git a/src/sbbs3/ctrl/SpyFormUnit.dfm b/src/sbbs3/ctrl/SpyFormUnit.dfm
index 3f0a7b282f..49289af956 100644
--- 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 = {
diff --git a/src/sbbs3/ctrl/StatsFormUnit.dfm b/src/sbbs3/ctrl/StatsFormUnit.dfm
index 03df5f7510..d4646c91c8 100644
--- 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
diff --git a/src/sbbs3/ctrl/StatsLogFormUnit.dfm b/src/sbbs3/ctrl/StatsLogFormUnit.dfm
index b2f8f86a4b..72e27b6694 100644
--- 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
diff --git a/src/sbbs3/ctrl/TelnetCfgDlgUnit.dfm b/src/sbbs3/ctrl/TelnetCfgDlgUnit.dfm
index 5ce1c7b633..97c0e35e91 100644
--- a/src/sbbs3/ctrl/TelnetCfgDlgUnit.dfm
+++ b/src/sbbs3/ctrl/TelnetCfgDlgUnit.dfm
@@ -6,7 +6,11 @@ object TelnetCfgDlg: TTelnetCfgDlg
ClientHeight = 234
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
diff --git a/src/sbbs3/ctrl/TelnetFormUnit.dfm b/src/sbbs3/ctrl/TelnetFormUnit.dfm
index b83bfc224d..9a1d2a1aeb 100644
--- a/src/sbbs3/ctrl/TelnetFormUnit.dfm
+++ b/src/sbbs3/ctrl/TelnetFormUnit.dfm
@@ -11,8 +11,8 @@ object TelnetForm: TTelnetForm
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
@@ -156,7 +156,7 @@ object TelnetForm: TTelnetForm
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
diff --git a/src/sbbs3/ctrl/TextFileEditUnit.dfm b/src/sbbs3/ctrl/TextFileEditUnit.dfm
index d0379dd9e7..47526d09fa 100644
--- a/src/sbbs3/ctrl/TextFileEditUnit.dfm
+++ b/src/sbbs3/ctrl/TextFileEditUnit.dfm
@@ -8,7 +8,7 @@ object TextFileEditForm: TTextFileEditForm
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
@@ -39,7 +39,7 @@ object TextFileEditForm: TTextFileEditForm
OldCreateOrder = False
Position = poDefaultPosOnly
OnShow = FormShow
- PixelsPerInch = 120
+ PixelsPerInch = 96
TextHeight = 16
object Panel: TPanel
Left = 0
@@ -106,7 +106,7 @@ object TextFileEditForm: TTextFileEditForm
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
- Font.Name = 'Courier'
+ Font.Name = 'Microsoft Sans Serif'
Font.Style = []
HideSelection = False
ParentFont = False
@@ -269,7 +269,7 @@ object TextFileEditForm: TTextFileEditForm
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
diff --git a/src/sbbs3/ctrl/UserListFormUnit.dfm b/src/sbbs3/ctrl/UserListFormUnit.dfm
index 8de55e8569..f50a515d8b 100644
--- a/src/sbbs3/ctrl/UserListFormUnit.dfm
+++ b/src/sbbs3/ctrl/UserListFormUnit.dfm
@@ -6,11 +6,6 @@ object UserListForm: TUserListForm
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'Synchronet User List'
Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -10
- Font.Name = 'MS Sans Serif'
- Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
Position = poDefault
diff --git a/src/sbbs3/ctrl/UserMsgFormUnit.dfm b/src/sbbs3/ctrl/UserMsgFormUnit.dfm
index da2f40ee59..44eead0ac2 100644
--- a/src/sbbs3/ctrl/UserMsgFormUnit.dfm
+++ b/src/sbbs3/ctrl/UserMsgFormUnit.dfm
@@ -7,8 +7,8 @@ object UserMsgForm: TUserMsgForm
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 = []
Icon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
diff --git a/src/sbbs3/ctrl/WebCfgDlgUnit.dfm b/src/sbbs3/ctrl/WebCfgDlgUnit.dfm
index 2bc266163c..12c085d505 100644
--- a/src/sbbs3/ctrl/WebCfgDlgUnit.dfm
+++ b/src/sbbs3/ctrl/WebCfgDlgUnit.dfm
@@ -8,8 +8,8 @@ object WebCfgDlg: TWebCfgDlg
Color = clBtnFace
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
Position = poScreenCenter
diff --git a/src/sbbs3/ctrl/WebFormUnit.dfm b/src/sbbs3/ctrl/WebFormUnit.dfm
index 86bc8234fa..bddadc57b6 100644
--- a/src/sbbs3/ctrl/WebFormUnit.dfm
+++ b/src/sbbs3/ctrl/WebFormUnit.dfm
@@ -9,8 +9,8 @@ object WebForm: TWebForm
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
PixelsPerInch = 96
@@ -152,7 +152,7 @@ object WebForm: TWebForm
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
--
GitLab