mirror of
https://github.com/n5ac/mmsstv.git
synced 2025-12-06 04:12:03 +01:00
1232 lines
34 KiB
C++
1232 lines
34 KiB
C++
//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);
|
||
}
|
||
//---------------------------------------------------------------------------
|