diff --git a/src/sbbs3/ctrl/EventsFormUnit.dfm b/src/sbbs3/ctrl/EventsFormUnit.dfm index 2791dd594349d686e2822a602e271abc45f01ad7..f816a6097079ca17f0565602952c5e109629445f 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 d4d50f3abbe25a71866c404af6ffde2faa51bf86..eac7cb770b412b3e5fc20975b392b794e349fc3a 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 ae4fd58282d51b66cdfe759d82b165cd5307f428..b1e737ef98476a352d34cf2bd3075e693bcf9fe6 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 62c35efa2bd87274b50a57855e89416c2e732f09..45e125b24948a4025bf208d38e3d1aec2aeb644a 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 016431acbdb07bf8b0280a84093936e5c209cf5e..bfaabcf57ac411d527e61114a6eb4e6e6b2b528d 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 f05082bd124e5496a6c219bb41f86f1a17ea706f..b83bfc224dda13e6b42e341fc2ae94a4be45f4c4 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 6d74eed36fc265237aea8444be31d0b1c39f9d15..86bc8234fab0c622cea67e27441d6f8f9c3f2282 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