68 lines
2.0 KiB
C++
68 lines
2.0 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "CustomerSettingFormUnit.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma link "PNGButton"
|
|
#pragma resource "*.dfm"
|
|
TCustomerSettingForm *CustomerSettingForm;
|
|
//---------------------------------------------------------------------------
|
|
#define LEN_BKG_EXTERNAL_ROUND (1)
|
|
#define LEN_BKG_EXTERNAL_FRMAE (1)
|
|
#define LEN_BKG_INTERNAL_LINE (23)
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TCustomerSettingForm::TCustomerSettingForm(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
int nHeightTmp = m_pTextButtonOK->Top - CSPANEL_START - CSPANEL_HEIGHT;
|
|
|
|
m_pCSPanel = new TCustmerSettingPanel(this);
|
|
m_pCSPanel->Parent = this;
|
|
|
|
m_pCSPanel->Left = CSPANEL_LEFT;
|
|
m_pCSPanel->Top = CSPANEL_START + nHeightTmp/2;
|
|
m_pCSPanel->Width = Width - CSPANEL_LEFT - CSPANEL_RIGHT;
|
|
m_pCSPanel->Height = CSPANEL_HEIGHT;
|
|
|
|
//»æÖÆÔ²½Ç´°Ìå
|
|
HRGN hRgn = CreateRoundRectRgn( 0, 0, Width+1, Height+1, 16, 16 );
|
|
SetWindowRgn( Handle, hRgn, false );
|
|
DeleteObject( hRgn );
|
|
|
|
SetTransparent( this );
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
__fastcall TCustomerSettingForm::~TCustomerSettingForm()
|
|
{
|
|
if( m_pCSPanel ){
|
|
delete m_pCSPanel;
|
|
m_pCSPanel = NULL;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TCustomerSettingForm::FormShow(TObject *Sender)
|
|
{
|
|
m_pCSPanel->SetContent();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TCustomerSettingForm::WMNCHitTest(TWMNCHitTest &Msg)
|
|
{
|
|
TForm::Dispatch(&Msg);
|
|
|
|
if( Msg.Result==HTCLIENT &&
|
|
(Msg.YPos<Top+LEN_BKG_INTERNAL_LINE) &&
|
|
(Msg.XPos<(Left+ m_PNGButtonClose->Left) ) )
|
|
{
|
|
Msg.Result = HTCAPTION;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|