Initial commit

2026-06-12 22:37:02 +08:00
commit 94e46587da
77 changed files with 168188 additions and 0 deletions
@@ -0,0 +1,74 @@
+//---------------------------------------------------------------------------
+
+#ifndef BetLogFormUnitH
+#define BetLogFormUnitH
+//---------------------------------------------------------------------------
+#include <System.Classes.hpp>
+#include <Vcl.Controls.hpp>
+#include <Vcl.StdCtrls.hpp>
+#include <Vcl.Forms.hpp>
+#include <Vcl.ComCtrls.hpp>
+#include "GameUnit.h"
+#include <Vcl.Menus.hpp>
+#include <Vcl.Grids.hpp>
+#include <Vcl.WinXCtrls.hpp>
+#include <Vcl.Buttons.hpp>
+#include <Vcl.TitleBarCtrls.hpp>
+#include <Vcl.ExtCtrls.hpp>
+//---------------------------------------------------------------------------
+class TBetLogForm : public TForm
+{
+__published:	// IDE-managed Components
+	TPopupMenu *m_pm;
+	TMenuItem *clear;
+	TMenuItem *save;
+	TMenuItem *N1;
+	TDrawGrid *m_dg;
+	TSearchBox *m_sbSearch;
+	TTitleBarPanel *m_tbp;
+	void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
+	void __fastcall LogsMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled);
+	void __fastcall LogsMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled);
+	void __fastcall ClearClick(TObject *Sender);
+	void __fastcall SaveClick(TObject *Sender);
+	void __fastcall LogsDrawCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, TRect &Rect, TGridDrawState State);
+	void __fastcall FormCreate(TObject *Sender);
+	void __fastcall FormResize(TObject *Sender);
+	void __fastcall LogsTopChanged(TObject *Sender);
+	void __fastcall LogsSelectCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, bool &CanSelect);
+	void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
+	void __fastcall SearchInvokeSearch(TObject *Sender);
+	void __fastcall SearchExit(TObject *Sender);
+	void __fastcall SearchEnter(TObject *Sender);
+	void __fastcall SearchDblClick(TObject *Sender);
+	void __fastcall FormDeactivate(TObject *Sender);
+	void __fastcall FormActivate(TObject *Sender);
+	void __fastcall LogsMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
+private:	// User declarations
+	int m_nShowRows;
+	bool m_bAutoScroll;
+
+	vector<TBetLog*> m_aSearchLogs;
+	int m_iSearchEnd;
+    String m_sSearch;
+	bool m_bSearch;
+
+	void __fastcall ShowLogs();
+	String __fastcall GetLogText(TBetLog* pLog, int iCol);
+    void __fastcall SearchSelAll();
+
+	MESSAGE void __fastcall UMLogUpdate(TMessage &msg);
+
+	BEGIN_MESSAGE_MAP
+		MESSAGE_HANDLER(UM_LOG_UPDATE, TMessage, UMLogUpdate)
+	END_MESSAGE_MAP(TForm)
+public:		// User declarations
+	__fastcall TBetLogForm(TComponent* Owner);
+
+    void __fastcall Init(vector<TBetLog*>& aLogs);
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TBetLogForm *BetLogForm;
+extern vector<TBetLog*> g_aBetLogs;        //¹Ò»úÈÕÖ¾
+//---------------------------------------------------------------------------
+#endif