![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to previewformunit.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 previewformunit.cpp CVS log | Up to [Synchronet] / sbbs / src / sbbs3 / ctrl |
1.1 root 1: /* $Id: PreviewFormUnit.cpp,v 1.4 2005/10/12 08:25:03 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:
36: #include <vcl.h>
37: #pragma hdrstop
38:
39: #include "MainFormUnit.h"
40: #include "PreviewFormUnit.h"
41: //---------------------------------------------------------------------------
42: #pragma package(smart_init)
43: #pragma resource "*.dfm"
44: TPreviewForm *PreviewForm;
45: //---------------------------------------------------------------------------
46: __fastcall TPreviewForm::TPreviewForm(TComponent* Owner)
47: : TForm(Owner)
48: {
49: Width=MainForm->SpyTerminalWidth;
50: Height=MainForm->SpyTerminalHeight;
51: Terminal = new TEmulVT(this);
52: Terminal->Parent=this;
53: Terminal->Align=alClient;
54: Terminal->Rows=MAX_ROW;
55: Terminal->Font=MainForm->SpyTerminalFont;
56: Terminal->AutoWrap=true;
57: ActiveControl=Terminal;
58: }
59: //---------------------------------------------------------------------------
60: __fastcall TPreviewForm::~TPreviewForm()
61: {
62: delete Terminal;
63: }
64:
65:
66: #define ANSI_ESC "\x1b["
67:
68: //---------------------------------------------------------------------------
69: void __fastcall TPreviewForm::FormShow(TObject *Sender)
70: {
71: char str[128];
72:
73: Caption="Previewing " + Filename.UpperCase();
74:
75: Terminal->Clear();
76:
77: FILE* fp=fopen(Filename.c_str(),"rb");
78:
79: if(fp==NULL)
80: return;
81:
82: int ch;
83: while(!feof(fp)) {
84: ch=fgetc(fp);
85: if(ch==EOF)
86: break;
87: if(ch==1) { /* ctrl-a */
88: ch=fgetc(fp);
89: if(ch==EOF)
90: break;
91: switch(toupper(ch)) {
92: case 'A':
93: sprintf(str,"\1");
94: break;
95: case '<':
96: sprintf(str,"\b");
97: break;
98: case '>':
99: sprintf(str,ANSI_ESC"K");
100: break;
101: case '[':
102: sprintf(str,"\r");
103: break;
104: case ']':
105: sprintf(str,"\n");
106: break;
107: case 'L':
108: sprintf(str,ANSI_ESC"2J");
109: break;
110: case '-':
111: case '_':
112: case 'N':
113: sprintf(str,ANSI_ESC"0m");
114: break;
115: case 'H':
116: sprintf(str,ANSI_ESC"1m");
117: break;
118: case 'I':
119: sprintf(str,ANSI_ESC"5m");
120: break;
121: case 'K':
122: sprintf(str,ANSI_ESC"30m");
123: break;
124: case 'R':
125: sprintf(str,ANSI_ESC"31m");
126: break;
127: case 'G':
128: sprintf(str,ANSI_ESC"32m");
129: break;
130: case 'Y':
131: sprintf(str,ANSI_ESC"33m");
132: break;
133: case 'B':
134: sprintf(str,ANSI_ESC"34m");
135: break;
136: case 'M':
137: sprintf(str,ANSI_ESC"35m");
138: break;
139: case 'C':
140: sprintf(str,ANSI_ESC"36m");
141: break;
142: case 'W':
143: sprintf(str,ANSI_ESC"37m");
144: break;
145: case '0':
146: sprintf(str,ANSI_ESC"40m");
147: break;
148: case '1':
149: sprintf(str,ANSI_ESC"41m");
150: break;
151: case '2':
152: sprintf(str,ANSI_ESC"42m");
153: break;
154: case '3':
155: sprintf(str,ANSI_ESC"43m");
156: break;
157: case '4':
158: sprintf(str,ANSI_ESC"44m");
159: break;
160: case '5':
161: sprintf(str,ANSI_ESC"45m");
162: break;
163: case '6':
164: sprintf(str,ANSI_ESC"46m");
165: break;
166: case '7':
167: sprintf(str,ANSI_ESC"47m");
168: break;
169: case '.':
170: case ',':
171: case ';':
172: /* ignore delay codes */
173: continue;
174: default:
175: if(ch>=0x7f) /* move cursor right x columns */
176: sprintf(str,ANSI_ESC"%uC",ch-0x7f);
177: else
178: sprintf(str,"\1%c",ch);
179: break;
180: }
181: Terminal->WriteBuffer(str,strlen(str));
182: }
183: else
184: Terminal->WriteBuffer(&ch,1);
185: }
186: fclose(fp);
187: }
188: //---------------------------------------------------------------------------
189: void __fastcall TPreviewForm::FormClose(TObject *Sender,
190: TCloseAction &Action)
191: {
192: MainForm->SpyTerminalWidth=Width;
193: MainForm->SpyTerminalHeight=Height;
194:
195: }
196: //---------------------------------------------------------------------------
197: void __fastcall TPreviewForm::ChangeFontMenuItemClick(TObject *Sender)
198: {
199: TFontDialog *FontDialog=new TFontDialog(this);
200:
201: FontDialog->Font=MainForm->SpyTerminalFont;
202: FontDialog->Execute();
203: MainForm->SpyTerminalFont->Assign(FontDialog->Font);
204: Terminal->Font=MainForm->SpyTerminalFont;
205: delete FontDialog;
206: Terminal->UpdateScreen();
207: }
208: //---------------------------------------------------------------------------
209:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.