n5ac/mmsstv
1
0
Fork 0
mirror of https://github.com/n5ac/mmsstv.git synced 2025-12-06 04:12:03 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity
mmsstv/Option.cpp

1232 lines
34 KiB
C++
Raw Normal View History

Added LGPL files received from AA6YQ
2013-07-05 22:15:14 +02:00
//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 "Option.h"
#include "Main.h"
#include "FreqDisp.h"
#include "radioset.h"
#include "LogFile.h"
#include "ClockAdj.h"
#include "LinearDs.h"
#include "MacroKey.h"
#include "TextEdit.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
int PageIndex = 0;
//---------------------------------------------------------------------
__fastcall TOptionDlg::TOptionDlg(TComponent* AOwner)
: TForm(AOwner)
{
m_DisEvent = 1;
FormStyle = ((TForm *)AOwner)->FormStyle;
Font->Name = ((TForm *)AOwner)->Font->Name;
Font->Charset = ((TForm *)AOwner)->Font->Charset;
pDem = NULL;
if( MsgEng ){
Caption = "Setup MMSSTV";
TabDem->Caption = "RX";
TabTx->Caption = "TX";
TabMisc->Caption = "Misc";
CancelBtn->Caption = "Cancel";
RGDemType->Caption = "Demodulating method";
RGDemType->Items->Strings[1] = "Zero crossing";
RGDemType->Items->Strings[2] = "Hilbert T.F.";
GBCROSS->Caption = "Zero crossing";
LCORDER->Caption = "Order";
CBDiff->Caption = "Differentiator";
LLoopOrder->Caption = "Order";
LOutOrder->Caption = "Order";
RGRBuf->Caption = "Rx buffer";
GBTemp->Caption = "Template";
GBOut->Caption = "Digital output level";
GrpCard->Caption = "Sound Card";
GBHMax->Caption = "History max.";
LFFTB->Caption = "Background";
LFFT->Caption = "Signals";
LFFTT->Caption = "Trails";
LFFTS->Caption = "Sync marker";
LFFTF->Caption = "Freq marker";
RGMSync->Caption = "Auto start";
CBAStop->Caption = "Auto stop";
CBARestart->Caption = "Auto restart";
CBASync->Caption = "Auto resync";
CBASlant->Caption = "Auto slant";
CBTxFixed->Caption = "Fixed mode";
GB2->Caption = "Level converter";
CBCalWay->Caption = "Polynomial";
SBTest->Caption = "Calibration";
LJPEGQ->Caption = "Quality";
RGSLvl->Caption = "Squelch level";
RGSLvl->Items->Strings[0] = "Lowest";
RGSLvl->Items->Strings[1] = "Lower";
RGSLvl->Items->Strings[2] = "Higher";
RGSLvl->Items->Strings[3] = "Highest";
IDDEC->Caption = "Decode FSKID";
IDFSK->Caption = "Encode FSKID";
PTTLock->Caption = "Exclusive lock";
RGLoopBack->Caption = "Loop back";
// RGLoopBack->Items->Strings[0] = "OFF";
RGLoopBack->Items->Strings[1] = "Internal";
RGLoopBack->Items->Strings[2] = "External (full-duplex)";
RGRxBPF->Items->Strings[1] = "Broad";
RGRxBPF->Items->Strings[2] = "Sharp";
RGRxBPF->Items->Strings[3] = "Very sharp";
SoundPriority->Caption = "Priority";
SoundPriority->Items->Strings[0] = "Normal";
SoundPriority->Items->Strings[1] = "Higher";
SoundPriority->Items->Strings[2] = "Highest";
SoundPriority->Items->Strings[3] = "Critical";
Source->Caption = "Source";
Source->Items->Strings[0] = "Mono";
Source->Items->Strings[1] = "Left";
Source->Items->Strings[2] = "Right";
MemWin->Caption = "Save window location";
AppPriority->Caption = "Priority of MMSSTV";
AppPriority->Items->Strings[0] = "Normal";
AppPriority->Items->Strings[1] = "Higher";
CB24->Caption = "Always use DIB";
// AppPriority->Items->Strings[2] = "Highest";
}
TxFifo->Items->Assign(RxFifo->Items);
CWIDFreq->Items->Assign(TuneFreq->Items);
pllOutFC->Items->Assign(pllLoopFC->Items);
crossOutFC->Items->Assign(pllLoopFC->Items);
m_TestMode = 0;
m_BuffCal = 1.0;
CWave *pWave = &Mmsstv->pSound->Wave;
pWave->GetDeviceName();
for( int i = 0; i < pWave->m_InDevs; i++ ){
if( !pWave->m_tInDevName[i].IsEmpty() ){
DevNo->Items->Add(pWave->m_tInDevName[i]);
}
}
for( int i = 0; i < pWave->m_OutDevs; i++ ){
if( !pWave->m_tOutDevName[i].IsEmpty() ){
DevNoOut->Items->Add(pWave->m_tOutDevName[i]);
}
}
m_MMListW.QueryList("MMW");
for( int i = 0; i < m_MMListW.GetCount(); i++ ){
DevNo->Items->Add(m_MMListW.GetItemName(i));
}
DevNo->DropDownCount = DevNo->Items->Count;
DevNoOut->DropDownCount = DevNoOut->Items->Count;
}
//---------------------------------------------------------------------------
int __fastcall TOptionDlg::IsMMW(LPCSTR p)
{
if( !p ) return -1;
for( int i = 0; i < m_MMListW.GetCount(); i++ ){
if( !strcmp(p, m_MMListW.GetItemName(i)) ) return i;
}
return -1;
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::SetPageIndex(int n)
{
PageIndex = n;
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::UpdateUI(void)
{
char bf[128];
sprintf(bf, "%.2lf", m_TxSampOff);
TxSampOff->Text = bf;
switch(RGDemType->ItemIndex){
case 0:
GBPLL->Visible = TRUE;
GBCROSS->Visible = FALSE;
GBPLL->Enabled = TRUE;
SetGroupEnabled(GBPLL);
break;
case 1:
GBPLL->Visible = FALSE;
GBCROSS->Visible = TRUE;
break;
default:
GBPLL->Visible = TRUE;
GBCROSS->Visible = FALSE;
GBPLL->Enabled = FALSE;
SetGroupEnabled(GBPLL);
break;
}
switch(RGcrossType->ItemIndex){
case 0:
GBCOI->Enabled = TRUE;
GBCOF->Enabled = FALSE;
break;
case 1:
GBCOI->Enabled = FALSE;
GBCOF->Enabled = TRUE;
break;
default:
GBCOI->Enabled = FALSE;
GBCOF->Enabled = FALSE;
break;
}
SetGroupEnabled(GBCOI);
SetGroupEnabled(GBCOF);
int f = CBCalWay->Checked ? FALSE : TRUE;
LOff->Enabled = f;
L1500->Enabled = f;
L2300->Enabled = f;
Off1900->Enabled = f;
Max1500->Enabled = f;
Max2300->Enabled = f;
VEdit->Visible = (RGV->ItemIndex == 1) ? TRUE : FALSE;
CBASlant->Enabled = RGRBuf->ItemIndex ? TRUE : FALSE;
TxBpfTap->Enabled = CBTXBPF->Checked;
DispTxBpf->Enabled = CBTXBPF->Checked;
TxLpfFreq->Enabled = CBTXLPF->Checked;
f = IsMMW(AnsiString(DevNo->Text).c_str()) < 0; //ja7ude 0428
GB1->Enabled = f;
SetGroupEnabled(GB1);
Source->Enabled = f;
Label6->Enabled = f;
DevNoOut->Enabled = f;
CBSTX->Visible = (Source->ItemIndex != 0);
}
int __fastcall TOptionDlg::Execute(CSSTVDEM *fp, CSSTVMOD *mp)
{
pDem = fp;
m_ColorChange = 0;
RGDemType->ItemIndex = fp->m_Type;
char bf[128];
sprintf(bf, "%.2lf", sys.m_SampFreq);
EditSamp->Text = bf;
m_TxSampOff = sys.m_TxSampOff;
WinFont->Text = sys.m_WinFontName;
m_WinFontCharset = sys.m_WinFontCharset;
m_WinFontStyle = sys.m_WinFontStyle;
MemWin->Checked = sys.m_MemWindow;
FontAdj->Text = sys.m_FontAdjSize;
CBDiff->Checked = sys.m_Differentiator;
TBDiff->Position = ((sys.m_DiffLevelP * 10) + 0.5);
pllVCOGain->Text = fp->m_pll.m_vcogain;
pllLoopOrder->Text = fp->m_pll.m_loopOrder;
pllLoopFC->Text = fp->m_pll.m_loopFC;
pllOutOrder->Text = fp->m_pll.m_outOrder;
pllOutFC->Text = fp->m_pll.m_outFC;
RGcrossType->ItemIndex = fp->m_fqc.m_Type;
crossSmooz->Text = fp->m_fqc.m_SmoozFq;
crossOutOrder->Text = fp->m_fqc.m_outOrder;
crossOutFC->Text = fp->m_fqc.m_outFC;
RGRxBPF->ItemIndex = fp->m_bpf;
RGSLvl->ItemIndex = fp->m_SenseLvl;
PCLow->Color = sys.m_ColorLow;
PCHigh->Color = sys.m_ColorHigh;
PCFFTB->Color = sys.m_ColorFFTB;
PCFFT->Color = sys.m_ColorFFT;
PCFFTStg->Color = sys.m_ColorFFTStg;
PCSync->Color = sys.m_ColorFFTSync;
PCFreq->Color = sys.m_ColorFFTFreq;
PortName->Text = sys.m_TxRxName;
PTTLock->Checked = sys.m_TxRxLock;
CBRTS->Checked = sys.m_RTSonRX;
EditCall->Text = sys.m_Call;
RGLoopBack->ItemIndex = sys.m_echo;
CBTXBPF->Checked = mp->m_bpf;
CBTXLPF->Checked = mp->m_lpf;
TxLpfFreq->Text = mp->m_lpffq;
TxBpfTap->Text = mp->m_bpftap;
TBOutLvl->Position = int(mp->m_outgain*64.0/30000.0);
m_OutGain = Mmsstv->pMod->m_outgain;
RxFifo->Text = sys.m_SoundFifoRX;
TxFifo->Text = sys.m_SoundFifoTX;
SoundPriority->ItemIndex = sys.m_SoundPriority;
{
AnsiString as = sys.m_SoundDevice.c_str();
LPSTR p, t;
p = StrDlm(t, as.c_str());
int dd;
if( ATOI(dd, t) ){
switch(dd){
case -1:
DevNo->Text = "Default";
break;
case -2:
break;
default:
DevNo->Text = t;
break;
}
}
else {
DevNo->Text = t;
}
p = SkipSpace(p);
if( *p ) StrDlm(t, p);
if( ATOI(dd, t) ){
switch(dd){
case -1:
DevNoOut->Text = "Default";
break;
case -2:
break;
default:
DevNoOut->Text = t;
break;
}
}
else if( IsMMW(t) < 0 ){
DevNoOut->Text = t;
}
else {
DevNoOut->Text = "";
}
}
Source->ItemIndex = sys.m_SoundStereo;
CBSTX->Checked = sys.m_StereoTX;
RGMSync->ItemIndex = fp->m_MSync;
CBAStop->Checked = sys.m_AutoStop;
CBARestart->Checked = fp->m_SyncRestart;
CBASync->Checked = sys.m_AutoSync;
CBASlant->Checked = Mmsstv->KRSA->Checked;
JPEGQ->Text = sys.m_JPEGQuality;
CBVari->Checked = mp->m_VariOut;
CB24->Checked = sys.m_UseB24;
if( (PageIndex >= 0) && (PageIndex < Page->PageCount) ){
if( Page->Pages[PageIndex]->TabVisible == FALSE ){
PageIndex = 0;
}
Page->ActivePage = Page->Pages[PageIndex];
}
Off1900->Text = sys.m_DemOff;
if( sys.m_DemBlack > 0.000001 ){
Max1500->Text = int((128 / sys.m_DemBlack)+0.5);
}
else {
Max1500->Text = 16384;
}
if( sys.m_DemWhite > 0.000001 ){
Max2300->Text = -int((128 / sys.m_DemWhite)+0.5);
}
else {
Max2300->Text = 16384;
}
CBCalWay->Checked = sys.m_DemCalibration;
HistMax->Text = sys.m_HistMax;
RGRBuf->ItemIndex = sys.m_UseRxBuff;
TuneFreq->Text = mp->m_TuneFreq;
TrigTXTime->Text = sys.m_TuneTXTime;
CBAT->Checked = sys.m_TuneSat;
switch(sys.m_CWID){
case 0:
IDOFF->Checked = TRUE;
break;
case 1:
IDCW->Checked = TRUE;
break;
case 2:
IDMMV->Checked = TRUE;
break;
}
TBCW->Position = sys.m_CWIDWPM - 10;
CWIDFreq->Text = sys.m_CWIDFreq;
CWIDText->Text = sys.m_CWIDText;
MMVID->Text = sys.m_MMVID;
IDOFFClick(NULL);
IDDEC->Checked = fp->m_fskdecode;
IDFSK->Checked = sys.m_TXFSKID;
CBTxFixed->Checked = sys.m_FixedTxMode;
RGV->ItemIndex = sys.m_VOX;
m_VOXSound = sys.m_VOXSound.c_str();
AppPriority->ItemIndex = sys.m_Priority;
UpdateUI();
m_DisEvent = 0;
int r = ShowModal();
if( sys.m_TestDem ){
mp->m_outgain = m_OutGain;
sys.m_TestDem = 0;
mp->m_vco.SetSampleFreq(sys.m_SampFreq+sys.m_TxSampOff);
fp->m_SyncMode = 0;
}
if( r == IDOK ){
double d;
int dd;
sys.m_UseB24 = CB24->Checked;
sscanf(AnsiString(EditSamp->Text).c_str(), "%lf", &d); //ja7ude 0428
if( (d >= 5000.0) && (d <= CLOCKMAX) ){
sys.m_SampFreq = d;
}
sys.m_TxSampOff = m_TxSampOff;
sys.m_WinFontName = WinFont->Text;
sys.m_WinFontCharset = m_WinFontCharset;
sys.m_WinFontStyle = m_WinFontStyle;
if( sscanf(AnsiString(FontAdj->Text).c_str(), "%ld", &dd) == 1 ){ //ja7ude 0428
sys.m_FontAdjSize = dd;
}
sys.m_echo = RGLoopBack->ItemIndex;
sys.m_RTSonRX = CBRTS->Checked;
sys.m_TxRxLock = PTTLock->Checked;
sys.m_TxRxName = PortName->Text;
if( (PortName->Text != "NONE") && !strcmp(AnsiString(PortName->Text).c_str(), RADIO.StrPort) ){ //ja7ude 0428
strcpy(RADIO.StrPort, "NONE");
}
char bf[MLCALL+1];
StrCopy(bf, AnsiString(EditCall->Text).c_str(), MLCALL); //ja7ude 0428
jstrupr(bf); clipsp(bf);
sys.m_Call = SkipSpace(bf);
mp->m_bpf = CBTXBPF->Checked;
mp->m_lpf = CBTXLPF->Checked;
sscanf(AnsiString(TxLpfFreq->Text).c_str(), "%lf", &d); //ja7ude 0428
if( (d >= 100.0) && (d <= 3000.0) ){
mp->m_lpffq = d;
}
sscanf(AnsiString(TxBpfTap->Text).c_str(), "%u", &dd); //ja7ude 0428
if( (dd >= 2) && (dd <= TAPMAX) ){
mp->m_bpftap = dd;
}
mp->CalcFilter();
mp->m_outgain = TBOutLvl->Position*30000.0/64.0;
if( mp->m_outgain >= 30000 ) mp->m_outgain = 30000;
mp->InitGain();
mp->m_VariOut = CBVari->Checked;
if( sscanf(AnsiString(RxFifo->Text).c_str(), "%u", &dd) == 1 ){ //ja7ude 0428
if( (dd >= 4) && (dd <= WAVE_FIFO_MAX) ){
sys.m_SoundFifoRX = dd;
}
}
if( sscanf(AnsiString(TxFifo->Text).c_str(), "%u", &dd) == 1 ){ //ja7ude 0428
if( (dd >= 4) && (dd <= WAVE_FIFO_MAX) ){
sys.m_SoundFifoTX = dd;
}
}
sys.m_SoundPriority = SoundPriority->ItemIndex;
AnsiString in = DevNo->Text.c_str();
if( !strcmpi(in.c_str(), "default") ) in = "-1";
AnsiString out = DevNoOut->Text.c_str();
if( !strcmpi(out.c_str(), "default") ) out = "-1";
if( in != out ){
AnsiString as;
if( IsMMW(in.c_str()) < 0 ){
as += "\x22";
as += in;
as += "\x22,\x22";
as += out;
as += "\x22";
}
else {
as += "\x22";
as += in;
as += "\x22";
}
sys.m_SoundDevice = as;
}
else {
AnsiString as;
as += "\x22";
as += in;
as += "\x22";
sys.m_SoundDevice = as;
}
sys.m_SoundStereo = Source->ItemIndex;
sys.m_StereoTX = CBSTX->Checked;
sys.m_Differentiator = CBDiff->Checked;
sys.m_DiffLevelP = double(TBDiff->Position)/10.0;
sys.m_DiffLevelM = sys.m_DiffLevelP / 3.0;
if( sscanf(AnsiString(pllVCOGain->Text).c_str(), "%lf", &d) == 1 ){ //ja7ude 0428
if( d > 0.0 ) fp->m_pll.SetVcoGain(d);
}
if( sscanf(AnsiString(pllLoopOrder->Text).c_str(), "%u", &dd) == 1 ){ //ja7ude 0428
if( (dd > 0) && (dd <= 32) ) fp->m_pll.m_loopOrder = dd;
}
if( sscanf(AnsiString(pllLoopFC->Text).c_str(), "%lf", &d) == 1 ){ //ja7ude 0428
if( d > 0.0 ) fp->m_pll.m_loopFC = d;
}
if( sscanf(AnsiString(pllOutOrder->Text).c_str(), "%u", &dd) == 1 ){ //ja7ude 0428
if( (dd > 0) && (dd <= 32) ) fp->m_pll.m_outOrder = dd;
}
if( sscanf(AnsiString(pllOutFC->Text).c_str(), "%lf", &d) == 1 ){ //ja7ude 0428
if( d > 0.0 ) fp->m_pll.m_outFC = d;
}
fp->m_pll.MakeLoopLPF();
fp->m_pll.MakeOutLPF();
if( sscanf(AnsiString(crossOutOrder->Text).c_str(), "%u", &dd) == 1 ){ //ja7ude 0428
if( (dd > 0) && (dd <= 32) ) fp->m_fqc.m_outOrder = dd;
}
if( sscanf(AnsiString(crossOutFC->Text).c_str(), "%lf", &d) == 1 ){ //ja7ude 0428
if( d > 0.0 ) fp->m_fqc.m_outFC = d;
}
fp->m_fqc.m_Type = RGcrossType->ItemIndex;
if( sscanf(AnsiString(crossSmooz->Text).c_str(), "%lf", &d) == 1 ){ //ja7ude 0428
if( (d >= 500.0) && (d <= 8000.0) ){
fp->m_fqc.m_SmoozFq = d;
}
}
fp->m_fqc.CalcLPF();
fp->m_Type = RGDemType->ItemIndex;
if( sscanf(AnsiString(Off1900->Text).c_str(), "%u", &dd) == 1 ){ //ja7ude 0428
sys.m_DemOff = dd;
}
if( sscanf(AnsiString(Max1500->Text).c_str(), "%lf", &d) == 1 ){ //ja7ude 0428
if( d > 0.000001 ){
sys.m_DemBlack = 128.0 / d;
}
}
if( sscanf(AnsiString(Max2300->Text).c_str(), "%lf", &d) == 1 ){ //ja7ude 0428
d = -d;
if( d > 0.000001 ){
sys.m_DemWhite = 128.0 / d;
}
}
sys.m_DemCalibration = CBCalWay->Checked;
if( sscanf(AnsiString(HistMax->Text).c_str(), "%u", &dd) == 1 ){ //ja7ude 0428
if( (dd > 1) && (dd <= 256) ){
sys.m_HistMax = dd;
}
}
if( sscanf(AnsiString(TuneFreq->Text).c_str(), "%u", &dd) == 1 ){ //ja7ude 0428
if( (dd >= 100) && (dd <= 3000) ){
mp->m_TuneFreq = dd;
}
}
if( sscanf(AnsiString(TrigTXTime->Text).c_str(), "%d", &dd) == 1 ){ //ja7ude 0428
sys.m_TuneTXTime = dd;
}
sys.m_TuneSat = CBAT->Checked;
sys.m_UseRxBuff = RGRBuf->ItemIndex;
fp->OpenCloseRxBuff();
sys.m_ColorLow = PCLow->Color;
sys.m_ColorHigh = PCHigh->Color;
sys.m_ColorFFTB = PCFFTB->Color;
sys.m_ColorFFT = PCFFT->Color;
sys.m_ColorFFTStg = PCFFTStg->Color;
sys.m_ColorFFTSync = PCSync->Color;
sys.m_ColorFFTFreq = PCFreq->Color;
if( IDCW->Checked ){
sys.m_CWID = 1;
}
else if( IDMMV->Checked ){
sys.m_CWID = 2;
}
else {
sys.m_CWID = 0;
}
sys.m_CWIDWPM = TBCW->Position + 10;
sys.m_CWIDText = CWIDText->Text.c_str();
sys.m_MMVID = MMVID->Text.c_str();
if( sscanf(AnsiString(CWIDFreq->Text).c_str(), "%u", &dd) == 1 ){ //ja7ude 0521
sys.m_CWIDFreq = dd;
}
sys.m_TXFSKID = IDFSK->Checked;
fp->m_fskdecode = IDDEC->Checked;
if( sscanf(AnsiString(JPEGQ->Text).c_str(), "%u", &dd) == 1 ){ //ja7ude 0521
if( (dd >= 0) && (dd <= 100) ){
sys.m_JPEGQuality = dd;
}
}
fp->SetBPF(RGRxBPF->ItemIndex);
fp->m_MSync = RGMSync->ItemIndex;
fp->m_SyncRestart = CBARestart->Checked;
fp->m_SenseLvl = RGSLvl->ItemIndex;
fp->SetSenseLvl();
Mmsstv->KRSA->Checked = CBASlant->Checked;
sys.m_MemWindow = MemWin->Checked;
sys.m_AutoStop = CBAStop->Checked;
sys.m_AutoSync = CBASync->Checked;
sys.m_FixedTxMode = CBTxFixed->Checked;
sys.m_VOX = RGV->ItemIndex;
sys.m_VOXSound = m_VOXSound.c_str();
sys.m_Priority = AppPriority->ItemIndex;
}
else {
r = FALSE;
}
PageIndex = GetActiveIndex(Page);
return r;
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::DispTxBpfClick(TObject *Sender)
{
double HBPF[TAPMAX+1];
int tap;
sscanf(AnsiString(TxBpfTap->Text).c_str(), "%u", &tap); //ja7ude 0521
if( !tap ) tap = 2;
int lfq = 700 + g_dblToneOffset;
int hfq = 2700 + g_dblToneOffset;
if( lfq < 100 ){
MakeFilter(HBPF, tap, ffLPF, SampFreq, hfq, hfq, 40, 1.0);
}
else {
MakeFilter(HBPF, tap, ffBPF, SampFreq, lfq, hfq, 40, 1.0);
}
TFreqDispDlg *pBox = new TFreqDispDlg(this);
pBox->Execute(HBPF, tap, 1);
delete pBox;
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::DispLoopLPFClick(TObject *Sender)
{
int order;
double fc;
sscanf(AnsiString(pllLoopFC->Text).c_str(), "%lf", &fc); //ja7ude 0521
if( fc > 0.0 ){
sscanf(AnsiString(pllLoopOrder->Text).c_str(), "%u", &order); //ja7ude 0521
if( (order >= 1) && (order <= 32) ){
CIIR iir;
iir.MakeIIR(fc, SampFreq, order, 0, 1.0);
TFreqDispDlg *pBox = new TFreqDispDlg(this);
pBox->Execute(&iir, DemOver+1, 4000);
delete pBox;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::DispOutLPFClick(TObject *Sender)
{
int order;
double fc;
sscanf(AnsiString(pllOutFC->Text).c_str(), "%lf", &fc); //ja7ude 0521
if( fc > 0.0 ){
sscanf(AnsiString(pllOutOrder->Text).c_str(), "%u", &order); //ja7ude 0521
if( (order >= 1) && (order <= 32) ){
CIIR iir;
iir.MakeIIR(fc, SampFreq, order, 0, 1.0);
TFreqDispDlg *pBox = new TFreqDispDlg(this);
pBox->Execute(&iir, DemOver+1, 4000);
delete pBox;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::DispCrossOutLPFClick(TObject *Sender)
{
int order;
double fc;
sscanf(AnsiString(crossOutFC->Text).c_str(), "%lf", &fc); //ja7ude 0521
if( fc > 0.0 ){
sscanf(AnsiString(crossOutOrder->Text).c_str(), "%u", &order); //ja7ude 0521
if( (order >= 1) && (order <= 32) ){
CIIR iir;
iir.MakeIIR(fc, SampFreq, order, 0, 1.0);
TFreqDispDlg *pBox = new TFreqDispDlg(this);
pBox->Execute(&iir, DemOver+1, 4000);
delete pBox;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::SetCustomColor(void)
{
TColorDialog *pDialog = Mmsstv->ColorDialog;
InitCustomColor(pDialog);
AddCustomColor(pDialog, PCLow->Color);
AddCustomColor(pDialog, PCHigh->Color);
AddCustomColor(pDialog, PCFFTB->Color);
AddCustomColor(pDialog, PCFFT->Color);
AddCustomColor(pDialog, PCFFTStg->Color);
AddCustomColor(pDialog, PCSync->Color);
AddCustomColor(pDialog, PCFreq->Color);
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::PortNameChange(TObject *Sender)
{
if( m_DisEvent ) return;
COMM.change = 1;
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::WinFontBtnClick(TObject *Sender)
{
TFontDialog *pDialog = Mmsstv->FontDialog;
pDialog->Font->Name = WinFont->Text;
pDialog->Font->Charset = m_WinFontCharset;
TFontStyles fs = Code2FontStyle(m_WinFontStyle);
pDialog->Font->Style = fs;
NormalWindow(this);
SetDisPaint();
if( pDialog->Execute() == TRUE ){
WinFont->Text = pDialog->Font->Name;
m_WinFontCharset = pDialog->Font->Charset;
fs = pDialog->Font->Style;
m_WinFontStyle = FontStyle2Code(fs);
}
ResDisPaint();
TopWindow(this);
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::JaBtnClick(TObject *Sender)
{
WinFont->Text = "<EFBFBD>l<EFBFBD>r <20>o<EFBFBD>S<EFBFBD>V<EFBFBD>b<EFBFBD>N";
m_WinFontCharset = SHIFTJIS_CHARSET;
m_WinFontStyle = 0;
if( MsgEng ){
Application->MessageBox(L"MMSSTV<EFBFBD><EFBFBD><EFBFBD>ċN<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ɠ<EFBFBD><EFBFBD>{<7B>ꃂ<EFBFBD>[<5B>h<EFBFBD>ɂȂ<C982><C882>܂<EFBFBD>.\r\n(Please restart MMSSTV for Japanese mode)", L"MMSSTV", MB_ICONINFORMATION|MB_OK); //ja7ude 0521
}
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::EngBtnClick(TObject *Sender)
{
WinFont->Text = "Times New Roman";
m_WinFontCharset = ANSI_CHARSET;
m_WinFontStyle = 0;
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::RadioBtnClick(TObject *Sender)
{
// <20><><EFBFBD>W<EFBFBD>I<EFBFBD>R<EFBFBD><52><EFBFBD>g<EFBFBD><67><EFBFBD>[<5B><>
TRADIOSetDlg *pBox = new TRADIOSetDlg(this);
if( (PortName->Text != "NONE") && !strcmp(AnsiString(PortName->Text).c_str(), RADIO.StrPort) ){ //ja7ude 0521
strcpy(RADIO.StrPort, "NONE");
RADIO.change = 1;
}
if( pBox->Execute() == TRUE ){
if( (PortName->Text != "NONE") && !strcmp(AnsiString(PortName->Text).c_str(), RADIO.StrPort) ){ //ja7ude 0521
PortName->Text = "NONE";
}
}
delete pBox;
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::SBClockAdjClick(TObject *Sender)
{
double d;
sscanf(AnsiString(EditSamp->Text).c_str(), "%lf", &d);
if( (d < 5000.0) || (d > CLOCKMAX) ){
d = sys.m_SampFreq;
}
TClockAdjDlg *pBox = new TClockAdjDlg(this);
if( pBox->Execute(Mmsstv->pSound, d) == TRUE ){
char bf[128];
sprintf(bf, "%.2lf", d);
EditSamp->Text = bf;
}
delete pBox;
}
#if 0
///----------------------------------------------------------------
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>v<EFBFBD>Z<EFBFBD><5A><EFBFBD>s<EFBFBD><73>
void MakeTeira(double *T, double *X, double *Y, int N)
{
if( N > 17 ) N = 17;
double Z[20][20];
int i, i0, i1, i2, i3;
int n0, n1;
double w;
for( i = 0; i < N; i++ ){
Z[i][0] = 1;
}
for( i1 = 0; i1 < N; i1++ ){
for( i2 = 1; i2 < N; i2++ ){
w = 1;
for( i3 = 0; i3 < i2; i3++ ){
w = w * X[i1];
}
Z[i1][i2] = w;
}
}
for( i1 = 0; i1 < N; i1++ ){
w = 0;
for( i2 = i1; i2 < N; i2++ ){
if( ABS(Z[i2][i1]) >= w ){
w = ABS(Z[i2][i1]);
i0 = i2;
}
}
if( i0 != N ){
for( i2 = i1; i2 < N; i2++ ){
w = Z[i1][i2];
Z[i1][i2] = Z[i0][i2];
Z[i0][i2] = w;
}
w = Y[i1];
Y[i1] = Y[i0];
Y[i0] = w;
}
w = Z[i1][i1];
if( w ){
for( i2 = i1; i2 < N; i2++ ){
Z[i1][i2] = Z[i1][i2]/w;
}
Y[i1] = Y[i1]/w;
}
if( i1 == N ) break;
n1 = i1 + 1;
for( i2 = n1; i2 < N; i2++ ){
w = Z[i2][i1];
for( i3 = n1; i3 < N; i3++ ){
Z[i2][i3] = Z[i2][i3] - w*Z[i1][i3];
}
Y[i2] = Y[i2] - w * Y[i1];
}
}
if( N > 1 ){
for( n1 = N - 1; n1 >= 1; n1-- ){
n0 = n1 - 1;
for( i2 = n1; i2 < N; i2++ ){
Y[n0] = Y[n0] - Y[i2] * Z[n0][i2];
}
}
}
for( i = 0; i < N; i++ ){
T[i] = Y[i];
}
}
#endif
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::TimerTimer(TObject *Sender)
{
if( SBTest->Down ){
int d = Mmsstv->pDem->m_CurSig;
switch(m_TestMode){
case 0:
m_TestCnt--;
if( !m_TestCnt ){
m_TestMode++;
m_TestCnt = 30 * m_BuffCal;
m_Avg.SetCount(30);
}
break;
case 1: // 1900Hz<48>̌v<CC8C><76>
m_Off = int(m_Avg.Avg(d) + 0.5);
Off1900->Text = m_Off;
m_TestCnt--;
if( !m_TestCnt ){
m_TestMode++;
m_TestCnt = 5 * m_BuffCal;
sys.m_TestDem = 1500;
}
break;
case 2:
m_TestCnt--;
if( !m_TestCnt ){
m_TestMode++;
m_TestCnt = 30 * m_BuffCal;
m_Avg.SetCount(30);
}
break;
case 3: // 1500Hz<48>̌v<CC8C><76>
m_Max1500 = int(m_Avg.Avg(d) + 0.5) - m_Off;
Max1500->Text = m_Max1500;
m_TestCnt--;
if( !m_TestCnt ){
m_TestMode++;
m_TestCnt = 5 * m_BuffCal;
sys.m_TestDem = 2300;
}
break;
case 4:
m_TestCnt--;
if( !m_TestCnt ){
m_TestMode++;
m_TestCnt = 30 * m_BuffCal;
m_Avg.SetCount(30);
}
break;
case 5: // 2300Hz<48>̌v<CC8C><76>
m_Max2300 = int(m_Avg.Avg(d) + 0.5) - m_Off;
Max2300->Text = m_Max2300;
m_TestCnt--;
if( !m_TestCnt ){
m_TestMode++;
sys.m_TestDem = 1500;
m_TestCnt = 2 * m_BuffCal;
}
break;
case 6:
m_TestCnt--;
if( !m_TestCnt ){
m_TestMode++;
m_TestCnt = 5 * m_BuffCal;
m_Avg.SetCount(3);
m_SubCnt = 0;
}
break;
case 7:
m_DataList[m_SubCnt] = m_Avg.Avg(d - m_Off);
sys.m_Dem17[m_SubCnt] = -m_DataList[m_SubCnt];
m_TestCnt--;
if( !m_TestCnt ){
m_TestCnt = 5 * m_BuffCal;
m_SubCnt++;
if( m_SubCnt > 16 ){
m_TestMode++;
}
else {
sys.m_TestDem += 50;
}
}
break;
case 8:
m_TestCnt--;
if( !m_TestCnt ){
Timer->Enabled = FALSE;
sys.m_TestDem = 0;
SBTest->Down = 0;
Mmsstv->pDem->m_SyncMode = 0;
Mmsstv->pMod->m_outgain = m_OutGain;
Screen->Cursor = crDefault;
Page->Enabled = TRUE;
OKBtn->Enabled = TRUE;
TLinearDspDlg *pBox = new TLinearDspDlg(this);
pBox->Execute(m_DataList);
delete pBox;
ModalResult = mrOk;
}
break;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::SBTestClick(TObject *Sender)
{
if( SBTest->Down ){ // <20>e<EFBFBD>X<EFBFBD>g<EFBFBD>̊J<CC8A>n
if( Mmsstv->SBTX->Down || Mmsstv->SBTune->Down ) Mmsstv->ToRX();
double d;
int dd;
if( sscanf(AnsiString(pllVCOGain->Text).c_str(), "%lf", &d) == 1 ){ //ja7ude 0521
if( d > 0.0 ) pDem->m_pll.SetVcoGain(d);
}
if( sscanf(AnsiString(pllLoopOrder->Text).c_str(), "%u", &dd) == 1 ){ //ja7ude 0521
if( (dd > 0) && (dd < 32) ) pDem->m_pll.m_loopOrder = dd;
}
if( sscanf(AnsiString(pllLoopFC->Text).c_str(), "%lf", &d) == 1 ){ //ja7ude 0521
if( d > 0.0 ) pDem->m_pll.m_loopFC = d;
}
if( sscanf(AnsiString(pllOutOrder->Text).c_str(), "%u", &dd) == 1 ){ //ja7ude 0521
if( (dd > 0) && (dd < 32) ) pDem->m_pll.m_outOrder = dd;
}
if( sscanf(AnsiString(pllOutFC->Text).c_str(), "%lf", &d) == 1 ){ //ja7ude 0521
if( d > 0.0 ) pDem->m_pll.m_outFC = d;
}
pDem->m_pll.MakeLoopLPF();
pDem->m_pll.MakeOutLPF();
if( sscanf(AnsiString(crossOutOrder->Text).c_str(), "%u", &dd) == 1 ){ //ja7ude 0521
if( (dd > 0) && (dd < 32) ) pDem->m_fqc.m_outOrder = dd;
}
if( sscanf(AnsiString(crossOutFC->Text).c_str(), "%lf", &d) == 1 ){ //ja7ude 0521
if( d > 0.0 ) pDem->m_fqc.m_outFC = d;
}
pDem->m_fqc.CalcLPF();
pDem->m_Type = RGDemType->ItemIndex;
m_BuffCal = (Mmsstv->pSound->m_BuffSize / SampFreq) / (2048.0/11025.0);
m_TestMode = 0;
m_TestCnt = 5;
Mmsstv->pDem->Stop();
Mmsstv->pDem->SetWidth(0);
Mmsstv->pDem->m_SyncMode = 255;
Mmsstv->pMod->m_outgain = 8192.0;
Mmsstv->pMod->m_vco.SetSampleFreq(sys.m_SampFreq);
sys.m_TestDem = 1900;
Timer->Enabled = TRUE;
Screen->Cursor = crHourGlass;
OKBtn->Enabled = FALSE;
Page->Enabled = FALSE;
}
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::RxBpfBtnClick(TObject *Sender)
{
if( !RGRxBPF->ItemIndex ) return;
double HBPF1[TAPMAX+1];
double HBPF2[TAPMAX+1];
double HBPF3[TAPMAX+1];
int tap;
pDem->CalcBPF(HBPF1, HBPF2, HBPF3, tap, RGRxBPF->ItemIndex, SSTVSET.m_TxMode);
TFreqDispDlg *pBox = new TFreqDispDlg(this);
pBox->Execute(IsNarrowMode(SSTVSET.m_TxMode) ? HBPF3 : HBPF1, tap, 1);
delete pBox;
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::PCFFTClick(TObject *Sender)
{
if( m_DisEvent ) return;
TPanel *tp = (TPanel *)Sender;
TColorDialog *pDialog = Mmsstv->ColorDialog;
pDialog->Color = tp->Color;
SetCustomColor();
NormalWindow(this);
SetDisPaint();
if( pDialog->Execute() == TRUE ){
tp->Color = pDialog->Color;
m_ColorChange = 1;
}
ResDisPaint();
TopWindow(this);
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::UDTxSampClick(TObject *Sender,
TUDBtnType Button)
{
if( m_DisEvent ) return;
if( Button == btNext ){
m_TxSampOff += 0.02;
}
else {
m_TxSampOff -= 0.02;
}
if( m_TxSampOff < 0.0 ){
m_TxSampOff = -m_TxSampOff;
m_TxSampOff = NormalSampFreq(m_TxSampOff, 50);
m_TxSampOff = -m_TxSampOff;
}
else {
m_TxSampOff = NormalSampFreq(m_TxSampOff, 50);
}
UpdateUI();
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::CWIDMacClick(TObject *Sender)
{
if( m_DisEvent ) return;
if( IDMMV->Checked ){
TOpenDialog *pDialog = Mmsstv->OpenDialog;
pDialog->Options >> ofCreatePrompt;
pDialog->Options << ofFileMustExist;
if( MsgEng ){
pDialog->Title = "Choose MMSSTV Sound file";
pDialog->Filter = "MMSSTV Sound Files(*.mmv)|*.mmv|";
}
else {
pDialog->Title = "MMSSTV<EFBFBD>T<EFBFBD>E<EFBFBD><EFBFBD><EFBFBD>h<EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43><EFBFBD>̑I<CC91><49>";
pDialog->Filter = "MMSSTV<EFBFBD>T<EFBFBD>E<EFBFBD><EFBFBD><EFBFBD>h<EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43>(*.mmv)|*.mmv|";
}
pDialog->FileName = "";
pDialog->DefaultExt = "mmv";
pDialog->InitialDir = BgnDir;
SetDisPaint();
NormalWindow(this);
if( Mmsstv->OpenDialogExecute(FALSE) == TRUE ){
MMVID->Text = pDialog->FileName.c_str();
}
ResDisPaint();
TopWindow(this);
}
else {
TMacroKeyDlg *pBox = new TMacroKeyDlg(this);
AnsiString as = CWIDText->Text;
if( pBox->Execute(as) > 0 ){
CWIDText->SetFocus();
CWIDText->SelStart = strlen(AnsiString(CWIDText->Text).c_str()); //ja7ude 0521
CWIDText->SelLength = 0;
for( LPCSTR p = as.c_str(); *p; p++ ){
::PostMessage(CWIDText->Handle, WM_CHAR, *p, 0);
}
}
delete pBox;
}
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::RGDemTypeClick(TObject *Sender)
{
if( m_DisEvent ) return;
CBCalWay->Checked = ((RGDemType->ItemIndex == 1) && (SampBase < 15000.0)) ? TRUE : FALSE;
UpdateUI();
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::TxSampOffChange(TObject *Sender)
{
if( m_DisEvent ) return;
double d;
if( sscanf(AnsiString(TxSampOff->Text).c_str(), "%lf", &d) == 1 ){ //ja7ude 0521
if( (d >= -1500.0) && (d <= 1500.0 ) ){
m_TxSampOff = d;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::CBCalWayClick(TObject *Sender)
{
if( m_DisEvent ) return;
UpdateUI();
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::IDOFFClick(TObject *Sender)
{
if( m_DisEvent ) return;
if( IDMMV->Checked ){
L7->Visible = FALSE;
L8->Visible = FALSE;
TBCW->Visible = FALSE;
CWIDFreq->Visible = FALSE;
L15->Visible = FALSE;
CWIDText->Visible = FALSE;
MMVID->Visible = TRUE;
CWIDMac->Caption = "Ref";
}
else {
L7->Visible = TRUE;
L8->Visible = TRUE;
TBCW->Visible = TRUE;
CWIDFreq->Visible = TRUE;
L15->Visible = TRUE;
CWIDText->Visible = TRUE;
MMVID->Visible = FALSE;
CWIDMac->Caption = "Macro";
}
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::VEditClick(TObject *Sender)
{
TTextEditDlg *pBox = new TTextEditDlg(this);
pBox->Execute(m_VOXSound, TRUE, "VOX tone freq(Hz), time(ms), ...");
delete pBox;
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::CBATClick(TObject *Sender)
{
if( m_DisEvent ) return;
if( CBAT->Checked ){
int dd = 0;
sscanf(AnsiString(TrigTXTime->Text).c_str(), "%d", &dd); //ja7ude 0521
if( dd < 0 ) TrigTXTime->Text = 5;
TuneFreq->Text = 1200;
}
else {
TuneFreq->Text = 1750;
TrigTXTime->Text = -1;
}
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::PortNameDropDown(TObject *Sender)
{
if( m_DisEvent ) return;
if( !m_MMList.IsQuery() ){
m_MMList.QueryList("FSK");
for( int i = 0; i < m_MMList.GetCount(); i++ ){
PortName->Items->Add(m_MMList.GetItemName(i));
}
PortName->DropDownCount = m_MMList.GetCount() + 18;
}
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::SourceClick(TObject *Sender)
{
UpdateUI();
}
//---------------------------------------------------------------------------
// RxBPF=Most, TxBPF=24
// Value = 7170 Celeron 1.06GHz 2003/10/22
void __fastcall TOptionDlg::SBTestMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if( Button == mbRight ){
CWaitCursor w;
TSound *pSound = Mmsstv->pSound;
if( pSound->m_ReqSpeedTest ) return;
pSound->m_ReqSpeedTest = 1;
while(pSound->m_ReqSpeedTest) ::Sleep(100);
InfoMB("Speed coefficient=%u (Sample=5117)", pSound->m_SpeedValue);
}
}
//---------------------------------------------------------------------------
void __fastcall TOptionDlg::DevNoChange(TObject *Sender)
{
if( m_DisEvent ) return;
m_DisEvent++;
if( IsMMW(AnsiString(DevNo->Text).c_str()) >= 0 ){ //ja7ude 0521
DevNoOut->Text = "";
}
else if( IsMMW(AnsiString(DevNoOut->Text).c_str()) >= 0 ){ //ja7ude 0521
DevNoOut->Text = "-1";
}
m_DisEvent--;
CBCalWayClick(Sender);
}
//---------------------------------------------------------------------------
Reference in a new issue Copy permalink