Initial commit

2026-06-12 22:37:02 +08:00
commit 94e46587da
77 changed files with 168188 additions and 0 deletions
@@ -0,0 +1,41 @@
+//---------------------------------------------------------------------------
+
+#ifndef ActCodeFormUnitH
+#define ActCodeFormUnitH
+//---------------------------------------------------------------------------
+#include <System.Classes.hpp>
+#include <Vcl.Controls.hpp>
+#include <Vcl.StdCtrls.hpp>
+#include <Vcl.Forms.hpp>
+#include <Vcl.ExtCtrls.hpp>
+#include <Vcl.Mask.hpp>
+
+#define UR_VERIFY 		0x00
+
+//---------------------------------------------------------------------------
+class TActCodeForm : public TForm
+{
+__published:	// IDE-managed Components
+	TLabeledEdit *m_leActCode;
+	TButton *m_btnOk;
+	TLabel *m_lbTips;
+	void __fastcall FormCreate(TObject *Sender);
+	void __fastcall OnCodeChange(TObject *Sender);
+	void __fastcall OnCodeKeyPress(TObject *Sender, System::WideChar &Key);
+	void __fastcall OnOkClick(TObject *Sender);
+private:	// User declarations
+	int m_tExpire;
+
+	MESSAGE void __fastcall UMUserConfirm(TMessage &msg);
+
+	BEGIN_MESSAGE_MAP
+		MESSAGE_HANDLER(UM_USERCONFIRM, TMessage, UMUserConfirm)
+	END_MESSAGE_MAP(TForm)
+public:		// User declarations
+	String m_sCode;
+	__fastcall TActCodeForm(TComponent* Owner, String code, int exp);
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TActCodeForm *ActCodeForm;
+//---------------------------------------------------------------------------
+#endif