Initial commit

2026-06-13 00:05:19 +08:00
commit 754cd7ccdb
402 changed files with 123771 additions and 0 deletions
@@ -0,0 +1,69 @@
+//---------------------------------------------------------------------------
+
+#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