rnb/winapp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
winapp/TableUnit.cpp
T
alex_q 94e46587da Initial commit
2026-06-12 22:37:02 +08:00

1020 lines
27 KiB
C++
Raw Permalink Blame History

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "TableUnit.h"
#include "GlobalUnit.h"
#include "UtilityUnit.h"
#include "ChipsFormUnit.h"
#include "TableIPFormUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#define COLOR_OVEN TColor(0x00FFFCF2)
#define COLOR_BETTING TColor(0x00CDFAFF) //F5F0FF
#define COLOR_BETTED TColor(0x00E1E4FF)
#define COLOR_RESULT TColor(0x00D7B95C) //2FFFAD 5CB9D7
#define RD_6B 0 //六珠路
#define RD_BIG 1 //大路
#define RD_EYE 2 //大眼路
#define RD_LIT 3 //小路
#define RD_COC 4 //小强路
#define TIP_TYPE_BET 0
#define TIP_TYPE_RES 1
//---------------------------------------------------------------------------
__fastcall TTableFrame::TTableFrame(TComponent* Owner)
: TFrame(Owner)
{
m_sgBets->Canvas->Font = m_sgBets->Font;
m_sgBets->Cells[0][0] = "序号";
m_sgBets->Cells[1][0] = "下注";
m_sgBets->Cells[2][0] = "金额";
m_sgBets->Cells[3][0] = "输赢";
m_sgBets->Cells[4][0] = "赢利";
m_sgBets->ColWidths[0] = 32;//DPIX(32);
m_sgBets->ColWidths[1] = 32;//DPIX(32);
m_sgBets->ColWidths[2] = 36;//DPIX(36);
m_sgBets->ColWidths[3] = 40;//DPIX(40);
m_sgBets->ColWidths[4] = 45;//DPIX(45);
m_pTipTimer = m_pPauseTimer = NULL;
m_bCursorOnRoad = m_bCursorOnLog = false;
m_logRows = 0;
memset(m_aManChips, 0, sizeof(m_aManChips));
memset(m_aBetChips, 0, sizeof(m_aBetChips));
m_pManChipLabels[0] = m_lblManChip0;
m_pManChipLabels[1] = m_lblManChip1;
m_pManChipLabels[2] = m_lblManChip2;
m_pBetChipLabels[0] = m_lblBetChip0;
m_pBetChipLabels[1] = m_lblBetChip1;
m_pBetChipLabels[2] = m_lblBetChip2;
for(int i=0; i<3; i++){
m_imgOps[i] = new TPngImage();
TResourceStream * pResStream = new TResourceStream(int(HInstance),
i==0 ? L"PNG_OP_0"
: i==1 ? L"PNG_OP_1"
: L"PNG_OP_2",
RT_RCDATA);
m_imgOps[i]->LoadFromStream(pResStream);
delete pResStream;
}
m_bSel = false;
// m_fmMask = NULL;
m_fmMask = new TForm((HWND)NULL);
m_fmMask->Parent = this;
m_fmMask->Position = poDesigned;
m_fmMask->BorderStyle = bsNone;
m_fmMask->AlphaBlend = true;
m_fmMask->AlphaBlendValue = 40;
m_fmMask->Color = clBlack;
m_fmMask->ParentDoubleBuffered = false;
m_fmMask->DoubleBuffered = true;
m_fmMask->SetBounds(0, 0, TFWIDTH, TFHEIGHT);
m_fmMask->OnMouseDown = TableMouseDown;
m_fmMask->OnMouseUp = TableMouseUp;
m_fmMask->OnMouseMove = FormMouseMove;
//
// m_fmMask->Visible = m_bSel = false;
}
//---------------------------------------------------------------------------
__fastcall TTableFrame::~TTableFrame()
{
ClearTipTimer();
ClearPauseTimer();
for(int i=0; i<3; i++)
delete m_imgOps[i];
if(m_fmMask)
delete m_fmMask;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
ResetIdle();
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::SetGame(TGame* pGame)
{
if(m_pGame && !pGame){
m_pGame->hTable = NULL;
m_imgIP->Picture->Assign(m_imgOps[0]);
}
else if(!m_pGame || m_pGame!=pGame){
m_pGame = pGame;
pGame->hTable = Handle;
m_stVid->Caption = pGame->vid;
UpdateStatus();
UpdateIP();
UpdateLogs();
TGridRect noSel = {-1,-1,-1,-1};
m_dgRoad->Selection = noSel;
m_sgBets->Selection = noSel;
}
m_imgIP->Enabled = pGame!=NULL;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::UpdateRoad()
{
int iRoad = m_pGame->iRoad>=0 ? m_pGame->iRoad : g_iRoad;
int cols = (iRoad==RD_6B ? m_pGame->aRes.size() / 6 : m_pGame->aMap[iRoad-1].aCols.size()) + 1;
m_dgRoad->ColCount = cols>10 ? cols : 10;
if(!m_bCursorOnRoad){
m_dgRoad->LeftCol = cols>10 ? m_dgRoad->ColCount - 10 : 0;
}
m_dgRoad->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::UpdateLogs()
{
if(m_logRows<6)
m_sgBets->RowCount = 6;
else
m_sgBets->RowCount = m_logRows + 1;
if(!m_bCursorOnLog && m_logRows>5)
m_sgBets->TopRow = m_sgBets->RowCount - 5;
m_sgBets->Invalidate();
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::UpdateStatus()
{
if(!m_pGame) return;
if(m_pGame->gmstatus==1){
memset(m_aBetChips, 0, sizeof(m_aBetChips));
for(int i=0; i<3; i++)
m_pBetChipLabels[i]->Hide();
if(m_panBet->Visible && !m_pTipTimer){
m_panBet->Enabled = true;
}
m_lbCards->Caption = "开始下注 ";
m_lbTimeout->Caption = IntToStr(m_pGame->timeout);
}
else if(m_pGame->gmstatus==11 || m_pGame->gmstatus==12){
memset(m_aBetChips, 0, sizeof(m_aBetChips));
for(int i=0; i<3; i++){
m_pBetChipLabels[i]->Hide();
}
m_lbCards->Caption = m_pGame->gmstatus==11 ? "洗牌中..." : "维护中...";
}
else if(m_pGame->gmstatus==2){
if(m_pGame->bcard.IsEmpty() && m_pGame->pcard.IsEmpty()){
m_lbCards->Caption = "开牌中...";
memset(m_aManChips, 0, sizeof(m_aManChips));
for(int i=0; i<3; i++)
m_pManChipLabels[i]->Hide();
m_panBet->Enabled = false;
m_btnBetOk->Enabled = false;
m_btnBetCancel->Enabled = false;
if(m_panBet->Visible){
ShowTip("停止下注", TIP_TYPE_BET);
}
}
else{
char c[16];
sprintf(c, "%s - %s", ((AnsiString)m_pGame->pcard).c_str(),
((AnsiString)m_pGame->bcard).c_str());
m_lbCards->Caption = c;
}
}
else if(m_pGame->gmstatus==0){
memset(m_aBetChips, 0, sizeof(m_aBetChips));
for(int i=0; i<3; i++)
m_pBetChipLabels[i]->Hide();
if(g_iPlatform==PF_DB && !m_pGame->bcard.IsEmpty()){
char c[16];
sprintf(c, "%s - %s", ((AnsiString)m_pGame->pcard).c_str(),
((AnsiString)m_pGame->bcard).c_str());
m_lbCards->Caption = c;
}
else
m_lbCards->Caption = "结算中...";
}
m_lbRCount->Caption = IntToStr(m_pGame->winCount[0]);
m_lbBCount->Caption = IntToStr(m_pGame->winCount[1]);
m_lbGCount->Caption = IntToStr(m_pGame->winCount[2]);
m_shpS->Visible = m_pGame->gmstatus==1;
m_lbTimeout->Visible = m_shpS->Visible;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::RoadDrawCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, TRect &Rect, TGridDrawState State)
{
if(m_pGame->aRes.empty())
return;
char c;
char t = 0;
int iRoad = m_pGame->iRoad>=0 ? m_pGame->iRoad : g_iRoad;
if(iRoad==RD_6B){
int ind = ACol*6 + ARow;
if(ind>=m_pGame->aRes.size())
return;
c = m_pGame->aRes[ind];
}
else{
if(ACol >= m_pGame->aMap[iRoad-1].aCols.size())
return;
c = m_pGame->aMap[iRoad-1].aCols[ACol][ARow];
if(c==0)
return;
if(c>3){
t = (c & 0x7C)>>2;
c &= 0x03;
}
}
int dpi3 = DPIX(3), dpi7 = DPIX(7);
TRect rc = Rect;
if(iRoad!=RD_6B){
rc.left += iRoad==RD_COC ? dpi3 : 1;
rc.right -= iRoad==RD_COC ? dpi3 : 1;
rc.top += iRoad==RD_COC ? dpi3 : 1;
rc.bottom -= iRoad==RD_COC ? dpi3 : 1;
}
TDrawGrid* pDG = (TDrawGrid*)Sender;
TCanvas* canvas = pDG->Canvas;
TBrush* brush = canvas->Brush;
TPen* pen = canvas->Pen;
TColor rBC = brush->Color;
TColor rPC = pen->Color;
int rPW = pen->Width;
if(iRoad==RD_6B || iRoad==RD_LIT){ //珠仔路/小路为实心圆
if( c==1 )
brush->Color = clRed;
else if( c==2 )
brush->Color = clBlue;
else if( c==3 )
brush->Color = clWebLightSeaGreen;
}
else{ //大路/大眼路/小强路
pen->Width = iRoad==RD_COC ? dpi7 : dpi3;
if( c==1 )
pen->Color = clRed;
else if( c==2 )
pen->Color = clBlue;
else if( c==3 )
pen->Color = clWebLightSeaGreen;
}
if(iRoad!=RD_COC && c>0)
canvas->Ellipse(rc);
if(t>0)
pen->Color = clWebLightSeaGreen;
if(iRoad==RD_COC || t>0){ //绘制斜条
canvas->MoveTo(rc.left, rc.bottom);
canvas->LineTo(rc.right, rc.top);
}
brush->Color = rBC;
pen->Color = rPC;
pen->Width = rPW;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::RoadMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled)
{
if( m_dgRoad->LeftCol + m_dgRoad->VisibleColCount < m_dgRoad->ColCount )
m_dgRoad->LeftCol++;
Handled = true;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::RoadMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled)
{
if( m_dgRoad->LeftCol>0 )
m_dgRoad->LeftCol--;
Handled = true;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::RoadSelectCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, bool &CanSelect)
{
CanSelect = false;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::BetsMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled)
{
if( m_sgBets->TopRow + m_sgBets->VisibleRowCount < m_sgBets->RowCount )
m_sgBets->TopRow++;
Handled = true;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::BetsMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled)
{
if(m_sgBets->TopRow>1)
m_sgBets->TopRow--;
Handled = true;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::BetsSelectCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, bool &CanSelect)
{
CanSelect = false;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::BetsDrawCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, TRect &Rect, TGridDrawState State)
{
TStringGrid* pSG = (TStringGrid*)Sender;
String strText = pSG->Cells[ACol][ARow];
int x=Rect.left,y=Rect.top;
TSize szTxt = pSG->Canvas->TextExtent(strText);
if( ARow==0 ){ //画下框线
x += (Rect.Width() - szTxt.cx) / 2; // -- 水平居中
y += (Rect.Height() - szTxt.cy) / 2;// -- 垂直居中
TBrushStyle rBS = pSG->Canvas->Brush->Style;
TColor rCl = pSG->Canvas->Brush->Color;
pSG->Canvas->Brush->Style = bsSolid;
pSG->Canvas->Brush->Color = clBtnFace;
pSG->Canvas->FillRect(Rect);
pSG->Canvas->TextOut(x,y,strText);
pSG->Canvas->Brush->Style = rBS;
pSG->Canvas->Brush->Color = rCl;
TPenStyle rPS = pSG->Canvas->Pen->Style;
pSG->Canvas->Pen->Style = psSolid;
rCl = pSG->Canvas->Pen->Color;
pSG->Canvas->Pen->Color = clGray;
pSG->Canvas->MoveTo( Rect.left-5, Rect.bottom );
pSG->Canvas->LineTo( Rect.right, Rect.bottom );
pSG->Canvas->Pen->Color = clBtnFace;
pSG->Canvas->MoveTo( Rect.left-5, Rect.top );
pSG->Canvas->LineTo( Rect.right, Rect.top );
pSG->Canvas->Pen->Color = rCl;
pSG->Canvas->Pen->Style = rPS;
}
else{
if(ACol==1 || ACol==3)//水平居中
x += (Rect.Width() - szTxt.cx) / 2;
else //水平靠右
x += (Rect.Width() - szTxt.cx) - DPIX(4);
y += (Rect.Height() - szTxt.cy) / 2;// -- 垂直居中
bool bEven = ARow % 2;
TBrushStyle rBS = pSG->Canvas->Brush->Style;
TColor rBC = pSG->Canvas->Brush->Color;
TColor rFC = pSG->Canvas->Font->Color;
int iState = m_pGame->iState;
pSG->Canvas->Brush->Style = bsSolid;
if(ARow==m_logRows){
if(iState==ST_BETTING||iState==ST_BETSET)
pSG->Canvas->Brush->Color = COLOR_BETTING;
else if(iState==ST_BETTED || iState==ST_EXPIRED)
pSG->Canvas->Brush->Color = COLOR_BETTED;
else if(iState==ST_PAID || iState==ST_NOBET)// || iState==ST_QUASH)
pSG->Canvas->Brush->Color = COLOR_RESULT;
else
pSG->Canvas->Brush->Color = bEven ? clWhite : COLOR_OVEN;
}
else
pSG->Canvas->Brush->Color = bEven ? clWhite : COLOR_OVEN;
if(ACol==0){
if(strText=="爆缆")
pSG->Canvas->Font->Color = clRed;
else if(strText=="新局")
pSG->Canvas->Font->Color = clGreen;
}
else if(ACol==3){
if(strText=="赢")
pSG->Canvas->Font->Color = clRed;
else if(strText=="输")
pSG->Canvas->Font->Color = clBlue;
else if(strText=="和")
pSG->Canvas->Font->Color = clGreen;
}
pSG->Canvas->FillRect(Rect);
pSG->Canvas->TextOut(x,y,strText);
pSG->Canvas->Brush->Style = rBS;
pSG->Canvas->Brush->Color = rBC;
pSG->Canvas->Font->Color = rFC;
}
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::RoadMouseEnter(TObject *Sender)
{
m_bCursorOnRoad = true;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::RoadMouseLeave(TObject *Sender)
{
m_bCursorOnRoad = false;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::BetsMouseEnter(TObject *Sender)
{
m_bCursorOnLog = true;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::BetsMouseLeave(TObject *Sender)
{
m_bCursorOnLog = false;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::RunClick(TObject *Sender)
{
TCheckBox* pCB = (TCheckBox*)Sender;
if(m_pGame && m_pGame->bRun!=pCB->Checked ){
m_pGame->bRun = pCB->Checked;
m_pGame->Pause(false);
ClearPauseTimer();
if(g_bGameOn){
if(m_pGame->bRun)
m_pGame->GameOn();
else{
m_pGame->AutoBetOff();
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::RevClick(TObject *Sender)
{
if(m_pGame)
m_pGame->bRev = m_cbRun->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::SetRun(bool bRun)
{
if(m_cbRun->Checked!=bRun){
m_cbRun->Checked = bRun;
RunClick(m_cbRun);
}
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::SetSel(bool bSel)
{
if(m_bSel!=bSel){
m_bSel = bSel;
if(bSel){
m_fmMask->Show();
}
else{
m_fmMask->Hide();
}
}
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::UMChangeRoad(TMessage &msg)
{
UpdateRoad();
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::UMLogUpdate(TMessage &msg)
{
int iState = msg.WParam;
if(iState==-1){
ClearLogsClick(NULL);
}
else if(iState==ST_INIT){
m_sgBets->Invalidate();
}
else if(iState==ST_ROUND){
if(g_settings.bInitLogByGame)
ClearLogsClick(NULL);
m_logRows++;
m_sgBets->Cells[0][m_logRows] = "新局";
UpdateLogs();
}
else if(iState==ST_NOBET){
m_logRows++;
m_sgBets->Cells[0][m_logRows] = m_pGame->iBetSeq & 0xFFFF;
m_sgBets->Cells[1][m_logRows] = m_pGame->iBet==4 ? "Z" : "X";
UpdateLogs();
}
else if(iState==ST_BETSET||iState==ST_BETTING){
m_logRows++;
m_sgBets->Cells[0][m_logRows] = m_pGame->iBetSeq & 0xFFFF;
m_sgBets->Cells[1][m_logRows] = m_pGame->iBet==1 ? "庄"
: m_pGame->iBet==2 ? "闲"
: "和";
m_sgBets->Cells[2][m_logRows] = m_pGame->nChip;
UpdateLogs();
}
else if(iState==ST_BETTED||iState==ST_EXPIRED){
// m_sgBets->Cells[2][m_logRows] = m_pGame->nChip;
m_sgBets->Invalidate();
}
else if(iState==ST_FAILED){// || iState==ST_QUASH){
// m_sgBets->Cells[2][m_logRows] = m_pGame->nChip;
int res = msg.LParam;
m_sgBets->Cells[3][m_logRows] = "X";
// if(iState==ST_QUASH) //注单撤销
// m_sgBets->Cells[4][m_logRows] = "撤销";
// else
if(res==26)
m_sgBets->Cells[4][m_logRows] = "余额";
else if(res==25)
m_sgBets->Cells[4][m_logRows] = "超时";
else if(res==10 || res==11)
m_sgBets->Cells[4][m_logRows] = "限红";
else if(res==2)
m_sgBets->Cells[4][m_logRows] = "维护";
else if(res==3)
m_sgBets->Cells[4][m_logRows] = "网络";
else if(res==4)
m_sgBets->Cells[4][m_logRows] = "违规";
else{
m_sgBets->Cells[4][m_logRows] = "未知";
DebugPrint("%s 下注失败 %d", ((AnsiString)m_pGame->vid).c_str(), res);
}
m_sgBets->Invalidate();
}
else if((iState==ST_CANCELED || iState==ST_QUASH) && m_logRows>0){ //注单取消或撤销
for(int i=0; i<5; i++)
m_sgBets->Cells[i][m_logRows] = "";
m_logRows--;
UpdateLogs();
}
else if(iState==ST_PAID){ //显示输赢结果日志
int ret = msg.LParam & 0xFFFF;
int dead = (msg.LParam >> 16) & 0xFF;
int stop = msg.LParam >> 24;
if(ret==0){ //有错误发生
m_sgBets->Cells[3][m_logRows] = "X";
m_sgBets->Cells[4][m_logRows] = "结算";
}
else{
m_sgBets->Cells[3][m_logRows] = ret==1 ? "赢" : ret==2 ? "输" : "和";
m_sgBets->Cells[4][m_logRows] = FormatFloat("0", m_pGame->profit);
}
if(g_bGameOn && (dead || stop)){
int pause = 0;
if(dead && (m_pGame->bIndPolicy || !g_aGames.pRankChip)){ //独立策略或非全局注码
m_logRows++;
m_sgBets->Cells[0][m_logRows] = "爆缆";
if(dead==3){
int iCP = m_pGame->bIndPolicy ? m_pGame->iChipPolicy : g_iChipPolicy;
TChipPolicy* pCP = (TChipPolicy*)g_aChipPolicies[iCP];
m_sgBets->Cells[1][m_logRows] = pCP->deadPause ? "暂停" : "重启";
if(pause<pCP->deadPause)
pause = pCP->deadPause;
}
else if(dead==2)
m_sgBets->Cells[1][m_logRows] = "局停";
else if(dead==1)
m_sgBets->Cells[1][m_logRows] = "停止";
}
if(stop){
m_logRows++;
m_sgBets->Cells[0][m_logRows] = ret==1 ? "止赢" : "止损";
if(stop==3){
int nPause = ret==1 ? g_settings.nTableWinPause : g_settings.nTableLosPause;
m_sgBets->Cells[1][m_logRows] = nPause ? "暂停" : "重启";
if(pause<nPause)
pause = nPause;
}
else if(stop==2)
m_sgBets->Cells[1][m_logRows] = "局停";
else if(stop==1)
m_sgBets->Cells[1][m_logRows] = "停止";
}
UpdateLogs();
if(dead==1 && (m_pGame->bIndPolicy || !g_aGames.pRankChip) || stop==1){ //本桌停止
SetRun(false);
}
else if(pause){ //暂停
m_pGame->Pause(true);
ClearPauseTimer();
m_pPauseTimer = new TTimer(NULL);
m_pPauseTimer->OnTimer = PauseTimerProc;
m_pPauseTimer->Interval = pause * 60000;
m_pPauseTimer->Enabled = true;
}
}
else
m_sgBets->Invalidate();
if(!g_aGames.bFloat){
if(ret==1)
m_lbSeq->Caption = "连赢：" + IntToStr(m_pGame->seqCount[0]);
else if(ret==2)
m_lbSeq->Caption = "连输：" + IntToStr(m_pGame->seqCount[1]);
}
m_lbProfit->Caption = "赢利: " + FormatFloat("0", m_pGame->profit);
}
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::UMUpdate(TMessage &msg)
{
if (!m_pGame )
return;
int type = msg.WParam;
if(type==UPDATE_STATUS){
UpdateStatus();
}
else if(type==UPDATE_ROAD){
UpdateRoad();
UpdateStatus();
}
else if(type==UPDATE_TIME){
m_lbTimeout->Caption = IntToStr(m_pGame->timeout);
}
else if(type==UPDATE_MANBET){
int res = msg.LParam;
if(m_panBet->Visible){
String tip = res==0 ? "下注成功" : res==26 ? "余额不足" : "下注失败";
ShowTip(tip, TIP_TYPE_BET);
}
if(res==0){
for(int i=0; i<3; i++){
m_aBetChips[i] += m_aManChips[i];
if(m_aBetChips[i]>0){
m_pBetChipLabels[i]->Caption = IntToStr(m_aBetChips[i]);
m_pBetChipLabels[i]->Show();
}
m_aManChips[i] = 0;
m_pManChipLabels[i]->Hide();
}
m_btnBetOk->Enabled = false;
m_btnBetCancel->Enabled = false;
}
}
else if(type==UPDATE_MANRES){
double res = msg.LParam;
for(int i=0; i<3; i++){
m_aBetChips[i] = 0;
m_pBetChipLabels[i]->Hide();
}
if(m_panBet->Visible){
String tip;
if(res>=0)
tip += "+ ";
if(res==0)
tip += "0";
else
tip += FormatFloat("#.##", res);
ShowTip(tip, TIP_TYPE_RES);
}
}
else if(type==UPDATE_RESET){
int type = msg.LParam;
if(type==0)
m_lbProfit->Caption = "赢利: ";
else if(type==1)
m_lbSeq->Caption = "连赢：";
else if(type==2)
m_lbSeq->Caption = "连输：";
else if(type==3)
ClearPauseTimer();
}
else if(type==UPDATE_IP){
UpdateIP();
}
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::UMSetManual(TMessage &msg)
{
bool bManual = msg.WParam;
if(m_panBet->Visible!=bManual){
m_sgBets->Visible = !bManual;
m_panBet->Visible = bManual;
m_lblBetTip->Hide();
ClearTipTimer();
m_panBet->Enabled = bManual && m_pGame->gmstatus==1;
}
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::BetMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Y>DPIY(80))
return;
int ind = X<=DPIX(63) ? 1 : X<=DPIX(126) ? 2 : 0;
AddChip(ind);
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::ManChipClick(TObject *Sender)
{
TLabel* pL = (TLabel*)Sender;
int ind = pL->Tag;
AddChip(ind);
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::AddChip(int ind)
{
int lmtL = g_MinOnBet,
lmtH = g_MaxOnBet;
if(ind==2){
if(g_iPlatform==PF_PA){
lmtH = g_MaxOnBet / 10;
}
else if(g_iPlatform==PF_AB){
lmtL = g_MinOnBet==20 ? 3
: g_MinOnBet==50 ? 10
: g_MinOnBet==100 ? 15
: g_MinOnBet==500 ? 62
: g_MinOnBet / 8 + ((g_MinOnBet % 8) ? 1 : 0);
lmtH = g_MaxOnBet==10000 ? 1250
: g_MaxOnBet==5000 ? 625
: lmtL * 100;
}
else if(g_iPlatform==PF_DB){
lmtL = 5;
lmtH = 6500;
}
}
m_aManChips[ind] += ChipsForm->m_nSelChip;
if(m_aManChips[ind]<lmtL)
m_aManChips[ind] = lmtL;
else if(m_aManChips[ind]>lmtH)
m_aManChips[ind] = lmtH;
m_pManChipLabels[ind]->Caption = IntToStr(m_aManChips[ind]);
m_pManChipLabels[ind]->Show();
m_btnBetOk->Enabled = true;
m_btnBetCancel->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::BetCancelClick(TObject *Sender)
{
memset(m_aManChips, 0, sizeof(m_aManChips));
for(int i=0; i<3; i++)
m_pManChipLabels[i]->Hide();
m_btnBetOk->Enabled = false;
m_btnBetCancel->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::BetOkClick(TObject *Sender)
{
m_panBet->Enabled = false;
int tot = 0;
for(int i=0; i<3; i++){
tot += m_aManChips[i];
}
if(!g_bTesting && tot>g_fBalance)
ShowTip("余额不足", TIP_TYPE_BET);
else if(tot>g_MaxOnBet)
ShowTip("超出限红", TIP_TYPE_BET);
else if(tot>0 && m_pGame)
m_pGame->ManualBetOn(m_aManChips);
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::ShowTip(String tip, int type)
{
m_panBet->Enabled = false;
m_lblBetTip->Caption = tip;
m_lblBetTip->Show();
ClearTipTimer();
m_pTipTimer = new TTimer(NULL);
m_pTipTimer->OnTimer = TipTimerProc;
m_pTipTimer->Tag = type;
m_pTipTimer->Interval = 2000;
m_pTipTimer->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::TipTimerProc(TObject* Sender)
{
m_lblBetTip->Hide();
if(m_pGame->gmstatus==1)
m_panBet->Enabled = true;
ClearTipTimer();
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::ClearTipTimer()
{
if(m_pTipTimer){
delete m_pTipTimer;
m_pTipTimer = NULL;
}
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::PauseTimerProc(TObject* Sender)
{
if(m_pGame->bPause){
m_pGame->Pause(false);
m_pGame->AutoBetOn(true);
}
ClearPauseTimer();
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::ClearPauseTimer()
{
if(m_pPauseTimer){
delete m_pPauseTimer;
m_pPauseTimer = NULL;
}
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::ClearLogsClick(TObject *Sender)
{
TStringGrid* pSG = m_sgBets;
int start = 1;
if(m_pGame->iState>=ST_BETSET && m_pGame->iState<=ST_EXPIRED && m_logRows>0)
pSG->Rows[start++] = pSG->Rows[m_logRows];
int end = m_logRows+1;
for(int i=start; i<end; i++)
pSG->Rows[i]->Clear();
pSG->RowCount = 6;
pSG->TopRow = 1;
m_logRows = start-1;
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::IPMouseEnter(TObject *Sender)
{
m_imgIP->Picture->Assign(m_imgOps[2]);
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::IPMouseLeave(TObject *Sender)
{
m_imgIP->Picture->Assign(m_imgOps[m_pGame && m_pGame->bIndPolicy ? 1 : 0]);
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::IPClick(TObject *Sender)
{
TTableIPForm * pForm = new TTableIPForm(this, m_pGame);
TPoint pt = TPoint(Left, Top);
pt = Parent->ClientToScreen(pt);
pForm->Top = pt.y + m_dgRoad->Top;
pForm->Left = pt.x + 2;
if(mrOk == pForm->ShowModal()){
UpdateIP();
if(m_pGame->bIndPolicy)
g_aIPGames.AddGame(m_pGame);
else
g_aIPGames.DelGame(m_pGame);
}
delete pForm;
}
//---------------------------------------------------------------------------
char* u_sRoad[5] = {"六珠路","大路","大眼路","小路","小强路"}; //路珠名称
void __fastcall TTableFrame::UpdateIP()
{
String hint;
if(m_pGame->bIndPolicy){
hint = "独立策略（点击修改设置）";
if(m_pGame->iBetPolicy<0)
hint += "\n打法：全局策略";
else
hint += "\n打法：" + g_aBetPolicies[m_pGame->iBetPolicy]->name;
hint += "\n路单：" + String(u_sRoad[m_pGame->iRoad<0 ? g_iRoad : m_pGame->iRoad]);
if(m_pGame->iChipPolicy<0)
hint += "\n注码：全局策略";
else{
TBasePolicy* pPolicy = g_aChipPolicies[m_pGame->iChipPolicy];
hint += "\n注码：" + pPolicy->name;
if(pPolicy->kind!=KIND_CHIP_COM)
hint += "\n倍数：" + IntToStr(m_pGame->nChipMul);
}
}
else{
hint = "全局策略（点击设置独立策略）";
if(m_pGame->iRoad>=0){
hint += "\n路单：" + String(u_sRoad[m_pGame->iRoad]);
}
}
m_imgIP->Hint = hint;
m_imgIP->Picture->Assign(m_imgOps[m_pGame && m_pGame->bIndPolicy ? 1 : 0]);
UpdateRoad();
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::TableMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Parent)
((TPanel*)Parent)->OnMouseDown(Sender, Button, Shift, X, Y);
}
//---------------------------------------------------------------------------
void __fastcall TTableFrame::TableMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Parent)
((TPanel*)Parent)->OnMouseUp(Sender, Button, Shift, X, Y);
}
//---------------------------------------------------------------------------
Reference in New Issue View Git Blame Copy Permalink