Make dark mode the default.

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

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

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

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;
         }
     }

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

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

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