mmsstv/JASTA/FEdit.cpp

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

#include "FEdit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFileEdit *FileEdit;
//---------------------------------------------------------------------------
__fastcall TFileEdit::TFileEdit(TComponent* Owner)
	: TForm(Owner)
{
	m_FileName = "";
	REdit->Font->Pitch = fpFixed;
	if( MsgEng ){
		REdit->Font->Name = "Courier New";
		REdit->Font->Charset = 0;
	}
	else {
		REdit->Font->Name = "<EFBFBD>l<EFBFBD>r <20>S<EFBFBD>V<EFBFBD>b<EFBFBD>N";
		REdit->Font->Charset = SHIFTJIS_CHARSET;

		KF->Caption = "<EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43>(&F)";
		KFN->Caption = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɐ؂<EFBFBD><EFBFBD>ւ<EFBFBD>(&N)";
		KFX->Caption = "<EFBFBD>I<EFBFBD><EFBFBD>(&X)";
		KE->Caption = "<EFBFBD>ҏW(&E)";
		KFA->Caption = "<EFBFBD><EFBFBD><EFBFBD>O<EFBFBD><EFBFBD><EFBFBD>t<EFBFBD><EFBFBD><EFBFBD>ĕۑ<EFBFBD>(&A)...";
		KEU->Caption = "<EFBFBD><EFBFBD><EFBFBD>ɖ߂<EFBFBD>(&U)";
		KEC->Caption = "<EFBFBD>؂<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(&T)";
		KECP->Caption = "<EFBFBD>R<EFBFBD>s<EFBFBD>[(&C)";
		KEP->Caption = "<EFBFBD>\<EFBFBD><EFBFBD><EFBFBD>t<EFBFBD><EFBFBD>(&P)";
		KEA->Caption = "<EFBFBD><EFBFBD><EFBFBD>ׂđI<EFBFBD><EFBFBD>(&L)";
		KS->Caption = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>(&S)";
		KSS->Caption = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>(&F)...";
		KSN->Caption = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(&N)";
	}
	for( int i = 0; i < KE->Count; i++ ){
		TMenuItem *pMenu = new TMenuItem(this);
		pMenu->Caption = KE->Items[i]->Caption;
		pMenu->OnClick = KE->Items[i]->OnClick;
		PopupMenu->Items->Add(pMenu);
	}
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::Execute(LPCSTR pName)
{
	Caption = pName;
	CWaitCursor tw;
	m_FileName = pName;
	REdit->Lines->LoadFromFile(pName);
	REdit->Modified = FALSE;
	Show();
}
//---------------------------------------------------------------------
void __fastcall TFileEdit::FormCloseQuery(TObject *Sender, bool &CanClose)
{
	if( REdit->Modified ){
		int r = YesNoCancelMB(MsgEng ? "Overwrite to the file (%s) ?" : "<EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43> (%s) <20>ɏ㏑<C98F><E38F91><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD>?", m_FileName.c_str());
		switch(r){
			case IDYES:
				{
					CWaitCursor w;
					REdit->Lines->SaveToFile(m_FileName);
				}
				break;
			case IDCANCEL:
				CanClose = FALSE;
				return;
		}
	}
	CanClose = TRUE;
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::KECClick(TObject *Sender)
{
	REdit->CutToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::KECPClick(TObject *Sender)
{
	REdit->CopyToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::KEPClick(TObject *Sender)
{
	REdit->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::KEUClick(TObject *Sender)
{
	if( REdit->HandleAllocated() ){
		SendMessage(REdit->Handle, EM_UNDO, 0, 0);
	}
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::KEAClick(TObject *Sender)
{
	REdit->SelectAll();
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::KEClick(TObject *Sender)
{
	KEU->Enabled = REdit->Modified;
	KEC->Enabled = REdit->SelLength;
	KECP->Enabled = KEC->Enabled;
	KEP->Enabled = ::IsClipboardFormatAvailable(CF_TEXT);
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::KFAClick(TObject *Sender)
{
	AnsiString  FileName = m_FileName.c_str();
	SetEXT(FileName.c_str(), "");
	LPCSTR pEXT = GetEXT(m_FileName.c_str());
	SaveDialog->FileName = FileName;
	SaveDialog->DefaultExt = pEXT;
	if( !strcmpi(pEXT, "SUM") ) SaveDialog->FilterIndex = 2;
	if( !strcmpi(pEXT, "CHK") ) SaveDialog->FilterIndex = 3;
	if( !strcmpi(pEXT, "ANA") ) SaveDialog->FilterIndex = 4;
	if( SaveDialog->Execute() ) {
		// Options + OverwritePrompt = True thus no need to check.
		REdit->Lines->SaveToFile(SaveDialog->FileName);
		m_FileName = SaveDialog->FileName;
		REdit->Modified = FALSE;
	 }
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::KFXClick(TObject *Sender)
{
	Close();
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::PopupMenuPopup(TObject *Sender)
{
	KEClick(NULL);
	for( int i = 0; i < PopupMenu->Items->Count; i++ ){
		PopupMenu->Items->Items[i]->Enabled = KE->Items[i]->Enabled;
	}
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::KSSClick(TObject *Sender)
{
	FindDialog->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::FindDialogFind(TObject *Sender)
{
	int FoundAt, StartPos, ToEnd;
	  // <20><><EFBFBD><EFBFBD><EFBFBD>͌<EFBFBD><CD8C>ݑI<DD91><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD>ꏊ<EFBFBD><EA8F8A><EFBFBD><EFBFBD><EFBFBD>J<EFBFBD>n<EFBFBD><6E><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	  // <20><><EFBFBD><EFBFBD><EFBFBD>I<EFBFBD><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ă<EFBFBD><C482>Ȃ<EFBFBD><C882>ꍇ<EFBFBD>́C
	  // <20>e<EFBFBD>L<EFBFBD>X<EFBFBD>g<EFBFBD>̍ŏ<CC8D><C58F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>J<EFBFBD>n<EFBFBD><6E><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	if(REdit->SelLength){
		StartPos = REdit->SelStart + REdit->SelLength;
	}
	else {
		StartPos = 0;
	}
	// ToEnd <20>͌<EFBFBD><CD8C><EFBFBD><EFBFBD>͈͂̕<CD82><CC95><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
	ToEnd = REdit->Text.Length() - StartPos;


	TSearchTypes stype;
	if( FindDialog->Options.Contains(frMatchCase) ) stype << stMatchCase;
	if( FindDialog->Options.Contains(frWholeWord) ) stype << stWholeWord;
	FoundAt = REdit->FindText(FindDialog->FindText, StartPos, ToEnd, stype);
	if( FoundAt != -1 ){
		REdit->SetFocus();
		REdit->SelStart = FoundAt;
		REdit->SelLength = FindDialog->FindText.Length();
	}
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::KSClick(TObject *Sender)
{
	KSN->Enabled = !FindDialog->FindText.IsEmpty();
}
//---------------------------------------------------------------------------
void __fastcall TFileEdit::KFNClick(TObject *Sender)
{
	Close();

	char bf[256];
	sprintf(bf, "NOTEPAD %s", m_FileName.c_str());
	WinExec(bf, SW_SHOWDEFAULT);
}
//---------------------------------------------------------------------------