558 lines
15 KiB
C++
558 lines
15 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "PredefineProjectFormUnit.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma link "GeneralDialogPanel"
|
|
#pragma link "SkinTrackBar"
|
|
#pragma link "LineEdit"
|
|
#pragma link "ComboBoxComponent"
|
|
#pragma link "TextButton"
|
|
#pragma resource "*.dfm"
|
|
TPredefineProjectForm *PredefineProjectForm;
|
|
|
|
const BYTE u_arrPredefChords[3][2][8][8] = { //预设和弦
|
|
//主歌
|
|
{ { { 0, 37, 20, 28, 0, 37, 20, 30 }, // 1 6 4 5 1 6 4 5
|
|
{ 0, 17, 37, 28, 0, 17, 37, 30 }, // 1 3 6 5 1 3 6 5
|
|
{ 0, 37, 20, 17, 37, 20, 28, 0 }, // 1 6 4 3 6 4 5 1
|
|
{ 0, 17, 37, 28, 20, 17, 9, 30 }, // 1 3 6 5 4 3 2 5
|
|
{ 0, 28, 37, 28, 0, 28, 37, 30 }, // 1 5 6 5 1 5 6 5
|
|
{ 0, 37, 28, 20, 17, 9, 28, 0 }, // 1 6 5 4 3 2 5 1
|
|
{ 0, 9, 28, 0, 0, 9, 28, 0 }, // 1 2 5 1 1 2 5 1
|
|
{ 0, 20, 28, 0, 0, 20, 28, 0 } // 1 4 5 1 1 4 5 1
|
|
},
|
|
{ {37, 9, 17, 37, 37, 9, 17, 37 }, // 6 2 3 6 6 2 3 6
|
|
{37, 28, 20, 17, 37, 28, 20, 19 }, // 6 5 4 3 6 5 4 3
|
|
{37, 28, 17, 37, 37, 28, 17, 37 }, // 6 5 3 6 6 5 3 6
|
|
{37, 20, 9, 17, 37, 20, 9, 19 }, // 6 4 2 3 6 4 2 3
|
|
{37, 17, 37, 28, 37, 17, 37, 30 }, // 6 3 6 5 6 3 6 5
|
|
{37, 9, 20, 28, 37, 9, 20, 30 }, // 6 2 4 5 6 2 4 5
|
|
{37, 9, 28, 37, 37, 9, 28, 37 }, // 6 2 5 6 6 2 5 6
|
|
{37, 20, 9, 37, 37, 20, 9, 37 } // 6 4 2 6 6 4 2 6
|
|
}
|
|
},
|
|
//副歌
|
|
{ { { 0, 37, 20, 17, 37, 20, 28, 0 }, // 1 6 4 3 6 4 5 1
|
|
{ 0, 37, 28, 20, 17, 9, 28, 0 }, // 1 6 5 4 3 2 5 1
|
|
{ 0, 9, 28, 0, 0, 9, 28, 0 }, // 1 2 5 1 1 2 5 1
|
|
{ 0, 20, 28, 0, 0, 20, 28, 0 }, // 1 4 5 1 1 4 5 1
|
|
{20, 28, 37, 37, 20, 28, 0, 0 }, // 4 5 6 6 4 5 1 1
|
|
{ 9, 28, 0, 28, 37, 9, 28, 0 }, // 2 5 1 5 6 2 5 1
|
|
{20, 28, 17, 37, 20, 9, 28, 0 }, // 4 5 3 6 4 2 5 1
|
|
{ 9, 28, 20, 28, 0, 20, 28, 0 } // 2 5 4 5 1 4 5 1
|
|
},
|
|
{ {37, 9, 17, 37, 37, 9, 17, 37 }, // 6 2 3 6 6 2 3 6
|
|
{37, 28, 17, 37, 37, 28, 17, 37 }, // 6 5 3 6 6 5 3 6
|
|
{37, 9, 28, 37, 37, 9, 28, 37 }, // 6 2 5 6 6 2 5 6
|
|
{37, 20, 9, 37, 37, 20, 9, 37 }, // 6 4 2 6 6 4 2 6
|
|
{ 9, 17, 28, 37, 9, 17, 28, 37 }, // 2 3 5 6 2 3 5 6
|
|
{37, 9, 28, 17, 37, 9, 28, 37 }, // 6 2 5 3 6 2 5 6
|
|
{20, 28, 0, 0, 20, 28, 37, 37 }, // 4 5 1 1 4 5 6 6
|
|
{17, 37, 9, 28, 17, 37, 17, 37 } // 3 6 2 5 3 6 3 6
|
|
}
|
|
},
|
|
//桥
|
|
{ { { 9, 20, 28, 17, 9, 20, 28, 0 }, // 2 4 5 3 2 4 5 1
|
|
{ 9, 28, 0, 28, 37, 28, 0, 30 }, // 2 5 1 5 6 5 1 5
|
|
{20, 17, 9, 28, 0, 17, 9, 30 }, // 4 3 2 5 1 3 2 5
|
|
{17, 9, 37, 17, 9, 28, 0, 30 }, // 3 2 6 3 2 5 1 5
|
|
{20, 0, 20, 0, 20, 0, 20, 30 }, // 4 1 4 1 4 1 4 5
|
|
{20, 28, 0, 0, 20, 28, 0, 0 }, // 4 5 1 1 4 5 1 1
|
|
{20, 17, 9, 0, 20, 17, 9, 0 }, // 4 3 2 1 4 3 2 1
|
|
{28, 20, 28, 20, 0, 28, 20, 30 } // 5 4 5 4 1 5 4 5
|
|
},
|
|
{ { 9, 17, 28, 37, 9, 17, 28, 37 }, // 2 3 5 6 2 3 5 6
|
|
{17, 37, 28, 37, 9, 17, 20, 19 }, // 3 6 5 6 2 3 4 3
|
|
{20, 0, 28, 37, 20, 0, 37, 19 }, // 4 1 5 6 4 1 6 3
|
|
{20, 28, 0, 28, 20, 28, 0, 30 }, // 4 5 1 5 4 5 1 5
|
|
{ 9, 17, 37, 17, 20, 37, 0, 37 }, // 2 3 6 3 4 6 1 6
|
|
{ 9, 37, 9, 37, 9, 37, 9, 19 }, // 2 6 2 6 2 6 2 3
|
|
{ 9, 37, 9, 17, 9, 37, 20, 30 }, // 2 6 2 3 2 6 4 5
|
|
{17, 9, 17, 37, 20, 9, 17, 37 } // 3 2 3 6 4 2 3 6
|
|
}
|
|
}
|
|
};
|
|
//---------------------------------------------------------------------------
|
|
|
|
__fastcall TPredefineProjectForm::TPredefineProjectForm(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
SetTransparent( this );
|
|
InitVariable();
|
|
InitUI();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
__fastcall TPredefineProjectForm::~TPredefineProjectForm()
|
|
{
|
|
if(mTest) {
|
|
delete mTest;
|
|
mTest = NULL;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::InitUI()
|
|
{
|
|
for(int i = 0; i < KEY_NUM; i++) {
|
|
String KeyStr = String(g_strMelodyKey[i]);
|
|
if(KeyStr.Length() == 1) {
|
|
KeyStr = L" " + KeyStr;
|
|
}
|
|
mKeyComboBox->AddItem(KeyStr);
|
|
}
|
|
|
|
mKeyTypeComboBox->AddItem(L"大调");
|
|
mKeyTypeComboBox->AddItem(L"小调");
|
|
|
|
mStageComboBox->AddItem(IntToStr(1));
|
|
mStageComboBox->AddItem(IntToStr(2));
|
|
mStageComboBox->AddItem(IntToStr(3));
|
|
|
|
mStageSetComboBox->AddItem(IntToStr(1));
|
|
mStageSetComboBox->AddItem(IntToStr(2));
|
|
|
|
mTSComboBox->AddItem(String(g_strTimeSignature[0]));
|
|
mTSComboBox->AddItem(String(g_strTimeSignature[1]));
|
|
mTSComboBox->AddItem(String(g_strTimeSignature[2]));
|
|
mTSComboBox->AddItem(String(g_strTimeSignature[3]));
|
|
|
|
mTempoComboBox->AddItem(L"慢速");
|
|
mTempoComboBox->AddItem(L"稍慢");
|
|
mTempoComboBox->AddItem(L"中速");
|
|
mTempoComboBox->AddItem(L"稍快");
|
|
mTempoComboBox->AddItem(L"很快");
|
|
mTempoComboBox->AddItem(L"自定义");
|
|
mTempoComboBox->DefItemIndex = 2;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TPredefineProjectForm::InitVariable()
|
|
{
|
|
m_Ts = g_iMelodyTimeSignature;
|
|
m_Tempo = g_nMelodyTempo;
|
|
m_Key = 0;
|
|
m_KeyType = 0;
|
|
m_RavStage = 2;
|
|
|
|
mLordSong = rand() % 8;
|
|
mBridge = rand() % 8;
|
|
mRefrain = rand() % 8;
|
|
|
|
mPaintBoxDefColor = TColor(0x4D4641);
|
|
mPaintBoxFocColor = TColor(0xAA9C91);
|
|
|
|
mPaintBoxFlag = true;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
void __fastcall TPredefineProjectForm::DoShowPreChordPaint(TObject *Sender)
|
|
{
|
|
TPaintBox *PaintBox = (TPaintBox *)Sender;
|
|
|
|
TRect cRect = PaintBox->ClientRect;
|
|
PaintBox->Canvas->Brush->Color = mPaintBoxDefColor;
|
|
|
|
if(PaintBox->Canvas->Pen->Color == mPaintBoxFocColor)
|
|
PaintBox->Canvas->RoundRect(cRect, 5, 5);
|
|
else
|
|
PaintBox->Canvas->FillRect(cRect);
|
|
|
|
cRect.Right--;
|
|
cRect.Left++;
|
|
cRect.Top++;
|
|
cRect.Bottom--;
|
|
|
|
PaintBox->Canvas->Brush->Color = TColor(0xC4B4A8);
|
|
PaintBox->Canvas->Pen->Color = TColor(0x302E2C);
|
|
PaintBox->Canvas->RoundRect(cRect, 5, 5);
|
|
|
|
PaintBox->Canvas->Pen->Color = mPaintBoxDefColor;
|
|
|
|
int Preset = 0;
|
|
|
|
int Stage = mStageSetComboBox->DefItemIndex;
|
|
|
|
if(mStageComboBox->DefItemIndex == 2) {
|
|
if(mStageSetComboBox->DefItemIndex == 0) {
|
|
Preset = mLordSong;
|
|
}
|
|
else if(mStageSetComboBox->DefItemIndex == 1) {
|
|
Preset = mBridge;
|
|
Stage = 2;
|
|
}
|
|
else if(mStageSetComboBox->DefItemIndex == 2){
|
|
Preset = mRefrain;
|
|
Stage = 1;
|
|
}
|
|
}
|
|
else {
|
|
if(mStageSetComboBox->DefItemIndex == 0) {
|
|
Preset = mLordSong;
|
|
}
|
|
else if(mStageSetComboBox->DefItemIndex == 1) {
|
|
Preset = mRefrain;
|
|
}
|
|
}
|
|
|
|
BYTE *Chord = (BYTE *)u_arrPredefChords[Stage][m_KeyType][Preset];
|
|
|
|
for(int i = 0; i < 8; i++) {
|
|
TRect Rect = mChordRect[i];
|
|
int ch = Chord[i];
|
|
|
|
int type = ch & 0x03;
|
|
int key = (ch >> 2) + m_Key;
|
|
|
|
if( key>11 ) key -= 12;
|
|
|
|
DrawChord(PaintBox->Canvas, Rect, key, type);
|
|
|
|
if(i != 7) {
|
|
PaintBox->Canvas->MoveTo(Rect.Right - 1, Rect.Top);
|
|
PaintBox->Canvas->LineTo(Rect.Right - 1, Rect.Bottom);
|
|
}
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void TPredefineProjectForm::DrawChord(TCanvas *Canvas, TRect Rect, int iKey, int iType)
|
|
{
|
|
int iMainKey, iAjustKey; //调级数、升降
|
|
TPrefineProjectSetItem::GetChordDisplayKey(iKey, m_Key, iMainKey, iAjustKey);
|
|
TPrefineProjectSetItem::UniDrawChord(Canvas, Rect, iMainKey, iAjustKey, iType);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::FormCreate(TObject *Sender)
|
|
{
|
|
GeneralDialogPanel->Font->Size = g_szFont9;
|
|
mTempoLineEdit->SetTextFont(g_strTxtFontName, g_szFont9);
|
|
mCancelButton->FontSize = g_szFont9;
|
|
mOkButton->FontSize = g_szFont9;
|
|
|
|
mKeyComboBox->SetFont(g_strTxtFontName, g_szFont9);
|
|
mKeyTypeComboBox->SetFont(g_strTxtFontName, g_szFont9);
|
|
mStageComboBox->SetFont(g_strTxtFontName, g_szFont9);
|
|
mTSComboBox->SetFont(g_strTxtFontName, g_szFont9);
|
|
mTempoComboBox->SetFont(g_strTxtFontName, g_szFont9);
|
|
mStageSetComboBox->SetFont(g_strTxtFontName, g_szFont9);
|
|
|
|
int ChordWidth = mChordsBox->Width / 8;
|
|
|
|
int ChordLeft;
|
|
int ChordTop = 1;
|
|
int ChordRight;
|
|
int ChordBottom = 27;
|
|
|
|
for(int i = 0; i < 8; i++) {
|
|
ChordLeft = i * ChordWidth;
|
|
ChordRight = ChordLeft + ChordWidth;
|
|
mChordRect[i] = TRect(ChordLeft, ChordTop, ChordRight, ChordBottom);
|
|
}
|
|
|
|
mChordRect[0].Left++;
|
|
mChordRect[7].Right--;
|
|
|
|
mKeyComboBox->DefItemIndex = 0;
|
|
mKeyTypeComboBox->DefItemIndex = 0;
|
|
mStageComboBox->DefItemIndex = 1;
|
|
mStageSetComboBox->DefItemIndex = 0;
|
|
mTSComboBox->DefItemIndex = m_Ts;
|
|
mTempoLineEdit->Text = IntToStr(m_Tempo);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::DoKeyChange(TComboBoxItem *Sender, int Index)
|
|
|
|
{
|
|
m_Key = Index;
|
|
mChordsBox->Repaint();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::DoKeyTypeChange(TComboBoxItem *Sender, int Index)
|
|
|
|
{
|
|
m_KeyType = Index;
|
|
mChordsBox->Repaint();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::StageSetChange(TComboBoxItem *Sender, int Index)
|
|
{
|
|
mChordsBox->Repaint();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::DoStageCountChange(TComboBoxItem *Sender, int Index)
|
|
|
|
{
|
|
mStageSetComboBox->Clear();
|
|
for(int i = 0; i <= Index; i++) {
|
|
mStageSetComboBox->AddItem(IntToStr(i + 1));
|
|
}
|
|
mStageSetComboBox->DefItemIndex = 0;
|
|
StageSetChange(NULL, 0);
|
|
m_RavStage = Index + 1;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::DoPaintBoxMouseEnter(TObject *Sender)
|
|
{
|
|
// TPaintBox *PaintBox = (TPaintBox *)Sender;
|
|
// PaintBox->Canvas->Pen->Color = mPaintBoxFocColor;
|
|
// PaintBox->Repaint();
|
|
|
|
mPresetMouseOver = true;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::DoPaintBoxMouseLeave(TObject *Sender)
|
|
{
|
|
// if(!mIsPreSetShow) {
|
|
// TPaintBox *PaintBox = (TPaintBox *)Sender;
|
|
// PaintBox->Canvas->Pen->Color = mPaintBoxDefColor;
|
|
// PaintBox->Repaint();
|
|
// }
|
|
|
|
mPresetMouseOver = false;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TPredefineProjectForm::DoPaintBoxMouseDown(TObject *Sender, TMouseButton Button,
|
|
TShiftState Shift, int X, int Y)
|
|
{
|
|
if(Button == 0) {
|
|
if(mPaintBoxFlag) {
|
|
if(mTest) {
|
|
delete mTest;
|
|
mTest = NULL;
|
|
}
|
|
|
|
mTest = new TPrefineProjectSet(NULL);
|
|
mTest->Parent = this;
|
|
|
|
int Preset = 0;
|
|
|
|
int Stage = mStageSetComboBox->DefItemIndex;
|
|
|
|
if(mStageComboBox->DefItemIndex == 2) {
|
|
if(mStageSetComboBox->DefItemIndex == 0) {
|
|
Preset = mLordSong;
|
|
}
|
|
else if(mStageSetComboBox->DefItemIndex == 1) {
|
|
Preset = mBridge;
|
|
Stage = 2;
|
|
}
|
|
else if(mStageSetComboBox->DefItemIndex == 2){
|
|
Preset = mRefrain;
|
|
Stage = 1;
|
|
}
|
|
}
|
|
else {
|
|
if(mStageSetComboBox->DefItemIndex == 0) {
|
|
Preset = mLordSong;
|
|
}
|
|
else if(mStageSetComboBox->DefItemIndex == 1) {
|
|
Preset = mRefrain;
|
|
}
|
|
}
|
|
|
|
for(int i = 0; i < 8; i++) {
|
|
BYTE *Chord = (BYTE *)u_arrPredefChords[Stage][m_KeyType][i];
|
|
TPrefineProjectSetItem *Item = new TPrefineProjectSetItem(mTest);
|
|
Item->Key = m_Key;
|
|
Item->Index = i;
|
|
memcpy(Item->PredefChord, Chord, 8 * sizeof(BYTE));
|
|
mTest->AddItem(Item);
|
|
}
|
|
|
|
mTest->SelectedIndex = Preset;
|
|
|
|
TPoint posClient(0, mChordsBox->Height);
|
|
|
|
mTest->OnShow = DoPresetChordShow;
|
|
mTest->OnHide = DoPresetChordHide;
|
|
|
|
TPoint pos = mChordsBox->ClientToScreen(posClient);
|
|
|
|
mTest->Top = pos.Y;
|
|
mTest->Left = pos.X + 1;
|
|
mTest->Width = mChordsBox->Width - 2;
|
|
mTest->Height = 200;
|
|
mTest->Show();
|
|
}
|
|
|
|
mPaintBoxFlag = !mPaintBoxFlag;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::DoPresetChordShow(TObject *Sender)
|
|
{
|
|
mChordsBox->Canvas->Pen->Color == mPaintBoxFocColor;
|
|
|
|
mIsPreSetShow = true;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::DoPresetChordHide(TObject *Sender)
|
|
{
|
|
if(GetActiveWindow() != Handle) {
|
|
mPaintBoxFlag = true;
|
|
}
|
|
|
|
if(!mPresetMouseOver)
|
|
mPaintBoxFlag = true;
|
|
|
|
mChordsBox->Canvas->Pen->Color == mPaintBoxDefColor;
|
|
|
|
if(mStageComboBox->DefItemIndex == 2) {
|
|
if(mStageSetComboBox->DefItemIndex == 0) {
|
|
mLordSong = mTest->SelectedIndex;
|
|
}
|
|
else if(mStageSetComboBox->DefItemIndex == 1) {
|
|
mBridge = mTest->SelectedIndex;
|
|
}
|
|
else if(mStageSetComboBox->DefItemIndex == 2){
|
|
mRefrain = mTest->SelectedIndex;
|
|
}
|
|
}
|
|
else {
|
|
if(mStageSetComboBox->DefItemIndex == 0) {
|
|
mLordSong = mTest->SelectedIndex;
|
|
}
|
|
else if(mStageSetComboBox->DefItemIndex == 1) {
|
|
mRefrain = mTest->SelectedIndex;
|
|
}
|
|
}
|
|
|
|
mIsPreSetShow = false;
|
|
|
|
mChordsBox->Repaint();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::DoTsChange(TComboBoxItem *Sender, int Index)
|
|
{
|
|
m_Ts = Index;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::DoTempoComboChange(TComboBoxItem *Sender, int Index)
|
|
{
|
|
if(Index == 0) {
|
|
mTempoLineEdit->Text = IntToStr(55);
|
|
}
|
|
else if(Index == 1){
|
|
mTempoLineEdit->Text = IntToStr(65);
|
|
}
|
|
else if(Index == 2) {
|
|
mTempoLineEdit->Text = IntToStr(80);
|
|
}
|
|
else if(Index == 3) {
|
|
mTempoLineEdit->Text = IntToStr(110);
|
|
}
|
|
else if(Index == 4){
|
|
mTempoLineEdit->Text = IntToStr(120);
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::DoTempoEditChange(TObject *Sender)
|
|
{
|
|
if(mTempoLineEdit->Text.IsEmpty())
|
|
// mTempoLineEdit->Text = IntToStr(0);
|
|
return;
|
|
|
|
int Value = StrToInt(mTempoLineEdit->Text);
|
|
|
|
if(Value == 55) {
|
|
mTempoComboBox->DefItemIndex = 0;
|
|
}
|
|
else if(Value == 65){
|
|
mTempoComboBox->DefItemIndex = 1;
|
|
}
|
|
else if(Value == 80) {
|
|
mTempoComboBox->DefItemIndex = 2;
|
|
}
|
|
else if(Value == 110) {
|
|
mTempoComboBox->DefItemIndex = 3;
|
|
}
|
|
else if(Value == 120) {
|
|
mTempoComboBox->DefItemIndex = 4;
|
|
}
|
|
else {
|
|
mTempoComboBox->DefItemIndex = 5;
|
|
}
|
|
|
|
m_Tempo = Value;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::mTempoUpDownClick(TObject *Sender, TUDBtnType Button)
|
|
{
|
|
int Value = g_nMelodyTempo;
|
|
|
|
if(!mTempoLineEdit->Text.IsEmpty())
|
|
Value = StrToInt(mTempoLineEdit->Text);
|
|
|
|
if(Button == btNext)
|
|
Value += 1;
|
|
else
|
|
Value -= 1;
|
|
|
|
if(Value < 50) {
|
|
Value = 50;
|
|
}
|
|
|
|
if(Value > 200) {
|
|
Value = 200;
|
|
}
|
|
|
|
mTempoLineEdit->Text = IntToStr(Value);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPredefineProjectForm::DoGeneraDialogPanelMouseDown(TObject *Sender,
|
|
TMouseButton Button, TShiftState Shift, int X, int Y)
|
|
{
|
|
GeneralDialogPanel->SetFocus();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
int __fastcall TPredefineProjectForm::ShowModal()
|
|
{
|
|
int ret = TForm::ShowModal();
|
|
m_Preset[0] = mLordSong;
|
|
|
|
if(mStageComboBox->DefItemIndex == 2) {
|
|
m_Preset[1] = mBridge;
|
|
m_Preset[2] = mRefrain;
|
|
}
|
|
else {
|
|
m_Preset[1] = mRefrain;
|
|
m_Preset[2] = 0;
|
|
}
|
|
|
|
return ret;
|
|
}
|
|
|
|
void __fastcall TPredefineProjectForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
|
|
{
|
|
switch( Key ){
|
|
case VK_RETURN:
|
|
ModalResult = mrOk;
|
|
break;
|
|
|
|
case VK_ESCAPE:
|
|
ModalResult = mrCancel;
|
|
break;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|