mirror of
https://github.com/n5ac/mmvari.git
synced 2025-12-06 04:12:03 +01:00
132 lines
4.2 KiB
C++
132 lines
4.2 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 "PlayDlg.h"
|
|
#include "ComLib.h"
|
|
#include "dsp.h"
|
|
#include "Main.h"
|
|
//---------------------------------------------------------------------
|
|
#pragma resource "*.dfm"
|
|
//TPlayDlgBox *PlayDlgBox;
|
|
//---------------------------------------------------------------------
|
|
__fastcall TPlayDlgBox::TPlayDlgBox(TComponent* AOwner)
|
|
: TForm(AOwner)
|
|
{
|
|
FormStyle = ((TForm *)AOwner)->FormStyle;
|
|
Font->Name = ((TForm *)AOwner)->Font->Name;
|
|
Font->Charset = ((TForm *)AOwner)->Font->Charset;
|
|
|
|
pWave = NULL;
|
|
m_DisEvent = 0;
|
|
|
|
if( sys.m_MsgEng ){
|
|
Caption = "Adjust Play position";
|
|
CloseBtn->Caption = "Hide";
|
|
StopBtn->Caption = "Stop";
|
|
LRec->Caption = "RecTime";
|
|
LNow->Caption = "NowTime";
|
|
}
|
|
FormCenter(this);
|
|
}
|
|
//---------------------------------------------------------------------
|
|
void __fastcall TPlayDlgBox::UpdateItem(void)
|
|
{
|
|
char bf[32];
|
|
|
|
int h = int(pWave->m_length * 0.5 / SAMPFREQ);
|
|
int s = h % 60;
|
|
h /= 60;
|
|
int m = h % 60;
|
|
h /= 60;
|
|
sprintf(bf, "%u:%02u:%02u", h, m, s);
|
|
LTime->Caption = bf;
|
|
h = int(pWave->GetPos() * 0.5 / SAMPFREQ);
|
|
s = h % 60;
|
|
h /= 60;
|
|
m = h % 60;
|
|
h /= 60;
|
|
sprintf(bf, "%u:%02u:%02u", h, m, s);
|
|
LPos->Caption = bf;
|
|
m_DisEvent++;
|
|
ScrollBar->Max = int(pWave->m_length * 0.5 / SAMPFREQ);
|
|
ScrollBar->Position = int(pWave->GetPos() * 0.5 / SAMPFREQ);
|
|
CheckPause->Checked = pWave->m_pause;
|
|
m_DisEvent--;
|
|
}
|
|
//---------------------------------------------------------------------
|
|
void __fastcall TPlayDlgBox::Execute(CWaveFile *wp)
|
|
{
|
|
pWave = wp;
|
|
pWave->m_autopause = 1;
|
|
LName->Caption = pWave->m_FileName;
|
|
UpdateItem();
|
|
// pWave->m_autopause = 0;
|
|
Visible = TRUE;
|
|
}
|
|
//---------------------------------------------------------------------
|
|
void __fastcall TPlayDlgBox::ScrollBarChange(TObject *Sender)
|
|
{
|
|
if( m_DisEvent ) return;
|
|
|
|
int pos = ScrollBar->Position;
|
|
pWave->Seek(pos * SAMPFREQ*2);
|
|
if( !CheckPause->Checked ) pWave->m_pause = 0;
|
|
|
|
char bf[128];
|
|
int h = pos;
|
|
int s = h % 60;
|
|
h /= 60;
|
|
int m = h % 60;
|
|
h /= 60;
|
|
sprintf(bf, "%u:%02u:%02u", h, m, s);
|
|
LPos->Caption = bf;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TPlayDlgBox::CheckPauseClick(TObject *Sender)
|
|
{
|
|
if( m_DisEvent ) return;
|
|
|
|
pWave->m_pause = CheckPause->Checked;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TPlayDlgBox::StopBtnClick(TObject *Sender)
|
|
{
|
|
::PostMessage(MainVARI->Handle, WM_WAVE, wavePlayDlg, DWORD(this));
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TPlayDlgBox::CloseBtnClick(TObject *Sender)
|
|
{
|
|
Visible = FALSE;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TPlayDlgBox::FormClose(TObject *Sender,
|
|
TCloseAction &Action)
|
|
{
|
|
if( Action == caHide ){
|
|
if( !pWave->m_mode ){
|
|
StopBtnClick(NULL);
|
|
}
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|