mirror of
https://github.com/n5ac/mmvari.git
synced 2025-12-06 04:12:03 +01:00
939 lines
30 KiB
C++
939 lines
30 KiB
C++
//Copyright+LGPL
|
||
|
||
//-----------------------------------------------------------------------------------------------------------------------------------------------
|
||
// Copyright 2000-2013 Makoto Mori, Nobuyuki Oba
|
||
//-----------------------------------------------------------------------------------------------------------------------------------------------
|
||
// This file is part of MMVARI.
|
||
|
||
// MMVARI 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.
|
||
|
||
// MMVARI 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 "ComLib.h"
|
||
#include "Main.h"
|
||
#include "dsp.h"
|
||
#include "CodeVw.h"
|
||
#include "RadioSet.h"
|
||
#include "cradio.h"
|
||
#include "MacEdit.h"
|
||
//---------------------------------------------------------------------
|
||
#pragma resource "*.dfm"
|
||
//TOptDlgBox *OptDlgBox;
|
||
//---------------------------------------------------------------------
|
||
__fastcall TOptDlgBox::TOptDlgBox(TComponent* AOwner)
|
||
: TForm(AOwner)
|
||
{
|
||
m_fDisEvent = TRUE;
|
||
FormStyle = ((TForm *)AOwner)->FormStyle;
|
||
Font->Name = ((TForm *)AOwner)->Font->Name;
|
||
Font->Charset = ((TForm *)AOwner)->Font->Charset;
|
||
if( sys.m_MsgEng ){
|
||
Caption = "Setup MMVARI";
|
||
CancelBtn->Caption = "Cancel";
|
||
|
||
TabRX->Caption = "RX";
|
||
TabTX->Caption = "TX";
|
||
TabMisc->Caption = "Misc";
|
||
|
||
// RX
|
||
GB10->Caption = "HPF (DC ingredients cutter)";
|
||
GB10->Hint = "It is unnecessary with most sound cards";
|
||
CBHPF->Caption = "Use HPF";
|
||
L10->Caption = "FREQ width +/-";
|
||
L13->Caption = "Sense level(S/N)";
|
||
GB6->Hint = "Narrow (less than 50Hz) is FB in HF";
|
||
GB15->Hint = "You do not need to change the value";
|
||
L20->Caption = "Speed";
|
||
L21->Caption = "Slow ---- Fast";
|
||
L22->Caption = "Sense level(S/N)";
|
||
L23->Caption = "Max range +/-";
|
||
CBMC->Caption = "Handling center frequency";
|
||
CBMM->Caption = "Use metric level squelch";
|
||
CBMM->Hint = "It may be FB, when you use narrow filter in the Rig";
|
||
GB17->Caption = "Misc";
|
||
CBSWL->Caption = "Show Time stamp for SWL";
|
||
CBPB->Caption = "Enabled Sound Playback";
|
||
LPB->Caption = "Playback speed\r\nx1 -------------- x20";
|
||
RGRTTY->Caption = "RTTY Demodulator";
|
||
|
||
// TX
|
||
CBComLock->Caption = "Exclusive lock";
|
||
CBFSK->Caption = "Output";
|
||
CBFSK->Hint = "Use multi-media timer function";
|
||
CBFSKINV->Caption = "Invert logic";
|
||
CBFSKINV->Hint = "Invert mark and space";
|
||
|
||
SBRadio->Caption = "Radio command";
|
||
GB8->Caption = "Digital output level";
|
||
RGLoopBack->Caption = "LoopBack";
|
||
RGLoopBack->Items->Strings[0] = "Internal";
|
||
RGLoopBack->Items->Strings[1] = "External (full-duplex)";
|
||
GBKey->Caption = "Key assign";
|
||
GB5->Caption = "Macro";
|
||
GB16->Caption = "Misc";
|
||
CBCA->Caption = "Convert MBCS alphabet to ASCII";
|
||
SBAS->Caption = "Edit AS(CW)";
|
||
SBAS->Hint = "Edit AS(CW) macro - Right click on the Spectrum scope";
|
||
GB33->Caption = "Event macro";
|
||
L33->Caption = "Name";
|
||
SBEvent->Caption = "Edit";
|
||
SBEventC->Caption = "Clear";
|
||
CBEvent->Hint = "Choose event to edit";
|
||
SBEvent->Hint = "Edit this event";
|
||
SBEventC->Hint = "Clear this event";
|
||
CBST->Caption = "Output single tone when the TX ends (PSK)";
|
||
|
||
// Misc
|
||
GB2->Caption = "Soundcard";
|
||
RGSoundIn->Caption = "Input channel";
|
||
RGSoundIn->Items->Strings[0] = "Mono";
|
||
RGSoundIn->Items->Strings[1] = "Left";
|
||
RGSoundIn->Items->Strings[2] = "Right";
|
||
RGPriority->Caption = "Priority";
|
||
RGPriority->Items->Strings[0] = "Normal";
|
||
RGPriority->Items->Strings[1] = "Higher";
|
||
RGPriority->Items->Strings[2] = "Highest";
|
||
GB11->Caption = "RX window";
|
||
SBRxFont->Caption = "Font";
|
||
SBRxChar->Caption = "Code list";
|
||
SBRxChar->Hint = "Character code list";
|
||
CBRxUTC->Caption = "Time stamp = UTC";
|
||
CBMW->Caption = "Scroll with mouse wheel";
|
||
CBShowCtrl->Caption = "Show CTRL code";
|
||
GB12->Caption = "TX window";
|
||
SBTxFont->Caption = "Font";
|
||
GBWindow->Caption = "Size and position";
|
||
RBW1->Caption = "Windows default";
|
||
RBW2->Caption = "Save size && pos.";
|
||
CBRestoreSub->Caption = "Restore sub channels";
|
||
GB13->Caption = "Spectrum scope";
|
||
GB14->Caption = "Waterfall scope";
|
||
L30->Caption = "Level";
|
||
L31->Caption = "Sigs";
|
||
|
||
SBJA->Caption = "Japanese";
|
||
SBEng->Caption = "English";
|
||
GB9->Caption = "Message-Language";
|
||
|
||
OKBtn->Hint = "Save all update && close this window";
|
||
CancelBtn->Hint = "Unsave all update && close this window";
|
||
EATCL->Hint = "Default = 15dB";
|
||
TBATC->Hint = "Default = Slow";
|
||
CBATCM->Hint = "Default = 25000ppm";
|
||
CBComPTT->Hint = "";
|
||
CBComLock->Hint = "Uncheck this, when the port shares with other software";
|
||
RGLoopBack->Hint = "Choose 'Internal' for usually operation";
|
||
ECallSign->Hint = "Your callsign";
|
||
GB8->Hint = "The signal may be a warp, when it is high (It depend on soundcard)";
|
||
CBKTX->Hint = "Switch TX/RX";
|
||
CBKTXOFF->Hint = "Abort TX";
|
||
CBCA->Hint = "Some transmission efficiency will be improved when does this conv.";
|
||
CBFifoRX->Hint = "Enlarge the value if you often break the sound in RX";
|
||
CBFifoTX->Hint = "Enlarge the value if you often break the sound in TX";
|
||
CBClock->Hint = "RX sampling FREQ (Put the same value of MMSSTV)";
|
||
CBTxOffset->Hint = "TX (offset) sampling FREQ (Put the same value of MMSSTV)";
|
||
CBSoundID->Hint = "Input sound device (device name or number)";
|
||
CBSoundIDTX->Hint = "Output sound device (device name or number)";
|
||
PCRx1->Hint = "Back color";
|
||
PCRx2->Hint = "Character color (RX)";
|
||
PCRx3->Hint = "Character color (TX)";
|
||
PCRx4->Hint = "Status color";
|
||
PCRx5->Hint = "Back color with scrolling";
|
||
PCTx1->Hint = "Back color";
|
||
PCTx2->Hint = "Character color";
|
||
PCTx3->Hint = "Character color (TX)";
|
||
PCTx4->Hint = "CWID/Control code color";
|
||
PS1->Hint = "Back color";
|
||
PS2->Hint = "Signal color";
|
||
PS3->Hint = "Text color";
|
||
PS4->Hint = "Scale";
|
||
PS5->Hint = "RX Marker";
|
||
PS6->Hint = "TX Marker";
|
||
PW1->Hint = "Back color";
|
||
PW2->Hint = "Level1";
|
||
PW3->Hint = "Text color";
|
||
PW4->Hint = "Marker frame";
|
||
PW5->Hint = "RX Marker";
|
||
PW6->Hint = "TX Marker";
|
||
PW7->Hint = "Level2";
|
||
PW8->Hint = "Level3";
|
||
PW9->Hint = "Level4";
|
||
PW10->Hint = "Level5";
|
||
PW11->Hint = "Level6";
|
||
PW12->Hint = "Level7";
|
||
PL->Hint = "Set level (Drag && drop)";
|
||
SBWLCD->Hint = "Return to the LCD's default (Level and Colors)";
|
||
SBWCRT->Hint = "Return to the CRT's default (Level and Colors)";
|
||
GBWindow->Hint = "Window size and position (when program will be invoked).";
|
||
SBFont->Hint = "Choose your favorite font for the program except TX/RX window";
|
||
}
|
||
else {
|
||
LPB->Caption = "<EFBFBD><EFBFBD>ڰ<EFBFBD>ޯ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>x\r\nx1 <---------> x20";
|
||
}
|
||
SBJA->Hint = "All menu messages are displayed in Japanese";
|
||
SBEng->Hint = "All menu messages are displayed in English";
|
||
|
||
double mb = 120.0 * SAMPBASE / (1024*1024);
|
||
char bf[256];
|
||
sprintf(bf, sys.m_MsgEng ? "To use memory of %.1lfMB for the function":"<EFBFBD><EFBFBD><EFBFBD>̋@<40>\<EFBFBD><EFBFBD>%.1lfMB<EFBFBD>̃<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>g<EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD>.", mb);
|
||
CBPB->Hint = bf;
|
||
|
||
UdATCL->Hint = EATCL->Hint;
|
||
m_fComChange = FALSE;
|
||
m_fLangChange = FALSE;
|
||
|
||
UdClock->Hint = CBClock->Hint;
|
||
UdTxOffset->Hint = CBTxOffset->Hint;
|
||
OnWave();
|
||
const DEFKEYTBL *pKey = KEYTBL;
|
||
for( ; pKey->Key; pKey++ ){
|
||
CBKTX->Items->Add(pKey->pName);
|
||
}
|
||
CBEvent->DropDownCount = macOnEnd;
|
||
for( int i = 0; i < macOnEnd; i++ ){
|
||
CBEvent->Items->Add(g_tMacEvent[i]);
|
||
}
|
||
CBEvent->ItemIndex = sys.m_EventIndex;
|
||
OnWave();
|
||
CBKTXOFF->Items->Assign(CBKTX->Items);
|
||
FormCenter(this);
|
||
m_MouseDown = 0;
|
||
m_MouseWLN = -1;
|
||
CWave *pw = &MainVARI->m_Wave;
|
||
pw->GetDeviceList();
|
||
for( int i = 0; i < pw->m_InDevs; i++ ){
|
||
if( !pw->m_tInDevName[i].IsEmpty() ){
|
||
CBSoundID->Items->Add(pw->m_tInDevName[i]);
|
||
}
|
||
}
|
||
for( int i = 0; i < pw->m_OutDevs; i++ ){
|
||
if( !pw->m_tOutDevName[i].IsEmpty() ){
|
||
CBSoundIDTX->Items->Add(pw->m_tOutDevName[i]);
|
||
}
|
||
}
|
||
CBSoundID->DropDownCount = CBSoundID->Items->Count;
|
||
CBSoundIDTX->DropDownCount = CBSoundIDTX->Items->Count;
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::UpdateButton(void)
|
||
{
|
||
if( m_FontCharset == SHIFTJIS_CHARSET ){
|
||
SBJA->Down = TRUE;
|
||
}
|
||
else {
|
||
SBEng->Down = TRUE;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::UpdateHint(void)
|
||
{
|
||
AnsiString as = PCRx2->Font->Name;
|
||
TFontStyles fs = PCRx2->Font->Style;
|
||
AddStyle(as, PCRx2->Font->Charset, FontStyle2Code(fs));
|
||
as += sys.m_MsgEng ? " (VariCode type is decided by this font)":" (<28><><EFBFBD>̃t<CC83>H<EFBFBD><48><EFBFBD>g<EFBFBD><67>VariCode<64>^<5E>C<EFBFBD>v<EFBFBD><76><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82>܂<EFBFBD>)";
|
||
SBRxFont->Hint = as;
|
||
as = PCTx2->Font->Name;
|
||
fs = PCTx2->Font->Style;
|
||
AddStyle(as, PCTx2->Font->Charset, FontStyle2Code(fs));
|
||
SBTxFont->Hint = as;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::DisplayHint(TObject *Sender)
|
||
{
|
||
LH->Caption = GetLongHint(Application->Hint);
|
||
}
|
||
//---------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::UpdateUI(void)
|
||
{
|
||
int dd;
|
||
BOOL f = (sscanf(AnsiString(CBSoundID->Text).c_str(), "%d", &dd) == 1 ); //JA7UDE 0428
|
||
if( !f ){
|
||
if( !strcmpi(AnsiString(CBSoundID->Text).c_str(), "Default") ){ //JA7UDE 0428
|
||
f = TRUE;
|
||
}
|
||
else {
|
||
CWave *pw = &MainVARI->m_Wave;
|
||
for(int i = 0; i < pw->m_InDevs; i++ ){
|
||
if( !strcmp(AnsiString(CBSoundID->Text).c_str(), AnsiString(pw->m_tInDevName[i]).c_str()) ){ //JA7UDE 0428
|
||
f = TRUE;
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
LO->Enabled = f;
|
||
CBSoundIDTX->Enabled = f;
|
||
|
||
GB3->Enabled = f;
|
||
SetGroupEnabled(GB3);
|
||
RGSoundIn->Enabled = f;
|
||
|
||
f = CBPB->Checked;
|
||
TBPB->Visible = f;
|
||
LPB->Visible = f;
|
||
SBEventC->Enabled = !m_MacEvent[CBEvent->ItemIndex].IsEmpty();
|
||
|
||
AnsiString as = CBComPTT->Text;
|
||
f = strncmpi(as.c_str(), "COM", 3);
|
||
if( f ){ // COMxx
|
||
f = strcmp(as.c_str(), "NONE");
|
||
}
|
||
else {
|
||
LPCSTR p = as.c_str();
|
||
f = isdigit(p[3]) ? 0 : 1;
|
||
}
|
||
CBFSKINV->Enabled = f ? 0 : 1;
|
||
}
|
||
//---------------------------------------------------------------------
|
||
int __fastcall TOptDlgBox::Execute(DWORD dwPage)
|
||
{
|
||
m_fDisEvent = TRUE;
|
||
int i;
|
||
char bf[256];
|
||
// RX
|
||
CBAFCW->Text = MainVARI->m_AFCWidth;
|
||
UdAFCL->Position = short(MainVARI->m_AFCLevel);
|
||
CBHPF->Checked = MainVARI->m_fHPF;
|
||
TBATC->Position = short(MainVARI->m_ATCSpeed);
|
||
UdATCL->Position = short(MainVARI->m_ATCLevel);
|
||
CBATCM->Text = MainVARI->m_ATCLimit;
|
||
CBSWL->Checked = sys.m_fAutoTS;
|
||
CBPB->Checked = sys.m_fPlayBack;
|
||
TBPB->Position = sys.m_PlayBackSpeed;
|
||
RGRTTY->ItemIndex = MainVARI->m_RxSet[0].m_RTTYFFT;
|
||
// TX
|
||
CBComPTT->Text = sys.m_PTTCOM;
|
||
CBFSK->Checked = sys.m_bFSKOUT;
|
||
CBFSKINV->Checked = sys.m_bINVFSK;
|
||
|
||
CBComLock->Checked = sys.m_PTTLock;
|
||
RGLoopBack->ItemIndex = sys.m_LoopBack;
|
||
|
||
ECallSign->Text = sys.m_CallSign;
|
||
m_AS = sys.m_AS.c_str();
|
||
for( i = 0; i < macOnEnd; i++ ) m_MacEvent[i] = sys.m_MacEvent[i];
|
||
TBModGain->Position = MainVARI->m_ModGain;
|
||
|
||
CBKTX->ItemIndex = CBKTX->Items->IndexOf(GetKeyName(sys.m_DefKey[kkTX]));
|
||
CBKTXOFF->ItemIndex = CBKTXOFF->Items->IndexOf(GetKeyName(sys.m_DefKey[kkTXOFF]));
|
||
CBCA->Checked = MainVARI->m_fConvAlpha;
|
||
CBMC->Checked = sys.m_MFSK_Center;
|
||
CBMM->Checked = sys.m_MFSK_SQ_Metric;
|
||
CBST->Checked = sys.m_fSendSingleTone;
|
||
|
||
//Misc
|
||
CBFifoRX->Text = MainVARI->m_Wave.m_InFifoSize;
|
||
CBFifoTX->Text = MainVARI->m_Wave.m_OutFifoSize;
|
||
RGSoundIn->ItemIndex = MainVARI->m_Wave.m_SoundStereo;
|
||
|
||
int d;
|
||
if( MainVARI->m_Wave.m_SoundID == -2 ){
|
||
CBSoundID->Text = sys.m_SoundMMW;
|
||
}
|
||
else {
|
||
if( (sscanf(sys.m_SoundIDRX.c_str(), "%d", &d ) == 1) && (d == -1) ){
|
||
CBSoundID->Text = "Default";
|
||
}
|
||
else {
|
||
CBSoundID->Text = sys.m_SoundIDRX;
|
||
}
|
||
}
|
||
if( (sscanf(sys.m_SoundIDTX.c_str(), "%d", &d ) == 1) && (d == -1) ){
|
||
CBSoundIDTX->Text = "Default";
|
||
}
|
||
else {
|
||
CBSoundIDTX->Text = sys.m_SoundIDTX;
|
||
}
|
||
sprintf(bf, "%.2lf", SAMPFREQ);
|
||
CBClock->Text = bf;
|
||
sprintf(bf, "%.2lf", SAMPTXOFFSET);
|
||
CBTxOffset->Text = bf;
|
||
UdTxOffset->Position = 0;
|
||
RGPriority->ItemIndex = MainVARI->m_Priority;
|
||
|
||
PCRx2->Font = MainVARI->PCRX->Font;
|
||
long cz;
|
||
cz = MainVARI->m_Dump.m_Color[0].d;
|
||
PCRx1->Color = cz;
|
||
cz = MainVARI->m_Dump.m_Color[1].d;
|
||
PCRx2->Color = cz;
|
||
cz = MainVARI->m_Dump.m_Color[2].d;
|
||
PCRx3->Color = cz;
|
||
cz = MainVARI->m_Dump.m_Color[3].d;
|
||
PCRx4->Color = cz;
|
||
cz = MainVARI->m_Dump.m_Color[4].d;
|
||
PCRx5->Color = cz;
|
||
|
||
//PCRx1->Color = MainVARI->m_Dump.m_Color[0].c;
|
||
//PCRx2->Color = MainVARI->m_Dump.m_Color[1].c;
|
||
//PCRx3->Color = MainVARI->m_Dump.m_Color[2].c;
|
||
//PCRx4->Color = MainVARI->m_Dump.m_Color[3].c;
|
||
//PCRx5->Color = MainVARI->m_Dump.m_Color[4].c;
|
||
|
||
CBRxUTC->Checked = MainVARI->m_StatusUTC;
|
||
CBMW->Checked = sys.m_EnableMouseWheel;
|
||
CBShowCtrl->Checked = sys.m_fShowCtrlCode;
|
||
|
||
PCTx2->Font = MainVARI->PCTX->Font;
|
||
cz = MainVARI->m_Edit[0].m_Color[0].c;
|
||
PCTx1->Color = cz;
|
||
cz = MainVARI->m_Edit[0].m_Color[1].c;
|
||
PCTx2->Color = cz;
|
||
cz = MainVARI->m_Edit[0].m_Color[2].c;
|
||
PCTx3->Color = cz;
|
||
cz = MainVARI->m_Edit[0].m_Color[3].c;
|
||
PCTx4->Color = cz;
|
||
|
||
//PCTx1->Color = MainVARI->m_Edit[0].m_Color[0].c;
|
||
//PCTx2->Color = MainVARI->m_Edit[0].m_Color[1].c;
|
||
//PCTx3->Color = MainVARI->m_Edit[0].m_Color[2].c;
|
||
//PCTx4->Color = MainVARI->m_Edit[0].m_Color[3].c;
|
||
|
||
PS1->Color = MainVARI->m_tFFTColset[0].c;
|
||
PS2->Color = MainVARI->m_tFFTColset[1].c;
|
||
PS3->Color = MainVARI->m_tFFTColset[2].c;
|
||
PS4->Color = MainVARI->m_tFFTColset[3].c;
|
||
PS5->Color = MainVARI->m_tFFTColset[4].c;
|
||
PS6->Color = MainVARI->m_tFFTColset[5].c;
|
||
|
||
PW1->Color = MainVARI->m_tWaterColset[0].c;
|
||
PW2->Color = MainVARI->m_tWaterColset[1].c;
|
||
PW3->Color = MainVARI->m_tWaterColset[2].c;
|
||
PW4->Color = MainVARI->m_tWaterColset[3].c;
|
||
PW5->Color = MainVARI->m_tWaterColset[4].c;
|
||
PW6->Color = MainVARI->m_tWaterColset[5].c;
|
||
PW7->Color = MainVARI->m_tWaterColset[6].c;
|
||
PW8->Color = MainVARI->m_tWaterColset[7].c;
|
||
PW9->Color = MainVARI->m_tWaterColset[8].c;
|
||
PW10->Color = MainVARI->m_tWaterColset[9].c;
|
||
PW11->Color = MainVARI->m_tWaterColset[10].c;
|
||
PW12->Color = MainVARI->m_tWaterColset[11].c;
|
||
PL->Color = PW1->Color;
|
||
for( i = 0; i < 6; i++ ){
|
||
m_tWaterLevel[i] = MainVARI->m_tWaterLevel[i];
|
||
}
|
||
|
||
RBW1->Checked = !sys.m_fFixWindow;
|
||
RBW2->Checked = sys.m_fFixWindow;
|
||
CBRestoreSub->Checked = sys.m_fRestoreSubChannel;
|
||
|
||
m_FontName = sys.m_FontName;
|
||
m_FontCharset = sys.m_FontCharset;
|
||
|
||
UpdateButton();
|
||
UpdateHint();
|
||
UpdateUI();
|
||
OnWave();
|
||
m_fDisEvent = FALSE;
|
||
|
||
if( (dwPage >= 0) && (dwPage <= 2) ){
|
||
sys.m_OptionPage = dwPage;
|
||
}
|
||
SetActiveIndex(Page, sys.m_OptionPage);
|
||
m_fnHintProc = Application->OnHint;
|
||
Application->OnHint = DisplayHint;
|
||
int r = ShowModal();
|
||
Application->OnHint = m_fnHintProc;
|
||
sys.m_OptionPage = GetActiveIndex(Page);
|
||
sys.m_EventIndex = CBEvent->ItemIndex;
|
||
if( r == IDOK ){
|
||
int di;
|
||
double dd;
|
||
// RX
|
||
sscanf(AnsiString(CBAFCW->Text).c_str(), "%u", &di); //JA7UDE 0428
|
||
if( (di >= 0) && (di <= 2000) ){
|
||
MainVARI->m_AFCWidth = di;
|
||
}
|
||
MainVARI->m_AFCLevel = UdAFCL->Position;
|
||
MainVARI->m_fHPF = CBHPF->Checked;
|
||
MainVARI->SetATCSpeed(TBATC->Position);
|
||
MainVARI->m_ATCLevel = UdATCL->Position;
|
||
sscanf(AnsiString(CBATCM->Text).c_str(), "%u", &di); //JA7UDE 0428
|
||
if( (di >= 1000) && (di <= 100000) ){
|
||
MainVARI->SetATCLimit(di);
|
||
}
|
||
sys.m_fAutoTS = CBSWL->Checked;
|
||
sys.m_fPlayBack = CBPB->Checked;
|
||
sys.m_PlayBackSpeed = TBPB->Position;
|
||
|
||
// TX
|
||
sys.m_PTTCOM = CBComPTT->Text;
|
||
sys.m_bFSKOUT = CBFSK->Checked;
|
||
sys.m_bINVFSK = CBFSKINV->Checked;
|
||
if( MainVARI->m_pCom ) MainVARI->m_pCom->SetFSK(sys.m_bFSKOUT, sys.m_bINVFSK);
|
||
|
||
sys.m_PTTLock = CBComLock->Checked;
|
||
sys.m_LoopBack = RGLoopBack->ItemIndex;
|
||
sys.m_CallSign = ECallSign->Text;
|
||
sys.m_AS = m_AS.c_str();
|
||
for( i = 0; i < macOnEnd; i++ ) sys.m_MacEvent[i] = m_MacEvent[i];
|
||
MainVARI->m_ModGain = TBModGain->Position;
|
||
MainVARI->UpdateModGain();
|
||
|
||
sys.m_DefKey[kkTX] = GetKeyCode(AnsiString(CBKTX->Text).c_str()); //JA7UDE 0428
|
||
sys.m_DefKey[kkTXOFF] = GetKeyCode(AnsiString(CBKTXOFF->Text).c_str()); //JA7UDE 0428
|
||
MainVARI->SetConvAlpha(CBCA->Checked);
|
||
sys.m_fSendSingleTone = CBST->Checked;
|
||
|
||
PCTx2->Font->Charset = PCRx2->Font->Charset;
|
||
LOGFONT l1;
|
||
LOGFONT l2;
|
||
GetLogFont(&l1, PCRx2->Font);
|
||
GetLogFont(&l2, MainVARI->PCRX->Font);
|
||
if( memcmp(&l1, &l2, sizeof(l1)) ){
|
||
MainVARI->PCRX->Font = PCRx2->Font;
|
||
MainVARI->OnFontChange(FALSE);
|
||
}
|
||
MainVARI->m_Dump.m_Color[0].c = PCRx1->Color;
|
||
MainVARI->m_Dump.m_Color[1].c = PCRx2->Color;
|
||
MainVARI->m_Dump.m_Color[2].c = PCRx3->Color;
|
||
MainVARI->m_Dump.m_Color[3].c = PCRx4->Color;
|
||
MainVARI->m_Dump.m_Color[4].c = PCRx5->Color;
|
||
MainVARI->m_StatusUTC = CBRxUTC->Checked;
|
||
sys.m_EnableMouseWheel = CBMW->Checked;
|
||
sys.m_fShowCtrlCode = CBShowCtrl->Checked;
|
||
|
||
GetLogFont(&l1, PCTx2->Font);
|
||
GetLogFont(&l2, MainVARI->PCTX->Font);
|
||
if( memcmp(&l1, &l2, sizeof(l1)) ){
|
||
MainVARI->PCTX->Font = PCTx2->Font;
|
||
MainVARI->OnFontChange(TRUE);
|
||
}
|
||
for( int i = 0; i < 4; i++ ){
|
||
MainVARI->m_Edit[i].m_Color[0].c = PCTx1->Color;
|
||
MainVARI->m_Edit[i].m_Color[1].c = PCTx2->Color;
|
||
MainVARI->m_Edit[i].m_Color[2].c = PCTx3->Color;
|
||
MainVARI->m_Edit[i].m_Color[3].c = PCTx4->Color;
|
||
MainVARI->m_Edit[i].m_Color[4].c = PCTx1->Color;
|
||
}
|
||
MainVARI->m_tFFTColset[0].c = PS1->Color;
|
||
MainVARI->m_tFFTColset[1].c = PS2->Color;
|
||
MainVARI->m_tFFTColset[2].c = PS3->Color;
|
||
MainVARI->m_tFFTColset[3].c = PS4->Color;
|
||
MainVARI->m_tFFTColset[4].c = PS5->Color;
|
||
MainVARI->m_tFFTColset[5].c = PS6->Color;
|
||
|
||
MainVARI->m_tWaterColset[0].c = PW1->Color;
|
||
MainVARI->m_tWaterColset[1].c = PW2->Color;
|
||
MainVARI->m_tWaterColset[2].c = PW3->Color;
|
||
MainVARI->m_tWaterColset[3].c = PW4->Color;
|
||
MainVARI->m_tWaterColset[4].c = PW5->Color;
|
||
MainVARI->m_tWaterColset[5].c = PW6->Color;
|
||
MainVARI->m_tWaterColset[6].c = PW7->Color;
|
||
MainVARI->m_tWaterColset[7].c = PW8->Color;
|
||
MainVARI->m_tWaterColset[8].c = PW9->Color;
|
||
MainVARI->m_tWaterColset[9].c = PW10->Color;
|
||
MainVARI->m_tWaterColset[10].c = PW11->Color;
|
||
MainVARI->m_tWaterColset[11].c = PW12->Color;
|
||
for( i = 0; i < 6; i++ ){
|
||
MainVARI->m_tWaterLevel[i] = m_tWaterLevel[i];
|
||
}
|
||
|
||
sys.m_fFixWindow = RBW2->Checked;
|
||
sys.m_fRestoreSubChannel = CBRestoreSub->Checked;
|
||
|
||
if( RGRTTY->ItemIndex != MainVARI->m_RxSet[0].m_RTTYFFT ){
|
||
MainVARI->SetRTTYFFT(RGRTTY->ItemIndex);
|
||
}
|
||
|
||
sys.m_MFSK_SQ_Metric = CBMM->Checked;
|
||
sscanf(AnsiString(CBClock->Text).c_str(), "%lf", &dd); //JA7UDE 0428
|
||
di = CBMC->Checked != sys.m_MFSK_Center;
|
||
if( (dd != SAMPFREQ) || di ){
|
||
sys.m_MFSK_Center = CBMC->Checked;
|
||
MainVARI->SetSampleFreq(dd, di);
|
||
}
|
||
sscanf(AnsiString(CBTxOffset->Text).c_str(), "%lf", &dd); //JA7UDE 0428
|
||
if( dd != SAMPTXOFFSET ){
|
||
MainVARI->SetTxOffset(dd);
|
||
}
|
||
sscanf(AnsiString(CBFifoRX->Text).c_str(), "%u", &di); //JA7UDE 0428
|
||
if( (di >= 4) && (di <= 32) ){
|
||
MainVARI->SetRXFifo(di);
|
||
}
|
||
sscanf(AnsiString(CBFifoTX->Text).c_str(), "%u", &di); //JA7UDE 0428
|
||
if( (di >= 4) && (di <= 32) ){
|
||
MainVARI->SetTXFifo(di);
|
||
}
|
||
MainVARI->SetSoundCard(RGSoundIn->ItemIndex, AnsiString(CBSoundID->Text).c_str(), AnsiString(CBSoundIDTX->Text).c_str()); //JA7UDE 0428
|
||
MainVARI->UpdatePriority(RGPriority->ItemIndex);
|
||
|
||
if( (m_FontCharset != sys.m_FontCharset) || (m_FontName != sys.m_FontName) ){
|
||
m_fLangChange = TRUE;
|
||
sys.m_FontCharset = m_FontCharset;
|
||
sys.m_FontName = m_FontName;
|
||
}
|
||
return TRUE;
|
||
}
|
||
OnWave();
|
||
return FALSE;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::UdTxOffsetClick(TObject *Sender,
|
||
TUDBtnType Button)
|
||
{
|
||
if( m_fDisEvent ) return;
|
||
|
||
double f;
|
||
sscanf(AnsiString(CBTxOffset->Text).c_str(), "%lf", &f); //JA7UDE 0428
|
||
if( Button == Comctrls::btNext ){
|
||
f += 0.02;
|
||
}
|
||
else {
|
||
f -= 0.02;
|
||
}
|
||
char bf[128];
|
||
sprintf(bf, "%.2lf", f);
|
||
m_fDisEvent++;
|
||
CBTxOffset->Text = bf;
|
||
m_fDisEvent--;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::CBTxOffsetChange(TObject *Sender)
|
||
{
|
||
if( m_fDisEvent ) return;
|
||
double fq;
|
||
sscanf(AnsiString(CBTxOffset->Text).c_str(), "%lf", &fq); //JA7UDE 0428
|
||
if( (fq >= -300.0) && (fq <= 300.0) ){
|
||
m_fDisEvent++;
|
||
UdTxOffset->Position = short(fq * 100.0);
|
||
m_fDisEvent--;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::SBRxFontClick(TObject *Sender)
|
||
{
|
||
TFontDialog *pBox = new TFontDialog(this);
|
||
TPanel *pPanel = Sender == SBRxFont ? PCRx2 : PCTx2;
|
||
pBox->Font = pPanel->Font;
|
||
pBox->Font->Color = pPanel->Color;
|
||
OnWave();
|
||
if( pBox->Execute() ){
|
||
pPanel->Font = pBox->Font;
|
||
pPanel->Color = pBox->Font->Color;
|
||
if( pPanel == PCRx2 ){
|
||
PCTx2->Font->Name = PCRx2->Font->Name;
|
||
PCTx2->Font->Charset = PCRx2->Font->Charset;
|
||
}
|
||
UpdateHint();
|
||
}
|
||
delete pBox;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::SBRxCharClick(TObject *Sender)
|
||
{
|
||
LOGFONT l1;
|
||
GetLogFont(&l1, PCRx2->Font);
|
||
TCodeView *pBox = new TCodeView(this);
|
||
Application->OnHint = m_fnHintProc;
|
||
pBox->Execute(NULL, 0, 0, PCRx2->Font);
|
||
Application->OnHint = DisplayHint;
|
||
LOGFONT l2;
|
||
GetLogFont(&l2, PCRx2->Font);
|
||
if( memcmp(&l1, &l2, sizeof(l1)) ){
|
||
PCTx2->Font->Name = PCRx2->Font->Name;
|
||
PCTx2->Font->Charset = PCRx2->Font->Charset;
|
||
UpdateHint();
|
||
}
|
||
delete pBox;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::PCRx1Click(TObject *Sender)
|
||
{
|
||
TColorDialog *pBox = new TColorDialog(this);
|
||
pBox->Options << cdFullOpen;
|
||
TPanel *pPanel = (TPanel *)Sender;
|
||
pBox->Color = pPanel->Color;
|
||
OnWave();
|
||
if( pBox->Execute() ){
|
||
pPanel->Color = pBox->Color;
|
||
if( pPanel == PW1 ) PL->Color = PW1->Color;
|
||
PBL->Invalidate();
|
||
}
|
||
delete pBox;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::UdClockClick(TObject *Sender,
|
||
TUDBtnType Button)
|
||
{
|
||
if( m_fDisEvent ) return;
|
||
|
||
double f;
|
||
sscanf(AnsiString(CBClock->Text).c_str(), "%lf", &f); //JA7UDE 0428
|
||
if( Button == Comctrls::btNext ){
|
||
f += 0.02;
|
||
}
|
||
else {
|
||
f -= 0.02;
|
||
}
|
||
char bf[128];
|
||
sprintf(bf, "%.2lf", f);
|
||
m_fDisEvent++;
|
||
CBClock->Text = bf;
|
||
m_fDisEvent--;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::CBComPTTChange(TObject *Sender)
|
||
{
|
||
if( m_fDisEvent ) return;
|
||
|
||
m_fComChange = TRUE;
|
||
UpdateUI();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::SBRadioClick(TObject *Sender)
|
||
{
|
||
TRADIOSetDlg *pBox = new TRADIOSetDlg(this);
|
||
RADIO.change = pBox->Execute();
|
||
delete pBox;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::SBEngClick(TObject *Sender)
|
||
{
|
||
if( SBJA->Down ){
|
||
m_FontName = "<EFBFBD>l<EFBFBD>r <20>o<EFBFBD>S<EFBFBD>V<EFBFBD>b<EFBFBD>N";
|
||
m_FontCharset = SHIFTJIS_CHARSET;
|
||
if( sys.m_MsgEng ){
|
||
Application->MessageBox(L"MMVARI<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 MMVARI for Japanese mode)", L"MMVARI", MB_ICONINFORMATION|MB_OK);
|
||
}
|
||
}
|
||
else {
|
||
m_FontName = "Arial";
|
||
m_FontCharset = ANSI_CHARSET;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::SBFontClick(TObject *Sender)
|
||
{
|
||
TFontDialog *pBox = new TFontDialog(this);
|
||
pBox->Font->Name = m_FontName;
|
||
pBox->Font->Charset = m_FontCharset;
|
||
OnWave();
|
||
if( pBox->Execute() ){
|
||
m_FontName = pBox->Font->Name;
|
||
m_FontCharset = pBox->Font->Charset;
|
||
UpdateButton();
|
||
}
|
||
delete pBox;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::PBLPaint(TObject *Sender)
|
||
{
|
||
int xw = PBL->Width;
|
||
int yw = PBL->Height;
|
||
int x;
|
||
|
||
TCanvas *pCanvas = PBL->Canvas;
|
||
|
||
TRect rc;
|
||
rc.Left = 0; rc.Top = 0;
|
||
rc.Right = xw; rc.Bottom = yw;
|
||
pCanvas->Brush->Color = PW1->Color;
|
||
pCanvas->FillRect(rc);
|
||
|
||
pCanvas->Pen->Width = 2;
|
||
TColor col[6];
|
||
col[0] = PW2->Color;
|
||
col[1] = PW7->Color;
|
||
col[2] = PW8->Color;
|
||
col[3] = PW9->Color;
|
||
col[4] = PW10->Color;
|
||
col[5] = PW11->Color;
|
||
|
||
for( int i = 0; i < 6; i++ ){
|
||
x = m_tWaterLevel[i] * xw / 256;
|
||
pCanvas->Pen->Color = col[i];
|
||
pCanvas->MoveTo(x, 0);
|
||
pCanvas->LineTo(x, yw);
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
int __fastcall TOptDlgBox::GetWLNo(int x)
|
||
{
|
||
int i;
|
||
int *ip = m_tWaterLevel;
|
||
for( i = 0; i < 6; i++, ip++ ){
|
||
int X = *ip * PBL->Width / 256;
|
||
if( (x > (X-3)) && (x < (X+3)) ){
|
||
return i;
|
||
}
|
||
}
|
||
return -1;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::PBLMouseDown(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
if( Button != mbLeft ) return;
|
||
|
||
if( m_MouseWLN >= 0 ){
|
||
m_MouseDown = TRUE;
|
||
switch(m_MouseWLN){
|
||
case 0:
|
||
m_MinWL = 0;
|
||
m_MaxWL = m_tWaterLevel[1];
|
||
break;
|
||
case 1:
|
||
case 2:
|
||
case 3:
|
||
case 4:
|
||
m_MinWL = m_tWaterLevel[m_MouseWLN-1];
|
||
m_MaxWL = m_tWaterLevel[m_MouseWLN+1];
|
||
break;
|
||
case 5:
|
||
m_MinWL = m_tWaterLevel[4];
|
||
m_MaxWL = 256;
|
||
break;
|
||
}
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::PBLMouseMove(TObject *Sender,
|
||
TShiftState Shift, int X, int Y)
|
||
{
|
||
if( m_MouseDown ){
|
||
int x = X * 256 / PBL->Width;
|
||
if( (x > m_MinWL) && (x < m_MaxWL) ){
|
||
m_tWaterLevel[m_MouseWLN] = x;
|
||
PBLPaint(NULL);
|
||
}
|
||
}
|
||
else {
|
||
m_MouseWLN = GetWLNo(X);
|
||
PBL->Cursor = m_MouseWLN >= 0 ? crSizeWE : crDefault;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::PBLMouseUp(TObject *Sender,
|
||
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||
{
|
||
m_MouseDown = FALSE;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|
||
void __fastcall TOptDlgBox::SBWLCDClick(TObject *Sender)
|
||
{
|
||
PW1->Color = clBlack; // back
|
||
PW3->Color = clWhite; // char
|
||
PW4->Color = clRed; // WAKU
|
||
PW5->Color = TColor(RGB(0,255,255)); // RX
|
||
PW6->Color = clBlue; // TX
|
||
|
||
if( Sender == SBWLCD ){
|
||
m_tWaterLevel[0] = 28;
|
||
m_tWaterLevel[1] = 100;
|
||
m_tWaterLevel[2] = 168;
|
||
m_tWaterLevel[3] = 192;
|
||
m_tWaterLevel[4] = 220;
|
||
m_tWaterLevel[5] = 240;
|
||
|
||
PW2->Color = TColor(RGB(0,255,255)); // low
|
||
PW7->Color = clYellow; // mid-low
|
||
PW8->Color = TColor(RGB(255,128,0)); // mid
|
||
PW9->Color = TColor(RGB(255,0,128)); // mid-high
|
||
PW10->Color = clRed; // Peak
|
||
PW11->Color = clRed; // Peak
|
||
PW12->Color = clRed; // Peak
|
||
}
|
||
else {
|
||
m_tWaterLevel[0] = 10;
|
||
m_tWaterLevel[1] = 60;
|
||
m_tWaterLevel[2] = 134;
|
||
m_tWaterLevel[3] = 192;
|
||
m_tWaterLevel[4] = 220;
|
||
m_tWaterLevel[5] = 240;
|
||
|
||
PW2->Color = TColor(16711680); // low
|
||
PW7->Color = TColor(16776960); // mid-low
|
||
PW8->Color = TColor(65535); // mid
|
||
PW9->Color = TColor(33023); // mid-high
|
||
PW10->Color = clRed; // Peak
|
||
PW11->Color = clRed; // Peak
|
||
PW12->Color = clRed; // Peak
|
||
}
|
||
PBL->Invalidate();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::CBSoundIDDropDown(TObject *Sender)
|
||
{
|
||
if( m_fDisEvent ) return;
|
||
|
||
if( !m_MMListW.IsQuery() ){
|
||
m_MMListW.QueryList("MMW");
|
||
for( int i = 0; i < m_MMListW.GetCount(); i++ ){
|
||
CBSoundID->Items->Add(m_MMListW.GetItemName(i));
|
||
}
|
||
CBSoundID->DropDownCount = CBSoundID->Items->Count;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::CBSoundIDChange(TObject *Sender)
|
||
{
|
||
if( m_fDisEvent ) return;
|
||
UpdateUI();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::CBComPTTDropDown(TObject *Sender)
|
||
{
|
||
if( m_fDisEvent ) return;
|
||
|
||
if( !m_MMListF.IsQuery() ){
|
||
m_MMListF.QueryList("FSK");
|
||
for( int i = 0; i < m_MMListF.GetCount(); i++ ){
|
||
CBComPTT->Items->Add(m_MMListF.GetItemName(i));
|
||
}
|
||
CBComPTT->DropDownCount = CBComPTT->Items->Count;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::SBASClick(TObject *Sender)
|
||
{
|
||
TMacEditDlg *pBox = new TMacEditDlg(this);
|
||
if( pBox->Execute(m_AS, "AS(CW)") ){
|
||
AdjustAS(&m_AS);
|
||
}
|
||
delete pBox;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::SBEventClick(TObject *Sender)
|
||
{
|
||
int n = CBEvent->ItemIndex;
|
||
TMacEditDlg *pBox = new TMacEditDlg(this);
|
||
if( pBox->Execute(m_MacEvent[n], g_tMacEvent[n]) ){
|
||
AdjustAS(&m_MacEvent[n]);
|
||
}
|
||
delete pBox;
|
||
UpdateUI();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::SBEventCClick(TObject *Sender)
|
||
{
|
||
int n = CBEvent->ItemIndex;
|
||
if( YesNoMB(sys.m_MsgEng ? "Clear contents of %s, and stop executing this event macro.":"%s<>̒<EFBFBD><CC92>`<60><><EFBFBD>e<EFBFBD><65><EFBFBD>N<EFBFBD><4E><EFBFBD>A<EFBFBD><41><EFBFBD>A<EFBFBD><41><EFBFBD>̃C<CC83>x<EFBFBD><78><EFBFBD>g<EFBFBD>}<7D>N<EFBFBD><4E><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>~<7E><><EFBFBD>܂<EFBFBD>.", g_tMacEvent[n]) == IDYES ){
|
||
m_MacEvent[n] = "";
|
||
UpdateUI();
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TOptDlgBox::CBPBClick(TObject *Sender)
|
||
{
|
||
UpdateUI();
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|
||
|
||
|