Skip to content
Snippets Groups Projects
Commit 8501fce4 authored by rswindell's avatar rswindell
Browse files

Add missing LogColor keys and [WebForm] section to export settings.

parent 2ec4ea6a
No related branches found
No related tags found
No related merge requests found
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
* @format.tab-size 4 (Plain Text/Source Code File Header) * * @format.tab-size 4 (Plain Text/Source Code File Header) *
* @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) * * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) *
* * * *
* Copyright 2007 Rob Swindell - http://www.synchro.net/copyright.html * * Copyright 2008 Rob Swindell - http://www.synchro.net/copyright.html *
* * * *
* This program is free software; you can redistribute it and/or * * This program is free software; you can redistribute it and/or *
* modify it under the terms of the GNU General Public License * * modify it under the terms of the GNU General Public License *
...@@ -2735,18 +2735,27 @@ void __fastcall TMainForm::ExportSettings(TObject* Sender) ...@@ -2735,18 +2735,27 @@ void __fastcall TMainForm::ExportSettings(TObject* Sender)
ExportFormSettings(IniFile,section = "TelnetForm",TelnetForm); ExportFormSettings(IniFile,section = "TelnetForm",TelnetForm);
ExportFont(IniFile,section,"LogFont",TelnetForm->Log->Font); ExportFont(IniFile,section,"LogFont",TelnetForm->Log->Font);
IniFile->WriteString(section,"LogColor",ColorToString(TelnetForm->Log->Color));
ExportFormSettings(IniFile,section = "EventsForm",EventsForm); ExportFormSettings(IniFile,section = "EventsForm",EventsForm);
ExportFont(IniFile,section,"LogFont",EventsForm->Log->Font); ExportFont(IniFile,section,"LogFont",EventsForm->Log->Font);
IniFile->WriteString(section,"LogColor",ColorToString(EventsForm->Log->Color));
ExportFormSettings(IniFile,section = "ServicesForm",ServicesForm); ExportFormSettings(IniFile,section = "ServicesForm",ServicesForm);
ExportFont(IniFile,section,"LogFont",ServicesForm->Log->Font); ExportFont(IniFile,section,"LogFont",ServicesForm->Log->Font);
IniFile->WriteString(section,"LogColor",ColorToString(ServicesForm->Log->Color));
ExportFormSettings(IniFile,section = "FtpForm",FtpForm); ExportFormSettings(IniFile,section = "FtpForm",FtpForm);
ExportFont(IniFile,section,"LogFont",FtpForm->Log->Font); ExportFont(IniFile,section,"LogFont",FtpForm->Log->Font);
IniFile->WriteString(section,"LogColor",ColorToString(FtpForm->Log->Color));
ExportFormSettings(IniFile,section = "MailForm",MailForm); ExportFormSettings(IniFile,section = "MailForm",MailForm);
ExportFont(IniFile,section,"LogFont",MailForm->Log->Font); ExportFont(IniFile,section,"LogFont",MailForm->Log->Font);
IniFile->WriteString(section,"LogColor",ColorToString(MailForm->Log->Color));
ExportFormSettings(IniFile,section = "WebForm",WebForm);
ExportFont(IniFile,section,"LogFont",WebForm->Log->Font);
IniFile->WriteString(section,"LogColor",ColorToString(WebForm->Log->Color));
section = "SpyTerminal"; section = "SpyTerminal";
IniFile->WriteInteger(section, "Width" IniFile->WriteInteger(section, "Width"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment