70 lines
2.1 KiB
C++
70 lines
2.1 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#ifndef SetUpFormUnitH
|
|
#define SetUpFormUnitH
|
|
//---------------------------------------------------------------------------
|
|
#include <System.Classes.hpp>
|
|
#include <Vcl.Controls.hpp>
|
|
#include <Vcl.StdCtrls.hpp>
|
|
#include <Vcl.Forms.hpp>
|
|
#include <Vcl.ExtCtrls.hpp>
|
|
#include "SkinTrackBar.h"
|
|
#include "GeneralDialogPanel.h"
|
|
#include <Vcl.Imaging.jpeg.hpp>
|
|
#include <Vcl.ComCtrls.hpp>
|
|
#include "PNGButton.hpp"
|
|
#include "GlobalUnit.h"
|
|
#include "MessageFormUnit.h"
|
|
#include "LineEdit.h"
|
|
#include "UpDownUnit.h"
|
|
#include "TextButton.h"
|
|
//---------------------------------------------------------------------------
|
|
|
|
class TSetUpForm : public TForm
|
|
{
|
|
__published: // IDE-managed Components
|
|
TGeneralDialogPanel *m_pBKGPanel;
|
|
|
|
TLabel *m_plbBeat;
|
|
TLabel *m_pLBBeat44;
|
|
TLabel *m_pLBBeat43;
|
|
TLabel *m_pLBBeat42;
|
|
TLabel *m_pLBBeat86;
|
|
TSkinTrackBar *m_pTBSpeed;
|
|
TPNGButton *m_pPNGBTPlayTry;
|
|
TPNGButton *m_pPNGBTPlaying;
|
|
|
|
TLabel *m_plbSpeed;
|
|
UpDownUnit::TUpDown *m_pSpeedUD;
|
|
TLabel *m_pLBSpeedMin;
|
|
TLabel *m_pLBSpeedMax;
|
|
TLineEdit *m_pEDspeed;
|
|
TPNGButton *m_btnSpeed;
|
|
TSkinTrackBar *m_pTBBeat;
|
|
|
|
TTextButton *m_pBtnOK;
|
|
TTextButton *m_pBtnCancel;
|
|
|
|
void __fastcall FormCreate(TObject *Sender);
|
|
void __fastcall m_pEDspeedChange(TObject *Sender);
|
|
void __fastcall PNGBTPlay(TObject *Sender);
|
|
// void __fastcall FormActivate(TObject *Sender);
|
|
void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
|
void __fastcall FormKeyUp(TObject *Sender, WORD &Key, TShiftState Shift);
|
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
|
void __fastcall m_btnSpeedMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
|
|
int X, int Y);
|
|
void __fastcall SkinTrackBarChange(TObject *Sender);
|
|
void __fastcall EventUDOnClicked(TObject *Sender, TUDBtnType Button);
|
|
|
|
public: // User declarations
|
|
int m_iTS,
|
|
m_nTempo;
|
|
|
|
__fastcall TSetUpForm(TComponent* Owner);
|
|
};
|
|
//---------------------------------------------------------------------------
|
|
extern PACKAGE TSetUpForm *SetUpForm;
|
|
//---------------------------------------------------------------------------
|
|
#endif
|