mirror of
https://github.com/n5ac/mmsstv.git
synced 2025-12-06 04:12:03 +01:00
92 lines
3.1 KiB
C++
92 lines
3.1 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 "InputWin.h"
|
||
|
|
#include "MacroKey.h"
|
||
|
|
#include "ComLib.h"
|
||
|
|
//---------------------------------------------------------------------
|
||
|
|
#pragma resource "*.dfm"
|
||
|
|
//---------------------------------------------------------------------
|
||
|
|
__fastcall TInputWinDlg::TInputWinDlg(TComponent* AOwner)
|
||
|
|
: TForm(AOwner)
|
||
|
|
{
|
||
|
|
FormStyle = ((TForm *)AOwner)->FormStyle;
|
||
|
|
Font->Name = ((TForm *)AOwner)->Font->Name;
|
||
|
|
Font->Charset = ((TForm *)AOwner)->Font->Charset;
|
||
|
|
if( MsgEng ){
|
||
|
|
CancelBtn->Caption = "Cancel";
|
||
|
|
BMac->Caption = "Macro";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
//---------------------------------------------------------------------
|
||
|
|
int InputMB(LPCSTR pTitle, LPCSTR pMsg, AnsiString &as, BOOL fMac)
|
||
|
|
{
|
||
|
|
TForm *fp;
|
||
|
|
if( Screen->ActiveForm != NULL ){
|
||
|
|
fp = Screen->ActiveForm;
|
||
|
|
}
|
||
|
|
else if( Application->MainForm != NULL ){
|
||
|
|
fp = Application->MainForm;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
fp = NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
TInputWinDlg *pBox = new TInputWinDlg(fp);
|
||
|
|
pBox->BMac->Visible = fMac;
|
||
|
|
pBox->LMsg->Caption = pMsg;
|
||
|
|
pBox->Caption = pTitle ? pTitle : "MMSSTV";
|
||
|
|
pBox->Edit->Text = as.c_str();
|
||
|
|
int r = FALSE;
|
||
|
|
if( pBox->ShowModal() == IDOK ){
|
||
|
|
as = pBox->Edit->Text.c_str();
|
||
|
|
r = TRUE;
|
||
|
|
}
|
||
|
|
delete pBox;
|
||
|
|
return r;
|
||
|
|
}
|
||
|
|
//---------------------------------------------------------------------
|
||
|
|
int InputMB(LPCSTR pTitle, LPCSTR pMsg, AnsiString &as)
|
||
|
|
{
|
||
|
|
return InputMB(pTitle, pMsg, as, FALSE);
|
||
|
|
}
|
||
|
|
//---------------------------------------------------------------------
|
||
|
|
void __fastcall TInputWinDlg::BMacClick(TObject *Sender)
|
||
|
|
{
|
||
|
|
TMacroKeyDlg *pBox = new TMacroKeyDlg(this);
|
||
|
|
AnsiString as = Edit->Text;
|
||
|
|
if( pBox->Execute(as) > 0 ){
|
||
|
|
HWND hWnd;
|
||
|
|
Edit->SetFocus();
|
||
|
|
Edit->SelStart = strlen(AnsiString(Edit->Text).c_str()); //ja7ude 0428
|
||
|
|
Edit->SelLength = 0;
|
||
|
|
hWnd = Edit->Handle;
|
||
|
|
for( LPCSTR p = as.c_str(); *p; p++ ){
|
||
|
|
::PostMessage(hWnd, WM_CHAR, *p, 0);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
delete pBox;
|
||
|
|
}
|
||
|
|
//---------------------------------------------------------------------------
|
||
|
|
|