Initial commit

2026-06-12 22:37:02 +08:00
commit 94e46587da
77 changed files with 168188 additions and 0 deletions
@@ -0,0 +1,49 @@
+//---------------------------------------------------------------------------
+
+#ifndef LoginUnitH
+#define LoginUnitH
+//---------------------------------------------------------------------------
+#include <System.Classes.hpp>
+#include <Vcl.Controls.hpp>
+#include <Vcl.StdCtrls.hpp>
+#include <Vcl.Forms.hpp>
+#include <Vcl.ExtCtrls.hpp>
+#include <Vcl.Imaging.pngimage.hpp>
+//---------------------------------------------------------------------------
+extern bool g_bAutoLogin;
+
+class TLoginForm : public TForm
+{
+__published:	// IDE-managed Components
+	TPanel *m_panSpec;
+	TImage *m_imgBack;
+	TMemo *m_memTxt;
+	TButton *m_btnLogin;
+	TCheckBox *m_cbAuto;
+	TLabel *m_lblSpec;
+	void __fastcall OnLoginClick(TObject *Sender);
+	void __fastcall FormCreate(TObject *Sender);
+	void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
+	void __fastcall AutoClick(TObject *Sender);
+	void __fastcall OnSpecClick(TObject *Sender);
+	void __fastcall SpecMouseEnter(TObject *Sender);
+	void __fastcall SpecMouseLeave(TObject *Sender);
+private:	// User declarations
+    TPngImage * m_imgSpec;
+
+	bool __fastcall GetLoginValues(String in);
+	bool __fastcall GetUrl(String in);
+
+	MESSAGE void __fastcall WMClipboardUpdate(TMessage &msg);
+
+	BEGIN_MESSAGE_MAP
+		MESSAGE_HANDLER(WM_CLIPBOARDUPDATE,TMessage, WMClipboardUpdate)
+	END_MESSAGE_MAP(TForm)
+public:		// User declarations
+	int m_iPlatform;
+	String m_values[6];
+    String m_url;
+	__fastcall TLoginForm(TComponent* Owner, int iPF);
+};
+//---------------------------------------------------------------------------
+#endif