From 699d0460f3e8ea3753b779a9470e39e204f13e95 Mon Sep 17 00:00:00 2001
From: Rob Swindell <rob@synchro.net>
Date: Sat, 12 Sep 2020 23:51:23 -0700
Subject: [PATCH] Make dark mode the default.
---
src/sbbs3/ctrl/EventsFormUnit.dfm | 2 +-
src/sbbs3/ctrl/FtpFormUnit.dfm | 2 +-
src/sbbs3/ctrl/MailFormUnit.dfm | 2 +-
src/sbbs3/ctrl/MainFormUnit.cpp | 6 +++---
src/sbbs3/ctrl/ServicesFormUnit.dfm | 2 +-
src/sbbs3/ctrl/TelnetFormUnit.dfm | 2 +-
src/sbbs3/ctrl/WebFormUnit.dfm | 2 +-
7 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/src/sbbs3/ctrl/EventsFormUnit.dfm b/src/sbbs3/ctrl/EventsFormUnit.dfm
index 2791dd5943..f816a60970 100644
--- a/src/sbbs3/ctrl/EventsFormUnit.dfm
+++ b/src/sbbs3/ctrl/EventsFormUnit.dfm
@@ -28,7 +28,7 @@ object EventsForm: TEventsForm
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
+ Font.Style = []
HideScrollBars = False
ParentFont = False
PopupMenu = MainForm.LogPopupMenu
diff --git a/src/sbbs3/ctrl/FtpFormUnit.dfm b/src/sbbs3/ctrl/FtpFormUnit.dfm
index d4d50f3abb..eac7cb770b 100644
--- a/src/sbbs3/ctrl/FtpFormUnit.dfm
+++ b/src/sbbs3/ctrl/FtpFormUnit.dfm
@@ -148,7 +148,7 @@ object FtpForm: TFtpForm
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
+ Font.Style = []
HideScrollBars = False
ParentFont = False
PopupMenu = MainForm.LogPopupMenu
diff --git a/src/sbbs3/ctrl/MailFormUnit.dfm b/src/sbbs3/ctrl/MailFormUnit.dfm
index ae4fd58282..b1e737ef98 100644
--- a/src/sbbs3/ctrl/MailFormUnit.dfm
+++ b/src/sbbs3/ctrl/MailFormUnit.dfm
@@ -151,7 +151,7 @@ object MailForm: TMailForm
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
+ Font.Style = []
HideScrollBars = False
ParentFont = False
PopupMenu = MainForm.LogPopupMenu
diff --git a/src/sbbs3/ctrl/MainFormUnit.cpp b/src/sbbs3/ctrl/MainFormUnit.cpp
index 62c35efa2b..45e125b249 100644
--- a/src/sbbs3/ctrl/MainFormUnit.cpp
+++ b/src/sbbs3/ctrl/MainFormUnit.cpp
@@ -141,9 +141,9 @@ const TColor LogLevelColor[] = {
,clRed
,clRed
,clFuchsia
- ,clBlue
+ ,clSkyBlue
,clBlack /* not used */
- ,clGreen
+ ,clLime
};
link_list_t bbs_log_list;
@@ -972,7 +972,7 @@ __fastcall TMainForm::TMainForm(TComponent* Owner)
for(i=LOG_EMERG;i<=LOG_DEBUG;i++) {
LogFont[i] = new TFont;
LogFont[i]->Color=LogLevelColor[i];
-// if(i <= LOG_ERR)
+ if(i <= LOG_CRIT)
LogFont[i]->Style = TFontStyles()<< fsBold;
}
}
diff --git a/src/sbbs3/ctrl/ServicesFormUnit.dfm b/src/sbbs3/ctrl/ServicesFormUnit.dfm
index 016431acbd..bfaabcf57a 100644
--- a/src/sbbs3/ctrl/ServicesFormUnit.dfm
+++ b/src/sbbs3/ctrl/ServicesFormUnit.dfm
@@ -132,7 +132,7 @@ object ServicesForm: TServicesForm
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
+ Font.Style = []
HideScrollBars = False
ParentFont = False
PopupMenu = MainForm.LogPopupMenu
diff --git a/src/sbbs3/ctrl/TelnetFormUnit.dfm b/src/sbbs3/ctrl/TelnetFormUnit.dfm
index f05082bd12..b83bfc224d 100644
--- a/src/sbbs3/ctrl/TelnetFormUnit.dfm
+++ b/src/sbbs3/ctrl/TelnetFormUnit.dfm
@@ -157,7 +157,7 @@ object TelnetForm: TTelnetForm
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
+ Font.Style = []
HideScrollBars = False
ParentFont = False
PopupMenu = MainForm.LogPopupMenu
diff --git a/src/sbbs3/ctrl/WebFormUnit.dfm b/src/sbbs3/ctrl/WebFormUnit.dfm
index 6d74eed36f..86bc8234fa 100644
--- a/src/sbbs3/ctrl/WebFormUnit.dfm
+++ b/src/sbbs3/ctrl/WebFormUnit.dfm
@@ -153,7 +153,7 @@ object WebForm: TWebForm
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
+ Font.Style = []
HideScrollBars = False
ParentFont = False
PopupMenu = MainForm.LogPopupMenu
--
GitLab