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

939 lines
30 KiB
C++
Raw Permalink Normal View History

Added LGPL files from AA6YQ
2013-07-05 22:09:45 +02:00
//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();
}
//---------------------------------------------------------------------------
Reference in a new issue Copy permalink