Initial commit

2026-06-13 00:05:19 +08:00
commit 754cd7ccdb
402 changed files with 123771 additions and 0 deletions
@@ -0,0 +1,50 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+
+#include "VSTPluginFormUnit.h"
+#include "GlobalUnit.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma link "GeneralDialogPanel"
+#pragma link "TextButton"
+#pragma resource "*.dfm"
+TVSTPluginForm *VSTPluginForm;
+//---------------------------------------------------------------------------
+__fastcall TVSTPluginForm::TVSTPluginForm(TComponent* Owner, VSTINFO* pVST)
+	: TForm(Owner)
+{
+	m_pVST = pVST;
+	m_iSel = -1;
+	m_lvPlugins = NULL;
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TVSTPluginForm::FormCreate(TObject *Sender)
+{
+	m_BKGPanel->Font->Size = g_szFont9;
+	m_btnCancel->FontSize = g_szFont9;
+	m_btnOk->FontSize = g_szFont9;
+
+	m_lvPlugins = new TListPanel(this);
+	m_lvPlugins->Parent = m_panFont;// m_BKGPanel;
+	m_lvPlugins->Align = alClient;
+	m_lvPlugins->SetTextFont(g_strTxtFontName, g_szFont9);
+//	m_lvPlugins->SetBounds( 27, 63, 246, 250 );
+
+	for( int i=0; i<m_pVST->aPlugins.size(); i++ ){
+		VSTPLUGIN* pPlugin = m_pVST->aPlugins[i];
+		TListPanelItem* pItem = new TListPanelItem( pPlugin->name, OnItemClick );
+		pItem->Tag = pPlugin->id;
+		m_lvPlugins->AddItem( pItem );
+	}
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TVSTPluginForm::OnItemClick(TListPanel *Sender, int Index)
+{
+	m_iSel = Index;
+	m_btnOk->Enabled = m_iSel>=0;
+}
+//---------------------------------------------------------------------------