mmtty/MacroKey.cpp

//Copyright+LGPL

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

// MMTTY 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.

// MMTTY 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 "MacroKey.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
//TMacroKeyDlg *MacroKeyDlg;
MACKEY	mackeycom[]={
	{1, "_","<EFBFBD>}<7D>[<5B>N<EFBFBD>M<EFBFBD><4D><EFBFBD>̑<EFBFBD><CC91>M","Transmit a mark signal"},
	{1, "~","AFSK<EFBFBD>L<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>A<EFBFBD><EFBFBD><EFBFBD>~","Stop AFSK carrier"},
	{1, "[","Diddle<EFBFBD>̋֎~","Disable diddle"},
	{1, "]","Diddle<EFBFBD>̋<EFBFBD><EFBFBD><EFBFBD>","Enable diddle"},
	{1, "%m","My callsign", NULL},
	{1, "%c","His/her callsign", NULL},
	{1, "%r","His/her RST", NULL},
	{1, "%n","His/her name", NULL},
	{1, "%q","His/her QTH", NULL},
	{1, "%s","My RST", NULL},
	{1, "%R","His/her RST<53><54>RST<53><54><EFBFBD><EFBFBD><EFBFBD>̂<EFBFBD>","Only the RST part of his/her RST"},
	{1, "%N","His/her RST<53>̃R<CC83><52><EFBFBD>e<EFBFBD>X<EFBFBD>g<EFBFBD>i<EFBFBD><69><EFBFBD>o<EFBFBD><6F><EFBFBD><EFBFBD><EFBFBD>̂<EFBFBD>","Only the contest number part of his/her RST"},
	{1, "%M","My RST<53>̃R<CC83><52><EFBFBD>e<EFBFBD>X<EFBFBD>g<EFBFBD>i<EFBFBD><69><EFBFBD>o<EFBFBD><6F><EFBFBD><EFBFBD><EFBFBD>̂<EFBFBD>","Only the contest number part of my RST"},
	{1, "%g","GOOD MORNING/AFTERNOON/EVENING", NULL},
	{1, "%f","GM/GA/GE", NULL},
	{1, "%L","LTR<EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>̋<EFBFBD><CC8B><EFBFBD><EFBFBD><EFBFBD><EFBFBD>M","Force transmit LTR code"},
	{1, "%F","FIG<EFBFBD>R<EFBFBD>[<5B>h<EFBFBD>̋<EFBFBD><CC8B><EFBFBD><EFBFBD><EFBFBD><EFBFBD>M","Force transmit FIG code"},
	{1, "%D","UTC date (e.g., 2000-SEP-05)", NULL},
	{1, "%T","UTC time (e.g., 12:34)", NULL},
	{1, "%t","UTC time (e.g., 1234)", NULL},
	{1, "%x","Only the 1st number(001) for BARTG", NULL},
	{1, "%y","Only the 2nd number(UTC) for BARTG", NULL},
	{1, "%{","CWID (e.g., %{DE %m})", NULL},
	{-1, "","<<3C>s<EFBFBD><73><EFBFBD>̃X<CC83>y<EFBFBD>[<5B>X<EFBFBD><58><EFBFBD>폜>", "<Delete space with end of line>"},
	{0, NULL, NULL},
};
MACKEY	mackeybtn[]={
	{3, "\\","<EFBFBD>擪<EFBFBD>ɋL<EFBFBD>q<EFBFBD><EFBFBD><EFBFBD><EFBFBD>TxWindow<EFBFBD>o<EFBFBD>R<EFBFBD>ő<EFBFBD><EFBFBD>M","Sends via the TX window (at the top)"},
	{2, "\\","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɋL<EFBFBD>q<EFBFBD><EFBFBD><EFBFBD>Ď<EFBFBD><EFBFBD>M<EFBFBD>ɐ؂肩<EFBFBD><EFBFBD><EFBFBD><EFBFBD>","Switches to receive (at the last)"},
	{3, "#","<EFBFBD>擪<EFBFBD>ɋL<EFBFBD>q<EFBFBD><EFBFBD><EFBFBD><EFBFBD>TxWindow<EFBFBD>ɑS<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>R<EFBFBD>s<EFBFBD>[","Copies the message to the TX window (at the top)"},
	{2, "#","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɋL<EFBFBD>q<EFBFBD><EFBFBD><EFBFBD>ČJ<EFBFBD><EFBFBD><EFBFBD>Ԃ<EFBFBD>","Repeats the macro (at the last)"},
	{0, NULL, NULL},
};
MACKEY	mackeymsg[]={
	{3, "\\","<EFBFBD>擪<EFBFBD>ɋL<EFBFBD>q<EFBFBD><EFBFBD><EFBFBD><EFBFBD>TxWindow<EFBFBD><EFBFBD><EFBFBD>N<EFBFBD><EFBFBD><EFBFBD>A","Clears the TX window (at the top)"},
	{2, "\\","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɋL<EFBFBD>q<EFBFBD><EFBFBD><EFBFBD>Ď<EFBFBD><EFBFBD>M<EFBFBD>ɐ؂肩<EFBFBD><EFBFBD><EFBFBD><EFBFBD>","Switches to receive (at the last)"},
	{3, "#","<EFBFBD>擪<EFBFBD>ɋL<EFBFBD>q<EFBFBD><EFBFBD><EFBFBD>đ<EFBFBD><EFBFBD>M<EFBFBD>ɐ؂肩<EFBFBD><EFBFBD><EFBFBD><EFBFBD>","Switches to transmit (at the top)"},
	{1, "^","<EFBFBD><EFBFBD><EFBFBD>P<EFBFBD>b<EFBFBD>Ԃ̒<EFBFBD><EFBFBD>~","Wait for 1 second"},
	{0, NULL, NULL},
};
MACKEY	mackeyusr[]={
	{2, "\\","<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɋL<EFBFBD>q<EFBFBD><EFBFBD><EFBFBD>Ď<EFBFBD><EFBFBD>M<EFBFBD>ɐ؂肩<EFBFBD><EFBFBD><EFBFBD><EFBFBD>","Switches to receive (at the last)"},
	{0, NULL, NULL},
};
static int PosPos;	//JA7UDE 0428
static int TopPos;
//---------------------------------------------------------------------
__fastcall TMacroKeyDlg::TMacroKeyDlg(TComponent* AOwner)
	: TForm(AOwner)
{
	FormStyle = ((TForm *)AOwner)->FormStyle;
	Font->Name = ((TForm *)AOwner)->Font->Name;
	Font->Charset = ((TForm *)AOwner)->Font->Charset;
	if( Font->Charset != SHIFTJIS_CHARSET ){
		CancelBtn->Caption = "Cancel";
	}
}
//---------------------------------------------------------------------
void __fastcall TMacroKeyDlg::UpdateUI(int row)
{
	int r = row - 1;
	if( r >= 0 ){
		r = mackey[r].r;
		if( r == -1 ){
			OKBtn->Caption = (Font->Charset != SHIFTJIS_CHARSET) ? "Execute" : "<EFBFBD><EFBFBD><EFBFBD>s";
		}
		else {
			OKBtn->Caption = (Font->Charset != SHIFTJIS_CHARSET) ? "Insert" : "<EFBFBD>}<7D><>";
		}
		OKBtn->Enabled = TRUE;
	}
	else {
		OKBtn->Caption = (Font->Charset != SHIFTJIS_CHARSET) ? "Insert" : "<EFBFBD>}<7D><>";
		OKBtn->Enabled = FALSE;
	}
}
//---------------------------------------------------------------------
int __fastcall TMacroKeyDlg::AddMacKey(MACKEY *mp, int n)
{
	for( ; mp->r; mp++, n++ ){
		mackey[n] = *mp;
	}
	return n;
}
//---------------------------------------------------------------------
int __fastcall TMacroKeyDlg::Execute(AnsiString &as, int sw)
{
	int n = 0;
	switch(sw){
		case 0:
			n = AddMacKey(mackeymsg, n);
			break;
		case 1:
			n = AddMacKey(mackeybtn, n);
			break;
		case 2:
			n = AddMacKey(mackeyusr, n);
			break;
	}
	n = AddMacKey(mackeycom, n);
	Grid->RowCount = 1 + n;
	if( (PosPos > 0) && (PosPos < Grid->RowCount) ){
		Grid->Row = PosPos;
		Grid->TopRow = TopPos;
	}
	UpdateUI(Grid->Row);
	int r = ShowModal();
	PosPos = Grid->Row;
	TopPos = Grid->TopRow;
	if( r == IDOK ){
		if( PosPos ){
			r = PosPos - 1;
			as = mackey[r].pKey;
			return mackey[r].r;
		}
	}
	return 0;
}
//---------------------------------------------------------------------
void __fastcall TMacroKeyDlg::GridDrawCell(TObject *Sender, int Col, int Row,
	TRect &Rect, TGridDrawState State)
{
	char	bf[256];

	Grid->Canvas->FillRect(Rect);
	int X = Rect.Left + 4;
	int Y = Rect.Top + 2;

	if( Row ){
		Row--;
		bf[0] = 0;
		LPCSTR pCom;
		switch(Col){
			case 0:
				strcpy(bf, mackey[Row].pKey);
				break;
			case 1:
				if( Font->Charset != SHIFTJIS_CHARSET ){
					pCom = mackey[Row].pEng;
					if( pCom == NULL ){
						pCom = mackey[Row].pJpn;
					}
				}
				else {
					pCom = mackey[Row].pJpn;
				}
				strcpy(bf, pCom);
				break;
		}
		Grid->Canvas->TextOut(X, Y, bf);
	}
	else {		// <20>^<5E>C<EFBFBD>g<EFBFBD><67>
		LPCSTR	_tt[]={
			"Key","Comments",
		};
		Grid->Canvas->TextOut(X, Y, _tt[Col]);
	}
}
//---------------------------------------------------------------------------
void __fastcall TMacroKeyDlg::GridSelectCell(TObject *Sender, int Col,
	int Row, bool &CanSelect)
{
	UpdateUI(Row);
}
//---------------------------------------------------------------------------