Return to previewformunit.cpp CVS log

Up to [Synchronet] / sbbs / src / sbbs3 / ctrl

3.14a

/* $Id: previewformunit.cpp,v 1.1.1.1 2018/04/24 16:41:24 root Exp $ */

/****************************************************************************
 * @format.tab-size 4		(Plain Text/Source Code File Header)			*
 * @format.use-tabs true	(see http://www.synchro.net/ptsc_hdr.html)		*
 *																			*
 * Copyright 2005 Rob Swindell - http://www.synchro.net/copyright.html		*
 *																			*
 * This program is free software; you can redistribute it and/or			*
 * modify it under the terms of the GNU General Public License				*
 * as published by the Free Software Foundation; either version 2			*
 * of the License, or (at your option) any later version.					*
 * See the GNU General Public License for more details: gpl.txt or			*
 * http://www.fsf.org/copyleft/gpl.html										*
 *																			*
 * Anonymous FTP access to the most recent released source is available at	*
 * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net	*
 *																			*
 * Anonymous CVS access to the development source and modification history	*
 * is available at cvs.synchro.net:/cvsroot/sbbs, example:					*
 * cvs -d :pserver:[email protected]:/cvsroot/sbbs login			*
 *     (just hit return, no password is necessary)							*
 * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src		*
 *																			*
 * For Synchronet coding style and modification guidelines, see				*
 * http://www.synchro.net/source.html										*
 *																			*
 * You are encouraged to submit any modifications (preferably in Unix diff	*
 * format) via e-mail to [email protected]									*
 *																			*
 * Note: If this box doesn't appear square, then you need to fix your tabs.	*
 ****************************************************************************/

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MainFormUnit.h"
#include "PreviewFormUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TPreviewForm *PreviewForm;
//---------------------------------------------------------------------------
__fastcall TPreviewForm::TPreviewForm(TComponent* Owner)
	: TForm(Owner)
{
    Width=MainForm->SpyTerminalWidth;
    Height=MainForm->SpyTerminalHeight;
    Terminal = new TEmulVT(this);
    Terminal->Parent=this;
    Terminal->Align=alClient;
    Terminal->Rows=MAX_ROW;
    Terminal->Font=MainForm->SpyTerminalFont;
    Terminal->AutoWrap=true;
    ActiveControl=Terminal;
}
//---------------------------------------------------------------------------
__fastcall TPreviewForm::~TPreviewForm()
{
	delete Terminal;
}


#define ANSI_ESC "\x1b["

//---------------------------------------------------------------------------
void __fastcall TPreviewForm::FormShow(TObject *Sender)
{
	char str[128];

	Caption="Previewing " + Filename.UpperCase();

    Terminal->Clear();

    FILE* fp=fopen(Filename.c_str(),"rb");

    if(fp==NULL)
	    return;

    int ch;
	while(!feof(fp)) {
    	ch=fgetc(fp);
        if(ch==EOF)
        	break;
		if(ch==1) { /* ctrl-a */
			ch=fgetc(fp);
			if(ch==EOF)
				break;
			switch(toupper(ch)) {
				case 'A':
					sprintf(str,"\1");
					break;
				case '<':
					sprintf(str,"\b");
					break;
				case '>':
					sprintf(str,ANSI_ESC"K");
					break;
				case '[':
					sprintf(str,"\r");
					break;
				case ']':
					sprintf(str,"\n");
					break;
				case 'L':
					sprintf(str,ANSI_ESC"2J");
					break;
				case '-':
				case '_':
				case 'N':
					sprintf(str,ANSI_ESC"0m");
					break;
				case 'H':
					sprintf(str,ANSI_ESC"1m");
					break;
				case 'I':
					sprintf(str,ANSI_ESC"5m");
					break;
				case 'K':
					sprintf(str,ANSI_ESC"30m");
					break;
				case 'R':
					sprintf(str,ANSI_ESC"31m");
					break;
				case 'G':
					sprintf(str,ANSI_ESC"32m");
					break;
				case 'Y':
					sprintf(str,ANSI_ESC"33m");
					break;
				case 'B':
					sprintf(str,ANSI_ESC"34m");
					break;
				case 'M':
					sprintf(str,ANSI_ESC"35m");
					break;
				case 'C':
					sprintf(str,ANSI_ESC"36m");
					break;
				case 'W':
					sprintf(str,ANSI_ESC"37m");
					break;
				case '0':
					sprintf(str,ANSI_ESC"40m");
					break;
				case '1':
					sprintf(str,ANSI_ESC"41m");
					break;
				case '2':
					sprintf(str,ANSI_ESC"42m");
					break;
				case '3':
					sprintf(str,ANSI_ESC"43m");
					break;
				case '4':
					sprintf(str,ANSI_ESC"44m");
					break;
				case '5':
					sprintf(str,ANSI_ESC"45m");
					break;
				case '6':
					sprintf(str,ANSI_ESC"46m");
					break;
				case '7':
					sprintf(str,ANSI_ESC"47m");
					break;
                case '.':
                case ',':
                case ';':
                	/* ignore delay codes */
                	continue;
				default:
                    if(ch>=0x7f) 	/* move cursor right x columns */
                        sprintf(str,ANSI_ESC"%uC",ch-0x7f);
                    else
						sprintf(str,"\1%c",ch);
					break;
			}
            Terminal->WriteBuffer(str,strlen(str));
		}
		else
			Terminal->WriteBuffer(&ch,1);
    }
    fclose(fp);
}
//---------------------------------------------------------------------------
void __fastcall TPreviewForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    MainForm->SpyTerminalWidth=Width;
    MainForm->SpyTerminalHeight=Height;

}
//---------------------------------------------------------------------------
void __fastcall TPreviewForm::ChangeFontMenuItemClick(TObject *Sender)
{
	TFontDialog *FontDialog=new TFontDialog(this);

    FontDialog->Font=MainForm->SpyTerminalFont;
    FontDialog->Execute();
    MainForm->SpyTerminalFont->Assign(FontDialog->Font);
    Terminal->Font=MainForm->SpyTerminalFont;
    delete FontDialog;
    Terminal->UpdateScreen();
}
//---------------------------------------------------------------------------

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