iChangzuo/AccompanyCube
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
AccompanyCube/MainFormUnit.cpp
T
alex_q 2191c1aed4 Initial commit
2026-06-13 00:10:11 +08:00

3081 lines
83 KiB
C++
Raw Permalink Blame History

// ---------------------------------------------------------------------------
#include <vcl.h>
#include <System.IOUtils.hpp>
#pragma hdrstop
#include "GlobalUnit.h"
#include "UploadFormUnit.h"
#include "MainFormUnit.h"
#include "AudioEffectFormUnit.h"
#include "SetupFormUnit.h"
#include "RecordFormUnit.h"
#include "LoginFormUnit.h"
#include "BaseFormUnit.h"
#include "ComposeFormUnit.h"
#include "CompleteFormUnit.h"
#include "SkinHintWindow.h"
#include "MessageFormUnit.h"
#include "MicSetFormUnit.h"
#include "AboutFormUnit.h"
#include "ProgressFormUnit.h"
#include "UpdateFormUnit.h"
#include "HelpFormUnit.h"
#include "SaveFormUnit.h"
#include "ManageSongFormUnit.h"
#include "SoftwaresFormUnit.h"
#include "PayMentFormUnit.h"
#include "PredefineProjectFormUnit.h"
#include "CustomerSettingFormUnit.h"
#include "ImgCopperFormUnit.h"
#include "SplashFormUnit.h"
#define USER_TIME_HINT 30
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "PNGButton"
#pragma resource "*.dfm"
USEFORM("SetupFormUnit.cpp", SetupForm);
USEFORM("RecordFormUnit.cpp", RecordForm);
USEFORM("BaseFormUnit.cpp", BaseForm);
USEFORM("ComposeFormUnit.cpp", ComposeForm);
USEFORM("CompleteFormUnit.cpp", CompleteForm);
USEFORM("HelpFormUnit.cpp", HelpForm);
USEFORM("MessageFormUnit.cpp", MessageForm);
TMainForm *MainForm;
#define AUTOSAVE_TIMER_UNABLE 0 //add by tj 2014/3/5
#define AUTOSAVE_FILE_SAVE 1
#define AUTOSAVE_FILE_CLEAR 2
TPNGButton *g_btnFontChange;
Vcl::Extctrls::TPanel *g_panelFontName;
CommonListBoxUnit::TListBox *g_lbFontSelect;
// ---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner)
{
HintWindowClass = __classid(TSkinHintWindow);
//背景图
m_pImgTopLeft = new TPngImage();
m_pImgTopLeft->LoadFromResourceName(int(HInstance), L"PngTopLeft");
m_pImgTopRight = new TPngImage();
m_pImgTopRight->LoadFromResourceName(int(HInstance), L"PngTopRight");
m_pImgTopTile = new TPngImage();
m_pImgTopTile->LoadFromResourceName(int(HInstance), L"PngTopTile");
m_pImgVerTile = new TPngImage();
m_pImgVerTile->LoadFromResourceName(int(HInstance), L"PngVerticalTile");
m_pImgHorTile = new TPngImage();
m_pImgHorTile->LoadFromResourceName(int(HInstance), L"PngHorizonTile");
m_pImgBottomLeft = new TPngImage();
m_pImgBottomLeft->LoadFromResourceName(int(HInstance), L"PngBottomLeft");
m_pImgBottomRight = new TPngImage();
m_pImgBottomRight->LoadFromResourceName(int(HInstance), L"PngBottomRight");
//通知图片
m_pImgNoticeNum = new TPngImage();
m_pImgNoticeNum->LoadFromResourceName(int(HInstance), "ImgNoticeNum");
g_aAudioEffectTypes[0] = FX_ECHO;
g_aAudioEffectTypes[1] = FX_DISTORTION;
g_aAudioEffectTypes[2] = FX_ROTATE;
g_aAudioEffectTypes[3] = FX_REVERB;
g_aAudioEffectTypes[4] = FX_COMPRESSOR;
g_aAudioEffectTypes[5] = FX_WAH;
g_aAudioEffectTypes[6] = FX_CHORUS;
g_aAudioEffectTypes[7] = FX_PARAMEQ;
g_aAudioEffectTypes[8] = FX_PHASER;
g_aAudioEffectTypes[9] = FX_PITCH;
g_aAudioEffectTypes[10] = FX_APR;
m_pNotificationGetTimer = NULL;
m_pNotificationForm = NULL;
m_pCDTimer = NULL;
}
// ---------------------------------------------------------------------------
__fastcall TMainForm::~TMainForm()
{
if (m_pImgTopLeft) delete m_pImgTopLeft;
if (m_pImgTopRight) delete m_pImgTopRight;
if (m_pImgTopTile) delete m_pImgTopTile;
if (m_pImgNoticeNum) delete m_pImgNoticeNum;
if( m_pImgVerTile ) delete m_pImgVerTile;
if( m_pImgHorTile ) delete m_pImgHorTile;
if( m_pImgBottomLeft ) delete m_pImgBottomLeft;
if( m_pImgBottomRight ) delete m_pImgBottomRight;
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::CreateParams(TCreateParams &Params)
{
TForm::CreateParams(Params);
wcscpy(Params.WinClassName, (LPCTSTR)APPNAME);
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
// 获取DPI
HDC hdc = GetDC(NULL);
if (hdc != NULL) {
g_xDpi = GetDeviceCaps(hdc, LOGPIXELSX);
g_yDpi = GetDeviceCaps(hdc, LOGPIXELSY);
ReleaseDC(NULL, hdc);
}
g_szFont8 = int(8 * 96.0 / g_yDpi + 0.5);//m_lblFont8->Font->Size; //
g_szFont9 = int(9 * 96.0 / g_yDpi + 0.5);//m_lblFont9->Font->Size; //
g_szFont16 = int(16 * 96.0 / g_yDpi + 0.5);//m_lblFont16->Font->Size; //
// ShowMessage("Font8:"+IntToStr(g_szFont8)+",Font9:"+IntToStr(g_szFont9)+",Font16:"+IntToStr(g_szFont16));
Randomize();
DragAcceptFiles(Handle, true);
g_hProjectEvent = CreateEvent(NULL, FALSE, TRUE, NULL);
SetTransparent( this );
string strRoot = ((AnsiString)g_strUserPath.c_str()).c_str();
HRESULT hResult = f_CS_GetVersion();
if( hResult!=CS_VERSION ){
MessageForm->ShowMessage("初始化网络服务组件失败!", MB_ICONERROR | MB_OK);
PostMessage(Handle, WM_CLOSE, 0, 0);
return;
}
SplashForm->ShowProgress( "初始化媒体控制组件......" );
hResult = f_MM_GetVersion();
if( hResult!=MM_VERSION || f_MM_InitialObjects(Handle, (char*)strRoot.c_str())!=S_OK ){
MessageForm->ShowMessage("初始化媒体控制组件失败！", MB_ICONERROR | MB_OK);
PostMessage(Handle, WM_CLOSE, 0, 0);
return;
}
GetInitVar();
if( g_fSpeakerVolume<0 )
g_fSpeakerVolume = f_MM_GetStreamVolume( 0 ) / 100.0;
else
f_MM_SetStreamVolume(0, g_fSpeakerVolume);
if( g_fRecordVolume<0 )
g_fRecordVolume = f_MM_GetStreamVolume( 1 ) / 100.0;
else
f_MM_SetStreamVolume( 1, g_fRecordVolume );
g_fSpeakerVolume_SVD = g_fSpeakerVolume;
g_fRecordVolume_SVD = g_fRecordVolume;
SetMelodyTempo(g_nMelodyTempo, true);
SetMelodyTS(g_iMelodyTimeSignature, true);
SplashForm->ShowProgress( "初始化输入输出设备......" );
HRESULT res = f_MM_CheckIODevice( g_iPlaybackDevice, g_strPlaybackDevice,
g_iRecordDevice, g_strRecordDevice );
if( !(res&0xFF) )
g_iPlaybackOutput = -1;
if( !(res&0xFF00) )
g_iRecordInput = -1;
res = f_MM_SetIODevice( g_iPlaybackDevice, g_iPlaybackOutput, g_iRecordDevice, g_iRecordInput );
if( res!=S_OK ){
g_iPlaybackDevice = -1;
g_iPlaybackOutput = -1;
g_iRecordDevice = -1;
g_iRecordInput = -1;
g_strPlaybackDevice[0] = 0;
g_strRecordDevice[0] = 0;
f_MM_SetIODevice( g_iPlaybackDevice, g_iPlaybackOutput, g_iRecordDevice, g_iRecordInput );
f_MM_CheckIODevice( g_iPlaybackDevice, g_strPlaybackDevice, g_iRecordDevice, g_strRecordDevice );
}
f_MM_SetRecordAutoAdjust( g_bRecordAutoAdjust );
ResetAudioEffects();
SplashForm->ShowProgress( "扫描SF音色库......" );
InitFontList();
if (g_lstFonts.size() == 0) {
MessageForm->ShowMessage("初始化音色库失败！", MB_ICONERROR | MB_OK);
PostMessage(Handle, WM_CLOSE, 0, 0);
return;
}
SetSelectFont();
g_strFontFile_SVD = g_strFontFile;
m_lblFontName->Font->Color = RGB(60,43,23);
m_lblFontName->Caption = g_lstFonts[g_idFont]->strFontName;
m_btnFontChange->Enabled = g_lstFonts.size()>1;
m_lbFontSelect->ItemIndex = g_idFont;
if( m_lbFontSelect->Count < g_lstFonts.size() ){
for( int i=0; i<g_lstFonts.size(); i++ ){
m_lbFontSelect->AddItem( g_lstFonts[i]->strFontName, NULL );
}
int nShowRow = m_lbFontSelect->Count<8 ? m_lbFontSelect->Count : 8;
m_lbFontSelect->Height = nShowRow * m_lbFontSelect->ItemHeight;
//m_lbFontSelect->Top = m_panelFontName->Top - m_lbFontSelect->Height;
}
g_btnFontChange = m_btnFontChange;
g_panelFontName = m_panelFontName;
g_lbFontSelect = m_lbFontSelect;
// g_iWindowState = wsMaximized;
SplashForm->ShowProgress( "初始化窗体组件......" );
// 绘制圆角窗体
HRGN hRgn = CreateRoundRectRgn(0, 0, Width + 1, Height + 1, 6, 6);
SetWindowRgn(Handle, hRgn, TRUE);
DeleteObject(hRgn);
// 设置全局提示框属性
Application->HintHidePause = 10000; // 延长停留时间为10秒
// Screen->HintFont->Color = RGB(60,43,23);
Screen->HintFont->Size = 10; //int(10 * 96.0 / g_yDpi + 0.5); //
// 创建Tab页
for (int i = 0; i < TABSHEET_NUM; i++) {
m_paTabSheets[i] = new TTabSheet(this); //TBackgroundTabSheet(this, i );//
m_paTabSheets[i]->PageControl = m_pPgCtrl_Work;
m_paTabSheets[i]->TabVisible = false;
m_paTabSheets[i]->Align = alCustom;
m_paTabSheets[i]->SetBounds(0, 0, m_pPgCtrl_Work->Width, m_pPgCtrl_Work->Height);
}
m_pPgCtrl_Work->ActivePageIndex = 0;
// 创建5个子窗口，放于PageControl上作为Tab页
SetupForm = new TSetupForm(this);
SetupForm->Parent = m_paTabSheets[0];
SetupForm->Align = alClient;
SetupForm->Visible = true;
RecordForm = new TRecordForm(this);
RecordForm->Parent = m_paTabSheets[1];
RecordForm->Align = alClient;
RecordForm->Visible = true;
BaseForm = new TBaseForm(this);
BaseForm->Parent = m_paTabSheets[2];
BaseForm->Align = alClient;
BaseForm->Visible = true;
ComposeForm = new TComposeForm(this);
ComposeForm->Parent = m_paTabSheets[3];
ComposeForm->Align = alClient;
ComposeForm->Visible = true;
CompleteForm = new TCompleteForm(this);
CompleteForm->Parent = m_paTabSheets[4];
CompleteForm->Align = alClient;
CompleteForm->Visible = true;
HelpForm = new THelpForm(this);
HelpForm->Parent = m_paTabSheets[5];
HelpForm->Align = alClient;
HelpForm->Visible = true;
// 提示
m_pStyleInfoWnd = new TSkinHintWindow(this);
m_pTimerHint = new TTimer(this);
m_pTimerHint->Enabled = false;
m_pTimerHint->Interval = USER_TIME_HINT;
m_pTimerHint->OnTimer = HintTimerProc;
m_bShowHint = false;
m_btnStep[0] = m_btnFirstStep;
m_btnStep[1] = m_btnSecStep;
m_btnStep[2] = m_btnThrdStep;
m_btnStep[3] = m_btnFrthStep;
m_btnStep[4] = m_btnFifthStep;
// 创建系统菜单
m_pSysMenu = new TSystemMenu(this);
// m_pSysMenu->CreateCustomMenuItem("新建工程(F6)...", OnCreateNewProject);
m_pSysMenu->CreateCustomMenuItem("新建工程");
m_pSysMenu->CreateCustomMenuItem("空白工程(F6)", OnCreateNewProject, 0);
m_pSysMenu->CreateCustomMenuItem("预设工程...", OnPredefineProject, 0);
m_pSysMenu->CreateCustomMenuItem("打开工程(F2)...", OnLoadProject);
m_pSysMenu->CreateCustomMenuItem("打开最近工程");
m_pSysMenu->CreateCustomMenuItem("保存工程(F3)", OnSaveProject);
m_pSysMenu->CreateCustomMenuItem("工程另存为(F4)...", OnSaveProject);
m_pSysMenu->CreateCustomMenuItem("-");
m_pSysMenu->CreateCustomMenuItem("输入输出设备...", OnIOSetting);
m_pSysMenu->CreateCustomMenuItem("偏好设置...", OnCustomerSetting);
m_pSysMenu->CreateCustomMenuItem("-");
m_pSysMenu->CreateCustomMenuItem("帮助与反馈(F1)", OnUserHelp);
m_pSysMenu->CreateCustomMenuItem("用户手册", OnUserManual);
// m_pSysMenu->CreateCustomMenuItem("唱作网动态", OnNotification);
m_pSysMenu->CreateCustomMenuItem("更多软件...", OnSoftwares);
m_pSysMenu->CreateCustomMenuItem("关于...", OnAbout);
m_pSysMenu->CreateCustomMenuItem("-");
m_pSysMenu->CreateCustomMenuItem("退出", CloseBoxClick);
m_pSysMenu->EnabledMenuItem(MENU_SAVE, false);
m_pSysMenu->EnabledMenuItem(MENU_SAVEAS, false);
UpdateProjectMenuItems();
m_lblUsername->Font->Color = RGB(60, 43, 23);
m_lblLoging->Font->Color = RGB(230, 204, 180);
m_labCaption->Font->Color = RGB(60, 43, 23);
// 执行文件版本信息
DWORD dwHandle;
DWORD dwVerLen = GetFileVersionInfoSize(Application->ExeName.c_str(),
&dwHandle);
if (dwVerLen) {
TCHAR *lpData = new TCHAR[dwVerLen];
if (GetFileVersionInfo(Application->ExeName.c_str(), 0, dwVerLen,
lpData)) {
PVSFixedFileInfo lpffi;
UINT uLen;
if (VerQueryValue(lpData, TEXT("\\"), (void **)&lpffi, &uLen)) {
g_infoSoftwareUpdate.version.majorVersion =
HIWORD(lpffi->dwFileVersionMS);
g_infoSoftwareUpdate.version.minorVersion =
LOWORD(lpffi->dwFileVersionMS);
g_infoSoftwareUpdate.version.modifyVersion =
HIWORD(lpffi->dwFileVersionLS);
g_infoSoftwareUpdate.version.buildVersion =
LOWORD(lpffi->dwFileVersionLS);
}
}
delete[]lpData;
}
sprintf(g_strCurrentVersion, "%d.%d.%d.%d",
g_infoSoftwareUpdate.version.majorVersion, g_infoSoftwareUpdate.version.minorVersion,
g_infoSoftwareUpdate.version.modifyVersion, g_infoSoftwareUpdate.version.buildVersion);
DebugPrint("软件版本：%d.%d.%d.%d \n",
g_infoSoftwareUpdate.version.majorVersion, g_infoSoftwareUpdate.version.minorVersion,
g_infoSoftwareUpdate.version.modifyVersion, g_infoSoftwareUpdate.version.buildVersion);
SplashForm->ShowProgress( "初始化网络服务组件......" );
//初始化网络服务
// strcpy( g_strServerURL, "new.ichangzuo.com" );
// strcpy( g_strServerURL, "www.ichangzuo.com" );
// strcpy( g_strServerURL, "LocalHost" );
// strcpy( g_strServerURL, "47.98.232.209" );
// strcpy( g_strServerURL, "192.168.5.80" );
char* idDevice = GetMacAdress();
DebugPrint("MAC: %02X-%02X-%02X-%02X-%02X-%02X", (UCHAR)idDevice[0],(UCHAR)idDevice[1],(UCHAR)idDevice[2]
,(UCHAR)idDevice[3],(UCHAR)idDevice[4],(UCHAR)idDevice[5] );
if (f_CS_InitialService(Handle, SOFTWARE_ID, &g_infoSoftwareUpdate,
g_strServerURL, (char*)strRoot.c_str(), idDevice ) == S_OK) {
g_bAutoLogin = GetAutoLogin(g_infoUser.strUserName,
g_infoUser.strPassword);
if (g_bAutoLogin) {
f_CS_Login(&g_infoUser, false);
m_btnLogin->Visible = false;
m_lblLoging->Visible = true;
m_btnCancelLog->Visible = true;
m_panelNoticeNum->Left = 138;
}
f_CS_AutoDownloadStyle( g_bAutoDownloadStyle );
}
else {
MessageForm->ShowMessage("网络服务启动失败!\n(将无法进行网络相关操作)",
MB_ICONERROR | MB_OK);
m_btnLogin->Visible = false;
CompleteForm->EnableNextStep(false);
}
if (strlen(g_strServerURL) == 0) {
m_pSysMenu->EnabledMenuItem(MENU_FORUM, false);
}
// m_pNotificationGetTimer = new TTimer(this); //add by tj 2014/04/17
// m_pNotificationGetTimer->Enabled = true;
// m_pNotificationGetTimer->Interval = NOTIFICATION_GETNOTI_PERIOD;
// m_pNotificationGetTimer->OnTimer = NotificationTimerProc;
g_strAutoProjName = g_strUserPath;
g_strAutoProjName += _T(AUTOSAVE_FILENAME);
UnicodeString strParam = ParamStr(1);
if (!strParam.IsEmpty()) {
m_strLoadProjectName = strParam.c_str();
PostMessage(Handle, UM_LOADPROJECT, 0, 0);
return;
}
else {
PostMessage(Handle, UM_NEWPROJECT, 0, 0);
}
if(g_bAutoSave) { //add by tj 2013/3/6
PostMessage(Handle, UM_OPENAUTOPROJ, 0, 0);
}else if( g_bAutoOpenProject && g_bAutoOpenProjectEnable ){ //add by tj 2014/05/15
String fileName = g_lstRecentProject.begin()->c_str();
if( FileExists(fileName) ){
m_strLoadProjectName = fileName;
PostMessage(Handle, UM_LOADPROJECT, 0, 0);
}
}
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)
{
ClearCDTimer();
if( g_bLogon ){
f_CS_Logoff();
}
if( m_pNotificationGetTimer ){
delete m_pNotificationGetTimer;
m_pNotificationGetTimer = NULL;
}
if( m_pNotificationForm ) {
delete m_pNotificationForm;
m_pNotificationForm = NULL;
}
ClearAutoProj();
ClearGlobalVars();
ClearFontList();
SetInitVar(true);
HRESULT hr;
// SAFE_DELETE(HelpForm)
if( m_pPgCtrl_Work->ActivePageIndex>=0 ){
TForm * pForm = (TForm*)m_paTabSheets[m_pPgCtrl_Work->ActivePageIndex]->Controls[0];
pForm->OnDeactivate( NULL );
}
for (int i = 0; i < TABSHEET_NUM-1; i++) {
if (m_paTabSheets[i]) {
TForm * pForm = (TForm*)m_paTabSheets[i]->Controls[0];
if (pForm){
delete pForm;
}
delete m_paTabSheets[i];
}
}
if (f_CS_DestroyService) {
if (FAILED(hr = f_CS_DestroyService())) {
DebugPrint("Destroy client service failed! code=%x\n", hr);
}
}
if (f_MM_DestroyObjects) {
if (FAILED(hr = f_MM_DestroyObjects())) {
DebugPrint("Destroy media objects Failed! code=%x\n", hr);
}
}
if (f_SM_Release) {
if (FAILED(hr = f_SM_Release())) {
DebugPrint("Relase midi handle failed! code=%x\n", hr);
}
}
if (m_pSysMenu)
delete m_pSysMenu;
if (m_pTimerHint)
delete m_pTimerHint;
if (m_pStyleInfoWnd)
delete m_pStyleInfoWnd;
CloseHandle(g_hProjectEvent);
for(int i=0; i<g_lstMacAddress.size(); i++) {
SAFE_DELETE(g_lstMacAddress[i])
}
g_lstMacAddress.clear();
// for(int i=0; i<g_lstMacAddressNew.size(); i++) {
// SAFE_DELETE(g_lstMacAddressNew[i])
// }
// g_lstMacAddressNew.clear();
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if( HasProjectModified() ){// || g_lstOpusStages.size()>0
// && g_strProjectName.length()==0 ) {
int mrRet = MessageForm->ShowMessage("是否保存当前工程？",
MB_ICONQUESTION | MB_YESNOCANCEL);
if (mrRet == mrYes) {
DebugPrint("确认保存");
OnSaveProject(NULL);
}
else if (mrRet == mrCancel) {
CanClose = false;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::WMEraseBkgnd(Winapi::Messages::TWMEraseBkgnd &Message)
{
if( m_pImgTopTile ){
TCanvas* tempCanvas = new TCanvas;
tempCanvas->Handle = Message.DC;
//绘制上半部
tempCanvas->Draw( 0, 0, m_pImgTopLeft ); //左框
int wConner = m_pImgBottomLeft->Width,
hConner = m_pImgBottomLeft->Width,
wTopTile = m_pImgTopTile->Width,
hTopTile = m_pImgTopTile->Height,
wHorTile = m_pImgHorTile->Width,
hVerTile = m_pImgVerTile->Height,
rArea = ClientWidth - wConner, //区域右端
bArea = ClientHeight - hConner; //区域底端
//底图
for (int x=wConner; x<rArea; x+=wTopTile){
tempCanvas->Draw(x, 0, m_pImgTopTile );
}
tempCanvas->Draw( rArea, 0, m_pImgTopRight ); //右框
//绘制下半部边框
for (int y=hTopTile; y<bArea; y+=hVerTile){
tempCanvas->Draw( 0, y, m_pImgVerTile ); //左边框
tempCanvas->Draw( rArea, y, m_pImgVerTile ); //右边框
}
//绘制底边框
tempCanvas->Draw( 0, bArea, m_pImgBottomLeft ); //左下角
for (int w=wConner; w<rArea; w+=wHorTile){
tempCanvas->Draw( w, bArea, m_pImgHorTile ); //中间部分
}
tempCanvas->Draw( rArea, bArea, m_pImgBottomRight ); //右下角
delete tempCanvas;
Message.Result = true;
}
else{
DefaultHandler( &Message );
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::WMDpiChanged(TMessage &Message)
{
int dx = Message.WParamLo,
dy = Message.WParamHi;
}
//---------------------------------------------------------------------------
void TMainForm::UpdateProjectMenuItems()
{
int index = m_pSysMenu->GetMenuItemIndex("打开最近工程");
if (index >= 0) {
m_pSysMenu->DeleteSubMenu(index);
if (g_lstRecentProject.size() == 0) {
m_pSysMenu->EnabledMenuItem(index, false);
}
else {
m_pSysMenu->EnabledMenuItem(index, true);
for (int i = 0; i < g_lstRecentProject.size(); i++) {
String strText = g_lstRecentProject[i].c_str();
m_pSysMenu->CreateCustomMenuItem(strText, OnLoadProject, index);
}
}
}
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnSaveProject(TObject *Sender)
{
TMenuItem* pItem = (TMenuItem*)Sender;
wstring strProjectName;
if( !pItem || pItem->MenuIndex == MENU_SAVEAS || g_strProjectName.length() == 0) {
// 指定工程文件名
TSaveDialog * pDlg = new TSaveDialog(NULL);
pDlg->Title = "保存工程";
pDlg->Options << ofCreatePrompt << ofOverwritePrompt;
pDlg->Filter = "编曲工程文件 (*.cpj)|*.cpj";
pDlg->DefaultExt = "cpj";
pDlg->FileName = ExtractFileName(g_strProjectName.c_str());
pDlg->InitialDir = ExtractFilePath(g_strProjectName.c_str());
if (pDlg->FileName.Length() == 0) {
String strTemp = L"Untitle-";
strTemp += g_strTSName[g_iMelodyTimeSignature];
strTemp += L"-";
strTemp += IntToStr(g_nMelodyTempo);
pDlg->FileName = strTemp;
}
if (pDlg->Execute(Handle)) {
strProjectName = pDlg->FileName.c_str();
}
delete pDlg;
}
else {
strProjectName = g_strProjectName;
}
if (strProjectName.length() > 0) {
// Perform(UM_HANDLEAUTOPROJ, AUTOSAVE_FILE_CLEAR, 0);//add by tj 2014/3/5
g_iCurrentPage = m_pPgCtrl_Work->ActivePageIndex;
if( g_iCurrentPage==5 ){
g_iCurrentPage = HelpForm->m_iPrevPageIndex;
}
//先编曲
ReloadBaseCompose();
ReloadCompose();
TProgressForm *frmProgress = new TProgressForm(NULL);
int ret = frmProgress->Project_Save(strProjectName.c_str());
int eExtra = frmProgress->GetOpertaionResult();
delete frmProgress;
if (ret==mrOk && eExtra==0 ) {
MessageForm->ShowMessage("工程文件保存成功。", MB_OK | MB_ICONINFORMATION);
m_labCaption->Caption =
String(APPNAME) + L" - " + TPath::GetFileNameWithoutExtension
(strProjectName.c_str());
g_bAutoOpenProjectEnable = true; //add by tj 2014/05/15
SetInitVar();
m_pSysMenu->EnabledMenuItem(MENU_SAVE, true);
m_pSysMenu->EnabledMenuItem(MENU_SAVEAS, true);
UpdateProjectMenuItems();
//add upload by tj 2004/03/26
if( g_strProjectName.length()!=0 ) {
String strName = g_strProjectName.c_str();
AnsiString strTitle = TPath::GetFileNameWithoutExtension( strName );
strcpy( g_infoSong.strSongName, strTitle.c_str() );
}
}
// m_tAutoSaveTimer->Enabled = true; //add by tj 2014/3/5
}
Update();
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnCreateNewProject(TObject *Sender)
{
if (g_lstMelodyBars.size() > 0 && (g_strProjectName.length() == 0 ||
HasProjectModified())) {
int mrRet = MessageForm->ShowMessage("是否保存当前工程？",
MB_ICONQUESTION | MB_YESNOCANCEL);
if (mrRet == mrYes) {
DebugPrint("确认保存");
OnSaveProject(NULL);
}
else if (mrRet == mrCancel) {
return;
}
}
TForm * pForm = (TForm*)m_paTabSheets[m_pPgCtrl_Work->ActivePageIndex]->Controls[0];
pForm->OnDeactivate(NULL);
NewProject();
SetInitVar(true);
// SetActivePage(1);
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnPredefineProject(TObject * Sender)
{
OnCreateNewProject( NULL );
//显示预定义工程窗口
TPredefineProjectForm *ppf = new TPredefineProjectForm(NULL);
if( ppf->ShowModal()==mrOk ){
//设置节拍速度
if( g_iMelodyTimeSignature!=ppf->m_Ts ){
SetupForm->SetDefaultStyle( ppf->m_Ts );
SetMelodyTS( ppf->m_Ts );
}
if( g_nMelodyTempo!=ppf->m_Tempo ){
SetMelodyTempo( ppf->m_Tempo );
}
f_SM_InputWavNotes(NULL, NULL, 0, 192, ppf->m_Ts, ppf->m_Tempo, NULL);
int iTonal = ppf->m_KeyType;
int nMSNum = ppf->m_RavStage;
int aPreset[3] = { 7, 5, 0 };
memcpy(aPreset, ppf->m_Preset, 3 * sizeof(int));
//预定义RawBars
g_iMelodyKey = ppf->m_Key;
int var = 0;
int nBarCount = 0;
for( int i=0; i<nMSNum; i++ ){
int ind = i;
if( nMSNum>2 ){
if( i==1 ){
ind = 2;
var--;
}
else if( i==2 )
ind = 1;
}
int nRepeat = (ind==2) ? 1 : 2;
for( int r=0; r<nRepeat; r++ ){
for( int j=0; j<8; j++ ){
MELODYBAR * pBar = new MELODYBAR;
pBar->iChords[0] = u_arrPredefChords[ind][iTonal][aPreset[i]][j];
if( j==7 ) pBar->iFill = r;
g_lstMelodyBars.push_back( pBar );
}
MELODYSTAGE * pMStage = new MELODYSTAGE;
pMStage->iFirstBar = nBarCount;
pMStage->iLastBar = nBarCount + 7;
pMStage->iVar = var++;
g_lstMelodyStages.push_back( pMStage );
nBarCount += 8;
}
}
ResetAudioEffects();
g_bPredefine = true;
g_iComposeKey = -1;
PostMessage(Handle, UM_REFRESH_PAGE_STATE, PAGE_ALL, 0);
PostMessage(Handle, UM_JUMP_PAGE, WPARAM(4),LPARAM(0));
}
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnLoadProject(TObject *Sender)
{
TMenuItem* pItem = (TMenuItem*)Sender;
wstring strProjectName;
if( pItem==NULL) {
strProjectName = m_strLoadProjectName.c_str();
}
else if (pItem->Tag >= 0) {
strProjectName = g_lstRecentProject[pItem->MenuIndex];
}
if (g_lstMelodyBars.size() > 0 && (g_strProjectName.length() == 0 ||
HasProjectModified())) {
int mrRet = MessageForm->ShowMessage("是否保存当前工程？",
MB_ICONQUESTION | MB_YESNOCANCEL);
if (mrRet == mrYes) {
DebugPrint("确认保存");
OnSaveProject(NULL);
}
else if (mrRet == mrCancel) {
return;
}
}
TForm * pForm = (TForm*)m_paTabSheets[m_pPgCtrl_Work->ActivePageIndex]->Controls[0];
pForm->OnDeactivate(NULL);
SetInitVar(true);
if( strProjectName.empty() ){
// 指定工程文件名
TOpenDialog * pDlg = new TOpenDialog(NULL);
pDlg->Title = "打开工程";
pDlg->Options << ofFileMustExist;
pDlg->FileName = ExtractFileName(g_strProjectName.c_str());
pDlg->InitialDir = ExtractFilePath(g_strProjectName.c_str());
pDlg->Filter = "编曲工程文件 (*.cpj)|*.cpj";
pDlg->DefaultExt = "cpj";
if (pDlg->Execute(Handle)) {
strProjectName = pDlg->FileName.c_str();
}
delete pDlg;
}
if( !strProjectName.empty() ){
LoadProject(strProjectName.c_str());
}
Update();
}
// ---------------------------------------------------------------------------
void TMainForm::LoadProject(LPCTSTR strName)
{
// Perform(UM_HANDLEAUTOPROJ, AUTOSAVE_FILE_CLEAR, 0);//add by tj 2014/3/5
int iCurrActivePage = m_pPgCtrl_Work->ActivePageIndex;
if (iCurrActivePage == 1) {
RecordForm->StopClick(NULL);
}
else if (iCurrActivePage == 2) {
BaseForm->StopClick(NULL);
}
else if (iCurrActivePage == 3) {
ComposeForm->StopClick(NULL);
}
else if (iCurrActivePage == 4) {
CompleteForm->StopClick(NULL);
}
TProgressForm *frmProgress = new TProgressForm(NULL);
int ret = frmProgress->Project_Load(strName);
int eExtra = frmProgress->GetOpertaionResult();
delete frmProgress;
if( ret==mrOk ) {
g_bAutoOpenProjectEnable = true; //add by tj 2014/05/15
//add upload by tj 2004/03/26
memset( &g_infoSong, 0, sizeof(TSONGINFO) );
g_infoSong.size = sizeof(TSONGINFO);
memset( g_infoSong.iMusicStyle, -1, 4 );
g_infoSong.iSubmit = 1;
if( g_strProjectName.length()!=0 ) {
String strName = g_strProjectName.c_str();
AnsiString strTitle = TPath::GetFileNameWithoutExtension( strName );
strcpy( g_infoSong.strSongName, strTitle.c_str() );
}
if (!SetSelectFont()) {
String strMsg;
strMsg = g_strProjError[E_PROJ_INVALIDFONT - E_PROJ_NOERROR - 1];
MessageForm->ShowMessage(strMsg, MB_ICONINFORMATION | MB_OK);
}
else{
m_lbFontSelect->ItemIndex = g_idFont;
m_lblFontName->Caption = g_lstFonts[g_idFont]->strFontName;
}
m_labCaption->Caption = String(APPNAME) + L" - " + TPath::GetFileNameWithoutExtension
(strName);
SetInitVar();
m_pSysMenu->EnabledMenuItem(MENU_SAVE, true);
m_pSysMenu->EnabledMenuItem(MENU_SAVEAS, true);
UpdateProjectMenuItems();
int iActivePage = iCurrActivePage;
if (g_iCurrentPage >= 0) {
iActivePage = g_iCurrentPage;
}
if (g_lstMelodyBars.size() == 0 && iActivePage > 1) {
iActivePage = 1;
}
else if (g_lstMelodyStages.size() == 0 && iActivePage > 2) {
iActivePage = 2;
}
if( g_lstMelodyStages.size()>0 && !g_bBaseComposeLoaded ){
ReloadBaseCompose();
}
for( int i = 0; i < 5; i++ ){
if( g_lstMelodyBars.empty() && i>1 ){
m_btnStep[i]->Enabled = false;
}
else{
m_btnStep[i]->Enabled = true;
}
}
PostMessage(Handle, UM_JUMP_PAGE, WPARAM(iActivePage),LPARAM(0));
}
else if( eExtra!=0 ){
String strErr;
if (eExtra > E_PROJ_NOERROR) {
strErr = g_strProjError[eExtra - E_PROJ_NOERROR - 1];
}
MessageForm->ShowMessage(strErr, MB_ICONERROR | MB_OK);
for (int i = 0; i < g_lstRecentProject.size(); i++) {
if (LowerCase(g_lstRecentProject[i].c_str()) == LowerCase(strName))
{
g_lstRecentProject.erase(g_lstRecentProject.begin() + i);
UpdateProjectMenuItems();
break;
}
}
NewProject();
}
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnBtnSysMenuClick(TObject *Sender)
{
TPNGButton *pButton = (TPNGButton*)Sender;
TPoint pointClient(pButton->Left, pButton->Top + pButton->Height - 2);
TPoint pointScreen = ClientToScreen(pointClient);
PostMessage(Handle, UM_SHOWSYSMENU, WPARAM(pointScreen.X),
LPARAM(pointScreen.Y));
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnShowSysMenu(TMessage &msg)
{
m_pSysMenu->Popup(int(msg.WParam), int(msg.LParam));
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnUserHelp(TObject *Sender)
{
HelpBoxClick(NULL);
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnForumVist(TObject *Sender)
{
char strURL[256];
f_CS_GetWebPageURL( URL_TECHFORUM, strURL );
ShellExecute(Handle, NULL, ((String)strURL).c_str(), NULL, NULL, SW_SHOWNORMAL);
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnSoftwares(TObject *Sender)
{
PostMessage(Handle, UM_SHOWMORE, 0, 0);
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnAbout(TObject *Sender)
{
PostMessage(Handle, UM_SHOWABOUT, 0, 0);
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::WMNCHitTest(TWMNCHitTest &Msg)
{
TForm::Dispatch(&Msg);
if (Msg.Result == HTCLIENT && Msg.XPos > Left + DPIX(152) && Msg.XPos <
Left + Width - DPIX(95) && Msg.YPos < Top + DPIY(24))
Msg.Result = HTCAPTION;
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::WMNCLButtonDblClk(TWMNCLButtonDblClk &Msg)
{
if (Msg.HitTest == HTCAPTION && m_pPgCtrl_Work->ActivePageIndex != 0) {
if (WindowState == wsNormal) {
WindowState = wsMaximized;
}
else
WindowState = wsNormal;
g_iWindowState = WindowState;
}
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnRestoreWindow(TMessage &msg)
{
if (WindowState == wsMinimized) {
WindowState = g_iWindowState;
}
FormStyle = fsStayOnTop;
Application->BringToFront();
FormStyle = fsNormal;
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnShowNextPage(TMessage &msg)
{
m_pSysMenu->EnabledMenuItem(MENU_SAVE, true);
m_pSysMenu->EnabledMenuItem(MENU_SAVEAS, g_strProjectName.length() > 0);
int iActivePage = m_pPgCtrl_Work->ActivePageIndex + (msg.WParam ? 1 : -1);
if( msg.LParam != 0)
{
OnSelectPageStep(( TObject*)m_btnStep[4]);
return ;
}
SetActivePage(iActivePage);
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnLoadProjectMessage(TMessage &msg)
{
if (msg.LParam != 0) {
int BUF_SIZE = 256;
TCHAR szName[] = TEXT("MyFileMappingObject");
LPTSTR pBuf;
HANDLE hMapFile = OpenFileMapping(FILE_MAP_ALL_ACCESS,
// read/write access
FALSE, // do not inherit the name
szName); // name of mapping object
if (hMapFile) {
pBuf = (LPTSTR) MapViewOfFile(hMapFile, // handle to map object
FILE_MAP_ALL_ACCESS, // read/write permission
0, 0, BUF_SIZE);
if (pBuf) {
m_strLoadProjectName = pBuf;
UnmapViewOfFile(pBuf);
PostMessage(Handle, UM_LOADPROJECT, 0, 0);
}
CloseHandle(hMapFile);
}
}
else {
OnLoadProject(NULL);
}
msg.Result = true;
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnSaveProjectMessage(TMessage &msg)
{
OnSaveProject(NULL);
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnNewProjectMessage(TMessage &msg)
{
NewProject();
}
// ---------------------------------------------------------------------------
void TMainForm::NewProject()
{
g_bAutoOpenProjectEnable = false; //add by tj 2014/05/15
m_labCaption->Caption = String(APPNAME) + L" - Untitle";
m_pSysMenu->EnabledMenuItem(MENU_SAVE, false);
m_pSysMenu->EnabledMenuItem(MENU_SAVEAS, false);
ClearGlobalVars();
ClearSVDVars();
memset( &g_infoSong, 0, sizeof(TSONGINFO) );
g_infoSong.size = sizeof(TSONGINFO);
memset( g_infoSong.iMusicStyle, -1, 4 );
g_infoSong.iSubmit = 1;//add upload by tj 2004/03/26
g_bPredefine = false;
g_iMelodyKey = g_iComposeKey = -1;
g_bkMelody.Clear();
g_bkCompose.Clear();
g_strProjectName.clear();
// 缺省打开进入录音页面
if(g_iSelectedStyleID==-1){//如果没选择风格，随机选择
SetupForm->SetDefaultStyle();
}
SetActivePage(1);
m_btnThrdStep->Enabled = false;
m_btnFrthStep->Enabled = false;
m_btnFifthStep->Enabled = false;
ResetAudioEffects();
f_CS_ResetProject();
g_bProjStylePaid = false;
}
// ---------------------------------------------------------------------------
void TMainForm::SetActivePage(int iActiveIndex)
{
int iOriActive = m_pPgCtrl_Work->ActivePageIndex;
if( iOriActive==iActiveIndex )
return;
for(int i = 0; i < 5; i++){
m_btnStep[i]->SetDown((iActiveIndex==i));
}
m_pPgCtrl_Work->ActivePageIndex = iActiveIndex;
if (iActiveIndex == 0) {
if (WindowState == wsMaximized){
WindowState = wsNormal;
}
m_btnMaxBox->Enabled = false;
}
else {
if (WindowState != g_iWindowState){
WindowState = g_iWindowState;
}
if (WindowState == wsNormal) {
m_btnMaxBox->Enabled = true;
}
}
m_pPgCtrl_Work->ActivePage->SetBounds(0, 0, m_pPgCtrl_Work->Width, m_pPgCtrl_Work->Height);
TForm * pForm = (TForm*)m_paTabSheets[iActiveIndex]->Controls[0];
pForm->OnActivate(NULL);
if( iActiveIndex<5 )
pForm->Perform( UM_SETFONTPOSITION, 0, 0 );
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::CloseBoxClick(TObject *Sender)
{
// OnSysExit(Sender);
Close();
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::MinBoxClick(TObject *Sender)
{
WindowState = wsMinimized;
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::FormResize(TObject *Sender)
{
switch (WindowState) {
case wsMaximized:
case wsNormal: {
if (WindowState == wsMaximized) {
Align = alClient;
m_btnMaxBox->Visible = false;
m_btnRestBox->Visible = true;
}
else {
Align = alNone;
m_btnMaxBox->Visible = true;
if (m_pPgCtrl_Work->ActivePageIndex == 0) {
m_btnMaxBox->Enabled = false;
}
else {
m_btnMaxBox->Enabled = true;
}
m_btnRestBox->Visible = false;
}
LockWindowUpdate(Handle);
int xBrd = DPIX(6),
yBrd = DPIY(6);
// 绘制圆角窗体
HRGN hRgn = CreateRoundRectRgn(0, 0, Width + 1, Height + 1, xBrd, yBrd);
SetWindowRgn(Handle, hRgn, TRUE);
DeleteObject(hRgn);
int xGap = DPIX(22);
m_btnCloseBox->Left = Width - xGap - xBrd;
m_btnMaxBox->Left = m_btnCloseBox->Left - xGap;
m_btnRestBox->Left = m_btnCloseBox->Left - xGap;
m_btnMinBox->Left = m_btnMaxBox->Left - xGap;
m_btnHelpBox->Left = m_btnMinBox->Left - xGap;
m_labCaption->Left = (Width - m_labCaption->Width) / 2;
m_pImageStep->Left = (Width - m_pImageStep->Width) / 2;
m_btnFirstStep->Left = m_pImageStep->Left + m_btnFirstStep->ClientRect.Width()/2;
m_btnFifthStep->Left = m_pImageStep->BoundsRect.Right - DPIX(30);
int iInterval = (m_btnFifthStep->Left - m_btnFirstStep->BoundsRect.Right)/4 - m_btnFifthStep->ClientRect.Width() + DPIX(5);
m_btnSecStep->Left = m_btnFirstStep->BoundsRect.Right + iInterval;
m_btnThrdStep->Left = m_btnSecStep->BoundsRect.Right + iInterval;
m_btnFrthStep->Left = m_btnThrdStep->BoundsRect.Right + iInterval;
m_btnFifthStep->Left = m_btnFrthStep->BoundsRect.Right + iInterval;
m_lblExtFont->Left = Width - DPIX(110);
m_pPgCtrl_Work->SetBounds( m_pPgCtrl_Work->Left, m_pPgCtrl_Work->Top,
ClientWidth - 2 * xBrd, ClientHeight - m_pImgTopTile->Height - yBrd );
m_pPgCtrl_Work->ActivePage->SetBounds(0, 0, m_pPgCtrl_Work->Width, m_pPgCtrl_Work->Height);
if( m_pPgCtrl_Work->ActivePageIndex<5 ){
TForm * pForm = (TForm*)m_paTabSheets[m_pPgCtrl_Work->ActivePageIndex]->Controls[0];
pForm->Perform( UM_SETFONTPOSITION, 0, 0 );
}
LockWindowUpdate(NULL);
}
break;
default:
break;
}
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::MaxBoxClick(TObject *Sender)
{
WindowState = wsMaximized;
g_iWindowState = WindowState;
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::RestBoxClick(TObject *Sender)
{
WindowState = wsNormal;
g_iWindowState = WindowState;
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::LoginClick(TObject *Sender)
{
PostMessage(Handle, UM_LOGIN, 0, 0);
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnNetworkError(TMessage &msg)
{
WORD eMessage = HIWORD(msg.WParam);
WORD eExtra = LOWORD(msg.WParam);
DebugPrint("网络访问错误，消息号：%d，错误号：0x%X\n", eMessage, eExtra);
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnNetworkMessage(TMessage &msg)
{
WORD eMessage = HIWORD(msg.WParam);
WORD eExtra = LOWORD(msg.WParam);
switch (eMessage) {
case e_loginResponse:
if (eExtra == 0) {
PTUSERINFO pUserInfo = PTUSERINFO(msg.LParam);
m_btnLogin->Visible = false;
m_lblLoging->Visible = false;
m_btnCancelLog->Visible = false;
m_panelNoticeNum->Left = DPIX(142);
String strHeaderPath = g_strUserPath.c_str();
strHeaderPath += L"header\\";
String strIconFile = strHeaderPath + g_infoUser.strIconFile;
if( !FileExists( strIconFile ) )
strIconFile = strHeaderPath + L"default.jpg";
GetPic(strIconFile, true);
m_imgUserIcon->Picture->LoadFromFile( strIconFile );
if( strlen(g_infoUser.strNickName)>0 ){
m_lblUsername->Caption = g_infoUser.strNickName;
}
else{
m_lblUsername->Caption = g_infoUser.strUserName;
}
TPngImage *pImgVip = new TPngImage();
if(-1==g_infoUser.accountInfo.vipPeriod){
pImgVip->LoadFromResourceName(int(HInstance), L"vipForever");
m_imgVip->Hint = L"终身VIP会员";
}else if( 0==g_infoUser.accountInfo.vipPeriod ) {
pImgVip->LoadFromResourceName(int(HInstance), L"vipNone");
m_imgVip->Hint = L"点击成为VIP会员";
}else {
pImgVip->LoadFromResourceName(int(HInstance), L"vipTimer");
String strDay = L"VIP权限剩余";
int nDay = g_infoUser.accountInfo.vipPeriod/(60*60*24);
int nAdd = g_infoUser.accountInfo.vipPeriod%(60*60*24)==0?0:1;
strDay += IntToStr(nDay+nAdd);
strDay += L"天，点击续费";
m_imgVip->Hint = strDay;
}
m_imgVip->Picture->Assign(pImgVip);
SAFE_DELETE(pImgVip)
m_imgVip->ShowHint = true;
m_panelUserInfo->Visible = true;
g_bLogon = true;
DebugPrint(
"用户信息：\n ID=%d\n nickname: %s\n banlance=%d\n styleNum=%d\n authority=0x%X\n icon: %s\n",
g_infoUser.accountInfo.ID, g_infoUser.strNickName,
g_infoUser.accountInfo.balance,
g_infoUser.ownStyleNum, g_infoUser.accountInfo.authority,
g_infoUser.strIconFile );
Update();
g_bRecProtect = IsProtected();
f_MM_SetRecordProtect( g_bRecProtect );
int nPublic = f_CS_GetNewNoticeNum( 0 );
int num = f_CS_GetNewNoticeNum( g_infoUser.accountInfo.ID );
m_panelNoticeNum->Parent = m_panelUserInfo;
m_panelNoticeNum->Left = DPIX(94);
m_panelNoticeNum->Top = 0;
if( num>0 || nPublic>0 ){
m_pbUserNoticeNum->Tag = num + nPublic;
if( !m_panelNoticeNum->Visible ){
m_panelNoticeNum->Visible = true;
}
else{
m_panelNoticeNum->Invalidate();
}
String strNoticeHint = "有 ";
if( nPublic>0 ){
strNoticeHint += nPublic;
strNoticeHint += " 条网站最新公告\n和 ";
}
strNoticeHint += num;
strNoticeHint += " 条未读个人消息\n请点击查看";
m_pbUserNoticeNum->Hint = strNoticeHint;
}
}
else{
if( eExtra==e_LoginPasswordError || eExtra == e_LoginUserNotExist || eExtra==e_VipExceeded
|| eExtra==e_UserLocked || eExtra == e_UserDeleted){
ShowErrorMessage( eExtra, "登录失败!" );
g_infoUser.strPassword[0] = 0;
PostMessage(Handle, UM_LOGIN, 0, 0);
}
}
break;
case e_iconResponse:
if (eExtra == 0) {
String strIconFile = g_strUserPath.c_str();
strIconFile += L"header\\";
strIconFile += g_infoUser.strIconFile;
if( FileExists( strIconFile ) ) {
GetPic(strIconFile, true);
m_imgUserIcon->Picture->LoadFromFile( strIconFile );
}
}
break;
case e_logoffResponse:
m_btnLogin->Visible = true;
m_panelUserInfo->Visible = false;
m_lblLoging->Visible = false;
m_btnCancelLog->Visible = false;
m_panelNoticeNum->Parent = this;
m_panelNoticeNum->Left = DPIX(124);
m_panelNoticeNum->Top = DPIY(2);
m_panelNoticeNum->Visible = false;
//add upload by tj 2004/03/26
if( !strcmp( g_infoSong.strSinger, g_infoUser.strNickName ) )
g_infoSong.strSinger[0] = '\0';
if( !strcmp( g_infoSong.strLyricist, g_infoUser.strNickName ) )
g_infoSong.strLyricist[0] = '\0';
if( !strcmp( g_infoSong.strComposer, g_infoUser.strNickName ) )
g_infoSong.strComposer[0] = '\0';
if( !strcmp( g_infoSong.strArranger, g_infoUser.strNickName ) )
g_infoSong.strArranger[0] = '\0';
char strName[80];
strcpy(strName, g_infoUser.strUserName);
memset(&g_infoUser, 0, sizeof(g_infoUser));
strcpy(g_infoUser.strUserName, strName);
if( HelpForm ) HelpForm->SetNoticeNum( 0, 1 );
g_bLogon = false;
break;
case e_versionResponse:
if (eExtra == e_DatabaseError) {
DebugPrint("服务器数据访问失败！\n");
break;
}
else {
if (eExtra == e_UpdateMandatory || eExtra == e_UpdateOptional) {
int year = g_infoSoftwareUpdate.tIssueDate >> 16;
int month = (g_infoSoftwareUpdate.tIssueDate & 0xFF00) >> 8;
int day = g_infoSoftwareUpdate.tIssueDate & 0xFF;
string sDescribe = UTF8ToMBCS(g_infoSoftwareUpdate.strDescribe);
DebugPrint(
"最新的客户端版本：Ver %d.%d.%d.%04d\n发布时间：%d-%d-%d\n文件大小：%dK\n文件描述：%s\n",
g_infoSoftwareUpdate.version.majorVersion,
g_infoSoftwareUpdate.version.minorVersion,
g_infoSoftwareUpdate.version.modifyVersion,
g_infoSoftwareUpdate.version.buildVersion, year, month, day,
g_infoSoftwareUpdate.nFileSize, sDescribe.c_str());
if (eExtra == e_UpdateMandatory) {
DebugPrint("该版本为强制更新版。\n\n");
LogoffClick(NULL);
g_bUpdateMandatory = true;
// m_panelUserInfo->Visible = false;
m_btnLogin->Visible = false;
m_lblLoging->Visible = false;
m_btnCancelLog->Visible = false;
CompleteForm->EnableNextStep(false);
}
// don't display the update information while new user operator the software first
UpdateForm = new TUpdateForm(NULL);
UpdateForm->ShowModal();
delete UpdateForm;
}
}
break;
case e_noticeUpdateResponse:
if (eExtra == 0) {
WORD idUser = HIWORD(msg.LParam);
WORD nUnchecked = LOWORD(msg.LParam);
// HelpForm->SetNoticeNum( nUnchecked, idUser ? 1 : 0 );
int nUser = f_CS_GetNewNoticeNum( g_infoUser.accountInfo.ID );
int nPublic = f_CS_GetNewNoticeNum( 0 );
if( nUser>0 || nPublic>0 ){
m_pbUserNoticeNum->Tag = nUser + nPublic;
if( !m_panelNoticeNum->Visible ){
m_panelNoticeNum->Visible = true;
}
else{
m_panelNoticeNum->Invalidate();
}
//int nPublic = HelpForm->GetNoticeNum( 0 );
// int nUser = HelpForm->GetNoticeNum( 1 );
String strNoticeHint = "有 ";
if( nPublic>0 ){
strNoticeHint += nPublic;
strNoticeHint += " 条网站最新公告";
if( nUser>0 ){
strNoticeHint += "\n和 ";
}
}
if( nUser>0 ){
strNoticeHint += nUser;
strNoticeHint += " 条未读个人消息\n请点击查看";
}
m_pbUserNoticeNum->Hint = strNoticeHint;
}
else{
m_panelNoticeNum->Visible = false;
}
}
break;
}
}
void __fastcall TMainForm::LogoffClick(TObject *Sender)
{
// if( g_bLogon )
f_CS_Logoff();
/* m_btnLogin->Visible = true;
m_panelUserInfo->Visible = false;
m_lblLoging->Visible = false;
m_btnCancelLog->Visible = false;
m_panelNoticeNum->Parent = this;
m_panelNoticeNum->Left = 124;
m_panelNoticeNum->Top = 2;
m_panelNoticeNum->Visible = false;
//add upload by tj 2004/03/26
if( !strcmp( g_infoSong.strSinger, g_infoUser.strNickName ) )
g_infoSong.strSinger[0] = '\0';
if( !strcmp( g_infoSong.strLyricist, g_infoUser.strNickName ) )
g_infoSong.strLyricist[0] = '\0';
if( !strcmp( g_infoSong.strComposer, g_infoUser.strNickName ) )
g_infoSong.strComposer[0] = '\0';
if( !strcmp( g_infoSong.strArranger, g_infoUser.strNickName ) )
g_infoSong.strArranger[0] = '\0';
char strName[80];
strcpy(strName, g_infoUser.strUserName);
memset(&g_infoUser, 0, sizeof(g_infoUser));
strcpy(g_infoUser.strUserName, strName);
HelpForm->SetNoticeNum( 0, 1 );
g_bLogon = false;
*/
}
// ---------------------------------------------------------------------------
void TMainForm::InitFontList()
{
UnicodeString strPath = g_strExecutePath.c_str(),
strWildcard[2] = { L"*.", L"*.sf2" };
AnsiString strFileName = strPath.c_str();
char strFontName[80];
// 添加音色库
TSearchRec sr;
int iAttr = 0;
g_strFontPath = g_strExecutePath;
g_strFontPath += L"Fonts\\";
strPath = g_strFontPath.c_str();
for( int i=0; i<2; i++ ){
if (FindFirst(strPath + strWildcard[i], iAttr, sr) == 0) {
do {
strFileName = g_strFontPath.c_str();
strFileName += sr.Name;
if (f_MM_GetFontInfo(strFileName.c_str(), strFontName ) == S_OK) {
bool bAdd = true;
int iInsert = -1;
for( int j=0; j<g_lstFonts.size(); j++ ){
FONTINFO* pF = g_lstFonts[j];
int iComp = StrComp( strFontName, pF->strFontName );
if( iComp < 0 ){
iInsert = j;
break;
}
else if( iComp==0 ){
bAdd = false;
break;
}
}
if( bAdd ){
FONTINFO * pNewFI = new FONTINFO;
strcpy(pNewFI->strFileName, strFileName.c_str());
if (strlen(strFontName) > 0)
strcpy(pNewFI->strFontName, strFontName);
else{
char *c_name = strFileName.c_str(),
*name = strrchr( c_name, '\\' )+1,
*ext = strrchr( c_name, '.' );
if( ext>name ){
strncpy( pNewFI->strFontName, name, ext-name );
pNewFI->strFontName[ext-name] = '\0';
}
else
strcpy(pNewFI->strFontName, name );
}
if( iInsert<0 ){
g_lstFonts.push_back(pNewFI);
}
else{
g_lstFonts.insert( g_lstFonts.begin()+iInsert, pNewFI );
}
}
}
}
while (FindNext(sr) == 0);
FindClose(sr);
}
else {
iAttr = GetLastError();
}
}
HRESULT res = 0;
char strExtDir[256] = "";
if( !g_strExtFontsPath.empty() ){
sprintf( strExtDir, "%s\\ext\\", ((AnsiString)g_strExtFontsPath.c_str()).c_str() );
res = f_MM_CheckExtFont( strExtDir );
}
if( !(res & 0x01) ){
char strDefExtDir[256];
sprintf( strDefExtDir, "%sFonts\\ext\\", ((AnsiString)g_strExecutePath.c_str()).c_str() );
if( stricmp( strDefExtDir, strExtDir ) ){
res = f_MM_CheckExtFont( strDefExtDir );
}
}
g_bExtFontUsable = res & 0x01;
if( g_bExtFontUsable ){
// m_lblExtFont->Visible = false;
m_lblExtFont->Tag = 1;
m_lblExtFont->Caption = L"iChangzuo.com";
m_lblExtFont->Hint = L"欢迎访问唱作网";
TFontStyles fs;
fs << fsUnderline;
fs << fsItalic;
m_lblExtFont->Font->Style = fs;
FONTINFO * pFI = new FONTINFO;
strcpy(pFI->strFileName, "extend fonts" );
strcpy(pFI->strFontName, "唱作网扩展音色库" );
g_lstFonts.insert( g_lstFonts.begin(), pFI );
}
}
// ---------------------------------------------------------------------------
bool TMainForm::SetSelectFont()
{
bool bLastFontFound = false;
int idDefaultFont = -1;
for (int i = 0; i < g_lstFonts.size(); i++) {
FONTINFO * pFI = g_lstFonts[i];
if (ExtractFileName(pFI->strFileName).Compare(g_strDefaultSoundSet) == 0) {
idDefaultFont = i;
}
if (ExtractFileName(pFI->strFileName).Compare(g_strFontFile.c_str()) == 0) {
bLastFontFound = true;
g_idFont = i;
break;
}
}
if (!bLastFontFound) {
if (idDefaultFont != -1) {
g_strFontFile = str2wstr(g_strDefaultSoundSet);
g_idFont = idDefaultFont;
}
else {
g_strFontFile = ExtractFileName(g_lstFonts[0]->strFileName).c_str();
g_idFont = 0;
}
}
AnsiString strFontFile;
if( g_strFontFile.compare( L"extend fonts" ) )
strFontFile = g_strFontPath.c_str();
strFontFile += g_strFontFile.c_str();
f_MM_SetFont(strFontFile.c_str());
return bLastFontFound;
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
if( !Shift.Contains( ssAlt ) ){
switch (Key) {
case VK_F1:{
TMenuItem* pItem = m_pSysMenu->GetMainMenuItem(MENU_HELP);
if( pItem->Enabled )
OnUserHelp();
}
break;
case VK_F2: {
TMenuItem* pItem = m_pSysMenu->GetMainMenuItem(0);
if( pItem->Enabled )
OnLoadProject(pItem);
}
break;
case VK_F3:
case VK_F4: {
int index = (Key == VK_F3) ? MENU_SAVE : MENU_SAVEAS;
TMenuItem* pItem = m_pSysMenu->GetMainMenuItem(index);
if (pItem->Enabled)
OnSaveProject(pItem);
}
break;
case VK_F6: {
OnCreateNewProject();
}
break;
case VK_RETURN:
if( m_lbFontSelect->Visible ){
int iSel = m_lbFontSelect->ItemIndex;
if( iSel!=g_idFont ){
m_lblFontName->Caption = g_lstFonts[iSel]->strFontName;
if( f_MM_SetFont( g_lstFonts[iSel]->strFileName )==S_OK ){
g_idFont = iSel;
g_strFontFile = ExtractFileName(g_lstFonts[iSel]->strFileName).c_str();
}
}
m_lbFontSelect->Hide();
}
break;
case 'L':
if( m_btnFontChange->Enabled ){
FontChangeMouseDown( NULL, mbLeft, TShiftState(1<<ssLeft), 0, 0 );
}
break;
}
}
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::HintTimerProc(TObject* Sender)
{
m_pTimerHint->Enabled = false;
m_bShowHint = true;
TPoint point(m_imgUserFrame->Width, 2);
// TPoint point(0, m_imgUserFrame->Top + m_imgUserFrame->Height);
point = m_imgUserFrame->ClientToScreen(point);
String strHint = "用户名：";
strHint += g_infoUser.strUserName;
strHint += "\n昵 称：";
strHint += g_infoUser.strNickName;
strHint += "\n音符数：";
strHint += IntToStr(g_infoUser.accountInfo.balance);
// strHint += "\n魅力值：";
// strHint += IntToStr(g_infoUser.accountInfo.pops);
// strHint += "\n粉丝数：";
// strHint += IntToStr(g_infoUser.accountInfo.fans);
// strHint += "\n歌曲数：";
// strHint += IntToStr(g_infoUser.accountInfo.songs);
strHint += "\n\n点击查看详情";
m_pStyleInfoWnd->ShowHintWindow(point, strHint);
}
void __fastcall TMainForm::UsernameMouseEnter(TObject *Sender)
{
Screen->Cursor = crHandPoint;
m_lblUsername->Font->Color = clBlue;
TFontStyles fs;
fs << fsUnderline;
fs << fsBold;
m_lblUsername->Font->Style = fs;
if (!m_bShowHint) {
m_pTimerHint->Enabled = true;
m_bShowHint = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::UsernameMouseLeave(TObject *Sender)
{
m_pStyleInfoWnd->ReleaseHandle();
m_pTimerHint->Enabled = false;
m_bShowHint = false;
Screen->Cursor = crDefault;
m_lblUsername->Font->Color = clBlack;
TFontStyles fs;
fs << fsBold;
m_lblUsername->Font->Style = fs;
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::UsernameMouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
char strURL[256];
f_CS_GetWebPageURL( URL_USERCENTER, strURL );
ShellExecute(Handle, NULL, ((String)strURL).c_str(), NULL, NULL, SW_SHOWNORMAL);
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::AcceptFiles(TMessage& Msg)
{
const int m_nMaxFileNameLen = 255;
wchar_t m_wsFileName[m_nMaxFileNameLen];
DragQueryFile((HDROP)Msg.WParam, 0, m_wsFileName, m_nMaxFileNameLen);
if (g_lstMelodyBars.size() > 0 && (g_strProjectName.length() == 0 ||
HasProjectModified())) {
int mrRet = MessageForm->ShowMessage("是否保存当前工程？",
MB_ICONQUESTION | MB_YESNOCANCEL);
if (mrRet == mrYes) {
DebugPrint("确认保存");
OnSaveProject(NULL);
}
else if (mrRet == mrCancel) {
return;
}
}
SetInitVar(true);
LoadProject(m_wsFileName);
DragFinish((HDROP)Msg.WParam);
}
// ---------------------------------------------------------------------------
void TMainForm::SetSysMenuState(int iMenuIndex, bool bIsEnable)
{
m_pSysMenu->EnabledMenuItem(iMenuIndex, bIsEnable);
}
// ---------------------------------------------------------------------------
int TMainForm::GetActivePageIndex()
{
return m_pPgCtrl_Work->ActivePageIndex + 1;
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnSelectPageStep(TObject *Sender)
{
int iTagIndex = ((TPNGButton*)Sender)->Tag % 5;
int iOldPage = m_pPgCtrl_Work->ActivePageIndex;
if( iOldPage == iTagIndex)
return;
if( iOldPage == 0 || iOldPage == 1 || iOldPage == 4 || iOldPage==5 )
g_bCanStep = true;
PostMessage(Handle, UM_JUMP_PAGE, WPARAM(iTagIndex),LPARAM(this));
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnJumpPage(TMessage & Msg)
{
int iOldPage = m_pPgCtrl_Work->ActivePageIndex;
int iNextPage = (int)Msg.WParam;
TForm * pForm = (TForm*)m_paTabSheets[iOldPage]->Controls[0];
pForm->OnDeactivate((TObject*)Msg.LParam);
if( !g_bBaseComposeLoaded && (iNextPage==3 || iNextPage==4) ){
ReloadBaseCompose();
}
if( g_bCanStep || iOldPage==5 ){
if( iOldPage==iNextPage )
pForm->OnActivate(NULL);
else
SetActivePage(iNextPage);
m_pSysMenu->EnabledMenuItem( MENU_SAVE, g_lstMelodyBars.size()>0
&& iNextPage!=0 && iNextPage!=5 );
m_pSysMenu->EnabledMenuItem( MENU_SAVEAS, g_lstMelodyBars.size()>0
&& iNextPage!=0 && iNextPage!=5 );
}
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnRefreshStepPageState(TMessage & Msg)
{
bool bEnableProj = Msg.WParam & 0x1;
if( !bEnableProj || !m_btnStep[0]->Enabled ){ //录音，禁止打开/新建工程/帮助
for( int j=0; j<=MENU_HELP; j++ ){
if( j==MENU_SAVE || j==MENU_SAVEAS )
m_pSysMenu->EnabledMenuItem( j, bEnableProj && g_lstMelodyBars.size()>0 );
else
m_pSysMenu->EnabledMenuItem( j, bEnableProj );
}
}
for( int i = 0; i < 5; i++ ){
if( g_lstMelodyBars.empty() && i>1 ){
m_btnStep[i]->Enabled = false;
}
else{
m_btnStep[i]->Enabled = (Msg.WParam>>i) & 0x1;
}
}
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::HelpBoxClick(TObject *Sender)
{
TMenuItem* pItem = m_pSysMenu->GetMainMenuItem(MENU_HELP);
if( pItem->Enabled && m_pPgCtrl_Work->ActivePageIndex!=5 ){
HelpForm->m_iPrevPageIndex = m_pPgCtrl_Work->ActivePageIndex;
PostMessage(Handle, UM_JUMP_PAGE, WPARAM(5),LPARAM(this));
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OnShowAbout(TMessage & Msg)
{
TAboutForm * pDlg = new TAboutForm(NULL);
pDlg->ShowModal();
delete pDlg;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OnShowMore(TMessage & Msg)
{
// TSoftwaresForm * pDlg = new TSoftwaresForm(NULL);
//
// pDlg->ShowModal();
//
// delete pDlg;
char strURL[256];
f_CS_GetWebPageURL(URL_SOFTWARE, strURL);
ShellExecute(Handle, NULL, ((String)strURL).c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OnOpenManual(TMessage & Msg)
{
OnUserManual();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OnUserManual(TObject *Sender)
{
HWND hHelp = FindWindow(NULL, L"伴奏魔方 用户手册");
if (hHelp) {
ShowWindow(hHelp, SW_RESTORE);
}
else {
String helpFile = g_strExecutePath.c_str();
helpFile += "Help/ACManual.chm";
ShellExecute(Handle, L"Open", helpFile.c_str(), NULL, NULL,
SW_MAXIMIZE);
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OnAudioEffect(TMessage & Msg)
{
TAudioEffectForm * pAEForm = new TAudioEffectForm(NULL, Msg.WParam);
if( pAEForm->ShowModal()==mrOk ){
SaveAutoProj();
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::UserNoticeNumPaint(TObject *Sender)
{
int x = 0;
if( m_bUNHot ){
x = -m_pImgNoticeNum->Width/2;
}
m_pbUserNoticeNum->Canvas->Draw(x, 0, m_pImgNoticeNum);
String strText = m_pbUserNoticeNum->Tag;
m_pbUserNoticeNum->Canvas->Brush->Style = bsClear;
m_pbUserNoticeNum->Canvas->Font->Color = clWhite;
int txtWidth = m_pbUserNoticeNum->Canvas->TextWidth( strText );
int txtHeight = m_pbUserNoticeNum->Canvas->TextHeight( strText );
m_pbUserNoticeNum->Canvas->TextOut( (m_pbUserNoticeNum->Width - txtWidth)/2.0+0.5,
(m_pbUserNoticeNum->Height -txtHeight)/2.0,
strText );
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::UserNoticeNumClick(TObject *Sender)
{
char strURL[256];
f_CS_GetWebPageURL( URL_USERNOTICE, strURL );
ShellExecute(Handle, NULL, ((String)strURL).c_str(), NULL, NULL, SW_SHOWNORMAL);
// int num = 0;
// f_CS_GetNotice( num, NULL, 0 );
// f_CS_GetNotice( num, NULL, g_infoUser.accountInfo.ID );
// TMenuItem* pItem = m_pSysMenu->GetMainMenuItem(MENU_HELP);
// if( pItem->Enabled ){
// if( m_pPgCtrl_Work->ActivePageIndex!=5 ){
// HelpForm->m_iPrevPageIndex = m_pPgCtrl_Work->ActivePageIndex;
// SetActivePage( 5 );
// }
// /*
// if( HelpForm->GetNoticeNum(0)>0 ){
// HelpForm->SetPage( 2 );
// }
// else{
// HelpForm->SetPage( 3 );
// }
// */
// if( HelpForm->GetNoticeNum(1)>0 ){
// HelpForm->SetPage( TAB_NT );
// }
// }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::UserNoticeNumMouseEnter(TObject *Sender)
{
m_bUNHot = true;
m_pbUserNoticeNum->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::UserNoticeNumMouseLeave(TObject *Sender)
{
m_bUNHot = false;
m_pbUserNoticeNum->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::UMStartCDTimer(TMessage &Message)
{
if(m_pCDTimer==NULL){
m_pCDTimer = new TTimer(this);
m_pCDTimer->Interval = 1000;
m_pCDTimer->OnTimer = CDTimerProc;
m_pCDTimer->Tag = CODE_INTERVAL;
m_pCDTimer->Enabled = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::CDTimerProc(TObject* Sender)
{
if(LoginForm!=NULL){
LoginForm->OnCDTimer(m_pCDTimer->Tag);
}
if( m_pCDTimer->Tag==0 ){
ClearCDTimer();
}
else{
m_pCDTimer->Tag--;
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ClearCDTimer()
{
if( m_pCDTimer ){
m_pCDTimer->Enabled = false;
delete m_pCDTimer;
m_pCDTimer = NULL;
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OnLogin(TMessage &msg)
{
if( g_bUpdateMandatory )
return;
bool bSync = msg.WParam;
AnsiString strUsernameBk = g_infoUser.strUserName,
strPasswordBk = g_infoUser.strPassword;
LoginForm = new TLoginForm(this);
LoginForm->m_bAutoLog = g_bAutoLogin;
LoginForm->m_strUsername = strUsernameBk;
LoginForm->m_strPassword = strPasswordBk;
BOOL bRepeat = FALSE;
do{
if (LoginForm->ShowModal() == mrOk) {
AnsiString astr = LoginForm->m_strUsername;
strncpy(g_infoUser.strUserName, astr.c_str(), astr.Length() + 1);
astr = LoginForm->m_strPassword;
strncpy(g_infoUser.strPassword, astr.c_str(), astr.Length() + 1);
if( !LoginForm->m_bRegister && !bSync ){
m_btnLogin->Visible = false;
m_lblLoging->Visible = true;
m_btnCancelLog->Visible = true;
m_panelNoticeNum->Left = 138;
g_bAutoLogin = LoginForm->m_bAutoLog;
f_CS_Login(&g_infoUser, FALSE);
}
else{
TProgressForm * dlgProgress = new TProgressForm(NULL);
int ret = LoginForm->m_bRegister ?
dlgProgress->User_Register(LoginForm->isEmailOrMobile) :
dlgProgress->User_Login();
int eExtra = dlgProgress->GetOpertaionResult();
delete dlgProgress;
bRepeat = false;
if( ret!=mrCancel ){
if( eExtra==0 ){
if( g_infoUser.accountInfo.ID==0 ){
DebugPrint( "Invalid user ID.\n" );
}
g_bRecProtect = IsProtected();
f_MM_SetRecordProtect( g_bRecProtect );
g_bLogon = true;
}
else{
ShowErrorMessage( eExtra, LoginForm->m_bRegister ? "注册失败!"
: "登录失败!" );
g_infoUser.strPassword[0] = 0;
LoginForm->m_strPassword = "";
if( eExtra==e_LoginPasswordError
|| eExtra==e_LoginUserNotExist
|| eExtra==e_UsernameExist){
bRepeat = TRUE;
}
}
}
}
}
else {
bRepeat = FALSE;
LogoffClick(NULL);
strncpy(g_infoUser.strUserName, strUsernameBk.c_str(), strUsernameBk.Length() + 1);
strncpy(g_infoUser.strPassword, strPasswordBk.c_str(), strPasswordBk.Length() + 1);
}
}
while( bRepeat );
delete LoginForm;
LoginForm = NULL;
}
// ---------------------------------------------------------------------------
void __fastcall TMainForm::OnSaveMusic(TMessage & Msg)
{
//必须登录后才能进入保存面
if( !g_bLogon ){
Perform( UM_LOGIN, true, 0 );
}
if( !g_bLogon )
return;
ReloadCompose( g_iComposeKey );
//保存到文件
if( !g_strLastSaveFile.empty() ){ //检查有效性
String strPath = ExtractFilePath( g_strLastSaveFile.c_str() );
if( !DirectoryExists( strPath, false ) )
g_strLastSaveFile = L"";
}
TSaveForm * pSave = new TSaveForm(NULL, g_strLastSaveFile.c_str(),
g_iLastSaveOption, g_iLastSaveType );
if( pSave->ShowModal()==mrOk ){
String strFileName = pSave->m_editFileName->Text.c_str();
int iFileType = 0;
if( ExtractFileExt(strFileName).CompareIC(".wav")==0 ){
iFileType = FILETYPE_WAVE;
}
else if( ExtractFileExt(strFileName).CompareIC(".mp3")==0 ){
iFileType = FILETYPE_MP3;
}
else if( ExtractFileExt(strFileName).CompareIC(".mid")==0 ){
iFileType = FILETYPE_MIDI;
}
else{
DebugPrint("无效的文件名：%s\n", pSave->m_editFileName->Text);
goto Cleanup_Line;
}
g_iLastSaveType = iFileType;
int iSaveOption = 0;
if( pSave->m_imgComposeCheck->Tag )
iSaveOption |= SAVE_COMPOSE;
if( pSave->m_imgSongCheck->Tag )
iSaveOption |= SAVE_SONG;
//先检查文件名有效性
int iFileHandle = FileOpen( strFileName, fmOpenReadWrite );
bool bCreate = false;
if( iFileHandle<0 ){
iFileHandle = FileCreate( strFileName );
bCreate = true;
}
if( iFileHandle<0 ){
ShowErrorMessage( e_OpenFileFailed, L"保存失败!" );
goto Cleanup_Line;
}
else{
FileClose( iFileHandle );
if( bCreate )
DeleteFile( strFileName );
}
int iOperation = e_PO_Pay4Basic;
if( iSaveOption & SAVE_COMPOSE ){
iOperation |= e_PO_Pay4Compose;
int iSel = m_lbFontSelect->ItemIndex;
if( iSel>=0 && !strcmp(g_lstFonts[iSel]->strFileName, "extend fonts") )
iOperation |= e_PO_Pay4Fonts;
}
// 检查是否可复制
if( iFileType==FILETYPE_MP3 && ( iSaveOption & SAVE_COMPOSE )
&& ( (iSaveOption & SAVE_SONG ) || g_bPredefine )
&& !g_strMP3File.IsEmpty() && FileExists( g_strMP3File, false ) ){
if( g_strMP3File.CompareIC( strFileName )){
CopyFile( g_strMP3File.c_str(), strFileName.c_str(), false );
}
g_strLastSaveFile = strFileName.c_str();
g_iLastSaveOption = iSaveOption;
String strMessage = "歌曲保存成功。";
MessageForm->ShowMessage( strMessage, MB_OK|MB_ICONINFORMATION );
}
else{
SaveMedia( iOperation, iSaveOption, iFileType, strFileName );
}
}
Cleanup_Line:
delete pSave;
Update();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OnUploadMusic(TMessage & Msg)
{
//必须登录后才能进入上传界面
if( !g_bLogon )
Perform( UM_LOGIN, true, 0 );
if( !g_bLogon )
return;
ReloadCompose( g_iComposeKey );
if( !g_strMP3File.IsEmpty() && !FileExists( g_strMP3File ))
g_strMP3File = "";
//首先检测上传许可
TProgressForm *frmProgress = new TProgressForm(NULL);
int ret = frmProgress->User_UploadSong( NULL, NULL );//add upload by tj 2004/03/26
int eExtra = frmProgress->GetOpertaionResult();
delete frmProgress;
if( ret==mrCancel ){
return;
}
else if( eExtra!=0 ){
if( eExtra==e_InvalidAuthority ){
TManageSongForm * frmManage = new TManageSongForm(NULL, false);
ret = frmManage->ShowModal();
delete frmManage;
}
else{
ShowErrorMessage( eExtra, "验证失败!" );
}
return;
}
//填写歌曲信息
//add upload by tj 2004/03/26
TUploadForm * pUpload = new TUploadForm( NULL );
wstring strFileName;
while( pUpload->ShowModal()==mrOk ){ //显示对话框直到上传成功或用户取消
eExtra = 0;
strFileName = g_strMP3File.c_str();
//如此前未保存，则保存到Save目录下
if( strFileName.empty() ){
strFileName = g_strUserPath;
strFileName += L"Save\\";
MkDir( strFileName.c_str() );
strFileName += pUpload->m_editSongName->Text.c_str();
strFileName += L".mp3";
int iOperation = e_PO_Pay4Basic | e_PO_Pay4Compose;
int iSel = m_lbFontSelect->ItemIndex;
if( iSel>=0 && !strcmp(g_lstFonts[iSel]->strFileName, "extend fonts") )
iOperation |= e_PO_Pay4Fonts;
eExtra = SaveMedia( iOperation, SAVE_COMPOSESONG, FILETYPE_MP3, strFileName.c_str(), true );
}
//得到文件名，开始上传
if( eExtra==0 ){
//保存伴奏工程
if( g_infoSong.strCpjName && strlen( g_infoSong.strCpjName )>0 ){
SaveProject( g_infoSong.strCpjName, PROJ_MODE_UPLOAD );
}
TSHAREINFO infoShare;
frmProgress = new TProgressForm(NULL);
//add upload by tj 2004/03/26
ret = frmProgress->User_UploadSong( strFileName.c_str(), &infoShare );
eExtra = frmProgress->GetOpertaionResult();
delete frmProgress;
//删除伴奏工程
if( g_infoSong.strCpjName && strlen( g_infoSong.strCpjName )>0 && FileExists( g_infoSong.strCpjName ) ){
DeleteFile( g_infoSong.strCpjName );
}
if( ret==mrOk && eExtra==0 ){
TManageSongForm * frmManage = new TManageSongForm(NULL, true, infoShare.idSong );
frmManage->ShowModal();
delete frmManage;
break;
}
}
//统一处理错误返回值
if( eExtra!=0 ){
if( eExtra==e_InvalidAuthority ){
TManageSongForm * frmManage = new TManageSongForm(NULL, false);
ret = frmManage->ShowModal();
delete frmManage;
if( ret!=mrOk ){
break;
}
}
else if( eExtra!=-1 && eExtra!=e_UserCanceled ){
ShowErrorMessage( eExtra, "上传失败!" );
break;
}
}
}
delete pUpload;
Update();
}
//---------------------------------------------------------------------------
int TMainForm::SaveMedia( int iOperation, int iSaveOption, int iFileType, String strFileName, bool bUpload )
{
UINT nIdCount = 0, aIdStyle[MAX_STYLE_NUM];
for( int i=0; i<g_lstComposeStages.size(); i++ ){
int id = g_lstComposeStages[i]->idStyle;
bool bExist = false;
for( int j=0; j<nIdCount; j++ ){
if( id==aIdStyle[j] ){
bExist = true;
break;
}
}
if( !bExist ){
if( nIdCount>=MAX_STYLE_NUM ){
char buf[200];
sprintf( buf, "每首歌曲的风格数量不能超过 %d 个", MAX_STYLE_NUM );
MessageForm->ShowMessage( buf, MB_ICONERROR|MB_OK );
return false;
}
else{
aIdStyle[nIdCount++] = id;
}
}
}
int nUserBalance = g_infoUser.accountInfo.balance,
nCost = 0,
arrCost[MAX_STYLE_NUM];
TProgressForm * dlgProgress = new TProgressForm(NULL);
int ret = dlgProgress->User_CheckPayment( iOperation, nIdCount, aIdStyle, arrCost, &nCost, &nUserBalance );
int eExtra = dlgProgress->GetOpertaionResult();
delete dlgProgress;
bool bConfirm = false;
if( ret==mrOk ){
g_infoUser.accountInfo.balance = nUserBalance;
if( eExtra==0 || eExtra==e_VerifyInsufficient ){
if( nCost==0 )
bConfirm = true;
else{
TPayMentForm *payMentForm = new TPayMentForm(NULL, iOperation, nIdCount, aIdStyle,
arrCost, nCost, nUserBalance);
bConfirm = ( mrYes==payMentForm->ShowModal() );
delete payMentForm;
if( !bConfirm )
eExtra = e_UserCanceled;
}
}
}
if( bConfirm ){
TProgressForm * dlgProgress = new TProgressForm(NULL);
int ret = dlgProgress->MM_SaveMedia( iSaveOption, iFileType, strFileName.c_str(),
iOperation, nIdCount, aIdStyle );
eExtra = dlgProgress->GetOpertaionResult();
delete dlgProgress;
if( ret==mrOk ){
bool bTip = false;
for( int i=0; i<nIdCount; i++ ){
if( arrCost[i]>0 ){
bTip = true;
break;
}
}
if( bTip ){
//保存风格支付记录
g_bRecProtect = IsProtected();
f_MM_SetRecordProtect( g_bRecProtect );
AnsiString strProjectName = g_strAutoProjName.c_str();
SaveProject( strProjectName.c_str() );
g_bProjStylePaid = true;
}
if( bUpload ){
g_strMP3File = strFileName;
}
else{
g_strLastSaveFile = strFileName.c_str();
g_iLastSaveOption = iSaveOption;
if( iFileType==FILETYPE_MP3 && ( iSaveOption & SAVE_COMPOSE )
&& ( (iSaveOption & SAVE_SONG ) || g_bPredefine )){
g_strMP3File = strFileName;
//g_bSongSaved = true;
}
//SetInitVar();
MessageForm->ShowMessage( "歌曲保存成功。", MB_OK|MB_ICONINFORMATION );
}
if( bTip ){
String strMessage = "风格已支付，请及时保存工程。\n\n是否立即保存？";
if( mrYes==MessageForm->ShowMessage( strMessage, MB_YESNO|MB_ICONQUESTION ) ){
PostMessage( Handle, UM_SAVEPROJECT, 0, 0 );
}
}
}
else if( !bUpload && eExtra!=0 && eExtra!=e_UserCanceled ){
ShowErrorMessage( eExtra, L" 保存失败!" );
}
}
else if( !bUpload && eExtra!=0 && eExtra!=e_UserCanceled ){
ShowErrorMessage( eExtra, L"鉴权失败!" );
}
return eExtra;
}
//---------------------------------------------------------------------------
/*
bool TMainForm::CheckPayment( int iOperation )
{
bool bPaid = false;
if( !g_bLogon ){
Perform( UM_LOGIN, true, 0 );
}
if( g_bLogon ){
UINT nIdCount = 0, aIdStyle[MAX_STYLE_NUM];
// aIdStyle[nIdCount++] = g_iSelectedStyleID;
for( int i=0; i<g_lstComposeStages.size(); i++ ){
int id = g_lstComposeStages[i]->idStyle;
bool bExist = false;
for( int j=0; j<nIdCount; j++ ){
if( id==aIdStyle[j] ){
bExist = true;
break;
}
}
if( !bExist ){
if( nIdCount>=MAX_STYLE_NUM ){
char buf[200];
sprintf( buf, "每首歌曲的风格数量不能超过 %d 个", MAX_STYLE_NUM );
MessageForm->ShowMessage( buf, MB_ICONERROR|MB_OK );
return false;
}
else{
aIdStyle[nIdCount++] = id;
}
}
}
int nUserBalance = g_infoUser.accountInfo.balance,
nCost = 0,
arrCost[MAX_STYLE_NUM];
TProgressForm * dlgProgress = new TProgressForm(NULL);
int ret = dlgProgress->User_CheckPayment( iOperation, nIdCount, aIdStyle, arrCost, &nCost, &nUserBalance );
int eExtra = dlgProgress->GetOpertaionResult();
delete dlgProgress;
if( ret==mrOk ){
g_infoUser.accountInfo.balance = nUserBalance;
if( eExtra==0 || eExtra==e_VerifyInsufficient){
bool bConfirmed = true;
if( nCost>0 ){
TPayMentForm *payMentForm = new TPayMentForm(NULL, iOperation, nIdCount, aIdStyle,
arrCost, nCost, nUserBalance);
if( mrYes!=payMentForm->ShowModal() ){
bConfirmed = false;
}
delete payMentForm;
}
if( bConfirmed ){
TProgressForm * dlgProgress = new TProgressForm(NULL);
int ret = dlgProgress->User_ConfirmPayment( iOperation, nIdCount, aIdStyle,
&nUserBalance );
int eExtra = dlgProgress->GetOpertaionResult();
delete dlgProgress;
if( ret==mrOk ){
if( eExtra==0 ){
bPaid = true;
g_infoUser.accountInfo.balance = nUserBalance;
bool bTip = false;
for( int i=0; i<nIdCount; i++ ){
if( arrCost[i]>0 ){
bTip = true;
break;
}
}
if( bTip ){
g_bProjStylePaid = true;
String msg = "风格支付成功！\n\n为避免重复支付，请记住保存工程。";
MessageForm->ShowMessage( msg, MB_ICONINFORMATION|MB_OK );
}
}
else{
ShowErrorMessage( eExtra, L"支付失败!" );
}
}
}
}
else if( eExtra==e_InvalidStyleID ){ //风格失效，待进一步提示
ShowErrorMessage( eExtra, L"鉴权失败!" );
}
else{
ShowErrorMessage( eExtra, L"鉴权失败!" );
}
}
}
Update();
return bPaid;
}
//---------------------------------------------------------------------------
*/
void TMainForm::ShowErrorMessage( int errcode, String strOperation )
{
String msg = strOperation + L"\n";
if( errcode==e_InvalidUserID ){
msg += L"无效的用户。";
}
else if( errcode==e_InvalidStyleID ){
msg += L"所选的风格之一已失效。";
}
else if( errcode==e_VerifyInsufficient ){
msg += L"唱作音符余额不足，请登录网站获取。";
}
else if( errcode==e_DatabaseError ){
msg += L"数据库访问失败，请稍后重试。";
}
else if( errcode==e_ServiceBusy ){
msg += L"服务器忙，请稍后重试。";
}
else if( errcode==e_SocketError ){
msg += L"网络故障，请关闭程序后重试。";
}
else if( errcode==e_WaitTimeout ){
msg += L"网络超时，请稍后重试。";
}
else if( errcode==e_LoginPasswordError ){
msg += L"输入密码错，请重新输入。";
}
else if( errcode==e_LoginUserNotExist ){
msg += L"无效的用户名，请重新输入。";
}
else if( errcode==e_UsernameExist ){
msg += L"用户名已存在，请重新注册。";
}
else if( errcode==e_UserLocked ){
msg += L"该账户被冻结，请重新注册。";
}
else if( errcode==e_UserDeleted ){
msg += L"该账户已被删除，请重新注册。";
}
else if( errcode==e_OpenFileFailed ){
msg += L"文件操作错误。";
}
else if( errcode==e_InvalidDataID
|| errcode==e_InvalidPackID
|| errcode==e_InvalidData ){
msg += L"文件传输失败。";
}
else if( errcode==e_VipExceeded ){
msg += L"账号登录设备数已达上限，请稍后再试。";
}
else{
msg += L"未知原因。";
}
MessageForm->ShowMessage( msg, MB_ICONERROR|MB_OK );
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OnMicSetting(TMessage & Msg)
{
OnIOSetting();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OnOpenAutoProj(TMessage & Msg) //add by tj 2013/12/31
{
GetAutoSaveReg();
if( !FileExists(g_strAutoProjName.c_str()) )
return;
String strMsg = L"将恢复上次未保存的工程。\n是否恢复工程?";
MessageForm->m_btnYes->Hint = L"恢复工程";
MessageForm->m_btnNo->Hint = L"放弃恢复工程";
int mrRet = MessageForm->ShowMessage( strMsg, MB_ICONQUESTION|MB_YESNO );
MessageForm->m_btnYes->Hint = "";
MessageForm->m_btnNo->Hint = "";
if( mrRet==mrYes ) {
mrRet = ::LoadProject(g_strAutoProjName.c_str(), NULL);
SetInitVar();
if (mrRet) {
DebugPrint("open auto Save project....");
//add upload by tj 2004/03/26
memset( &g_infoSong, 0, sizeof(TSONGINFO) );
g_infoSong.size = sizeof(TSONGINFO);
memset( g_infoSong.iMusicStyle, -1, 4 );
g_infoSong.iSubmit = 1;
if( g_strProjectName.length()!=0 ) {
String strName = g_strProjectName.c_str();
AnsiString strTitle = TPath::GetFileNameWithoutExtension( strName );
strcpy( g_infoSong.strSongName, strTitle.c_str() );
}
if (!SetSelectFont()) {
String strMsg;
strMsg = g_strProjError[E_PROJ_INVALIDFONT - E_PROJ_NOERROR - 1];
MessageForm->ShowMessage(strMsg, MB_ICONINFORMATION | MB_OK);
}
SetInitVar();
if( g_strProjectName.length()==0 )
m_labCaption->Caption = String(APPNAME) + L" - Untitle";
else{
String strName = g_strProjectName.c_str();
m_labCaption->Caption = String(APPNAME) + L" - " +
TPath::GetFileNameWithoutExtension( strName );
}
m_pSysMenu->EnabledMenuItem(MENU_SAVE, true);
m_pSysMenu->EnabledMenuItem(MENU_SAVEAS, true);
int iActivePage = m_pPgCtrl_Work->ActivePageIndex;
if (g_iCurrentPage >= 0) {
iActivePage = g_iCurrentPage;
}
if (g_lstMelodyBars.size() == 0 && iActivePage > 1) {
iActivePage = 1;
}
else if (g_lstMelodyStages.size() == 0 && iActivePage > 2) {
iActivePage = 2;
}
if( g_lstMelodyStages.size()>0 && !g_bBaseComposeLoaded ){
ReloadBaseCompose();
}
for( int i = 0; i < 5; i++ ){
if( g_lstMelodyBars.empty() && i>1 ){
m_btnStep[i]->Enabled = false;
}
else{
m_btnStep[i]->Enabled = true;
}
}
PostMessage(Handle, UM_JUMP_PAGE, WPARAM(iActivePage),LPARAM(0));
}
else {
DebugPrint("open auto Save project invalidate....");
String strErr = L"恢复工程无效";
MessageForm->ShowMessage(strErr, MB_ICONERROR | MB_OK);
NewProject();
}
Update();
}
else{
g_strProjectName.clear();
}
g_bAutoSave = false;
SetAutoSaveReg();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::UMNotification(TMessage & Msg)
{
if( !m_pNotificationGetTimer )
return;
static bool bAutoShowHappened = false;
static bool bMenuShowHappened = false;
if( Msg.WParam == NOTIFICATION_SHOW_CLOSED ){
bAutoShowHappened = true;
m_pNotificationGetTimer->Enabled = false;
if( m_pNotificationForm ) {
delete m_pNotificationForm;
m_pNotificationForm = NULL;
}
}else if( Msg.WParam == NOTIFICATION_NO_JSONDATA ){
if( m_pNotificationForm ) {
delete m_pNotificationForm;
m_pNotificationForm = NULL;
}
if( !bAutoShowHappened ) {
m_pNotificationGetTimer->Enabled = true;
}
if( bMenuShowHappened ) {
bMenuShowHappened = false;
MessageForm->ShowMessage("暂不能获取唱作网动态，请稍后再试！", MB_ICONERROR | MB_OK);
}
}else if( Msg.WParam == NOTIFICATION_MENU_JSONDATA ){
m_pNotificationGetTimer->Enabled = false;
if( m_pNotificationForm== NULL) {
NotificationTimerProc(m_pNotificationGetTimer);
bMenuShowHappened = true;
}
}else if( Msg.WParam == NOTIFICATION_SHOW_FORM ){
if( m_pNotificationForm ){
m_pNotificationForm->setPANEL();
m_pNotificationForm->Show();
}
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::NotificationTimerProc(TObject* Sender)
{
TTimer *notiTimer = (TTimer *)Sender;
if( notiTimer == m_pNotificationGetTimer ) {
m_pNotificationGetTimer->Enabled = false;
if( m_pNotificationForm == NULL ) {
m_pNotificationForm = new TNotificationForm(this);
}
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OnNotification(TObject *Sender)
{
PostMessage(Handle, UM_NOTIFICATION,
NOTIFICATION_MENU_JSONDATA, 0 );
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OnCustomerSetting(TObject *Sender)
{
TCustomerSettingForm *csForm = new TCustomerSettingForm(NULL);
if( mrYes == csForm->ShowModal() ){
g_bAutoOpenProject = csForm->m_pCSPanel->m_bAutoOpenProject;
g_bAutoDownloadStyle = csForm->m_pCSPanel->m_bDownloadStyle;
f_CS_AutoDownloadStyle(g_bAutoDownloadStyle);
if( g_iShowType != csForm->m_pCSPanel->m_bAlphaKey ){
if( m_pPgCtrl_Work->ActivePageIndex==2 ){
BaseForm->ChangeChordMode( csForm->m_pCSPanel->m_bAlphaKey );
}
else if( m_pPgCtrl_Work->ActivePageIndex==3 ){
ComposeForm->ChangeChordMode( csForm->m_pCSPanel->m_bAlphaKey );
}
else{
g_iShowType = csForm->m_pCSPanel->m_bAlphaKey;
}
}
// ((TChordPanel*)m_pChordPanel)->SetKeyMode( csForm->m_pCSPanel->m_bAlphaKey );
g_iPreStageDefault = csForm->m_pCSPanel->m_cPreStage;
g_iPreStyleSort = csForm->m_pCSPanel->m_iPreStyleSort;
g_bPrebeat = csForm->m_pCSPanel->m_bPreBeat;
}
delete csForm;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OnIOSetting(TObject *Sender)
{
TForm * pForm = (TForm*)m_paTabSheets[m_pPgCtrl_Work->ActivePageIndex]->Controls[0];
pForm->OnDeactivate(NULL);
TMicSetForm * pDlg = new TMicSetForm(NULL);
if( pDlg->ShowModal()==mrOk ){
TForm* pActiveForm = NULL;
if( m_pPgCtrl_Work->ActivePageIndex==1 )
pActiveForm = RecordForm;
else if( m_pPgCtrl_Work->ActivePageIndex==4 )
pActiveForm = CompleteForm;
if( pActiveForm ){
pActiveForm->Perform( MSG_RECORD_VOLJUST, (WPARAM)((g_fRecordVolume+0.005)*100), 0 );
}
}
delete pDlg;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::UserIconClick(TObject *Sender)
{
// String strHeaderPath = g_strUserPath.c_str();
// strHeaderPath += L"header\\";
//
// String strIconFile = strHeaderPath + g_infoUser.strIconFile;
//
// if( !FileExists( strIconFile ) )
// strIconFile = strHeaderPath + L"default.jpg";
//
// GetPic(strIconFile, true);
// TPicture *pPic = new TPicture();
// pPic->LoadFromFile( strIconFile );
//
// TImgCopperForm *pTImgCopperForm = new TImgCopperForm(this, TRect(0, 0, 90, 90), pPic);
// pTImgCopperForm->Caption = L"编辑头像";
//
// pTImgCopperForm->Width = 260;
// pTImgCopperForm->Height = 300;
//
// if( mrOk==pTImgCopperForm->ShowModal() ) {
//
// bool bUploadUsrIcon = false;
// if( NULL==g_pTThreadHttpPostUsrIcon ) {
//
// bUploadUsrIcon = true;
//
// }else if( !g_pTThreadHttpPostUsrIcon->Started ||
// (g_pTThreadHttpPostUsrIcon->Started && g_pTThreadHttpPostUsrIcon->Finished) )
// {
// bUploadUsrIcon = true;
// }
//
// if( bUploadUsrIcon ){
//
// m_strUsrIconPath = pTImgCopperForm->m_strCopperPath;
//
// SAFE_DELETE(g_pTThreadHttpPostUsrIcon)
// g_pTThreadHttpPostUsrIcon
// = new TThreadHttpPostUsrIcon(true, this,
// pTImgCopperForm->m_strCopperPath);
// g_pTThreadHttpPostUsrIcon->Priority = tpIdle;
// g_pTThreadHttpPostUsrIcon->Start();
// }
// }
//
// SAFE_DELETE(pTImgCopperForm);
// SAFE_DELETE(pPic);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::OnUploadUsrIcon(TMessage & Msg)
{
String strFileName = g_pTThreadHttpPostUsrIcon->m_strFileName;
if( strFileName.Length() ) {
String strHeaderPath = g_strUserPath.c_str();
strHeaderPath += L"header\\";
strHeaderPath += strFileName;
if( strFileName.Length() ) {
TPicture *userICon = new TPicture();
userICon->LoadFromFile(m_strUsrIconPath);
m_imgUserIcon->Picture = userICon;
SAFE_DELETE(userICon);
CopyFile(m_strUsrIconPath.c_str(), strHeaderPath.c_str(), true);
DeleteFile(m_strUsrIconPath);
strcpy(g_infoUser.strIconFile, wstr2str(strFileName.c_str()).c_str());
}
}
SAFE_DELETE(g_pTThreadHttpPostUsrIcon)
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::VipClick(TObject *Sender)
{
char strURL[256];
f_CS_GetWebPageURL( URL_VIPMEMBER, strURL );
String urlVIP = strURL;
if( urlVIP.Length() ) {
ShellExecute(Handle, NULL, urlVIP.c_str(), NULL, NULL, SW_SHOWNORMAL);
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FontChangeMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
if( Button==mbLeft && Shift.Contains(ssLeft) ){
if( !m_lbFontSelect->Visible ){
m_btnFontChange->Down = true;
TForm * pForm = (TForm*)m_paTabSheets[m_pPgCtrl_Work->ActivePageIndex]->Controls[0];
pForm->Perform( UM_HIDEPOPCONTROL, 0, 0 );
m_lbFontSelect->Show();
m_lbFontSelect->SetFocus();
}
else{
m_btnFontChange->Down = false;
m_lbFontSelect->Hide();
}
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FontSelectMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
if( X>=0 && X < m_lbFontSelect->Width && Y>=0 && Y<m_lbFontSelect->Height ){
int iSel = m_lbFontSelect->ItemIndex;
if( iSel>=0 ){
if( iSel!=g_idFont && f_MM_SetFont( g_lstFonts[iSel]->strFileName )==S_OK ){
g_idFont = iSel;
g_strFontFile = ExtractFileName(g_lstFonts[iSel]->strFileName).c_str();
m_lblFontName->Caption = g_lstFonts[iSel]->strFontName;
g_strMP3File = "";
}
else{
m_lbFontSelect->ItemIndex = g_idFont;
}
}
}
m_btnFontChange->Down = false;
m_lbFontSelect->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::DownloadExtFontClick(TObject *Sender)
{
char strURL[256];
if( m_lblExtFont->Tag==0 )
f_CS_GetWebPageURL( URL_EXTFONT, strURL );
else
strcpy( strURL, "http://www.iChangzuo.com" );
ShellExecute(Handle, NULL, ((String)strURL).c_str(), NULL, NULL, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ExtFontMouseEnter(TObject *Sender)
{
m_lblExtFont->Font->Color = clHotLight;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ExtFontMouseLeave(TObject *Sender)
{
m_lblExtFont->Font->Color = clBlue;
}
//---------------------------------------------------------------------------
Reference in New Issue View Git Blame Copy Permalink