Initial commit
This commit is contained in:
@@ -0,0 +1,263 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
|
||||
#include "ImportSegmentFormUnit.h"
|
||||
#include "MessageFormUnit.h"
|
||||
|
||||
#define E_WrongMIDIFormat 0x00000001 //MIDI版本错误
|
||||
#define E_FileFormatError 0x00000002 //语法格式错误
|
||||
#define E_TSConflict 0x00000004 //节拍匹配错误
|
||||
#define E_TempoConfilict 0x00000008 //速度匹配错误
|
||||
#define E_LessBarsNum 0x00000010 //小节数不足
|
||||
#define E_MoreBarsNum 0x00000020 //小节数过多
|
||||
#define E_EmptySegment 0x00000040 //片段无有效音轨数据
|
||||
|
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init)
|
||||
#pragma link "ComboBoxComponent"
|
||||
#pragma link "GeneralDialogPanel"
|
||||
#pragma link "LineEdit"
|
||||
#pragma link "TextButton"
|
||||
#pragma resource "*.dfm"
|
||||
TImportSegmentForm *ImportSegmentForm;
|
||||
//---------------------------------------------------------------------------
|
||||
__fastcall TImportSegmentForm::TImportSegmentForm(TComponent* Owner, TPreStylePanel* pStylePanel)
|
||||
: TForm(Owner)
|
||||
{
|
||||
m_pStylePanel = pStylePanel;
|
||||
|
||||
SetSegType();
|
||||
|
||||
SetTransparent( this );
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void TImportSegmentForm::SetSegType()
|
||||
{
|
||||
int iOldIndex = m_cbSegType->DefItemIndex;
|
||||
|
||||
m_cbSegType->Clear();
|
||||
m_aParams.clear();
|
||||
|
||||
TStyleItem* pStyItem = m_pStylePanel->GetStyleItem();
|
||||
DWORD dwParam = 0;
|
||||
if( pStyItem->nSegNum[0]<8 ){
|
||||
m_cbSegType->AddItem( "伴奏" );
|
||||
m_aParams.push_back( MAKELONG(pStyItem->nSegNum[0], SEGTYPE_VAR) );
|
||||
}
|
||||
if( pStyItem->nSegNum[1]<8 ){
|
||||
m_cbSegType->AddItem( "加花" );
|
||||
m_aParams.push_back( MAKELONG(pStyItem->nSegNum[1], SEGTYPE_FILL) );
|
||||
}
|
||||
|
||||
int count = m_pStylePanel->GetIECount( 0, 0 );
|
||||
if( count < 4 ){
|
||||
m_cbSegType->AddItem( "前奏(大调)" );
|
||||
m_aParams.push_back( MAKELONG(count, SEGTYPE_INTRO) );
|
||||
}
|
||||
count = m_pStylePanel->GetIECount( 0, 1 );
|
||||
if( count < 4 ){
|
||||
m_cbSegType->AddItem( "前奏(小调)" );
|
||||
m_aParams.push_back( MAKELONG(count+4, SEGTYPE_INTRO) );
|
||||
}
|
||||
count = m_pStylePanel->GetIECount( 1, 0 );
|
||||
if( count < 4 ){
|
||||
m_cbSegType->AddItem( "尾奏(大调)" );
|
||||
m_aParams.push_back( MAKELONG(count, SEGTYPE_ENDING) );
|
||||
}
|
||||
count = m_pStylePanel->GetIECount( 1, 1 );
|
||||
if( count < 4 ){
|
||||
m_cbSegType->AddItem( "尾奏(小调)" );
|
||||
m_aParams.push_back( MAKELONG(count+4, SEGTYPE_ENDING) );
|
||||
}
|
||||
|
||||
count = m_cbSegType->ItemsCount;
|
||||
if( count>0 ){
|
||||
if( iOldIndex<0 || iOldIndex>=count )
|
||||
m_cbSegType->DefItemIndex = 0;
|
||||
else
|
||||
m_cbSegType->DefItemIndex = iOldIndex;
|
||||
}
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TImportSegmentForm::OkClick(TObject *Sender)
|
||||
{
|
||||
String strTips[] = {L"提示：请选择导入的MIDI文件和片段类型",
|
||||
L"提示：风格所含片段数已达上限",
|
||||
L"错误：所选文件不是标准MIDI(1)格式",
|
||||
L"错误：MIDI语法解析错误",
|
||||
L"错误：MIDI节拍不一致",
|
||||
L"错误：MIDI速度不一致",
|
||||
L"错误：伴奏片段不得少于2小节",
|
||||
L"错误：加花片段不得超过1小节",
|
||||
L"错误：片段不得超过16小节",
|
||||
L"错误：片段缺少有效音轨数据" };
|
||||
int iTip = 0;
|
||||
|
||||
if( m_editFileName->Text.Length()==0 ){
|
||||
m_editFileName->SetFocus();
|
||||
}
|
||||
else{
|
||||
string strName = AnsiString(m_editFileName->Text.Trim().c_str()).c_str();
|
||||
DWORD dwParam = m_aParams[m_cbSegType->DefItemIndex];
|
||||
int segType = HIWORD( dwParam ),
|
||||
segNo = LOWORD( dwParam ),
|
||||
errCode = 0;
|
||||
char tracks[16][3];
|
||||
memset( tracks, -1, sizeof(tracks) );
|
||||
TStyleItem* pStyItem = m_pStylePanel->GetStyleItem();
|
||||
|
||||
UINT idLoc = -1, idStyle = 0;
|
||||
TPROSTYLE* pStyle = pStyItem->pStyle;
|
||||
if( pStyle && pStyle->idLoc!=0 && pStyle->idLoc!=(UINT)-1 ){
|
||||
for( int i=0; i<pStyItem->aItems->Count; i++ ){
|
||||
TSegmentItem* pSeg = (TSegmentItem*)pStyItem->aItems->Items[i];
|
||||
for( int j=0; j<pSeg->aItems->Count; j++ ){
|
||||
TTrackItem* pTrk = (TTrackItem*)pSeg->aItems->Items[j];
|
||||
if( pTrk->pStyle==pStyle ){
|
||||
idLoc = pStyle->idLoc;
|
||||
idStyle = pStyle->idStyle;
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
int nBars = f_CM_AddTempSegment( idLoc, idStyle, (char*)strName.c_str(), g_iMelodyTimeSignature,
|
||||
g_nMelodyTempo, segType, segNo, errCode, tracks );
|
||||
|
||||
if( nBars<0 ){ //添加失败
|
||||
if( errCode & E_FileFormatError )
|
||||
iTip = 2;
|
||||
else if( errCode & E_WrongMIDIFormat )
|
||||
iTip = 3;
|
||||
else if( errCode & E_TSConflict )
|
||||
iTip = 4;
|
||||
else if( errCode & E_TempoConfilict )
|
||||
iTip = 5;
|
||||
else if( errCode & E_LessBarsNum )
|
||||
iTip = 6;
|
||||
else if( errCode & E_MoreBarsNum ){
|
||||
if( segType==SEGTYPE_FILL )
|
||||
iTip = 7;
|
||||
else
|
||||
iTip = 8;
|
||||
}
|
||||
else if( errCode & E_EmptySegment )
|
||||
iTip = 9;
|
||||
}
|
||||
else{ //添加成功
|
||||
TPROSTYLE* pTmpStyle = GetStyleInfo( -1, 0 );
|
||||
if( !pTmpStyle ){
|
||||
pTmpStyle = new TPROSTYLE;
|
||||
pTmpStyle->idLoc = -1;
|
||||
pTmpStyle->idStyle = 0;
|
||||
g_aTempStyles.push_back( pTmpStyle );
|
||||
}
|
||||
|
||||
DWORD opts = OPT_DEL | OPT_VOL | (segType<SEGTYPE_INTRO ? OPT_BRUSH : 0);
|
||||
TSegmentItem* pSegItem = new TSegmentItem( pStyItem, segType, LOWORD( dwParam ),
|
||||
opts, 0, LOWORD( dwParam ), 100 );
|
||||
|
||||
opts = OPT_DEL|OPT_FONTPROG|OPT_VOL | (segType<SEGTYPE_INTRO ? OPT_TEXTURE : 0);
|
||||
for( int i=0; i<16; i++ ){
|
||||
if( tracks[i][0]>=0 ){
|
||||
pSegItem->AddTrack( pTmpStyle, segNo,
|
||||
tracks[i][0],
|
||||
tracks[i][1],
|
||||
tracks[i][2],
|
||||
opts );
|
||||
}
|
||||
else
|
||||
break;
|
||||
}
|
||||
|
||||
if( pStyle && pStyle->idLoc!=0 && pStyle->idLoc!=(UINT)-1 ){
|
||||
for( int i=0; i<pStyItem->aItems->Count; i++ ){
|
||||
TSegmentItem* pSeg = (TSegmentItem*)pStyItem->aItems->Items[i];
|
||||
for( int j=0; j<pSeg->aItems->Count; j++ ){
|
||||
TTrackItem* pTrk = (TTrackItem*)pSeg->aItems->Items[j];
|
||||
if( pTrk->pStyle==pStyle ){
|
||||
pTrk->pStyle = pTmpStyle;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if( segType>=SEGTYPE_INTRO ){
|
||||
pSegItem->nBars = nBars;
|
||||
}
|
||||
|
||||
g_strSegImportPath = ExtractFilePath( m_editFileName->Text ).c_str();
|
||||
|
||||
m_pStylePanel->AddTempSegment( pSegItem );
|
||||
|
||||
SetSegType();
|
||||
|
||||
if( m_cbSegType->ItemsCount==0 ){
|
||||
iTip = 1;
|
||||
m_btnBrowse->Enabled = false;
|
||||
m_btnOk->Enabled = false;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
m_lblTips->Font->Color = iTip<2 ? 0x00DACBBF : 0x004040FF;
|
||||
m_lblTips->Caption = strTips[iTip];
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TImportSegmentForm::BrowseClick(TObject *Sender)
|
||||
{
|
||||
TOpenDialog * pDlg = new TOpenDialog(NULL);
|
||||
pDlg->Options << ofFileMustExist;
|
||||
pDlg->Title = L"导入";
|
||||
if( m_editFileName->Text.Length()>0 ){
|
||||
pDlg->FileName = ExtractFileName(m_editFileName->Text);
|
||||
pDlg->InitialDir = ExtractFilePath(m_editFileName->Text);
|
||||
}
|
||||
else{
|
||||
pDlg->InitialDir = g_strSegImportPath.c_str();
|
||||
}
|
||||
|
||||
|
||||
pDlg->Filter = "midi文件 (*.mid)|*.MID";
|
||||
|
||||
if(pDlg->Execute(Handle)){
|
||||
m_editFileName->Text = pDlg->FileName;
|
||||
}
|
||||
|
||||
delete pDlg;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
|
||||
void __fastcall TImportSegmentForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
|
||||
{
|
||||
switch( Key ){
|
||||
case VK_RETURN:
|
||||
if(m_btnOk->Enabled)
|
||||
OkClick(NULL);
|
||||
break;
|
||||
|
||||
case VK_ESCAPE:
|
||||
ModalResult = mrCancel;
|
||||
break;
|
||||
}
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TImportSegmentForm::FormCreate(TObject *Sender)
|
||||
{
|
||||
m_panelBk->Font->Size = g_szFont9;
|
||||
m_btnBrowse->FontSize = g_szFont9;
|
||||
m_btnCancel->FontSize = g_szFont9;
|
||||
m_btnOk->FontSize = g_szFont9;
|
||||
m_cbSegType->SetFont(g_strTxtFontName, g_szFont9);
|
||||
m_editFileName->SetTextFont(g_strTxtFontName, g_szFont9);
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
Reference in New Issue
Block a user