Initial commit

TableIPFormUnit.h

@@ -0,0 +1,52 @@
+//---------------------------------------------------------------------------
+
+#ifndef TableIPFormUnitH
+#define TableIPFormUnitH
+//---------------------------------------------------------------------------
+#include <System.Classes.hpp>
+#include <Vcl.Controls.hpp>
+#include <Vcl.StdCtrls.hpp>
+#include <Vcl.Forms.hpp>
+#include <Vcl.ExtCtrls.hpp>
+#include <Vcl.Mask.hpp>
+//---------------------------------------------------------------------------
+class TTableIPForm : public TForm
+{
+__published:	// IDE-managed Components
+	TComboBox *m_cbBets;
+	TComboBox *m_cbChips;
+	TLabeledEdit *m_leChipMul;
+	TCheckBox *m_cbIndPolicy;
+	TButton *m_btnOk;
+	TPanel *m_panBack;
+	TComboBox *m_cbRoad;
+	void __fastcall FormCreate(TObject *Sender);
+	void __fastcall OkClick(TObject *Sender);
+	void __fastcall PolicyChange(TObject *Sender);
+	void __fastcall ChipMulExit(TObject *Sender);
+	void __fastcall ChipMulKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
+	void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
+	void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
+	void __fastcall FormShow(TObject *Sender);
+	void __fastcall FormMouseEnter(TObject *Sender);
+	void __fastcall FormMouseLeave(TObject *Sender);
+	void __fastcall ComboCloseUp(TObject *Sender);
+	void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
+
+private:	// User declarations
+	TGame* m_pGame;
+	int m_iBet, m_iChip, m_nMul;
+	bool m_bMouseOver;
+
+	void __fastcall SetChanged();
+
+	MESSAGE void __fastcall WMKillFocus(TWMKillFocus &Message);
+
+	BEGIN_MESSAGE_MAP
+		MESSAGE_HANDLER(WM_KILLFOCUS, TWMKillFocus, WMKillFocus)
+	END_MESSAGE_MAP(TForm)
+public:		// User declarations
+	__fastcall TTableIPForm(TComponent* Owner, TGame* pG);
+};
+//---------------------------------------------------------------------------
+#endif