Return to mailformunit.cpp CVS log

Up to [Synchronet] / sbbs / sbbs3 / ctrl

Annotation of sbbs/sbbs3/ctrl/mailformunit.cpp, revision 1.1.1.1

1.1       root        1: /* Synchronet Control Panel (GUI Borland C++ Builder Project for Win32) */
                      2: 
                      3: /* $Id: MailFormUnit.cpp,v 1.1.1.1 2000/10/10 11:26:56 rswindell Exp $ */
                      4: 
                      5: /****************************************************************************
                      6:  * @format.tab-size 4          (Plain Text/Source Code File Header)                    *
                      7:  * @format.use-tabs true       (see http://www.synchro.net/ptsc_hdr.html)              *
                      8:  *                                                                                                                                                     *
                      9:  * Copyright 2000 Rob Swindell - http://www.synchro.net/copyright.html         *
                     10:  *                                                                                                                                                     *
                     11:  * This program is free software; you can redistribute it and/or                       *
                     12:  * modify it under the terms of the GNU General Public License                         *
                     13:  * as published by the Free Software Foundation; either version 2                      *
                     14:  * of the License, or (at your option) any later version.                                      *
                     15:  * See the GNU General Public License for more details: gpl.txt or                     *
                     16:  * http://www.fsf.org/copyleft/gpl.html                                                                                *
                     17:  *                                                                                                                                                     *
                     18:  * Anonymous FTP access to the most recent released source is available at     *
                     19:  * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net     *
                     20:  *                                                                                                                                                     *
                     21:  * Anonymous CVS access to the development source and modification history     *
                     22:  * is available at cvs.synchro.net:/cvsroot/sbbs, example:                                     *
                     23:  * cvs -d :pserver:[email protected]:/cvsroot/sbbs login                       *
                     24:  *     (just hit return, no password is necessary)                                                     *
                     25:  * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src                *
                     26:  *                                                                                                                                                     *
                     27:  * For Synchronet coding style and modification guidelines, see                                *
                     28:  * http://www.synchro.net/source.html                                                                          *
                     29:  *                                                                                                                                                     *
                     30:  * You are encouraged to submit any modifications (preferably in Unix diff     *
                     31:  * format) via e-mail to [email protected]                                                                      *
                     32:  *                                                                                                                                                     *
                     33:  * Note: If this box doesn't appear square, then you need to fix your tabs.    *
                     34:  ****************************************************************************/
                     35: 
                     36: //---------------------------------------------------------------------------
                     37: #include <vcl.h>
                     38: #pragma hdrstop
                     39: 
                     40: #include "MailFormUnit.h"
                     41: //---------------------------------------------------------------------------
                     42: #pragma package(smart_init)
                     43: #pragma resource "*.dfm"
                     44: TMailForm *MailForm;
                     45: //---------------------------------------------------------------------------
                     46: __fastcall TMailForm::TMailForm(TComponent* Owner)
                     47:        : TForm(Owner)
                     48: {
                     49:        MainForm=(TMainForm*)Application->MainForm;
                     50: //     ManualDock(MainForm->Panel, MainForm->Panel, alClient);
                     51: 
                     52: }
                     53: //---------------------------------------------------------------------------
                     54: void __fastcall TMailForm::FormShow(TObject *Sender)
                     55: {
                     56:        MainForm->ViewMailServerMenuItem->Checked=true;
                     57:        MainForm->ViewMailServerButton->Down=true;
                     58: }
                     59: //---------------------------------------------------------------------------
                     60: void __fastcall TMailForm::FormHide(TObject *Sender)
                     61: {
                     62:        MainForm->ViewMailServerMenuItem->Checked=false;
                     63:        MainForm->ViewMailServerButton->Down=false;
                     64: }
                     65: //---------------------------------------------------------------------------
                     66: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.