...
 
Commits (4)
[NodeForm]
ListFontName=MS Sans Serif
ListFontColor=clWhite
ListFontStyle=0
ListColor=clBlack
[ClientForm]
ListFontName=MS Sans Serif
ListFontColor=clWhite
ListFontStyle=0
ListColor=clBlack
[TelnetForm]
LogFontName=MS Sans Serif
LogFontColor=clWhite
LogFontStyle=0
LogColor=clBlack
[EventsForm]
LogFontName=MS Sans Serif
LogFontColor=clWhite
LogFontStyle=0
LogColor=clBlack
[ServicesForm]
LogFontName=MS Sans Serif
LogFontColor=clWhite
LogFontStyle=0
LogColor=clBlack
[FtpForm]
LogFontName=MS Sans Serif
LogFontColor=clWhite
LogFontStyle=0
LogColor=clBlack
[MailForm]
LogFontName=MS Sans Serif
LogFontColor=clWhite
LogFontStyle=0
LogColor=clBlack
[WebForm]
LogFontName=MS Sans Serif
LogFontColor=clWhite
LogFontStyle=0
LogColor=clBlack
[LogEmergencyFont]
Name=MS Sans Serif
Color=clRed
Style=0
[LogAlertFont]
Name=MS Sans Serif
Color=clRed
Style=1
[LogCriticalFont]
Name=MS Sans Serif
Color=clRed
Style=1
[LogErrorFont]
Name=MS Sans Serif
Color=clRed
Style=0
[LogWarningFont]
Name=MS Sans Serif
Color=clFuchsia
Style=0
[LogNoticeFont]
Name=MS Sans Serif
Color=clSkyBlue
Style=0
[LogDebugFont]
Name=MS Sans Serif
Color=clLime
Style=0
[NodeForm]
ListFontName=MS Sans Serif
ListFontColor=clWindowText
ListFontStyle=0
ListColor=clWindow
[ClientForm]
ListFontName=MS Sans Serif
ListFontColor=clWindowText
ListFontStyle=0
ListColor=clWindow
[TelnetForm]
LogFontName=MS Sans Serif
LogFontColor=clWindowText
LogFontStyle=0
LogColor=clWindow
[EventsForm]
LogFontName=MS Sans Serif
LogFontColor=clWindowText
LogFontStyle=0
LogColor=clWindow
[ServicesForm]
LogFontName=MS Sans Serif
LogFontColor=clWindowText
LogFontStyle=0
LogColor=clWindow
[FtpForm]
LogFontName=MS Sans Serif
LogFontColor=clWindowText
LogFontStyle=0
LogColor=clWindow
[MailForm]
LogFontName=MS Sans Serif
LogFontColor=clWindowText
LogFontStyle=0
LogColor=clWindow
[WebForm]
LogFontName=MS Sans Serif
LogFontColor=clWindowText
LogFontStyle=0
LogColor=clWindow
[LogEmergencyFont]
Name=MS Sans Serif
Color=clRed
Style=1
[LogAlertFont]
Name=MS Sans Serif
Color=clRed
Style=1
[LogCriticalFont]
Name=MS Sans Serif
Color=clRed
Style=1
[LogErrorFont]
Name=MS Sans Serif
Color=clRed
Style=1
[LogWarningFont]
Name=MS Sans Serif
Color=clFuchsia
Style=0
[LogNoticeFont]
Name=MS Sans Serif
Color=clBlue
Style=0
[LogDebugFont]
Name=MS Sans Serif
Color=clGreen
Style=0
......@@ -2,7 +2,7 @@
# MajorBBS Clone Command Shell for Synchronet
# $Id: major.src,v 1.12 2020/04/23 02:46:08 rswindell Exp $
# $Id: major.src,v 1.13 2020/09/12 02:46:08 rswindell Exp $
# @format.tab-size 8, @format.use-tabs true
......@@ -132,6 +132,7 @@ cmdkey A
cmdkey A
user_defaults
exec_bin "termsetup"
end_cmd
cmdkey X
......
......@@ -2,7 +2,7 @@
# PCBoard v15.1 menu/command emulation
# $Id: pcboard.src,v 1.13 2020/04/23 02:46:09 rswindell Exp $
# $Id: pcboard.src,v 1.14 2020/09/12 02:46:09 rswindell Exp $
# @format.tab-size 8, @format.use-tabs true
......@@ -219,6 +219,7 @@ cmdstr G
cmdstr W
user_defaults
exec_bin "termsetup"
end_cmd
cmdstr O
......
# renegade.src
# $Id: renegade.src,v 1.16 2020/04/23 02:46:09 rswindell Exp $
# $Id: renegade.src,v 1.16 2020/09/12 02:46:09 rswindell Exp $
# @format.tab-size 8, @format.use-tabs true
......@@ -155,6 +155,7 @@ cmdkey O
cmdkey P
user_defaults
exec_bin "termsetup"
end_cmd
cmdkey !
......
......@@ -2,7 +2,7 @@
# DOS shell for Synchronet version 2 systems
# $Id: sdos.src,v 1.15 2020/04/23 02:46:09 rswindell Exp $
# $Id: sdos.src,v 1.15 2020/09/12 02:46:09 rswindell Exp $
# @format.tab-size 8, @format.use-tabs true
......@@ -149,6 +149,7 @@ if_true
compare_str "setup"
if_true
user_defaults
exec_bin "termsetup"
return
end_if
......
......@@ -2,7 +2,7 @@
# Simple Synchronet Command Shell - for beginner/first-time users
# $Id: simple.src,v 1.13 2020/04/23 02:46:09 rswindell Exp $
# $Id: simple.src,v 1.13 2020/09/12 02:46:09 rswindell Exp $
# @format.tab-size 8, @format.use-tabs true
......@@ -187,6 +187,7 @@ cmdstr DOORS
#Account config (user defaults)
cmdstr A
user_defaults
exec_bin "termsetup"
end_cmd
#Page another user
......
# wildcat.src
# $Id: wildcat.src,v 1.17 2020/04/23 02:46:09 rswindell Exp $
# $Id: wildcat.src,v 1.17 2020/09/12 02:46:09 rswindell Exp $
# @format.tab-size 8, @format.use-tabs true
......@@ -95,6 +95,7 @@ cmdkey I
cmdkey Y
user_defaults
exec_bin "termsetup"
end_cmd
cmdkey W
......
......@@ -135,6 +135,7 @@ cmdkey C
cmdkey D
user_defaults
exec_bin "termsetup"
end_cmd
cmdkey E
......
......@@ -9,7 +9,7 @@ object ClientForm: TClientForm
DragKind = dkDock
DragMode = dmAutomatic
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Color = clWhite
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
......@@ -23,6 +23,7 @@ object ClientForm: TClientForm
Width = 615
Height = 307
Align = alClient
Color = clBlack
Columns = <
item
Caption = 'Socket'
......
......@@ -23,8 +23,9 @@ object EventsForm: TEventsForm
Width = 543
Height = 352
Align = alClient
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
......
......@@ -143,8 +143,9 @@ object FtpForm: TFtpForm
Width = 509
Height = 86
Align = alClient
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
......
......@@ -146,8 +146,9 @@ object MailForm: TMailForm
Width = 464
Height = 86
Align = alClient
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
......
......@@ -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;
}
}
......@@ -1565,12 +1565,12 @@ int __fastcall TMainForm::PageNum(TPageControl* obj)
return(PAGE_LOWERRIGHT);
}
TColor __fastcall TMainForm::ReadColor(TRegistry* Registry
,AnsiString name)
,AnsiString name, TColor deflt)
{
if(Registry->ValueExists(name + "Color"))
return(StringToColor(Registry->ReadString(name + "Color")));
return(clWindow); // Default
return deflt;
}
void __fastcall TMainForm::WriteColor(TRegistry* Registry
,AnsiString name, TColor color)
......@@ -1755,28 +1755,30 @@ void __fastcall TMainForm::StartupTimerTick(TObject *Sender)
if(Registry->ValueExists("WebFormPage"))
WebFormPage=Registry->ReadInteger("WebFormPage");
TelnetForm->Log->Color=ReadColor(Registry,"TelnetLog");
TelnetForm->Log->Color=ReadColor(Registry,"TelnetLog",TelnetForm->Log->Color);
ReadFont("TelnetLog",TelnetForm->Log->Font);
EventsForm->Log->Color=ReadColor(Registry,"EventsLog");
EventsForm->Log->Color=ReadColor(Registry,"EventsLog",EventsForm->Log->Color);
ReadFont("EventsLog",EventsForm->Log->Font);
ServicesForm->Log->Color=ReadColor(Registry,"ServicesLog");
ServicesForm->Log->Color=ReadColor(Registry,"ServicesLog",ServicesForm->Log->Color);
ReadFont("ServicesLog",ServicesForm->Log->Font);
MailForm->Log->Color=ReadColor(Registry,"MailLog");
MailForm->Log->Color=ReadColor(Registry,"MailLog",MailForm->Log->Color);
ReadFont("MailLog",MailForm->Log->Font);
FtpForm->Log->Color=ReadColor(Registry,"FtpLog");
FtpForm->Log->Color=ReadColor(Registry,"FtpLog",FtpForm->Log->Color);
ReadFont("FtpLog",FtpForm->Log->Font);
WebForm->Log->Color=ReadColor(Registry,"WebLog");
WebForm->Log->Color=ReadColor(Registry,"WebLog",WebForm->Log->Color);
ReadFont("WebLog",WebForm->Log->Font);
NodeForm->ListBox->Color=ReadColor(Registry,"NodeList");
NodeForm->ListBox->Color=ReadColor(Registry,"NodeList",NodeForm->ListBox->Color);
ReadFont("NodeList",NodeForm->ListBox->Font);
ClientForm->ListView->Color=ReadColor(Registry,"ClientList");
ClientForm->ListView->Color=ReadColor(Registry,"ClientList",ClientForm->ListView->Color);
ReadFont("ClientList",ClientForm->ListView->Font);
{
int i;
for(i=LOG_EMERG; i<=LOG_DEBUG; i++)
ReadFont("Log" + AnsiString(LogLevelDesc[i]), LogFont[i]);
for(i=LOG_EMERG; i<=LOG_DEBUG; i++) {
if(i != LOG_INFO)
ReadFont("Log" + AnsiString(LogLevelDesc[i]), LogFont[i]);
}
}
if(Registry->ValueExists("TelnetFormTop"))
......@@ -2241,8 +2243,10 @@ void __fastcall TMainForm::SaveRegistrySettings(TObject* Sender)
{
int i;
for(i=LOG_EMERG;i<=LOG_DEBUG;i++)
WriteFont("Log" + AnsiString(LogLevelDesc[i]), LogFont[i]);
for(i=LOG_EMERG;i<=LOG_DEBUG;i++) {
if(i != LOG_INFO)
WriteFont("Log" + AnsiString(LogLevelDesc[i]), LogFont[i]);
}
}
Registry->WriteBool("ToolBarVisible",Toolbar->Visible);
......@@ -2358,7 +2362,7 @@ void __fastcall TMainForm::ExportFont(TMemIniFile* IniFile, const char* section,
void __fastcall TMainForm::ImportSettings(TObject* Sender)
{
OpenDialog->Filter="Settings files (*.ini)|*.ini|All files|*.*";
OpenDialog->FileName=AnsiString(global.ctrl_dir)+"sbbsctrl.ini";
OpenDialog->FileName=AnsiString(global.ctrl_dir)+"sbbsctrl*.ini";
if(!OpenDialog->Execute())
return;
......@@ -2429,6 +2433,15 @@ void __fastcall TMainForm::ImportSettings(TObject* Sender)
=IniFile->ReadInteger(section,str,0);
}
{
int i;
for(i=LOG_EMERG; i<=LOG_DEBUG; i++) {
if(i != LOG_INFO)
ImportFont(IniFile, ("Log" + AnsiString(LogLevelDesc[i]) + "Font").c_str(), "", LogFont[i]);
}
}
section = "SpyTerminal";
SpyTerminalWidth=IniFile->ReadInteger(section, "Width", SpyTerminalWidth);
SpyTerminalHeight=IniFile->ReadInteger(section, "Height", SpyTerminalHeight);
......@@ -2513,6 +2526,15 @@ void __fastcall TMainForm::ExportSettings(TObject* Sender)
ExportFont(IniFile,section,"LogFont",WebForm->Log->Font);
IniFile->WriteString(section,"LogColor",ColorToString(WebForm->Log->Color));
{
int i;
for(i=LOG_EMERG; i<=LOG_DEBUG; i++) {
if(i != LOG_INFO)
ExportFont(IniFile, ("Log" + AnsiString(LogLevelDesc[i]) + "Font").c_str(), "", LogFont[i]);
}
}
section = "SpyTerminal";
IniFile->WriteInteger(section, "Width"
,SpyTerminalWidth);
......
......@@ -493,7 +493,7 @@ public: // User declarations
int __fastcall PageNum(TPageControl* obj);
void __fastcall FormMinimize(TObject *Sender);
void __fastcall DisplayMainPanels(TObject *Sender);
TColor __fastcall ReadColor(TRegistry*, AnsiString);
TColor __fastcall ReadColor(TRegistry*, AnsiString, TColor);
void __fastcall WriteColor(TRegistry*, AnsiString, TColor);
void __fastcall ReadFont(AnsiString, TFont*);
void __fastcall WriteFont(AnsiString, TFont*);
......
......@@ -10,7 +10,7 @@ object NodeForm: TNodeForm
DragKind = dkDock
DragMode = dmAutomatic
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
......@@ -114,6 +114,7 @@ object NodeForm: TNodeForm
MultiSelect = True
PopupMenu = PopupMenu
TabOrder = 1
Color = clBlack
end
object Timer: TTimer
OnTimer = TimerTick
......
......@@ -127,8 +127,9 @@ object ServicesForm: TServicesForm
Width = 721
Height = 144
Align = alClient
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
......
......@@ -152,8 +152,9 @@ object TelnetForm: TTelnetForm
Width = 575
Height = 150
Align = alClient
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
......
......@@ -148,8 +148,9 @@ object WebForm: TWebForm
Width = 446
Height = 165
Align = alClient
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Color = clWhite
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
......