Initial commit

2026-06-13 00:05:19 +08:00
commit 754cd7ccdb
402 changed files with 123771 additions and 0 deletions
@@ -0,0 +1,53 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#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();
+}
+//---------------------------------------------------------------------------
+
+