//--------------------------------------------------------------------------- #include #pragma hdrstop #include "CustomerSettingFormUnit.h" #include "GlobalUnit.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "GeneralDialogPanel" #pragma link "TextButton" #pragma resource "*.dfm" TCustomerSettingForm *CustomerSettingForm; //--------------------------------------------------------------------------- __fastcall TCustomerSettingForm::TCustomerSettingForm(TComponent* Owner) : TForm(Owner) { m_pBKGGeneralDialogPanel->Font->Size = g_szFont9; m_pCSPanel = new TCustmerSettingPanel(m_pBKGGeneralDialogPanel); m_pCSPanel->Font->Size = g_szFont9; m_pCSPanel->Parent = m_pBKGGeneralDialogPanel; int nHeightTmp = m_pTextButtonOK->Top - PANEL_START - PANEL_HEIGHT; m_pCSPanel->SetBounds( PANEL_LEFT, PANEL_START + nHeightTmp/2, Width - PANEL_LEFT - PANEL_RIGHT, PANEL_HEIGHT ); m_pTextButtonOK->FontSize = g_szFont9; m_pTextButtonCancel->FontSize = g_szFont9; } //--------------------------------------------------------------------------- __fastcall TCustomerSettingForm::~TCustomerSettingForm() { if( m_pCSPanel ){ delete m_pCSPanel; m_pCSPanel = NULL; } } //--------------------------------------------------------------------------- void __fastcall TCustomerSettingForm::FormShow(TObject *Sender) { m_bAlphaKeyOrig = g_bAlphaKey; m_iSegColorOrig = g_iSegColorMode; m_pCSPanel->SetContent(); } //---------------------------------------------------------------------------