n5ac/mmtty
1
0
Fork 0
mirror of https://github.com/n5ac/mmtty.git synced 2025-12-06 04:12:03 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity
mmtty/ConvDef.cpp
Stephen Hicks 979c196eb6 Added source file to repo as received from AA6YQ
2013-07-05 15:00:12 -05:00

394 lines
10 KiB
C++
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

//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 "ConvDef.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
//TConvDefDlg *ConvDefDlg;
//---------------------------------------------------------------------
__fastcall TConvDefDlg::TConvDefDlg(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 ){
Caption = "Define Conversion";
ConvSel->Caption = "Delimiter Type";
ConvSel->Items->Strings[0] = "comma(,)";
ConvSel->Items->Strings[1] = "TAB";
ConvSel->Items->Strings[2] = "NONE";
LConv->Caption = "Conv.";
CheckDBL->Caption = "Double";
GrpRef->Caption = "Ref.";
SBBack->Caption = "<";
SBNext->Caption = ">";
CancelBtn->Caption = "Cancel";
InitBtn->Caption = "All Del";
UpBtn->Caption = "Up";
DownBtn->Caption = "Down";
InitMax->Caption = "Init Max";
}
Grid->RowCount = TEXTCONVMAX + 1;
m_Mode = 0;
m_Bgn = m_End = m_Cur = 0;
m_DisEvent = 0;
}
//---------------------------------------------------------------------
void __fastcall TConvDefDlg::UpdateUI(int n)
{
SBBack->Enabled = m_Cur > m_Bgn ? TRUE : FALSE;
SBNext->Enabled = m_Cur < m_End ? TRUE : FALSE;
UpBtn->Enabled = (n > 0) ? TRUE : FALSE;
DownBtn->Enabled = (n < TEXTCONVMAX - 1) ? TRUE : FALSE;
CheckDBL->Enabled = m_Mode && (ConvSel->ItemIndex < 2);
}
//---------------------------------------------------------------------
void __fastcall TConvDefDlg::GridDrawCell(TObject *Sender, int Col, int Row,
TRect &Rect, TGridDrawState State)
{
char bf[1024];
SDMMLOG sd;
Grid->Canvas->FillRect(Rect);
int X = Rect.Left + 4;
int Y = Rect.Top + 2;
if( Row ){
Row--;
bf[0] = 0;
switch(Col){
case 0: // Key
strcpy(bf, Conv[Row].Key.c_str());
break;
case 1: // Size
if( !Conv[Row].Key.IsEmpty() && (Conv[Row].Key != "%EOD") ){
sprintf(bf, "%u", Conv[Row].w);
}
break;
case 2: // Data
if( m_Mode ){
if( !Conv[Row].Key.IsEmpty() && (Conv[Row].Key != "%EOD") ){
Log.GetData(&sd, m_Cur);
MMLOG2Text(bf, &sd, Conv[Row].Key);
}
}
else {
strcpy(bf, m_line[Row].c_str());
}
break;
}
Grid->Canvas->TextOut(X, Y, bf);
}
else if( Font->Charset != SHIFTJIS_CHARSET ){
LPCSTR _tte[]={
"Conv.","Max","Ref.",
};
Grid->Canvas->TextOut(X, Y, _tte[Col]);
}
else { // <20>^<5E>C<EFBFBD>g<EFBFBD><67>
LPCSTR _tt[]={
"<EFBFBD>ϊ<EFBFBD><EFBFBD><EFBFBD>","Max","<EFBFBD>Q<EFBFBD><EFBFBD>",
};
Grid->Canvas->TextOut(X, Y, _tt[Col]);
}
}
//---------------------------------------------------------------------
void __fastcall TConvDefDlg::SetupComBox(void)
{
m_DisEvent++;
ConvText->Clear();
int i;
for( i = 0; ConvTbl[i] != NULL; i++ ){
ConvText->Items->Add(ConvTbl[i]);
}
m_DisEvent--;
}
//---------------------------------------------------------------------
int __fastcall TConvDefDlg::Execute(TCONV *tp, int &delm, int &utc, int &dbl, int b, int e)
{
m_DisEvent++;
int i;
for( i = 0; i < TEXTCONVMAX; i++ ){
Conv[i].Key = tp[i].Key;
Conv[i].w = tp[i].w;
}
m_Mode = 1;
m_Cur = m_Bgn = b;
m_End = e;
CheckUTC->Checked = utc;
ConvSel->ItemIndex = delm;
CheckDBL->Checked = dbl;
SetupComBox();
ConvText->Text = Conv[0].Key;
UpdateUI(Grid->Row - 1);
m_DisEvent--;
if( ShowModal() == IDOK ){
for( i = 0; i < TEXTCONVMAX; i++ ){
tp[i].Key = Conv[i].Key;
tp[i].w = Conv[i].w;
}
delm = ConvSel->ItemIndex;
utc = CheckUTC->Checked;
dbl = CheckDBL->Checked;
return TRUE;
}
else {
return FALSE;
}
}
//---------------------------------------------------------------------
int __fastcall TConvDefDlg::Execute(TCONV *tp, int &delm, int &utc, int &dbl, LPCSTR pName)
{
m_DisEvent++;
int i;
for( i = 0; i < TEXTCONVMAX; i++ ){
Conv[i].Key = tp[i].Key;
Conv[i].w = tp[i].w;
}
m_Mode = 0;
CheckUTC->Checked = utc;
ConvSel->ItemIndex = delm;
CheckDBL->Checked = dbl;
SetupComBox();
ConvText->Text = Conv[0].Key;
LoadText(pName);
UpdateUI(Grid->Row - 1);
UpdateLine();
m_DisEvent--;
if( ShowModal() == IDOK ){
for( i = 0; i < TEXTCONVMAX; i++ ){
tp[i].Key = Conv[i].Key;
tp[i].w = Conv[i].w;
}
delm = ConvSel->ItemIndex;
utc = CheckUTC->Checked;
dbl = CheckDBL->Checked;
return TRUE;
}
else {
return FALSE;
}
}
//---------------------------------------------------------------------
void __fastcall TConvDefDlg::LoadText(LPCSTR pName)
{
FILE *fp;
char bf[2048];
m_Cur = m_Bgn = m_End = 0;
if( (fp = fopen(pName, "rt")) != NULL ){
while(!feof(fp)){
if( fgets(bf, sizeof(bf), fp) != NULL ){
ClipLF(bf);
m_text[m_End] = bf;
m_End++;
if( m_End >= PREREADMAX ) break;
}
}
fclose(fp);
}
if( m_End ) m_End--;
}
//---------------------------------------------------------------------
void __fastcall TConvDefDlg::UpdateLine(void)
{
char rbf[2048];
StrCopy(rbf, m_text[m_Cur].c_str(), 2043);
char bf[512];
char dlm = ConvSel->ItemIndex ? TAB : ',';
LPSTR p, t;
int i;
p = rbf;
for( i = 0; i < TEXTCONVMAX; i++ ){
if( ConvSel->ItemIndex == 2 ){
StrCopy(bf, p, Conv[i].w);
p += strlen(bf);
t = bf;
}
else {
p = StrDlm(t, p, dlm);
}
clipsp(t);
t = SkipSpace(t);
m_line[i] = t;
}
}
//---------------------------------------------------------------------------
void __fastcall TConvDefDlg::ConvTextChange(TObject *Sender)
{
if( m_DisEvent ) return;
m_DisEvent++;
if( Grid->Row ){
int Row = Grid->Row - 1;
Conv[Row].Key = ConvText->Text;
Grid->Invalidate();
}
m_DisEvent--;
}
//---------------------------------------------------------------------------
void __fastcall TConvDefDlg::GridSelectCell(TObject *Sender, int Col, int Row,
bool &CanSelect)
{
if( m_DisEvent ) return;
m_DisEvent++;
if( Row ){
Row--;
ConvText->Text = Conv[Row].Key;
UpdateUI(Row);
}
m_DisEvent--;
}
//---------------------------------------------------------------------------
void __fastcall TConvDefDlg::SBBackClick(TObject *Sender)
{
if( m_Cur > m_Bgn ){
m_Cur--;
UpdateUI(Grid->Row - 1);
if( !m_Mode ) UpdateLine();
Grid->Invalidate();
}
}
//---------------------------------------------------------------------------
void __fastcall TConvDefDlg::SBNextClick(TObject *Sender)
{
if( m_Cur < m_End ){
m_Cur++;
UpdateUI(Grid->Row - 1);
if( !m_Mode ) UpdateLine();
Grid->Invalidate();
}
}
//---------------------------------------------------------------------------
void __fastcall TConvDefDlg::GridGetEditText(TObject *Sender, int ACol,
int ARow, AnsiString &Value)
{
char bf[512];
if( ARow ) ARow--;
bf[0] = 0;
switch(ACol){
case 0: // Key
strcpy(bf, Conv[ARow].Key.c_str());
break;
case 1: // Size
if( !Conv[ARow].Key.IsEmpty() && (Conv[ARow].Key != "%EOD") ){
sprintf(bf, "%u", Conv[ARow].w);
}
break;
case 2: // Data
break;
}
Value = bf;
}
//---------------------------------------------------------------------------
void __fastcall TConvDefDlg::GridSetEditText(TObject *Sender, int ACol,
int ARow, const AnsiString Value)
{
int d;
if( ARow ) ARow--;
switch(ACol){
case 0: // Key
Conv[ARow].Key = Value;
Grid->Invalidate();
break;
case 1: // Size
sscanf(Value.c_str(), "%u", &d);
if( (d >= 0) && (d<=256) ){
Conv[ARow].w = d;
if( !m_Mode ){
UpdateLine();
Grid->Invalidate();
}
}
break;
case 2: // Data
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TConvDefDlg::InitBtnClick(TObject *Sender)
{
if( YesNoMB( ( Font->Charset != SHIFTJIS_CHARSET ) ? "Delete All setup. Are you sure?":"<EFBFBD><EFBFBD><EFBFBD>ׂĂ̒<EFBFBD><EFBFBD>`<60><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>H" ) == IDYES ){
for( int i = 0; i < TEXTCONVMAX; i++ ){
Conv[i].Key = "";
Conv[i].w = 0;
}
Grid->Invalidate();
}
}
//---------------------------------------------------------------------------
void __fastcall TConvDefDlg::UpBtnClick(TObject *Sender)
{
int n = Grid->Row - 1;
if( n ){
TCONV td = Conv[n];
Conv[n] = Conv[n-1];
Conv[n-1] = td;
Grid->Row--;
UpdateUI(Grid->Row - 1);
Grid->Invalidate();
}
}
//---------------------------------------------------------------------------
void __fastcall TConvDefDlg::DownBtnClick(TObject *Sender)
{
int n = Grid->Row - 1;
if( n < (TEXTCONVMAX - 1) ){
TCONV td = Conv[n];
Conv[n] = Conv[n+1];
Conv[n+1] = td;
Grid->Row++;
UpdateUI(Grid->Row - 1);
Grid->Invalidate();
}
}
//---------------------------------------------------------------------------
void __fastcall TConvDefDlg::InitMaxClick(TObject *Sender)
{
if( YesNoMB( ( Font->Charset != SHIFTJIS_CHARSET )?"Delete All Length. Are you sure?":"<EFBFBD><EFBFBD><EFBFBD>ׂĂ̕<EFBFBD><EFBFBD><EFBFBD><EFBFBD>񒷂̐<EFBFBD><EFBFBD><EFBFBD><EFBFBD>𖳂<EFBFBD><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><EFBFBD><EFBFBD><EFBFBD>H" ) == IDYES ){
for( int i = 0; i < TEXTCONVMAX; i++ ){
Conv[i].w = 0;
}
Grid->Invalidate();
}
}
//---------------------------------------------------------------------------
void __fastcall TConvDefDlg::ConvSelClick(TObject *Sender)
{
UpdateUI(Grid->Row-1);
if( !m_Mode ){
UpdateLine();
Grid->Invalidate();
}
}
//---------------------------------------------------------------------------
Reference in a new issue View git blame Copy permalink