![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to statsformunit.cpp CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / sbbs3 / ctrl|
Return to statsformunit.cpp CVS log | Up to [Synchronet] / sbbs / sbbs3 / ctrl |
1.1 root 1: /* Synchronet Control Panel (GUI Borland C++ Builder Project for Win32) */
2:
3: /* $Id: StatsFormUnit.cpp,v 1.1.1.1 2000/10/10 11:26:34 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 "StatsFormUnit.h"
41: #include "StatsLogFormUnit.h"
42: //---------------------------------------------------------------------------
43: #pragma package(smart_init)
44: #pragma resource "*.dfm"
45: TStatsForm *StatsForm;
46: //---------------------------------------------------------------------------
47: __fastcall TStatsForm::TStatsForm(TComponent* Owner)
48: : TForm(Owner)
49: {
50: // OutputDebugString("StatsForm constructor\n");
51:
52: MainForm=(TMainForm*)Application->MainForm;
53: }
54: //---------------------------------------------------------------------------
55: void __fastcall TStatsForm::FormShow(TObject *Sender)
56: {
57: // OutputDebugString("StatsForm::FormShow\n");
58:
59: MainForm->ViewStatsMenuItem->Checked=true;
60: MainForm->ViewStatsButton->Down=true;
61: }
62: //---------------------------------------------------------------------------
63:
64: void __fastcall TStatsForm::FormHide(TObject *Sender)
65: {
66: MainForm->ViewStatsMenuItem->Checked=false;
67: MainForm->ViewStatsButton->Down=false;
68: }
69: //---------------------------------------------------------------------------
70:
71:
72: void __fastcall TStatsForm::LogButtonClick(TObject *Sender)
73: {
74: Application->CreateForm(__classid(TStatsLogForm), &StatsLogForm);
75: StatsLogForm->ShowModal();
76: delete StatsLogForm;
77: }
78: //---------------------------------------------------------------------------
79:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.