Initial commit

2026-06-12 22:37:02 +08:00
commit 94e46587da
77 changed files with 168188 additions and 0 deletions
@@ -0,0 +1,136 @@
+//---------------------------------------------------------------------------
+
+#ifndef TableUnitH
+#define TableUnitH
+//---------------------------------------------------------------------------
+#include <System.Classes.hpp>
+#include <Vcl.Controls.hpp>
+#include <Vcl.StdCtrls.hpp>
+#include <Vcl.Forms.hpp>
+#include <Vcl.ExtCtrls.hpp>
+#include <Vcl.Grids.hpp>
+#include "GameUnit.h"
+#include <Vcl.Imaging.jpeg.hpp>
+#include <Vcl.Menus.hpp>
+#include <Vcl.Buttons.hpp>
+#include <Vcl.Imaging.pngimage.hpp>
+
+//using namespace TransparentPanelUnit;
+//---------------------------------------------------------------------------
+#define TFWIDTH DPIX(403)
+#define TFHEIGHT DPIY(135)
+
+class TTableFrame : public TFrame
+{
+__published:	// IDE-managed Components
+	TDrawGrid *m_dgRoad;
+	TStringGrid *m_sgBets;
+	TShape *m_shpR;
+	TShape *m_shpB;
+	TShape *m_shpG;
+	TLabel *m_lbProfit;
+	TLabel *m_lbSeq;
+	TCheckBox *m_cbRun;
+	TStaticText *m_stVid;
+	TLabel *m_lbTimeout;
+	TShape *m_shpS;
+	TLabel *m_lbRCount;
+	TLabel *m_lbBCount;
+	TLabel *m_lbGCount;
+	TLabel *m_lbCards;
+	TPanel *m_panTable;
+	TPanel *m_panBet;
+	TButton *m_btnBetOk;
+	TButton *m_btnBetCancel;
+	TImage *m_imgBack;
+	TLabel *m_lblManChip1;
+	TLabel *m_lblManChip2;
+	TLabel *m_lblManChip0;
+	TLabel *m_lblBetTip;
+	TLabel *m_lblBetChip0;
+	TLabel *m_lblBetChip1;
+	TLabel *m_lblBetChip2;
+	TPopupMenu *m_pmBets;
+	TMenuItem *clear;
+	TImage *m_imgIP;
+
+	void __fastcall RoadDrawCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, TRect &Rect, TGridDrawState State);
+	void __fastcall BetsMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled);
+	void __fastcall BetsMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled);
+	void __fastcall RoadMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled);
+	void __fastcall RoadMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled);
+	void __fastcall RoadSelectCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, bool &CanSelect);
+	void __fastcall BetsSelectCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, bool &CanSelect);
+	void __fastcall BetsDrawCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, TRect &Rect, TGridDrawState State);
+	void __fastcall RoadMouseEnter(TObject *Sender);
+	void __fastcall RoadMouseLeave(TObject *Sender);
+	void __fastcall RunClick(TObject *Sender);
+	void __fastcall RevClick(TObject *Sender);
+	void __fastcall BetsMouseEnter(TObject *Sender);
+	void __fastcall BetsMouseLeave(TObject *Sender);
+	void __fastcall BetMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
+	void __fastcall ManChipClick(TObject *Sender);
+	void __fastcall BetCancelClick(TObject *Sender);
+	void __fastcall BetOkClick(TObject *Sender);
+	void __fastcall ClearLogsClick(TObject *Sender);
+	void __fastcall IPMouseEnter(TObject *Sender);
+	void __fastcall IPMouseLeave(TObject *Sender);
+	void __fastcall IPClick(TObject *Sender);
+	void __fastcall TableMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
+	void __fastcall TableMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
+	void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
+
+private:	// User declarations
+	int m_logRows;
+
+	bool m_bCursorOnRoad,
+		m_bCursorOnLog;
+
+	TTimer *m_pTipTimer,    	//显示提示定时器
+			*m_pPauseTimer;     //止赢暂停定时器
+	int m_aManChips[3],         //待下注
+		m_aBetChips[3];         //已下注
+	TLabel *m_pManChipLabels[3],   //待下注
+		*m_pBetChipLabels[3];   //已下注
+
+	TPngImage * m_imgOps[3];
+
+	//选中相关
+	bool m_bSel;
+	TForm *m_fmMask;
+
+	void __fastcall ShowTip(String tip, int type);
+	void __fastcall TipTimerProc(TObject* Sender);
+	void __fastcall PauseTimerProc(TObject* Sender);
+	void __fastcall ClearTipTimer();
+	void __fastcall ClearPauseTimer();
+	void __fastcall AddChip(int ind);
+	void __fastcall UpdateStatus();
+	void __fastcall UpdateRoad();
+	void __fastcall UpdateLogs();
+	void __fastcall UpdateIP();
+
+	//消息处理
+	MESSAGE void __fastcall UMUpdate(TMessage &msg);
+	MESSAGE void __fastcall UMChangeRoad(TMessage &msg);
+	MESSAGE void __fastcall UMSetManual(TMessage &msg);
+	MESSAGE void __fastcall UMLogUpdate(TMessage &msg);
+
+	BEGIN_MESSAGE_MAP
+		MESSAGE_HANDLER(UM_TAB_UPDATE, TMessage, UMUpdate)
+		MESSAGE_HANDLER(UM_CHANGE_ROAD, TMessage, UMChangeRoad)
+		MESSAGE_HANDLER(UM_MANUAL_SET, TMessage, UMSetManual)
+		MESSAGE_HANDLER(UM_LOG_UPDATE, TMessage, UMLogUpdate)
+	END_MESSAGE_MAP(TFrame)
+public:		// User declarations
+	TGame* m_pGame;
+
+	__fastcall TTableFrame(TComponent* Owner);
+	__fastcall ~TTableFrame();
+
+	void __fastcall SetGame(TGame* pGame);
+	void __fastcall SetRun(bool bRun);
+	void __fastcall SetSel(bool bSel);
+};
+//---------------------------------------------------------------------------
+#endif