Initial commit

2026-06-13 00:05:19 +08:00
commit 754cd7ccdb
402 changed files with 123771 additions and 0 deletions
@@ -0,0 +1,105 @@
+//---------------------------------------------------------------------------
+
+#ifndef MultiSwitchProgFormUnitH
+#define MultiSwitchProgFormUnitH
+//---------------------------------------------------------------------------
+#include <System.Classes.hpp>
+#include <Vcl.Controls.hpp>
+#include <Vcl.StdCtrls.hpp>
+#include <Vcl.Forms.hpp>
+#include <Vcl.ExtCtrls.hpp>
+
+#include "ProgHandlePanel.h"
+#include "PNGButton.hpp"
+#include "GeneralDialogPanel.h"
+#include "GlobalUnit.h"
+#include "StyleItem.h"
+#include "ListPanel.h"
+#include "Instruments.h"
+#include "TextButton.h"
+//---------------------------------------------------------------------------
+class ProgListData : public TObject
+{
+public:
+	int Prog;
+	int Channel;
+	int ProgBak;
+	String Caption;
+	TList *List;
+
+	__fastcall ProgListData(String Cap, int pr, int ch) {
+		Caption = Cap;
+		Prog = pr;
+		ProgBak = pr;
+		Channel = ch;
+		List = new TList();
+	}
+
+	__fastcall ~ProgListData(){
+		if(List) {
+			List->Clear();
+			delete List;
+			List = NULL;
+		}
+	}
+};
+//---------------------------------------------------------------------------
+class ProgItemData : public TObject
+{
+public:
+	String Caption;
+	TCommonItem *Item;
+
+	__fastcall ProgItemData(String Cap, TCommonItem *it) {
+		Caption = Cap;
+		Item = it;
+	}
+};
+//---------------------------------------------------------------------------
+class TMultiSwitchProgForm : public TForm
+{
+__published:	// IDE-managed Components
+	TGeneralDialogPanel *GeneralDialogPanel;
+	TTextButton *mResetButton;
+	TTextButton *mCancelButton;
+	TTextButton *mOKButton;
+	TLabel *m_lbCurProg;
+	TShape *m_ShapeCur;
+	TLabel *m_lbType;
+	TShape *m_ShapType;
+	TLabel *m_lbProg;
+	TShape *m_ShapeProg;
+	void __fastcall DoReset(TObject *Sender);
+	void __fastcall DoOkClick(TObject *Sender);
+	void __fastcall FormShow(TObject *Sender);
+	void __fastcall FormCreate(TObject *Sender);
+private:	// User declarations
+	TProgHandlePanel *mProgListPanel;
+	TListPanel *mInsTypePanel;
+	TListPanel *mInsPanel;
+
+	TProgHandleItem *mCurrentItem;
+
+	TList *mData;
+
+	TCommonItem *m_pItem;
+
+	ProgListData *CheckData( char chan, char prog );
+
+	void __fastcall InitProgListPanel();
+	void __fastcall InitInsTypePanel();
+	void __fastcall InitInsPanel();
+
+	void __fastcall DoProListSelect(TObject *Sender);
+	void __fastcall DoInsTypeClick(TListPanel *Sender, int Index);
+	void __fastcall DoInsClick(TListPanel *Sender, int Index);
+
+public:		// User declarations
+	TList *ItemChange;
+	__fastcall TMultiSwitchProgForm(TComponent* Owner, TCommonItem *pItem);
+	__fastcall ~TMultiSwitchProgForm();
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TMultiSwitchProgForm *MultiSwitchProgForm;
+//---------------------------------------------------------------------------
+#endif