51 lines
1.6 KiB
C++
51 lines
1.6 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#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;
|
|
}
|
|
//---------------------------------------------------------------------------
|