mmsstv/TextEdit.cpp

//Copyright+LGPL

//-----------------------------------------------------------------------------------------------------------------------------------------------
// Copyright 2000-2013 Makoto Mori, Nobuyuki Oba
//-----------------------------------------------------------------------------------------------------------------------------------------------
// This file is part of MMSSTV.

// MMSSTV is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License
// as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.

// MMSSTV is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of 
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public License for more details.

// You should have received a copy of the GNU Lesser General Public License along with MMTTY.  If not, see 
// <http://www.gnu.org/licenses/>.
//-----------------------------------------------------------------------------------------------------------------------------------------------



//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "ComLib.h"
#include "TextEdit.h"
#include "Main.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
//TTextEditDlg *TextEditDlg;
//---------------------------------------------------------------------
__fastcall TTextEditDlg::TTextEditDlg(TComponent* AOwner)
	: TForm(AOwner)
{
	FormStyle = ((TForm *)AOwner)->FormStyle;
	ap = NULL;
	Memo->Font->Pitch = fpFixed;
	EntryAlignControl();
	Font->Name = ((TForm *)AOwner)->Font->Name;
	Font->Charset = ((TForm *)AOwner)->Font->Charset;
	if( MsgEng ){
		CancelBtn->Caption = "Cancel";
		FontBtn->Caption = "Font";
		Memo->Font->Name = "Courier New";
		Memo->Font->Charset = 0;
	}
}
//---------------------------------------------------------------------
int __fastcall TTextEditDlg::Execute(AnsiString &as, int flag, LPCSTR pTitle /* = NULL*/)
{
	CWaitCursor tw;
	ap = as.c_str();
	if( flag != TRUE ){
		OKBtn->Visible = FALSE;
		CancelBtn->Caption = MsgEng ? "Close":"<EFBFBD>‚<EFBFBD><EFBFBD><EFBFBD>";
		Memo->ReadOnly = TRUE;
	}
	if( pTitle != NULL ){
		Caption = pTitle;
	}
	tw.Delete();
	MultProc();
	int r = ShowModal();
	if( r == IDOK ){
		if( Memo->Modified == FALSE ) return FALSE;
		if( flag == TRUE ){
			as = Memo->Text;
		}
		return TRUE;
	}
	return FALSE;
}

void __fastcall TTextEditDlg::FontBtnClick(TObject *Sender)
{
	FontDialog->Font->Assign(Memo->Font);
	NormalWindow(this);
	SetDisPaint();
	if( FontDialog->Execute() == TRUE ){
		CWaitCursor tw;
		Memo->Font->Assign(FontDialog->Font);
		Memo->Update();
	}
	ResDisPaint();
	TopWindow(this);
}
//---------------------------------------------------------------------------
// <20>T<EFBFBD>C<EFBFBD>Y<EFBFBD>ύX<CF8D>R<EFBFBD><52><EFBFBD>g<EFBFBD><67><EFBFBD>[<5B><><EFBFBD>̓o<CC93>^
void __fastcall TTextEditDlg::EntryAlignControl(void)
{
	RECT	rc;
	rc.left = 0;
	rc.top = 0;
	rc.right = 792-1;
	rc.bottom = 572-1;

	AlignList.EntryControl(OKBtn, &rc, OKBtn->Font);
	AlignList.EntryControl(CancelBtn, &rc, CancelBtn->Font);
	AlignList.EntryControl(FontBtn, &rc, FontBtn->Font);
	AlignList.EntryControl(Memo, &rc, Memo->Font);

	int CX = ::GetSystemMetrics(SM_CXFULLSCREEN);
	int CY = ::GetSystemMetrics(SM_CYFULLSCREEN);
//	int CX = ::GetSystemMetrics(SM_CXSCREEN);
//	int CY = ::GetSystemMetrics(SM_CYSCREEN);
	if( (CX < Width)||(CY < Height) ){
		Top = 0;
		Left = 0;
		Width = CX;
		Height = CY;
	}
	FormCenter(this, CX, CY);
	if( Owner != NULL ){
		WindowState = ((TForm *)Owner)->WindowState;
	}
}
//---------------------------------------------------------------------------
void __fastcall TTextEditDlg::FormResize(TObject *Sender)
{
	CWaitCursor tw;
	AlignList.NewAlign(this);
}
//---------------------------------------------------------------------------
void __fastcall TTextEditDlg::FormPaint(TObject *Sender)
{
	if( ap == NULL ) return;
	CWaitCursor tw;
	Memo->Text = ap;
	ap = NULL;
	MultProc();
	Memo->Update();
}
//---------------------------------------------------------------------------
// <20>e<EFBFBD>L<EFBFBD>X<EFBFBD>g<EFBFBD>w<EFBFBD><77><EFBFBD>v<EFBFBD>̕\<5C><>
void __fastcall ShowHelp(TForm *pForm, LPCSTR pName, int sw)
{
	char	bf[2048];
	char	Name[256];
	FILE	*fp;
	BOOL	f = sw;

	sprintf(Name, "%s%s", BgnDir, pName);
	CWaitCursor w;
	if( (fp = fopen(Name, "rt"))!=NULL ){
		MultProc();
		if( sys.m_HelpNotePad ){
			fclose(fp);
			sprintf( bf, "NOTEPAD.EXE %s", Name);
			WinExec(bf, SW_SHOWDEFAULT);
		}
		else {
			AnsiString	in;
			int n = 0;
			while(!feof(fp)){
				if( fgets(bf, 2048, fp) != NULL ){
					ClipLF(bf);
                    if( (sw >= 0) && !memcmp(bf, "%%%Ja", 5) ){
						f = !sw;
                    }
					else if( (sw < 0) || f ){
						in += bf;
						in += "\r\n";
						n++;
						if( !(n % 64) ) MultProc();
                    }
				}
			}
			fclose(fp);
			MultProc();
			TTextEditDlg *Box = new TTextEditDlg(pForm);
			Box->Execute(in, FALSE, pName);
			delete Box;
		}
	}
	else {
		ErrorMB( MsgEng ? "'%s' was not found.\r\n\r\nProbably this file will be provided in the future." : "'%s'<27><><EFBFBD><EFBFBD><EFBFBD>‚<EFBFBD><C282><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD>.", Name);
	}
}
//---------------------------------------------------------------------------
// <20>e<EFBFBD>L<EFBFBD>X<EFBFBD>g<EFBFBD>w<EFBFBD><77><EFBFBD>v<EFBFBD>̕\<5C><>
void __fastcall ShowHelp(TForm *pForm, LPCSTR pName)
{
	ShowHelp(pForm, pName, -1);
}
//---------------------------------------------------------------------------