mirror of
https://github.com/n5ac/mmsstv.git
synced 2025-12-06 04:12:03 +01:00
93 lines
3.2 KiB
C++
93 lines
3.2 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 "ExtCmd.h"
|
|||
|
|
#include "Main.h"
|
|||
|
|
//---------------------------------------------------------------------
|
|||
|
|
#pragma resource "*.dfm"
|
|||
|
|
//---------------------------------------------------------------------
|
|||
|
|
__fastcall TExtCmdDlg::TExtCmdDlg(TComponent* AOwner)
|
|||
|
|
: TForm(AOwner)
|
|||
|
|
{
|
|||
|
|
FormStyle = ((TForm *)AOwner)->FormStyle;
|
|||
|
|
Font->Name = ((TForm *)AOwner)->Font->Name;
|
|||
|
|
Font->Charset = ((TForm *)AOwner)->Font->Charset;
|
|||
|
|
if( MsgEng ){
|
|||
|
|
Caption = "Assign program";
|
|||
|
|
CancelBtn->Caption = "Cancel";
|
|||
|
|
L1->Caption = "Menu name";
|
|||
|
|
L2->Caption = "Program file";
|
|||
|
|
RefBtn->Caption = "Ref.";
|
|||
|
|
CBR->Caption = "Suspend (This program will use same sound card)";
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------
|
|||
|
|
int __fastcall TExtCmdDlg::Execute(AnsiString &Name, AnsiString &Cmd, int &Susp)
|
|||
|
|
{
|
|||
|
|
EM->Text = Name;
|
|||
|
|
EC->Text = Cmd;
|
|||
|
|
CBR->Checked = Susp;
|
|||
|
|
if( ShowModal() == IDOK ){
|
|||
|
|
if( !EC->Text.IsEmpty() ){
|
|||
|
|
Name = EM->Text;
|
|||
|
|
Cmd = EC->Text;
|
|||
|
|
Susp = CBR->Checked;
|
|||
|
|
return TRUE;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
return FALSE;
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------
|
|||
|
|
void __fastcall TExtCmdDlg::RefBtnClick(TObject *Sender)
|
|||
|
|
{
|
|||
|
|
char bf[256];
|
|||
|
|
SetDirName(bf, AnsiString(EC->Text).c_str()); //ja7ude 0428
|
|||
|
|
if( !bf[0] ){
|
|||
|
|
strcpy(bf, "C:\\Program Files");
|
|||
|
|
}
|
|||
|
|
TOpenDialog *pDialog = Mmsstv->OpenDialog;
|
|||
|
|
pDialog->Options >> ofCreatePrompt;
|
|||
|
|
pDialog->Options << ofFileMustExist;
|
|||
|
|
if( MsgEng ){
|
|||
|
|
pDialog->Title = "Program file";
|
|||
|
|
pDialog->Filter = "Program files(*.exe;*.lnk)|*.exe;*.lnk|";
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
pDialog->Title = "<EFBFBD>v<EFBFBD><EFBFBD><EFBFBD>O<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43>";
|
|||
|
|
pDialog->Filter = "<EFBFBD>v<EFBFBD><EFBFBD><EFBFBD>O<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>t<EFBFBD>@<40>C<EFBFBD><43>(*.exe;*.lnk)|*.exe;*.lnk|";
|
|||
|
|
}
|
|||
|
|
pDialog->FileName = "";
|
|||
|
|
pDialog->DefaultExt = "exe";
|
|||
|
|
pDialog->InitialDir = bf;
|
|||
|
|
SetDisPaint();
|
|||
|
|
NormalWindow(this);
|
|||
|
|
if( Mmsstv->OpenDialogExecute(FALSE) == TRUE ){
|
|||
|
|
EC->Text = pDialog->FileName.c_str();
|
|||
|
|
}
|
|||
|
|
ResDisPaint();
|
|||
|
|
TopWindow(this);
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
|