![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to propertiesdlgunit.cpp CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / src / sbbs3 / ctrl|
Return to propertiesdlgunit.cpp CVS log | Up to [Synchronet] / sbbs / src / sbbs3 / ctrl |
1.1 ! root 1: /* $Id: PropertiesDlgUnit.cpp,v 1.5 2005/04/26 08:46:42 rswindell Exp $ */ ! 2: ! 3: /**************************************************************************** ! 4: * @format.tab-size 4 (Plain Text/Source Code File Header) * ! 5: * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) * ! 6: * * ! 7: * Copyright 2005 Rob Swindell - http://www.synchro.net/copyright.html * ! 8: * * ! 9: * This program is free software; you can redistribute it and/or * ! 10: * modify it under the terms of the GNU General Public License * ! 11: * as published by the Free Software Foundation; either version 2 * ! 12: * of the License, or (at your option) any later version. * ! 13: * See the GNU General Public License for more details: gpl.txt or * ! 14: * http://www.fsf.org/copyleft/gpl.html * ! 15: * * ! 16: * Anonymous FTP access to the most recent released source is available at * ! 17: * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net * ! 18: * * ! 19: * Anonymous CVS access to the development source and modification history * ! 20: * is available at cvs.synchro.net:/cvsroot/sbbs, example: * ! 21: * cvs -d :pserver:[email protected]:/cvsroot/sbbs login * ! 22: * (just hit return, no password is necessary) * ! 23: * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src * ! 24: * * ! 25: * For Synchronet coding style and modification guidelines, see * ! 26: * http://www.synchro.net/source.html * ! 27: * * ! 28: * You are encouraged to submit any modifications (preferably in Unix diff * ! 29: * format) via e-mail to [email protected] * ! 30: * * ! 31: * Note: If this box doesn't appear square, then you need to fix your tabs. * ! 32: ****************************************************************************/ ! 33: ! 34: //--------------------------------------------------------------------- ! 35: #include <vcl.h> ! 36: #pragma hdrstop ! 37: ! 38: #include "NodeFormUnit.h" ! 39: #include "ClientFormUnit.h" ! 40: #include "TelnetFormUnit.h" ! 41: #include "EventsFormUnit.h" ! 42: #include "FtpFormUnit.h" ! 43: #include "WebFormUnit.h" ! 44: #include "MailFormUnit.h" ! 45: #include "ServicesFormUnit.h" ! 46: #include "PropertiesDlgUnit.h" ! 47: //--------------------------------------------------------------------- ! 48: #pragma resource "*.dfm" ! 49: TPropertiesDlg *PropertiesDlg; ! 50: //--------------------------------------------------------------------- ! 51: __fastcall TPropertiesDlg::TPropertiesDlg(TComponent* AOwner) ! 52: : TForm(AOwner) ! 53: { ! 54: } ! 55: //--------------------------------------------------------------------- ! 56: void __fastcall TPropertiesDlg::FormShow(TObject *Sender) ! 57: { ! 58: TrayIconCheckBoxClick(Sender); ! 59: PageControl->ActivePage=SettingsTabSheet; ! 60: SourceComboBoxChange(Sender); ! 61: } ! 62: //--------------------------------------------------------------------------- ! 63: ! 64: void __fastcall TPropertiesDlg::TrayIconCheckBoxClick(TObject *Sender) ! 65: { ! 66: PasswordEdit->Enabled=TrayIconCheckBox->Checked; ! 67: PasswordLabel->Enabled=PasswordEdit->Enabled; ! 68: } ! 69: //--------------------------------------------------------------------------- ! 70: ! 71: void __fastcall TPropertiesDlg::SourceComboBoxChange(TObject *Sender) ! 72: { ! 73: TargetComboBox->ItemIndex=SourceComboBox->ItemIndex; ! 74: switch(SourceComboBox->ItemIndex) { ! 75: case 0: /* Node List */ ! 76: ExampleEdit->Font=NodeForm->ListBox->Font; ! 77: ExampleEdit->Color=NodeForm->ListBox->Color; ! 78: break; ! 79: case 1: /* Client List */ ! 80: ExampleEdit->Font=ClientForm->ListView->Font; ! 81: ExampleEdit->Color=ClientForm->ListView->Color; ! 82: break; ! 83: case 2: /* Telnet Server Log */ ! 84: ExampleEdit->Font=TelnetForm->Log->Font; ! 85: ExampleEdit->Color=TelnetForm->Log->Color; ! 86: break; ! 87: case 3: /* Events Log */ ! 88: ExampleEdit->Font=EventsForm->Log->Font; ! 89: ExampleEdit->Color=EventsForm->Log->Color; ! 90: break; ! 91: case 4: /* FTP Server Log */ ! 92: ExampleEdit->Font=FtpForm->Log->Font; ! 93: ExampleEdit->Color=FtpForm->Log->Color; ! 94: break; ! 95: case 5: /* Mail Server Log */ ! 96: ExampleEdit->Font=MailForm->Log->Font; ! 97: ExampleEdit->Color=MailForm->Log->Color; ! 98: break; ! 99: case 6: /* Web Server Log */ ! 100: ExampleEdit->Font=WebForm->Log->Font; ! 101: ExampleEdit->Color=WebForm->Log->Color; ! 102: break; ! 103: case 7: /* Services Log */ ! 104: ExampleEdit->Font=ServicesForm->Log->Font; ! 105: ExampleEdit->Color=ServicesForm->Log->Color; ! 106: break; ! 107: } ! 108: } ! 109: //--------------------------------------------------------------------------- ! 110: ! 111: void __fastcall TPropertiesDlg::FontButtonClick(TObject *Sender) ! 112: { ! 113: TFontDialog *FontDialog=new TFontDialog(this); ! 114: ! 115: FontDialog->Font=ExampleEdit->Font; ! 116: if(FontDialog->Execute()) ! 117: ExampleEdit->Font->Assign(FontDialog->Font); ! 118: delete FontDialog; ! 119: } ! 120: //--------------------------------------------------------------------------- ! 121: ! 122: void __fastcall TPropertiesDlg::BackgroundButtonClick(TObject *Sender) ! 123: { ! 124: TColorDialog* ColorDialog=new TColorDialog(this); ! 125: ! 126: ColorDialog->Options << cdPreventFullOpen; ! 127: ColorDialog->Color=ExampleEdit->Color; ! 128: if(ColorDialog->Execute()) ! 129: ExampleEdit->Color=ColorDialog->Color; ! 130: delete ColorDialog; ! 131: } ! 132: //--------------------------------------------------------------------------- ! 133: void __fastcall TPropertiesDlg::ChangeScheme(int target) ! 134: { ! 135: switch(target) { ! 136: case 0: /* Node List */ ! 137: NodeForm->ListBox->Font=ExampleEdit->Font; ! 138: NodeForm->ListBox->Color=ExampleEdit->Color; ! 139: break; ! 140: case 1: /* Client List */ ! 141: ClientForm->ListView->Font=ExampleEdit->Font; ! 142: ClientForm->ListView->Color=ExampleEdit->Color; ! 143: break; ! 144: case 2: /* Telnet Server Log */ ! 145: TelnetForm->Log->Font=ExampleEdit->Font; ! 146: TelnetForm->Log->Color=ExampleEdit->Color; ! 147: break; ! 148: case 3: /* Events Log */ ! 149: EventsForm->Log->Font=ExampleEdit->Font; ! 150: EventsForm->Log->Color=ExampleEdit->Color; ! 151: break; ! 152: case 4: /* FTP Server Log */ ! 153: FtpForm->Log->Font=ExampleEdit->Font; ! 154: FtpForm->Log->Color=ExampleEdit->Color; ! 155: break; ! 156: case 5: /* Mail Server Log */ ! 157: MailForm->Log->Font=ExampleEdit->Font; ! 158: MailForm->Log->Color=ExampleEdit->Color; ! 159: break; ! 160: case 6: /* Web Server Log */ ! 161: WebForm->Log->Font=ExampleEdit->Font; ! 162: WebForm->Log->Color=ExampleEdit->Color; ! 163: break; ! 164: case 7: /* Services Log */ ! 165: ServicesForm->Log->Font=ExampleEdit->Font; ! 166: ServicesForm->Log->Color=ExampleEdit->Color; ! 167: break; ! 168: } ! 169: } ! 170: //--------------------------------------------------------------------------- ! 171: void __fastcall TPropertiesDlg::ApplyButtonClick(TObject *Sender) ! 172: { ! 173: if(TargetComboBox->ItemIndex==SourceComboBox->Items->Count) { ! 174: for(int i=0;i<SourceComboBox->Items->Count;i++) ! 175: ChangeScheme(i); ! 176: } else ! 177: ChangeScheme(TargetComboBox->ItemIndex); ! 178: } ! 179: //--------------------------------------------------------------------------- ! 180:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.