Initial commit
This commit is contained in:
@@ -0,0 +1,115 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include "ActCodeFormUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TActCodeForm *ActCodeForm = NULL;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TActCodeForm::TActCodeForm(TComponent* Owner, String code, int exp)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
m_sCode = code;
|
||||||
|
m_tExpire = exp;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TActCodeForm::FormCreate(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_leActCode->Text = m_sCode;
|
||||||
|
m_leActCode->OnChange = OnCodeChange;
|
||||||
|
|
||||||
|
if(m_sCode.Length()){
|
||||||
|
if(!m_tExpire)
|
||||||
|
m_lbTips->Caption = "授权验证失败，请重新验证";
|
||||||
|
else if(m_tExpire < time(NULL))
|
||||||
|
m_lbTips->Caption = "授权码已过期，请延期或更换";
|
||||||
|
else{
|
||||||
|
tm* dt = localtime((long*)&m_tExpire);
|
||||||
|
m_lbTips->Caption = Format(String("有效期至：%.4d-%.2d-%.2d %.2d:%.2d"),
|
||||||
|
ARRAYOFCONST((dt->tm_year+1900, dt->tm_mon+1, dt->tm_mday, dt->tm_hour, dt->tm_min)));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
m_lbTips->Caption = "请输入授权码并验证";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TActCodeForm::OnCodeChange(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_btnOk->Caption = "验证";
|
||||||
|
m_btnOk->Enabled = m_leActCode->Text.Length()>0;
|
||||||
|
|
||||||
|
if(m_tExpire>0){
|
||||||
|
m_tExpire = 0;
|
||||||
|
m_lbTips->Caption = "请输入授权码并验证";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TActCodeForm::OnCodeKeyPress(TObject *Sender, System::WideChar &Key)
|
||||||
|
{
|
||||||
|
if(Key==13)
|
||||||
|
OnOkClick(NULL);
|
||||||
|
else if(Key<0x1E)
|
||||||
|
return;
|
||||||
|
|
||||||
|
if((Key>'9' || Key<'0') && (Key<'A' || Key>'F'))
|
||||||
|
Key = 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TActCodeForm::OnOkClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
if(m_btnOk->Caption=="关闭"){
|
||||||
|
ModalResult = mrCancel;
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
String code = m_leActCode->Text;
|
||||||
|
if(code.Length()<9 || code.Length()>10){
|
||||||
|
MessageBox(Handle, L"无效的授权码", L"验证", MB_ICONERROR | MB_OK);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
for(int i=1; i<=code.Length(); i++){
|
||||||
|
char Key = code[i];
|
||||||
|
if((Key>'9' || Key<'0') && (Key<'A' || Key>'F')){
|
||||||
|
MessageBox(Handle, L"无效的授权码", L"验证", MB_ICONERROR | MB_OK);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
m_sCode = code;
|
||||||
|
Enabled = false;
|
||||||
|
Screen->Cursor = crHourGlass;
|
||||||
|
|
||||||
|
PostMessage(Application->MainFormHandle, UM_USERCONFIRM, UR_VERIFY, 0 );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TActCodeForm::UMUserConfirm(TMessage &msg)
|
||||||
|
{
|
||||||
|
Screen->Cursor = crDefault;
|
||||||
|
Enabled = true;
|
||||||
|
|
||||||
|
if(msg.WParam==102)
|
||||||
|
m_lbTips->Caption = "无效的授权码，请重新输入";
|
||||||
|
else if(msg.WParam==106)
|
||||||
|
m_lbTips->Caption = "该授权码正在其它设备上使用";
|
||||||
|
else if(msg.WParam>0)
|
||||||
|
m_lbTips->Caption = "授权验证异常，请稍后重试";
|
||||||
|
else{
|
||||||
|
m_tExpire = (int)msg.LParam;
|
||||||
|
|
||||||
|
if(m_tExpire < time(NULL))
|
||||||
|
m_lbTips->Caption = "授权码已过期，请延期或更换";
|
||||||
|
else{
|
||||||
|
tm* dt = localtime((long*)&m_tExpire);
|
||||||
|
m_lbTips->Caption = Format(String("有效期至：%.4d-%.2d-%.2d %.2d:%.2d"),
|
||||||
|
ARRAYOFCONST((dt->tm_year+1900, dt->tm_mon+1, dt->tm_mday, dt->tm_hour, dt->tm_min)));
|
||||||
|
m_btnOk->Caption = "关闭";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -0,0 +1,60 @@
|
|||||||
|
object ActCodeForm: TActCodeForm
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = #25480#26435
|
||||||
|
ClientHeight = 126
|
||||||
|
ClientWidth = 299
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poMainFormCenter
|
||||||
|
OnCreate = FormCreate
|
||||||
|
TextHeight = 15
|
||||||
|
object m_lbTips: TLabel
|
||||||
|
Left = 11
|
||||||
|
Top = 63
|
||||||
|
Width = 283
|
||||||
|
Height = 15
|
||||||
|
Alignment = taCenter
|
||||||
|
AutoSize = False
|
||||||
|
Caption = #35831#36755#20837#25480#26435#30721#24182#39564#35777
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object m_leActCode: TLabeledEdit
|
||||||
|
Left = 96
|
||||||
|
Top = 27
|
||||||
|
Width = 153
|
||||||
|
Height = 23
|
||||||
|
AutoSize = False
|
||||||
|
EditLabel.Width = 45
|
||||||
|
EditLabel.Height = 23
|
||||||
|
EditLabel.Hint = #35831#36755#20837#25480#26435#30721
|
||||||
|
EditLabel.Caption = #25480#26435#30721' '
|
||||||
|
EditLabel.ParentShowHint = False
|
||||||
|
EditLabel.ShowAccelChar = False
|
||||||
|
EditLabel.ShowHint = False
|
||||||
|
LabelPosition = lpLeft
|
||||||
|
TabOrder = 0
|
||||||
|
Text = ''
|
||||||
|
OnKeyPress = OnCodeKeyPress
|
||||||
|
end
|
||||||
|
object m_btnOk: TButton
|
||||||
|
Left = 113
|
||||||
|
Top = 91
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = #39564#35777
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = OnOkClick
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -0,0 +1,41 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef ActCodeFormUnitH
|
||||||
|
#define ActCodeFormUnitH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <System.Classes.hpp>
|
||||||
|
#include <Vcl.Controls.hpp>
|
||||||
|
#include <Vcl.StdCtrls.hpp>
|
||||||
|
#include <Vcl.Forms.hpp>
|
||||||
|
#include <Vcl.ExtCtrls.hpp>
|
||||||
|
#include <Vcl.Mask.hpp>
|
||||||
|
|
||||||
|
#define UR_VERIFY 0x00
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TActCodeForm : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TLabeledEdit *m_leActCode;
|
||||||
|
TButton *m_btnOk;
|
||||||
|
TLabel *m_lbTips;
|
||||||
|
void __fastcall FormCreate(TObject *Sender);
|
||||||
|
void __fastcall OnCodeChange(TObject *Sender);
|
||||||
|
void __fastcall OnCodeKeyPress(TObject *Sender, System::WideChar &Key);
|
||||||
|
void __fastcall OnOkClick(TObject *Sender);
|
||||||
|
private: // User declarations
|
||||||
|
int m_tExpire;
|
||||||
|
|
||||||
|
MESSAGE void __fastcall UMUserConfirm(TMessage &msg);
|
||||||
|
|
||||||
|
BEGIN_MESSAGE_MAP
|
||||||
|
MESSAGE_HANDLER(UM_USERCONFIRM, TMessage, UMUserConfirm)
|
||||||
|
END_MESSAGE_MAP(TForm)
|
||||||
|
public: // User declarations
|
||||||
|
String m_sCode;
|
||||||
|
__fastcall TActCodeForm(TComponent* Owner, String code, int exp);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TActCodeForm *ActCodeForm;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
+352
@@ -0,0 +1,352 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <vcl.h>
|
||||||
|
#include <System.StrUtils.hpp>
|
||||||
|
#include <System.JSON.hpp>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <time.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "BacABThread.h"
|
||||||
|
#include "TableUnit.h"
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include "UtilityUnit.h"
|
||||||
|
#include "HookJS.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////////////////////////////
|
||||||
|
// TAutoBetThread
|
||||||
|
__fastcall TAutoBetThread::TAutoBetThread(int iG)
|
||||||
|
{
|
||||||
|
m_iGame = iG;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TAutoBetThread::Execute()
|
||||||
|
{
|
||||||
|
TGame *pGame = g_aGames.GetGame(m_iGame);
|
||||||
|
if(pGame){
|
||||||
|
for(int i=0; i<pGame->aManBets.size(); i++){ //优先处理手工下注
|
||||||
|
TManBet& rMB = pGame->aManBets[i];
|
||||||
|
if(rMB.state==ST_INIT){
|
||||||
|
rMB.state = ST_BETTING;
|
||||||
|
int ret = RealBet(pGame, rMB.chips);
|
||||||
|
if(!Terminated && ret!=0)
|
||||||
|
pGame->BetResp(ret, rMB.chips);
|
||||||
|
goto EXIT; //一个线程只处理一个下注
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(pGame->iState==ST_BETSET){
|
||||||
|
pGame->iState = ST_BETTING;
|
||||||
|
if(pGame->nChip>0 && pGame->nChip<g_MinOnBet){
|
||||||
|
pGame->BetResp(10, NULL);
|
||||||
|
goto EXIT;
|
||||||
|
}
|
||||||
|
else if(pGame->nChip>g_MaxOnBet){
|
||||||
|
pGame->BetResp(11, NULL);
|
||||||
|
goto EXIT;
|
||||||
|
}
|
||||||
|
|
||||||
|
int tmMinDelay = pGame->timeout - (pGame->timeout>15 ? 12 : 9);
|
||||||
|
if( tmMinDelay>=0 ){
|
||||||
|
int tmMin = tmMinDelay >= 2 ? 2000 : tmMinDelay * 1000,
|
||||||
|
tmMax = (pGame->timeout - (pGame->timeout>15 ? 10 : 7))*1000,
|
||||||
|
tmHalt = tmMin + Random(tmMax - tmMin);
|
||||||
|
|
||||||
|
if( tmHalt>0 && !Halt(tmHalt) )
|
||||||
|
goto EXIT;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if( pGame->nChip>=0 && pGame->iState==ST_BETTING && pGame->CanBet() ){//再次确认下注状态
|
||||||
|
if(g_bSimulate){
|
||||||
|
pGame->bReal = false;
|
||||||
|
|
||||||
|
if(g_settings.bSimAccOn && g_settings.bNoBetLow && g_settings.fSimAcc < pGame->nChip)
|
||||||
|
pGame->BetResp(26, NULL);
|
||||||
|
else
|
||||||
|
pGame->BetResp(0, NULL);
|
||||||
|
}
|
||||||
|
else if(!g_bTesting && g_fBalance < pGame->nChip){
|
||||||
|
pGame->BetResp(26, NULL);
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
pGame->bReal = true;
|
||||||
|
if(pGame->nChip==0){
|
||||||
|
pGame->BetResp(0, NULL);
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
int ret= RealBet(pGame, NULL);
|
||||||
|
if(!Terminated && ret!=0)
|
||||||
|
pGame->BetResp(ret, NULL);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
EXIT:
|
||||||
|
if( !Terminated )
|
||||||
|
PostMessage( Application->MainFormHandle, UM_AUTOBETEND, 0, Handle );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
int __fastcall TAutoBetThread::RealBet(TGame* pG, int chips[])
|
||||||
|
{
|
||||||
|
_di_ICefFrame frame = GetCefFrame(MAIN_FRAME);
|
||||||
|
if( !frame ) return -1;
|
||||||
|
|
||||||
|
String strJS;
|
||||||
|
if( g_iPlatform==PF_PA ){
|
||||||
|
strJS = "{"
|
||||||
|
"if(VideoGameCore.LinkStoreFactory.instance){"
|
||||||
|
"const tab=VideoGameCore.LinkStoreFactory.instance.getBetTableStore('" + pG->vid + "');"
|
||||||
|
"if(tab && tab.betEnabled){";
|
||||||
|
// "console.log('======"+pG->vid+" is betEnable');";
|
||||||
|
if(chips){
|
||||||
|
for(int i=0; i<3; i++){
|
||||||
|
if(chips[i]>0){
|
||||||
|
strJS += "tab.addChipByPlayType(" + IntToStr(i+1) + "," + IntToStr(chips[i]) + ");";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
strJS += "tab.addChipByPlayType(" + IntToStr(pG->iBet) + "," + IntToStr(pG->nChip) + ");";
|
||||||
|
}
|
||||||
|
|
||||||
|
if(g_bTesting){ //测试时模拟下注反馈
|
||||||
|
int chip[3] = {0};
|
||||||
|
if(chips)
|
||||||
|
memcpy(chip, chips, sizeof(chip));
|
||||||
|
else
|
||||||
|
chip[pG->iBet-1] = pG->nChip;
|
||||||
|
strJS += "tab.cancelBet();"
|
||||||
|
"setTimeout(function(){"
|
||||||
|
"const msg = '6|"+pG->vid+"|0|"+pG->gmcode;
|
||||||
|
for(int i=0; i<3; i++)
|
||||||
|
strJS += "|" + IntToStr(chip[i]);
|
||||||
|
strJS += "';"
|
||||||
|
"cefApp.OnJSMessage(msg);"
|
||||||
|
"},1000);";
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
strJS += "tab.confirmBet();";
|
||||||
|
}
|
||||||
|
|
||||||
|
strJS += "cefApp.ReturnJQValue('0');"
|
||||||
|
"}else if(!tab || tab.isGameMaintaining){"// VideoGameCore.isGameMaintain('"+pG->vid+"')){"
|
||||||
|
"cefApp.ReturnJQValue('2');";
|
||||||
|
if(g_bTesting)
|
||||||
|
strJS +=
|
||||||
|
"console.log('======"+pG->vid+" is maintaining');";
|
||||||
|
strJS +=
|
||||||
|
"}else{"
|
||||||
|
"const gms = tab.gameSnapshot ? tab.gameSnapshot.gmstatus : -1;"
|
||||||
|
"const sSkt = VideoGameCore.singleSocket;"
|
||||||
|
"const pSkt = VideoGameCore.PlazaSocket.instance;"
|
||||||
|
|
||||||
|
"cefApp.ReturnJQValue(gms>=2 && sSkt.connected ? '3' : '');";
|
||||||
|
if(g_bTesting)
|
||||||
|
strJS +=
|
||||||
|
"console.log('======"+pG->vid+" is not betEnable',"
|
||||||
|
"'gmstatus:', gms,"
|
||||||
|
"'sSkt:', sSkt.connected, sSkt.readyState,"
|
||||||
|
"'pSkt:', pSkt.connected, pSkt.readyState);";
|
||||||
|
strJS += "if(!sSkt.connected && sSkt.readyState>1){";
|
||||||
|
if(g_bTesting)
|
||||||
|
strJS += "console.log('singleSocket connect: ', sSkt.connected, sSkt.readyState);";
|
||||||
|
strJS += "sSkt.connect();"
|
||||||
|
"}"
|
||||||
|
"if(pSkt && !pSkt.connected && pSkt.readyState>1){";
|
||||||
|
if(g_bTesting)
|
||||||
|
strJS += "console.log('PlazaSocket connect: ', pSkt.connected, pSkt.readyState);";
|
||||||
|
strJS += "pSkt.connect();"
|
||||||
|
"}"
|
||||||
|
"}"
|
||||||
|
"}else{"
|
||||||
|
"cefApp.ReturnJQValue('');";
|
||||||
|
if(g_bTesting)
|
||||||
|
strJS +=
|
||||||
|
"console.log('======myGameLink closed');";
|
||||||
|
strJS +=
|
||||||
|
"}"
|
||||||
|
"}";
|
||||||
|
}
|
||||||
|
else if( g_iPlatform==PF_AB ){
|
||||||
|
strJS = "{"
|
||||||
|
"const tid = " + IntToStr(pG->iGame) + ";"
|
||||||
|
"const bts = [";
|
||||||
|
if(chips){
|
||||||
|
for(int i=0; i<3; i++){
|
||||||
|
if(chips[i]>0){
|
||||||
|
strJS += IntToStr(i+1001) + ",";// [1001|1002|1003];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
strJS += IntToStr(pG->iBet+1000); //[1001|1002|1003];
|
||||||
|
}
|
||||||
|
strJS += "];"
|
||||||
|
"const bas = [";
|
||||||
|
if(chips){
|
||||||
|
for(int i=0; i<3; i++){
|
||||||
|
if(chips[i]>0){
|
||||||
|
strJS += IntToStr(chips[i] * 100) + ",";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
strJS += IntToStr(pG->nChip * 100);
|
||||||
|
}
|
||||||
|
strJS += "];";
|
||||||
|
|
||||||
|
strJS += "const gh = Netbet.component.entity.gameHallDO.getInstance();"
|
||||||
|
"const td = gh ? gh.getTableDO(tid) : null;"
|
||||||
|
"const gst = td ? td.getCurGameStatusText(td.getGameRoundId()) : 'INVALID';"
|
||||||
|
"if(gst=='BETTING'){";
|
||||||
|
if(g_bTesting){ //测试时模拟下注反馈
|
||||||
|
int chip[3] = {0};
|
||||||
|
if(chips)
|
||||||
|
memcpy(chip, chips, sizeof(chip));
|
||||||
|
else
|
||||||
|
chip[pG->iBet-1] = pG->nChip;
|
||||||
|
strJS += "setTimeout(function(){"
|
||||||
|
"const msg = '6|" + IntToStr(pG->iGame) + "|0|" + pG->gmcode;
|
||||||
|
for(int i=0; i<3; i++)
|
||||||
|
strJS += "|" + IntToStr(chip[i]);
|
||||||
|
strJS += "';"
|
||||||
|
// "console.log(msg);"
|
||||||
|
"cefApp.OnJSMessage(msg);"
|
||||||
|
"},1000);";
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
strJS += "multiTableBet(tid, bts, bas);";
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
strJS += "cefApp.ReturnJQValue('0');"
|
||||||
|
"}else{";
|
||||||
|
if(g_bTesting)
|
||||||
|
strJS +=
|
||||||
|
"console.log('==="+IntToStr(pG->iGame)+"==="+pG->vid+" status is '+gst);";
|
||||||
|
strJS +=
|
||||||
|
"cefApp.ReturnJQValue(gst=='NO_USE_STATUS'? '2' : '');"
|
||||||
|
"};"
|
||||||
|
"}";
|
||||||
|
}
|
||||||
|
else if( g_iPlatform==PF_DB ){
|
||||||
|
strJS =
|
||||||
|
"(async function(){"
|
||||||
|
"const multi = App.PresenterManager.presenterDic.dict.MultiplayPresenter;"
|
||||||
|
"if(multi && multi.model){"
|
||||||
|
"const g = multi.model.getGameTalbeInfo("+ IntToStr(pG->iGame) + ");"
|
||||||
|
"if(g){"
|
||||||
|
"if(g.gameStatus!=2){"
|
||||||
|
"cefApp.ReturnJQValue(3);"
|
||||||
|
"return;"
|
||||||
|
"}"
|
||||||
|
|
||||||
|
"let res = 0;";
|
||||||
|
|
||||||
|
if(!g_bTesting){// || g_fBalance>0){ //单独测试pushChip
|
||||||
|
if(chips){
|
||||||
|
for(int i=0; i<3; i++){
|
||||||
|
if(chips[i]>0){
|
||||||
|
strJS +=
|
||||||
|
"if(!res){"
|
||||||
|
"res = await pushChip(" + IntToStr(pG->iGame) + ","
|
||||||
|
+ IntToStr(i+1) + "," + IntToStr(chips[i]) + ");"
|
||||||
|
// "console.log('pushChip result:', res);"
|
||||||
|
"if(res){"
|
||||||
|
"cancelBet(" + IntToStr(pG->iGame) + ");"
|
||||||
|
"cefApp.ReturnJQValue(res);"
|
||||||
|
"return;"
|
||||||
|
"}"
|
||||||
|
"}";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
strJS +=
|
||||||
|
"res = await pushChip(" + IntToStr(pG->iGame) + ","
|
||||||
|
+ IntToStr(pG->iBet) + "," + IntToStr(pG->nChip) + ");"
|
||||||
|
// "console.log('pushChip:', res);"
|
||||||
|
"if(res){"
|
||||||
|
"cefApp.ReturnJQValue(res);"
|
||||||
|
"return;"
|
||||||
|
"}";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(g_bTesting){ //测试时模拟下注反馈
|
||||||
|
int chip[3] = {0};
|
||||||
|
if(chips)
|
||||||
|
memcpy(chip, chips, sizeof(chip));
|
||||||
|
else
|
||||||
|
chip[pG->iBet-1] = pG->nChip;
|
||||||
|
|
||||||
|
strJS +=//"cancelBet(" + IntToStr(pG->iGame) + ");"
|
||||||
|
"setTimeout(function(){"
|
||||||
|
"const msg = '6|" + IntToStr(pG->iGame) + "|0|" + pG->gmcode;
|
||||||
|
for(int i=0; i<3; i++)
|
||||||
|
strJS += "|" + IntToStr(chip[i]);
|
||||||
|
strJS += "';"
|
||||||
|
"cefApp.OnJSMessage(msg);"
|
||||||
|
"},1000);";
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
strJS +="sureBet(" + IntToStr(pG->iGame) + ");";
|
||||||
|
}
|
||||||
|
|
||||||
|
strJS += "cefApp.ReturnJQValue('0');"
|
||||||
|
"return;"
|
||||||
|
"}"
|
||||||
|
"}"
|
||||||
|
"cefApp.ReturnJQValue('');" //非正常状态返回
|
||||||
|
"})()";
|
||||||
|
}
|
||||||
|
|
||||||
|
// DebugPrint(((AnsiString)strJS).c_str());
|
||||||
|
|
||||||
|
int ret = -1;
|
||||||
|
while( !Terminated && pG->timeout>1 ){
|
||||||
|
String sMsg;
|
||||||
|
TStringList* strlst = GetJQValue( strJS, frame );
|
||||||
|
if( strlst ){
|
||||||
|
if(strlst->Count==1)
|
||||||
|
sMsg = (*strlst)[0];
|
||||||
|
|
||||||
|
delete strlst;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(sMsg.Length()>0)
|
||||||
|
TryStrToInt(sMsg, ret);
|
||||||
|
else
|
||||||
|
DebugPrint("GetJQValue return: %s", strlst ? "''" : "null");
|
||||||
|
|
||||||
|
if( ret>=0 || !Halt(1000) ) //得到结果 或 用户cancel中途退出
|
||||||
|
break;
|
||||||
|
|
||||||
|
if(chips==NULL && g_bSimulate){ //改变了模式
|
||||||
|
if(g_settings.bSimAccOn && g_settings.bNoBetLow && g_settings.fSimAcc < pG->nChip){
|
||||||
|
pG->BetResp(26, NULL);
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
pG->bReal = false;
|
||||||
|
pG->BetResp(0, NULL);
|
||||||
|
}
|
||||||
|
|
||||||
|
ret = 0;
|
||||||
|
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifdef _DEBUG
|
||||||
|
if( !Terminated && ret<0 )
|
||||||
|
DebugPrint("%s 下注超时", ((AnsiString)pG->vid).c_str());
|
||||||
|
#endif
|
||||||
|
|
||||||
|
return ret<0 ? 25 : ret;
|
||||||
|
}
|
||||||
|
/////////////////////////////////////////////////////////////////////////////
|
||||||
|
|
||||||
@@ -0,0 +1,28 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef BacABThreadH
|
||||||
|
#define BacABThreadH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vector>
|
||||||
|
#include "BaseThread.h"
|
||||||
|
#include "GameUnit.h"
|
||||||
|
using namespace std;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
class TAutoBetThread : public TBaseThread
|
||||||
|
{
|
||||||
|
private:
|
||||||
|
int m_iGame;
|
||||||
|
int m_iOp; //0=bet, 1=gameon
|
||||||
|
|
||||||
|
int __fastcall RealBet(TGame* pG, int chips[]);
|
||||||
|
|
||||||
|
protected:
|
||||||
|
virtual void __fastcall Execute();
|
||||||
|
|
||||||
|
public:
|
||||||
|
__fastcall TAutoBetThread(int iG);
|
||||||
|
};
|
||||||
|
|
||||||
|
#endif
|
||||||
+495
@@ -0,0 +1,495 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <vcl.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <time.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "BacDPThread.h"
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include "GameUnit.h"
|
||||||
|
#include "UtilityUnit.h"
|
||||||
|
#include "TableUnit.h"
|
||||||
|
//#include "ActiveFormUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
|
||||||
|
//软件过期时间
|
||||||
|
#define TM_ABORT 125000
|
||||||
|
void __fastcall WriteData( char* msg )
|
||||||
|
{
|
||||||
|
SYSTEMTIME st;
|
||||||
|
GetLocalTime(&st);
|
||||||
|
|
||||||
|
char szDataFile[256];
|
||||||
|
sprintf( szDataFile, "%s/data/%04d%02d%02d.txt", g_AppPath, st.wYear, st.wMonth, st.wDay);
|
||||||
|
|
||||||
|
// FILE* fp = NULL;
|
||||||
|
// if(!FileExists(szDataFile)){
|
||||||
|
// fp = fopen(szDataFile, "w");
|
||||||
|
// if(fp)
|
||||||
|
// fprintf( fp, "时间,台桌,手数,结果\n" );
|
||||||
|
// }
|
||||||
|
// else{
|
||||||
|
// fp = fopen(szDataFile, "a");
|
||||||
|
// }
|
||||||
|
FILE* fp = fopen(szDataFile, "r+");
|
||||||
|
if(!fp){
|
||||||
|
fp = fopen(szDataFile, "w");
|
||||||
|
if(fp)
|
||||||
|
fprintf( fp, "时间,台桌,手数,结果\n" );
|
||||||
|
}
|
||||||
|
else
|
||||||
|
fseek(fp, 0, SEEK_END);
|
||||||
|
|
||||||
|
if( fp ){
|
||||||
|
fprintf( fp, "%02d:%02d:%02d,%s\n", st.wHour, st.wMinute, st.wSecond, msg );
|
||||||
|
fclose( fp );
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
g_bBacData = false;
|
||||||
|
ShowMessage("导出数据失败! errno=" + IntToStr((int)GetLastError()));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////////////////////////////
|
||||||
|
// TBetWayThread
|
||||||
|
__fastcall TDataParseThread::TDataParseThread()
|
||||||
|
{
|
||||||
|
m_hDataEvent = CreateEvent(NULL, FALSE, TRUE, NULL);
|
||||||
|
|
||||||
|
// m_tmGST = 0;
|
||||||
|
// m_tmExpire = GetCompileTime() + 30 * 86400; //编译时间后30天过期
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
__fastcall TDataParseThread::~TDataParseThread()
|
||||||
|
{
|
||||||
|
CloseHandle( m_hDataEvent );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TDataParseThread::Reset()
|
||||||
|
{
|
||||||
|
WaitForSingleObject(m_hDataEvent, 5000);
|
||||||
|
m_aData.clear();
|
||||||
|
SetEvent(m_hDataEvent);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TDataParseThread::ParseData(String sData)
|
||||||
|
{
|
||||||
|
WaitForSingleObject(m_hDataEvent, 5000);
|
||||||
|
m_aData.push_back(sData);
|
||||||
|
SetEvent(m_hDataEvent);
|
||||||
|
|
||||||
|
Suspended = false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TDataParseThread::Execute()
|
||||||
|
{
|
||||||
|
SetThreadExecutionState(ES_CONTINUOUS | ES_SYSTEM_REQUIRED); //关闭系统休眠
|
||||||
|
|
||||||
|
while( !Terminated ){
|
||||||
|
while(m_aData.size()>0){
|
||||||
|
String sData = m_aData[0];
|
||||||
|
// if(sData.Length()<3){
|
||||||
|
// WaitForSingleObject(m_hDataEvent, 5000);
|
||||||
|
// m_aData.erase(m_aData.begin());
|
||||||
|
// SetEvent(m_hDataEvent);
|
||||||
|
// continue;
|
||||||
|
// }
|
||||||
|
// DebugPrint(((AnsiString)sData).c_str());
|
||||||
|
|
||||||
|
TStringDynArray arr = SplitString( sData, "|" );
|
||||||
|
if(arr.Length<2){
|
||||||
|
WaitForSingleObject(m_hDataEvent, 5000);
|
||||||
|
m_aData.erase(m_aData.begin());
|
||||||
|
SetEvent(m_hDataEvent);
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
int iType = arr[0].ToInt();
|
||||||
|
if( iType==0 ){ //连接异常断开
|
||||||
|
DebugPrint("连接异常断开");
|
||||||
|
int reason = arr[1].ToInt();
|
||||||
|
PostMessage( Application->MainFormHandle, UM_WEBDEAD, reason, 0 );
|
||||||
|
}
|
||||||
|
else if( iType==1 ){ //初始化所有台桌
|
||||||
|
DebugPrint("!!! init all tables");
|
||||||
|
g_aGames.Init(arr[1]);
|
||||||
|
PostMessage( Application->MainFormHandle, UM_ADDTABLE, 0, 0 );
|
||||||
|
}
|
||||||
|
else if( iType==2 ){ //台桌Roadmap
|
||||||
|
if(!g_aGames.empty() && arr[1].Length()){
|
||||||
|
int iG = Vid2Gid(arr[1]);
|
||||||
|
TGame* pGame = NULL;
|
||||||
|
int ind = g_aGames.FindGame(iG, pGame);
|
||||||
|
|
||||||
|
if(!pGame && iG>0){
|
||||||
|
pGame = g_aGames.NewGame(iG, arr[g_iPlatform==PF_PA ? 1 : 2], ind);
|
||||||
|
PostMessage( Application->MainFormHandle, UM_ADDTABLE, ind, (long)pGame );
|
||||||
|
}
|
||||||
|
|
||||||
|
if(pGame){
|
||||||
|
int oldSize = pGame->aRes.size(),
|
||||||
|
newSize = arr[3].Length();
|
||||||
|
|
||||||
|
if(oldSize!=newSize && oldSize!=newSize+1){
|
||||||
|
#ifdef _DEBUG
|
||||||
|
if(newSize && oldSize && (oldSize>newSize || oldSize<newSize-1)){
|
||||||
|
char res[128];
|
||||||
|
for(int i=0; i<oldSize; i++){
|
||||||
|
res[i] = pGame->aRes[i] + '0';
|
||||||
|
}
|
||||||
|
res[oldSize] = 0;
|
||||||
|
|
||||||
|
DebugPrint("!!! %s road size %d -> %d with map: %s -> %s",
|
||||||
|
((AnsiString)pGame->vid).c_str(),
|
||||||
|
// ((AnsiString)arr[1]).c_str(),
|
||||||
|
oldSize, newSize, res,
|
||||||
|
((AnsiString)arr[3]).c_str());
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
if(g_bGameOn && pGame->bRun)
|
||||||
|
pGame->AutoBetOff();
|
||||||
|
|
||||||
|
if(newSize==oldSize+1){
|
||||||
|
int wt = arr[3][newSize]-'0';
|
||||||
|
if(wt==0) wt = 3;
|
||||||
|
|
||||||
|
pGame->aRes.push_back(wt);
|
||||||
|
pGame->winCount[wt-1]++;
|
||||||
|
pGame->BuildRoadmap(wt);
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
pGame->ClearResults();
|
||||||
|
|
||||||
|
for(int i=1; i<=newSize; i++){
|
||||||
|
int wt = arr[3][i]-'0';
|
||||||
|
if(wt==0) wt = 3;
|
||||||
|
|
||||||
|
pGame->aRes.push_back(wt);
|
||||||
|
pGame->winCount[wt-1]++;
|
||||||
|
pGame->BuildRoadmap(wt);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
bool bUpdateRoad = true;
|
||||||
|
if(pGame->gmstatus==12){ //维护台桌
|
||||||
|
if(oldSize && !newSize) //新局
|
||||||
|
pGame->AutoBetOn(); //台桌维护中无法正常处理shuffle状态，调用该接口显示和处理新局
|
||||||
|
}
|
||||||
|
else{ //正常台桌
|
||||||
|
pGame->gmstatus = 0; //设置结算状态，避免重复计算
|
||||||
|
// pGame->gmcode = "";
|
||||||
|
|
||||||
|
if(oldSize<newSize){
|
||||||
|
pGame->HandleResult(oldSize+1==newSize ? 0 : 1); //0=正常处理 1=异常处理
|
||||||
|
bUpdateRoad = false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(bUpdateRoad && pGame->hTable)
|
||||||
|
PostMessage(pGame->hTable, UM_TAB_UPDATE, UPDATE_ROAD, 0);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if( iType==3 ){ //台桌状态
|
||||||
|
// 3 | vid | gmcode | wintype(timeout)
|
||||||
|
if(!g_aGames.empty() && arr.Length>=4){
|
||||||
|
int iG = Vid2Gid(arr[1]);
|
||||||
|
TGame* pGame = NULL;
|
||||||
|
int ind = g_aGames.FindGame(iG, pGame);
|
||||||
|
|
||||||
|
if(!pGame && iG>0){
|
||||||
|
pGame = g_aGames.NewGame(iG, arr[g_iPlatform==PF_PA ? 1 : 2], ind);
|
||||||
|
PostMessage( Application->MainFormHandle, UM_ADDTABLE, ind, (long)pGame );
|
||||||
|
}
|
||||||
|
|
||||||
|
if( pGame ){
|
||||||
|
String gmcode = arr[3];
|
||||||
|
int status = arr[4].ToInt();
|
||||||
|
bool bNewStatus = pGame->gmstatus != status,
|
||||||
|
bNewCode = pGame->gmcode != gmcode;
|
||||||
|
|
||||||
|
if(!bNewCode && bNewStatus || bNewCode && (g_iPlatform!=PF_PA
|
||||||
|
|| gmcode=="" || gmcode > pGame->gmcode)){
|
||||||
|
#ifdef _DEBUG
|
||||||
|
if( bNewCode && status!=1 && status<11 && (g_iPlatform!=PF_AB || status!=0) && pGame->gmcode.Length()){
|
||||||
|
DebugPrint("!!! %s gmcode %s -> %s with status: %d",
|
||||||
|
((AnsiString)pGame->vid).c_str(),
|
||||||
|
// ((AnsiString)arr[1]).c_str(),
|
||||||
|
((AnsiString)pGame->gmcode).c_str(),
|
||||||
|
((AnsiString)gmcode).c_str(),
|
||||||
|
status);
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
if(bNewCode)
|
||||||
|
pGame->gmcode = gmcode;
|
||||||
|
|
||||||
|
// pGame->timeout = 0;
|
||||||
|
|
||||||
|
if(bNewStatus && pGame->gmstatus==1){
|
||||||
|
pGame->ManualBetOff();
|
||||||
|
|
||||||
|
if(g_bGameOn && pGame->bRun)
|
||||||
|
pGame->AutoBetOff();
|
||||||
|
}
|
||||||
|
|
||||||
|
if(status==0 && !bNewCode){ //结算
|
||||||
|
#ifdef _DEBUG
|
||||||
|
if(pGame->gmstatus!=2 && (g_iPlatform!=PF_AB || pGame->gmstatus!=11))
|
||||||
|
DebugPrint("!!! %s status %d -> %d",
|
||||||
|
((AnsiString)pGame->vid).c_str(),
|
||||||
|
// ((AnsiString)arr[1]).c_str(),
|
||||||
|
pGame->gmstatus, status);
|
||||||
|
#endif
|
||||||
|
pGame->gmstatus = status;
|
||||||
|
|
||||||
|
if(arr.Length>=8){ //DB特殊处理
|
||||||
|
if(arr[6].Length()){
|
||||||
|
pGame->bcard = UnifyCard(arr[6]);
|
||||||
|
pGame->pcard = UnifyCard(arr[7]);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
pGame->bcard = pGame->pcard = "";
|
||||||
|
}
|
||||||
|
|
||||||
|
int wt = 0;
|
||||||
|
if(arr.Length>=6 && arr[5].Length()){
|
||||||
|
wt = arr[5][1]-'0';
|
||||||
|
if(wt==0) wt = 3;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(wt>0){
|
||||||
|
pGame->aRes.push_back(wt);
|
||||||
|
pGame->winCount[wt-1]++;
|
||||||
|
pGame->BuildRoadmap(wt);
|
||||||
|
pGame->HandleResult();
|
||||||
|
|
||||||
|
if(g_bBacData){
|
||||||
|
char data[128];
|
||||||
|
sprintf(data, "%s,%d,%s",
|
||||||
|
((AnsiString)arr[g_iPlatform==PF_PA ? 1 : 2]).c_str(),
|
||||||
|
pGame->aRes.size(), wt==1 ? "庄" : wt==2 ? "闲" : "和");
|
||||||
|
WriteData( data );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(status==1 && bNewStatus){// && pGame->gmstatus!=2){ //开始下注
|
||||||
|
#ifdef _DEBUG
|
||||||
|
if(pGame->gmstatus!=0 && pGame->gmstatus<11)
|
||||||
|
DebugPrint("!!! %s status %d -> %d",
|
||||||
|
((AnsiString)pGame->vid).c_str(),
|
||||||
|
// ((AnsiString)arr[1]).c_str(),
|
||||||
|
pGame->gmstatus, status);
|
||||||
|
#endif
|
||||||
|
if(bNewStatus && bNewCode && pGame->iState==ST_BETTED){
|
||||||
|
DebugPrint("!!! %s status %d -> %d with betted",
|
||||||
|
((AnsiString)pGame->vid).c_str(),
|
||||||
|
// ((AnsiString)arr[1]).c_str(),
|
||||||
|
pGame->gmstatus, status);
|
||||||
|
pGame->HandleResult(2);
|
||||||
|
}
|
||||||
|
|
||||||
|
pGame->gmstatus = status;
|
||||||
|
|
||||||
|
pGame->timeout = g_iPlatform==PF_AB ? pGame->countdown
|
||||||
|
: g_iPlatform==PF_DB ? arr[5].ToInt() / 1000
|
||||||
|
: arr[5].ToInt();
|
||||||
|
pGame->AutoBetOn();
|
||||||
|
}
|
||||||
|
else if(status==2 && !bNewCode){// && pGame->gmstatus==1 ){ //开牌中
|
||||||
|
#ifdef _DEBUG
|
||||||
|
if(pGame->gmstatus!=1)
|
||||||
|
DebugPrint("!!! %s status %d -> %d",
|
||||||
|
((AnsiString)pGame->vid).c_str(),
|
||||||
|
// ((AnsiString)arr[1]).c_str(),
|
||||||
|
pGame->gmstatus, status);
|
||||||
|
#endif
|
||||||
|
pGame->gmstatus = status;
|
||||||
|
|
||||||
|
if(pGame->iState==ST_BETTED)
|
||||||
|
pGame->timeout = -1; //开始计算超时
|
||||||
|
|
||||||
|
pGame->bcard = pGame->pcard = "";
|
||||||
|
}
|
||||||
|
else if((status==11 || status==12) && bNewStatus){ //洗牌/维护
|
||||||
|
if(pGame->iState==ST_BETTED || pGame->iState==ST_EXPIRED){ //超时
|
||||||
|
DebugPrint("!!! %s status %d -> %d with betted",
|
||||||
|
((AnsiString)pGame->vid).c_str(),
|
||||||
|
// ((AnsiString)arr[1]).c_str(),
|
||||||
|
pGame->gmstatus, status);
|
||||||
|
|
||||||
|
pGame->HandleResult(status==12 ? 3 : 2);
|
||||||
|
}
|
||||||
|
|
||||||
|
pGame->gmstatus = status;
|
||||||
|
|
||||||
|
if(status==11){
|
||||||
|
pGame->Shuffle();
|
||||||
|
|
||||||
|
if(g_bBacData){
|
||||||
|
char data[128];
|
||||||
|
sprintf(data, "%s,,%s",
|
||||||
|
((AnsiString)arr[g_iPlatform==PF_PA ? 1 : 2]).c_str(),
|
||||||
|
"洗牌");
|
||||||
|
WriteData( data );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
pGame->iState = ST_INIT;
|
||||||
|
#ifdef _DEBUG
|
||||||
|
DebugPrint("!!! %s 台桌维护中", ((AnsiString)pGame->vid).c_str());//, ((AnsiString)arr[1]).c_str());
|
||||||
|
SendMessage( Application->MainFormHandle, UM_RESTORE, 0, 0 );
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(pGame->hTable)
|
||||||
|
PostMessage(pGame->hTable, UM_TAB_UPDATE, UPDATE_STATUS, 0);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(iType==4){ //多台状态
|
||||||
|
//4 | e.payload.vid
|
||||||
|
DebugPrint("Enter HALL: %s", ((AnsiString)arr[1]).c_str());
|
||||||
|
|
||||||
|
int tab = 2;
|
||||||
|
|
||||||
|
if(g_iPlatform==PF_PA){
|
||||||
|
tab = arr[1]=="LINK" ? 1 : arr[1]=="LOBB" ? 0 : 2;
|
||||||
|
}
|
||||||
|
else if(g_iPlatform==PF_AB){
|
||||||
|
int hId = arr[1].ToInt();
|
||||||
|
tab = hId==102 ? 1 : hId==100 ? 0 : 2;
|
||||||
|
}
|
||||||
|
else if(g_iPlatform==PF_DB){
|
||||||
|
int hId = arr[1].ToInt();
|
||||||
|
tab = hId==2 ? 1 : hId==0 ? 0 : 2;
|
||||||
|
}
|
||||||
|
|
||||||
|
PostMessage(Application->MainFormHandle, UM_ENTER_TABLE, tab, 0);
|
||||||
|
}
|
||||||
|
else if(iType==5){ //账户余额
|
||||||
|
//5 | e.val
|
||||||
|
double amo;
|
||||||
|
if(TryStrToFloat(arr[1], amo)){
|
||||||
|
if(!(g_bTesting && g_settings.bSimAccOn)){
|
||||||
|
g_fBalance = amo;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_BALANCE, 0);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(iType==6){ //下注反馈
|
||||||
|
//6 | vid | retCode | gmcode | 庄 | 闲 | 平
|
||||||
|
if(!g_aGames.empty() && arr[1].Length()){
|
||||||
|
int iG = Vid2Gid(arr[1]);
|
||||||
|
TGame* pGame = NULL;
|
||||||
|
int ind = g_aGames.FindGame(iG, pGame);
|
||||||
|
|
||||||
|
if(pGame && pGame->gmcode==arr[3]){
|
||||||
|
int chips[3] = {0};
|
||||||
|
chips[0] = arr[4].ToInt();
|
||||||
|
chips[1] = arr[5].ToInt();
|
||||||
|
chips[2] = arr[6].ToInt();
|
||||||
|
|
||||||
|
int retCode = arr[2].ToInt();
|
||||||
|
|
||||||
|
if(retCode!=0){
|
||||||
|
if(g_iPlatform==PF_AB) //欧博错误码转换
|
||||||
|
retCode = retCode==101 ? 10 //限红低
|
||||||
|
: retCode==102 ? 11 //限红高
|
||||||
|
: retCode==103 || retCode==100015 || retCode==6044 ? 25 //超时
|
||||||
|
: retCode==10101 || retCode==6035 || retCode==6042 ? 26 //余额不足
|
||||||
|
: -1;
|
||||||
|
else if(g_iPlatform==PF_DB) //多宝错误码转换
|
||||||
|
retCode = retCode==210010 ? 10 //限红低
|
||||||
|
: retCode==220030 ? 11 //限红高
|
||||||
|
: retCode==220004 || retCode==220006 || retCode==110041 ? 25 //超时
|
||||||
|
: retCode==10469 || retCode==20126 ? 26 //余额不足
|
||||||
|
: retCode;
|
||||||
|
}
|
||||||
|
|
||||||
|
pGame->BetResp(retCode, chips);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(iType==7){ //限额
|
||||||
|
//7 | min | max
|
||||||
|
int minBet, maxBet;
|
||||||
|
if(TryStrToInt(arr[1], minBet) && TryStrToInt(arr[2], maxBet)){
|
||||||
|
if(minBet!=g_MinOnBet || maxBet!=g_MaxOnBet){
|
||||||
|
g_MinOnBet = minBet;
|
||||||
|
g_MaxOnBet = maxBet;
|
||||||
|
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_LIMIT, 0);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(iType==8){ //倒计时
|
||||||
|
//8 | countdownList ABG专用
|
||||||
|
if(!g_aGames.empty() && arr[1].Length()){
|
||||||
|
g_aGames.SetCountDown(arr[1]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(iType==9){ //翻牌
|
||||||
|
//9 | gid | gmcode | bcard | pcard
|
||||||
|
if(!g_aGames.empty() && !arr[1].IsEmpty() && (!arr[3].IsEmpty() || !arr[4].IsEmpty())){
|
||||||
|
int iG = Vid2Gid(arr[1]);
|
||||||
|
TGame* pGame = NULL;
|
||||||
|
int ind = g_aGames.FindGame(iG, pGame);
|
||||||
|
|
||||||
|
if(pGame && pGame->gmstatus==2 && pGame->gmcode==arr[2]){
|
||||||
|
pGame->bcard = UnifyCard(arr[3]);
|
||||||
|
pGame->pcard = UnifyCard(arr[4]);
|
||||||
|
|
||||||
|
if(pGame->hTable)
|
||||||
|
PostMessage(pGame->hTable, UM_TAB_UPDATE, UPDATE_STATUS, 0);
|
||||||
|
|
||||||
|
if(pGame->iState==ST_BETTED)
|
||||||
|
pGame->timeout = -1; //重新计算超时
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// else if(iType==10){ //撤销注单
|
||||||
|
// //10 | gid | gmcode
|
||||||
|
// if(!g_aGames.empty() && arr[1].Length()){
|
||||||
|
// int iG = Vid2Gid(arr[1]);
|
||||||
|
// TGame* pGame = NULL;
|
||||||
|
// int ind = g_aGames.FindGame(iG, pGame);
|
||||||
|
//
|
||||||
|
// if(pGame && pGame->gmcode==arr[2]){
|
||||||
|
// DebugPrint("!!! %s 撤销注单 with status: %d",
|
||||||
|
// ((AnsiString)pGame->vid).c_str(),
|
||||||
|
//// ((AnsiString)arr[1]).c_str(),
|
||||||
|
// pGame->gmstatus);
|
||||||
|
// pGame->gmstatus = 0;
|
||||||
|
// pGame->HandleResult(3);
|
||||||
|
// }
|
||||||
|
// }
|
||||||
|
// }
|
||||||
|
|
||||||
|
m_aData[0] = "";
|
||||||
|
|
||||||
|
if( Terminated )
|
||||||
|
break;
|
||||||
|
|
||||||
|
WaitForSingleObject(m_hDataEvent, 5000);
|
||||||
|
m_aData.erase(m_aData.begin());
|
||||||
|
SetEvent(m_hDataEvent);
|
||||||
|
}
|
||||||
|
|
||||||
|
// 等待数据
|
||||||
|
if( !Terminated )
|
||||||
|
Suspended = true;
|
||||||
|
};
|
||||||
|
|
||||||
|
SetThreadExecutionState( ES_CONTINUOUS );//打开系统休眠
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -0,0 +1,29 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#ifndef BacDPThreadH
|
||||||
|
#define BacDPThreadH
|
||||||
|
|
||||||
|
//#include <System.JSON.hpp>
|
||||||
|
#include <vector>
|
||||||
|
|
||||||
|
#include "BaseThread.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
using namespace std;
|
||||||
|
|
||||||
|
class TDataParseThread : public TBaseThread
|
||||||
|
{
|
||||||
|
private:
|
||||||
|
HANDLE m_hDataEvent; // Êý¾Ý´¦Àí»¥³â±äÁ¿
|
||||||
|
vector<String> m_aData;
|
||||||
|
|
||||||
|
protected:
|
||||||
|
virtual void __fastcall Execute();
|
||||||
|
|
||||||
|
public:
|
||||||
|
__fastcall TDataParseThread();
|
||||||
|
__fastcall ~TDataParseThread();
|
||||||
|
|
||||||
|
void __fastcall ParseData(String sData);
|
||||||
|
void __fastcall Reset();
|
||||||
|
};
|
||||||
|
|
||||||
|
#endif
|
||||||
+162
@@ -0,0 +1,162 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "BacJSThread.h"
|
||||||
|
#include "UtilityUnit.h"
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include "GameUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////////////////////////////
|
||||||
|
// TAutoBetThread
|
||||||
|
|
||||||
|
__fastcall TJSHandleThread::TJSHandleThread(int iOp)
|
||||||
|
{
|
||||||
|
m_op = iOp;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TJSHandleThread::Execute()
|
||||||
|
{
|
||||||
|
int ret = 0;
|
||||||
|
|
||||||
|
if( m_op==JS_OP_CHECKCEF )
|
||||||
|
ret = CheckCEF();
|
||||||
|
// else if( m_op==JS_OP_GETIPADDR )
|
||||||
|
// ret = GetIPAddr();
|
||||||
|
else if( m_op>=JS_OP_WSHANDLE0 && m_op<=JS_OP_WSHANDLE3 )
|
||||||
|
ret = GetWSHandle();
|
||||||
|
else if( m_op==JS_OP_GAMEON )
|
||||||
|
ret = GameOn();
|
||||||
|
|
||||||
|
if( !Terminated )
|
||||||
|
PostMessage( Application->MainFormHandle, UM_JSHANDLED, m_op, ret );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
int __fastcall TJSHandleThread::CheckCEF()
|
||||||
|
{
|
||||||
|
int iRet = -1;
|
||||||
|
|
||||||
|
for( int i=0; i<10; i++ ){
|
||||||
|
if( GlobalCEFApp && GlobalCEFApp->GlobalContextInitialized ){
|
||||||
|
iRet = 1;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
if( !Halt(500) )
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
return iRet;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
int __fastcall TJSHandleThread::GetWSHandle()
|
||||||
|
{
|
||||||
|
int iRet = -1;
|
||||||
|
|
||||||
|
_di_ICefFrame frame = GetCefFrame(MAIN_FRAME);
|
||||||
|
if( frame ){
|
||||||
|
String sQuery;
|
||||||
|
if( g_iPlatform==PF_PA ){
|
||||||
|
sQuery = "{"
|
||||||
|
"let iRet = -1;"
|
||||||
|
"if(Core.LoginStore.instance && VideoGameCore.PlazaSocket.instance){"
|
||||||
|
"if(Core.LoginStore.instance.loginDone)"
|
||||||
|
"iRet = VideoGameCore.PlazaSocket.instance.readyState;"
|
||||||
|
"else "
|
||||||
|
"iRet = -3;"
|
||||||
|
"}"
|
||||||
|
"if(!iRet) iRet = -1;"
|
||||||
|
"cefApp.ReturnJQValue(iRet);"
|
||||||
|
"}";
|
||||||
|
}
|
||||||
|
else if( g_iPlatform==PF_AB ){
|
||||||
|
sQuery = "{"
|
||||||
|
"let iRet = -1;"
|
||||||
|
"if(Netbet && Netbet.component && Netbet.component.entity"
|
||||||
|
"&& Netbet.component.entity.manager && Netbet.component.entity.manager.ServiceManager){"
|
||||||
|
"const instSM = Netbet.component.entity.manager.ServiceManager.getInstance();"
|
||||||
|
"if(instSM && instSM.isConnected()){"
|
||||||
|
"const instUD = Netbet.component.entity.UserDO.getInstance();"
|
||||||
|
"if(instUD && instUD.getLoginSuccessTime()) iRet = 1;"
|
||||||
|
"else console.log('not login');"
|
||||||
|
"}"
|
||||||
|
"else console.log('not connect to Server');"
|
||||||
|
"}"
|
||||||
|
"else console.log(!Netbet ? 'no Netbet' : !Netbet.component ? 'no component'"
|
||||||
|
": !Netbet.component.entity ? 'no entity'"
|
||||||
|
": !Netbet.component.entity.manager ? 'no manager' : 'no service');"
|
||||||
|
|
||||||
|
"cefApp.ReturnJQValue(iRet);"
|
||||||
|
"}";
|
||||||
|
}
|
||||||
|
else if( g_iPlatform==PF_DB ){
|
||||||
|
sQuery = "{"
|
||||||
|
"let iRet = -1;"
|
||||||
|
"if(typeof App!='undefined' && App.Socket){"
|
||||||
|
"const status = App.Socket.status;"
|
||||||
|
"console.log('App.Socket.status=', status);"
|
||||||
|
|
||||||
|
"if(status==2 && App.user && App.gameManager && App.setting) "
|
||||||
|
"iRet = 1;"
|
||||||
|
"else if(status==3){"
|
||||||
|
"const reason = App.Socket._reConnectReason;"
|
||||||
|
"console.log('App.Socket._reConnectReason=', reason);"
|
||||||
|
|
||||||
|
"iRet = 3;"
|
||||||
|
|
||||||
|
"}"
|
||||||
|
"};"
|
||||||
|
"cefApp.ReturnJQValue(iRet);"
|
||||||
|
"}";
|
||||||
|
}
|
||||||
|
|
||||||
|
for( int i=0; i<60 && !Terminated; i++ ){
|
||||||
|
DebugPrint( "Try to steal websocket data step %d", m_op );
|
||||||
|
String sRet;
|
||||||
|
|
||||||
|
TStringList* strlst = GetJQValue( sQuery, frame );
|
||||||
|
if( strlst ){
|
||||||
|
if(strlst->Count==1)
|
||||||
|
sRet = (*strlst)[0];
|
||||||
|
delete strlst;
|
||||||
|
}
|
||||||
|
|
||||||
|
DebugPrint("GetJQValue return: %s", strlst ? "sRet" : "null");
|
||||||
|
if(!sRet.IsEmpty() )
|
||||||
|
TryStrToInt(sRet, iRet);
|
||||||
|
|
||||||
|
if( iRet>0 || !Halt(g_iPlatform==PF_AB ? 800 : 500) )
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(iRet==3) iRet = -3;
|
||||||
|
|
||||||
|
return iRet;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
int __fastcall TJSHandleThread::GameOn()
|
||||||
|
{
|
||||||
|
if( !Halt(100) )
|
||||||
|
return 0;
|
||||||
|
|
||||||
|
for( int i=0; i<g_aGames.size() && !Terminated && g_bGameOn; i++ ){
|
||||||
|
TGame* pG = g_aGames[i];
|
||||||
|
if(pG->bRun){
|
||||||
|
pG->GameOn();
|
||||||
|
|
||||||
|
if( !Halt(10) )
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -0,0 +1,36 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef BacJSThreadH
|
||||||
|
#define BacJSThreadH
|
||||||
|
|
||||||
|
#include "BaseThread.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
// Êý¾Ý´¦ÀíÏß³Ì
|
||||||
|
|
||||||
|
#define JS_OP_CHECKCEF 0
|
||||||
|
#define JS_OP_WSHANDLE0 1
|
||||||
|
#define JS_OP_WSHANDLE1 2
|
||||||
|
#define JS_OP_WSHANDLE2 3
|
||||||
|
#define JS_OP_WSHANDLE3 4
|
||||||
|
#define JS_OP_GAMEON 5
|
||||||
|
|
||||||
|
//#define JS_OP_TOMULTI 3
|
||||||
|
|
||||||
|
class TJSHandleThread : public TBaseThread
|
||||||
|
{
|
||||||
|
private:
|
||||||
|
int __fastcall CheckCEF();
|
||||||
|
int __fastcall GetWSHandle();
|
||||||
|
int __fastcall GameOn();
|
||||||
|
|
||||||
|
public:
|
||||||
|
int m_op;
|
||||||
|
String m_sRet;
|
||||||
|
|
||||||
|
__fastcall TJSHandleThread(int iOp);
|
||||||
|
// __fastcall ~TJSHandleThread();
|
||||||
|
|
||||||
|
void __fastcall Execute();
|
||||||
|
};
|
||||||
|
|
||||||
|
#endif
|
||||||
@@ -0,0 +1,22 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "Bet02FrameUnit.h"
|
||||||
|
#include "PolicyUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TBet02Frame *Bet02Frame = NULL;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TBet02Frame::TBet02Frame(TComponent* Owner)
|
||||||
|
: TFrame(Owner)
|
||||||
|
{
|
||||||
|
m_rgs[0] = m_rgB3R;
|
||||||
|
m_rgs[1] = m_rgP3R;
|
||||||
|
|
||||||
|
for(int i=0; i<2; i++)
|
||||||
|
m_rgs[i]->ItemIndex = g_BPAskBet.bet[i];
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
@@ -0,0 +1,79 @@
|
|||||||
|
object Bet02Frame: TBet02Frame
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 384
|
||||||
|
Height = 310
|
||||||
|
TabOrder = 0
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 24
|
||||||
|
Width = 117
|
||||||
|
Height = 15
|
||||||
|
Caption = #20869#32622#25171#27861#65306#24196#38386#38382#36335
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 55
|
||||||
|
Top = 92
|
||||||
|
Width = 96
|
||||||
|
Height = 20
|
||||||
|
Caption = #24196#38382#36335#20840#32418#65306
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -15
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 55
|
||||||
|
Top = 144
|
||||||
|
Width = 96
|
||||||
|
Height = 20
|
||||||
|
Caption = #38386#38382#36335#20840#32418#65306
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -15
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object m_rgB3R: TRadioGroup
|
||||||
|
Left = 151
|
||||||
|
Top = 74
|
||||||
|
Width = 210
|
||||||
|
Height = 40
|
||||||
|
Columns = 3
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -15
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
Items.Strings = (
|
||||||
|
#19981#25171
|
||||||
|
#25171#24196
|
||||||
|
#25171#38386)
|
||||||
|
ParentFont = False
|
||||||
|
ShowFrame = False
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object m_rgP3R: TRadioGroup
|
||||||
|
Tag = 1
|
||||||
|
Left = 151
|
||||||
|
Top = 126
|
||||||
|
Width = 210
|
||||||
|
Height = 40
|
||||||
|
Columns = 3
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -15
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
Items.Strings = (
|
||||||
|
#19981#25171
|
||||||
|
#25171#24196
|
||||||
|
#25171#38386)
|
||||||
|
ParentFont = False
|
||||||
|
ShowFrame = False
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -0,0 +1,28 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef Bet02FrameUnitH
|
||||||
|
#define Bet02FrameUnitH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <System.Classes.hpp>
|
||||||
|
#include <Vcl.Controls.hpp>
|
||||||
|
#include <Vcl.StdCtrls.hpp>
|
||||||
|
#include <Vcl.Forms.hpp>
|
||||||
|
#include <Vcl.ExtCtrls.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TBet02Frame : public TFrame
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TLabel *Label1;
|
||||||
|
TLabel *Label2;
|
||||||
|
TLabel *Label3;
|
||||||
|
TRadioGroup *m_rgB3R;
|
||||||
|
TRadioGroup *m_rgP3R;
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
TRadioGroup *m_rgs[2];
|
||||||
|
__fastcall TBet02Frame(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TBet02Frame *Bet02Frame;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
@@ -0,0 +1,68 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "Bet03FrameUnit.h"
|
||||||
|
#include "PolicyUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TBet03Frame *Bet03Frame = NULL;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TBet03Frame::TBet03Frame(TComponent* Owner)
|
||||||
|
: TFrame(Owner)
|
||||||
|
{
|
||||||
|
m_leBlP->Text = g_BPDiffBet.diff[0];
|
||||||
|
m_lePlB->Text = g_BPDiffBet.diff[1];
|
||||||
|
|
||||||
|
// m_rgBlP->ItemIndex = g_BPDiffBet.bet[0] - 1;
|
||||||
|
// m_rgPlB->ItemIndex = g_BPDiffBet.bet[1] - 1;
|
||||||
|
m_edBlP->Text = g_BPDiffBet.bets[0];
|
||||||
|
m_edPlB->Text = g_BPDiffBet.bets[1];
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBet03Frame::DiffEditExit(TObject *Sender)
|
||||||
|
{
|
||||||
|
TEdit* pE = (TEdit*)Sender;
|
||||||
|
|
||||||
|
int num = 0;
|
||||||
|
if(!TryStrToInt(pE->Text, num) || num<=0 || num>=30 ){
|
||||||
|
ShowMessage("请输入 1 - 30 之间的差值");
|
||||||
|
pE->Text = "5";
|
||||||
|
pE->SetFocus();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBet03Frame::BetEditKeyPress(TObject *Sender, System::WideChar &Key)
|
||||||
|
{
|
||||||
|
if(Key<0x1E)
|
||||||
|
return;
|
||||||
|
|
||||||
|
if(Key!='a' && Key!='s' && Key!='d' && Key!='x' && Key!='z')
|
||||||
|
Key = 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBet03Frame::BetEditExit(TObject *Sender)
|
||||||
|
{
|
||||||
|
TEdit* pE = (TEdit*)Sender;
|
||||||
|
String txt = pE->Text;
|
||||||
|
if(txt.Length()==0 || txt.Length()>15){
|
||||||
|
ShowMessage("请输入 1 - 15 个下注项");
|
||||||
|
pE->Text = pE==m_edBlP ? g_BPDiffBet.bets[0] : g_BPDiffBet.bets[1];
|
||||||
|
pE->SetFocus();
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
for(int i=1; i<=txt.Length(); i++){
|
||||||
|
char Key = txt[i];
|
||||||
|
if(Key!='a' && Key!='s' && Key!='d' && Key!='x' && Key!='z'){
|
||||||
|
ShowMessage("请按说明输入合法下注项");
|
||||||
|
pE->SetFocus();
|
||||||
|
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -0,0 +1,170 @@
|
|||||||
|
object Bet03Frame: TBet03Frame
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 384
|
||||||
|
Height = 310
|
||||||
|
TabOrder = 0
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 24
|
||||||
|
Width = 104
|
||||||
|
Height = 15
|
||||||
|
Caption = #20869#32622#25171#27861#65306#24196#38386#24046
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 152
|
||||||
|
Top = 91
|
||||||
|
Width = 101
|
||||||
|
Height = 20
|
||||||
|
AutoSize = False
|
||||||
|
Caption = #20010#21450#20197#19978#19979#27880
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -15
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 152
|
||||||
|
Top = 155
|
||||||
|
Width = 101
|
||||||
|
Height = 20
|
||||||
|
AutoSize = False
|
||||||
|
Caption = #20010#21450#20197#19978#19979#27880
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clBlue
|
||||||
|
Font.Height = -15
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object m_leBlP: TLabeledEdit
|
||||||
|
Left = 109
|
||||||
|
Top = 88
|
||||||
|
Width = 39
|
||||||
|
Height = 28
|
||||||
|
Hint = '1 - 30 '#20043#38388#30340#24046#20540
|
||||||
|
Alignment = taCenter
|
||||||
|
EditLabel.Width = 64
|
||||||
|
EditLabel.Height = 28
|
||||||
|
EditLabel.Caption = #24196#27604#38386#22810
|
||||||
|
EditLabel.Font.Charset = DEFAULT_CHARSET
|
||||||
|
EditLabel.Font.Color = clRed
|
||||||
|
EditLabel.Font.Height = -15
|
||||||
|
EditLabel.Font.Name = 'Segoe UI'
|
||||||
|
EditLabel.Font.Style = []
|
||||||
|
EditLabel.ParentFont = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clRed
|
||||||
|
Font.Height = -15
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
LabelPosition = lpLeft
|
||||||
|
MaxLength = 2
|
||||||
|
NumbersOnly = True
|
||||||
|
ParentFont = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 0
|
||||||
|
Text = '5'
|
||||||
|
OnExit = DiffEditExit
|
||||||
|
end
|
||||||
|
object m_lePlB: TLabeledEdit
|
||||||
|
Left = 109
|
||||||
|
Top = 152
|
||||||
|
Width = 39
|
||||||
|
Height = 28
|
||||||
|
Hint = '1 - 30 '#20043#38388#30340#24046#20540
|
||||||
|
Alignment = taCenter
|
||||||
|
EditLabel.Width = 64
|
||||||
|
EditLabel.Height = 28
|
||||||
|
EditLabel.Caption = #38386#27604#24196#22810
|
||||||
|
EditLabel.Font.Charset = DEFAULT_CHARSET
|
||||||
|
EditLabel.Font.Color = clBlue
|
||||||
|
EditLabel.Font.Height = -15
|
||||||
|
EditLabel.Font.Name = 'Segoe UI'
|
||||||
|
EditLabel.Font.Style = []
|
||||||
|
EditLabel.ParentFont = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clBlue
|
||||||
|
Font.Height = -15
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
LabelPosition = lpLeft
|
||||||
|
MaxLength = 2
|
||||||
|
NumbersOnly = True
|
||||||
|
ParentFont = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 1
|
||||||
|
Text = '5'
|
||||||
|
OnExit = DiffEditExit
|
||||||
|
end
|
||||||
|
object m_edBlP: TEdit
|
||||||
|
Left = 257
|
||||||
|
Top = 88
|
||||||
|
Width = 88
|
||||||
|
Height = 28
|
||||||
|
Hint = #28165#36755#20837'1-15'#20010#19979#27880#39033
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -15
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'a'
|
||||||
|
OnExit = BetEditExit
|
||||||
|
OnKeyPress = BetEditKeyPress
|
||||||
|
end
|
||||||
|
object m_edPlB: TEdit
|
||||||
|
Left = 257
|
||||||
|
Top = 152
|
||||||
|
Width = 88
|
||||||
|
Height = 28
|
||||||
|
Hint = #28165#36755#20837'1-15'#20010#19979#27880#39033
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -15
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 3
|
||||||
|
Text = 's'
|
||||||
|
OnExit = BetEditExit
|
||||||
|
OnKeyPress = BetEditKeyPress
|
||||||
|
end
|
||||||
|
object StaticText1: TStaticText
|
||||||
|
Left = 46
|
||||||
|
Top = 223
|
||||||
|
Width = 238
|
||||||
|
Height = 19
|
||||||
|
Caption = #35828#26126#65306#19979#27880#39033#20026#19968#20010#25110#22810#20010#20197#19979#26377#25928#23383#27597
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object StaticText2: TStaticText
|
||||||
|
Left = 46
|
||||||
|
Top = 249
|
||||||
|
Width = 299
|
||||||
|
Height = 19
|
||||||
|
Caption = #65288' a='#24196#65292's='#38386#65292'd='#21644#65292'x='#26412#25163#19981#19979#65292'z='#26412#23616#32467#26463' '#65289
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -0,0 +1,35 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef Bet03FrameUnitH
|
||||||
|
#define Bet03FrameUnitH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#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 TBet03Frame : public TFrame
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TLabel *Label1;
|
||||||
|
TLabeledEdit *m_leBlP;
|
||||||
|
TLabel *Label2;
|
||||||
|
TLabeledEdit *m_lePlB;
|
||||||
|
TLabel *Label3;
|
||||||
|
TEdit *m_edBlP;
|
||||||
|
TEdit *m_edPlB;
|
||||||
|
TStaticText *StaticText1;
|
||||||
|
TStaticText *StaticText2;
|
||||||
|
void __fastcall DiffEditExit(TObject *Sender);
|
||||||
|
void __fastcall BetEditKeyPress(TObject *Sender, System::WideChar &Key);
|
||||||
|
void __fastcall BetEditExit(TObject *Sender);
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TBet03Frame(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TBet03Frame *Bet03Frame;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
@@ -0,0 +1,447 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#include <DateUtils.hpp>
|
||||||
|
#include "BetLogFormUnit.h"
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include "UtilityUnit.h"
|
||||||
|
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TBetLogForm *BetLogForm = NULL;
|
||||||
|
|
||||||
|
vector<TBetLog*> g_aBetLogs; //挂机日志
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TBetLogForm::TBetLogForm(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
m_nShowRows = 0;
|
||||||
|
m_bAutoScroll = true;
|
||||||
|
m_bSearch = false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::FormCreate(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_dg->ColWidths[0] = DPIX(120);
|
||||||
|
m_dg->ColWidths[1] = m_dg->ClientWidth - m_dg->ColWidths[0];
|
||||||
|
|
||||||
|
m_dg->Canvas->Font = m_dg->Font;
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////
|
||||||
|
// test
|
||||||
|
// int ts = DateTimeToUnix(Now(), false);
|
||||||
|
// for(int i=0; i<200; i++){
|
||||||
|
// TBetLog* pLog = new TBetLog;
|
||||||
|
// pLog->ts = ts++;
|
||||||
|
// pLog->ev = LOGEVT_START;
|
||||||
|
// g_aBetLogs.push_back(pLog);
|
||||||
|
// }
|
||||||
|
//
|
||||||
|
////////////////////////////////////////////////////
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::FormResize(TObject *Sender)
|
||||||
|
{
|
||||||
|
int nRows = m_dg->ClientHeight / m_dg->DefaultRowHeight;
|
||||||
|
|
||||||
|
if(nRows!=m_nShowRows){
|
||||||
|
m_nShowRows = nRows;
|
||||||
|
|
||||||
|
m_bAutoScroll = (m_dg->TopRow + m_nShowRows) >= m_dg->RowCount;
|
||||||
|
ShowLogs();
|
||||||
|
}
|
||||||
|
|
||||||
|
int nBlank = m_dg->ClientHeight % m_dg->DefaultRowHeight;
|
||||||
|
if(nBlank)
|
||||||
|
ClientHeight -= nBlank;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
|
||||||
|
{
|
||||||
|
ResetIdle();
|
||||||
|
|
||||||
|
if(m_sbSearch->Focused()){
|
||||||
|
if(Key=='A' && Shift.Contains( ssCtrl )){
|
||||||
|
SearchSelAll();
|
||||||
|
}
|
||||||
|
else if(Key==VK_ESCAPE){
|
||||||
|
m_dg->SetFocus();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(m_dg->ScrollBars==ssVertical){
|
||||||
|
if(Key==VK_UP){
|
||||||
|
m_dg->Perform(WM_VSCROLL,SB_LINEUP,0);
|
||||||
|
}
|
||||||
|
else if(Key==VK_DOWN){
|
||||||
|
m_dg->Perform(WM_VSCROLL,SB_LINEDOWN,0);
|
||||||
|
}
|
||||||
|
else if(Key==VK_HOME){
|
||||||
|
m_dg->Perform(WM_VSCROLL,SB_TOP,0);
|
||||||
|
}
|
||||||
|
else if(Key==VK_END){
|
||||||
|
m_dg->Perform(WM_VSCROLL,SB_BOTTOM,0);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::ShowLogs()
|
||||||
|
{
|
||||||
|
LockWindowUpdate( m_dg->Handle );
|
||||||
|
|
||||||
|
vector<TBetLog*>& aLogs = m_bSearch ? m_aSearchLogs : g_aBetLogs;
|
||||||
|
|
||||||
|
if( aLogs.size()+1 < m_nShowRows ){
|
||||||
|
if(m_dg->RowCount!=m_nShowRows){
|
||||||
|
m_dg->RowCount = m_nShowRows;
|
||||||
|
m_dg->ScrollBars = ssNone;
|
||||||
|
|
||||||
|
m_bAutoScroll = true;
|
||||||
|
|
||||||
|
if(m_dg->TopRow>0){
|
||||||
|
m_dg->OnTopLeftChanged = NULL;
|
||||||
|
m_dg->TopRow = 0;
|
||||||
|
m_dg->OnTopLeftChanged = LogsTopChanged;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
m_dg->Invalidate();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
m_dg->RowCount = aLogs.size() + 1;
|
||||||
|
if(m_dg->ScrollBars==ssNone)
|
||||||
|
m_dg->ScrollBars = ssVertical;
|
||||||
|
|
||||||
|
if(m_bAutoScroll){
|
||||||
|
m_dg->OnTopLeftChanged = NULL;
|
||||||
|
m_dg->TopRow = m_dg->RowCount - m_nShowRows;
|
||||||
|
m_dg->OnTopLeftChanged = LogsTopChanged;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
LockWindowUpdate( NULL );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::FormClose(TObject *Sender, TCloseAction &Action)
|
||||||
|
{
|
||||||
|
BetLogForm->Hide();
|
||||||
|
delete BetLogForm;
|
||||||
|
BetLogForm = NULL;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::LogsMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled)
|
||||||
|
{
|
||||||
|
m_dg->Perform(WM_VSCROLL,SB_LINEDOWN,0);
|
||||||
|
Handled = true;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::LogsMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled)
|
||||||
|
{
|
||||||
|
m_dg->Perform(WM_VSCROLL,SB_LINEUP,0);
|
||||||
|
Handled = true;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::UMLogUpdate(TMessage &msg)
|
||||||
|
{
|
||||||
|
if(m_bSearch){
|
||||||
|
String sT = m_sSearch.UpperCase();
|
||||||
|
for(int i=m_iSearchEnd; i<g_aBetLogs.size(); i++){
|
||||||
|
TBetLog* pLog = g_aBetLogs[i];
|
||||||
|
|
||||||
|
String txt = GetLogText(pLog, 0xFF);
|
||||||
|
if(txt.Pos(sT)>0)
|
||||||
|
m_aSearchLogs.push_back(pLog);
|
||||||
|
}
|
||||||
|
|
||||||
|
m_iSearchEnd = g_aBetLogs.size();
|
||||||
|
}
|
||||||
|
|
||||||
|
ShowLogs();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::ClearClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_sbSearch->Text = "";
|
||||||
|
m_sbSearch->Modified = false;
|
||||||
|
m_aSearchLogs.clear();
|
||||||
|
m_bSearch = false;
|
||||||
|
|
||||||
|
for(int i=0; i<g_aBetLogs.size(); i++)
|
||||||
|
delete g_aBetLogs[i];
|
||||||
|
g_aBetLogs.clear();
|
||||||
|
|
||||||
|
ShowLogs();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::SaveClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
TSaveDialog *pDlg = new TSaveDialog(this);
|
||||||
|
pDlg->Filter = "文本文件(*.txt)|*.txt;";
|
||||||
|
|
||||||
|
if(pDlg->Execute(Application->MainFormHandle)){
|
||||||
|
try{
|
||||||
|
String name = pDlg->FileName;
|
||||||
|
if(ExtractFileExt(name)!='.txt')
|
||||||
|
name = ChangeFileExt(name, ".txt");
|
||||||
|
|
||||||
|
FILE* fp = fopen( ((AnsiString)name).c_str(), "w" );
|
||||||
|
if(fp){
|
||||||
|
vector<TBetLog*>& aLogs = m_bSearch ? m_aSearchLogs : g_aBetLogs;
|
||||||
|
for(int i=0; i<aLogs.size(); i++){
|
||||||
|
TBetLog* pLog = aLogs[i];
|
||||||
|
String txt = GetLogText(pLog, 0xFF);
|
||||||
|
fprintf(fp, "%s\n", ((AnsiString)txt).c_str());
|
||||||
|
}
|
||||||
|
|
||||||
|
fclose(fp);
|
||||||
|
}
|
||||||
|
|
||||||
|
MessageBox(Application->MainFormHandle, L"文件保存成功", L"保存",
|
||||||
|
MB_ICONINFORMATION | MB_OK);
|
||||||
|
}
|
||||||
|
catch(Exception &exception){
|
||||||
|
String str = "文件保存失败!\n"+exception.Message;
|
||||||
|
MessageBox(Application->MainFormHandle, str.c_str(), L"保存",
|
||||||
|
MB_ICONERROR | MB_OK);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
delete pDlg;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
String __fastcall TBetLogForm::GetLogText(TBetLog* pLog, int iCol)
|
||||||
|
{
|
||||||
|
String txt;
|
||||||
|
if(pLog){
|
||||||
|
if(iCol==0 || iCol==0xFF){
|
||||||
|
TDateTime dt = UnixToDateTime(pLog->ts,false);
|
||||||
|
txt = dt.FormatString("mm-dd hh:nn:ss ");
|
||||||
|
}
|
||||||
|
|
||||||
|
if(iCol==1 || iCol==0xFF){
|
||||||
|
txt += pLog->tno;
|
||||||
|
|
||||||
|
if(pLog->ev==LOGEVT_START){
|
||||||
|
txt += "开始挂机 ";
|
||||||
|
txt += g_bSimulate ? "模拟" : "实打";
|
||||||
|
|
||||||
|
if(g_settings.bWaitNew)
|
||||||
|
txt += " 新局";
|
||||||
|
if(g_settings.bInitBetChipByStart)
|
||||||
|
txt += " 重置";
|
||||||
|
if(g_settings.iFloatMode>0)
|
||||||
|
txt += " 游台";
|
||||||
|
}
|
||||||
|
else if(pLog->ev==LOGEVT_END){
|
||||||
|
if(pLog->op==1)
|
||||||
|
txt += "总体止赢 ";
|
||||||
|
else if(pLog->op==2)
|
||||||
|
txt += "总体止损 ";
|
||||||
|
else if(pLog->op==3)
|
||||||
|
txt += "本金不足 ";
|
||||||
|
else if(pLog->op==4)
|
||||||
|
txt += "游台爆缆 ";
|
||||||
|
else if(pLog->op==5)
|
||||||
|
txt += "账户止赢 ";
|
||||||
|
else if(pLog->op==6)
|
||||||
|
txt += "账户止损 ";
|
||||||
|
else if(pLog->op==7)
|
||||||
|
txt += "动态止损 ";
|
||||||
|
else if(pLog->op==8)
|
||||||
|
txt += "总体阶梯爆缆 ";
|
||||||
|
|
||||||
|
if(pLog->op==4 || pLog->op==8)
|
||||||
|
txt += "台桌停止";
|
||||||
|
else
|
||||||
|
txt += "停止挂机";
|
||||||
|
}
|
||||||
|
else if(pLog->ev==LOGEVT_RESET){
|
||||||
|
if(pLog->op==-1){
|
||||||
|
txt += "恢复";
|
||||||
|
}
|
||||||
|
else if(pLog->op==0){
|
||||||
|
txt += "重置当期赢利";
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
if(pLog->op==1)
|
||||||
|
txt += "总体止赢 ";
|
||||||
|
else if(pLog->op==2)
|
||||||
|
txt += "总体止损 ";
|
||||||
|
else if(pLog->op==7)
|
||||||
|
txt += "动态止损 ";
|
||||||
|
|
||||||
|
if(pLog->num)
|
||||||
|
txt += "新局重启";
|
||||||
|
else{
|
||||||
|
int nPause = pLog->op==7 ? g_settings.nU2DPause
|
||||||
|
: pLog->op==1 ? g_settings.nTotalWinPause
|
||||||
|
: g_settings.nTotalLosPause;
|
||||||
|
txt += "暂停" + IntToStr(nPause) + "分钟";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(pLog->ev==LOGEVT_ROUND){
|
||||||
|
txt += " 新局 ";
|
||||||
|
}
|
||||||
|
else if(pLog->ev==LOGEVT_BET){
|
||||||
|
if(pLog->op==0)
|
||||||
|
txt += " 本手不下";
|
||||||
|
else if(pLog->op==4)
|
||||||
|
txt += " 本局停止";
|
||||||
|
else{
|
||||||
|
txt += " 下注 ";
|
||||||
|
txt += pLog->op==1 ? "庄 " : pLog->op==2 ? "闲 " : "和 ";
|
||||||
|
txt += IntToStr(pLog->num);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if(pLog->ev==LOGEVT_RES){
|
||||||
|
txt += " 结算 ";
|
||||||
|
txt += pLog->op==1 ? "赢 " : pLog->op==2 ? "输 " : "和 ";
|
||||||
|
txt += IntToStr(pLog->num);
|
||||||
|
}
|
||||||
|
else if(pLog->ev==LOGEVT_DEAD || pLog->ev==LOGEVT_STOPWIN || pLog->ev==LOGEVT_STOPLOS){
|
||||||
|
if(pLog->ev==LOGEVT_DEAD)
|
||||||
|
txt += " 爆缆 ";
|
||||||
|
else if(pLog->ev==LOGEVT_STOPWIN)
|
||||||
|
txt += " 止赢 ";
|
||||||
|
else
|
||||||
|
txt += " 止损 ";
|
||||||
|
|
||||||
|
if(pLog->op==2){
|
||||||
|
if(pLog->num)
|
||||||
|
txt += "暂停" + IntToStr(pLog->num) + "分钟";
|
||||||
|
else
|
||||||
|
txt += "立即重启";
|
||||||
|
}
|
||||||
|
else if(pLog->op==1)
|
||||||
|
txt += "新局重启";
|
||||||
|
else
|
||||||
|
txt += "本桌停止";
|
||||||
|
}
|
||||||
|
else if(pLog->ev==LOGEVT_SWITCH){
|
||||||
|
if(pLog->op)
|
||||||
|
txt += "实打转模拟";
|
||||||
|
else
|
||||||
|
txt += "模拟转实打";
|
||||||
|
}
|
||||||
|
else if(pLog->ev==LOGEVT_QUASH){
|
||||||
|
txt += " 注单撤销";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return txt;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::LogsDrawCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, TRect &Rect, TGridDrawState State)
|
||||||
|
{
|
||||||
|
m_dg->Canvas->Brush-> Color = Graphics::clNone;
|
||||||
|
m_dg->Canvas->FillRect(Rect);
|
||||||
|
|
||||||
|
vector<TBetLog*>& aLogs = m_bSearch ? m_aSearchLogs : g_aBetLogs;
|
||||||
|
|
||||||
|
if(ARow<aLogs.size()){
|
||||||
|
TBetLog* pLog = aLogs[ARow];
|
||||||
|
|
||||||
|
TColor clr = pLog->ev==LOGEVT_ROUND ? clLime
|
||||||
|
: pLog->ev==LOGEVT_BET ? clAqua
|
||||||
|
: (pLog->ev==LOGEVT_RES || pLog->ev==LOGEVT_QUASH) ? clWebPink
|
||||||
|
: pLog->ev==LOGEVT_DEAD || pLog->ev==LOGEVT_STOPWIN || pLog->ev==LOGEVT_STOPLOS ? clRed
|
||||||
|
: clYellow;
|
||||||
|
m_dg->Canvas->Font->Color = clr;
|
||||||
|
|
||||||
|
String txt = GetLogText(pLog, ACol);
|
||||||
|
TSize szTxt = m_dg->Canvas->TextExtent(txt);
|
||||||
|
|
||||||
|
int x = Rect.left + 2,
|
||||||
|
y = Rect.top;
|
||||||
|
y += (Rect.Height() - szTxt.cy) / 2;// -- 垂直居中
|
||||||
|
m_dg->Canvas->TextOut(x,y,txt);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::LogsTopChanged(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_bAutoScroll = (m_dg->TopRow + m_nShowRows) >= m_dg->RowCount;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::LogsSelectCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, bool &CanSelect)
|
||||||
|
{
|
||||||
|
CanSelect = false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::SearchInvokeSearch(TObject *Sender)
|
||||||
|
{
|
||||||
|
if(m_sbSearch->Modified){
|
||||||
|
m_sbSearch->Modified = false;
|
||||||
|
m_aSearchLogs.clear();
|
||||||
|
|
||||||
|
m_sSearch = m_sbSearch->Text;
|
||||||
|
if(m_sSearch.Length()){
|
||||||
|
String sT = m_sSearch.UpperCase();
|
||||||
|
for(int i=0; i<g_aBetLogs.size(); i++){
|
||||||
|
TBetLog* pLog = g_aBetLogs[i];
|
||||||
|
|
||||||
|
String txt = GetLogText(pLog, 0xFF);
|
||||||
|
if(txt.Pos(sT)>0)
|
||||||
|
m_aSearchLogs.push_back(pLog);
|
||||||
|
}
|
||||||
|
|
||||||
|
m_iSearchEnd = g_aBetLogs.size();
|
||||||
|
m_bSearch = true;
|
||||||
|
m_bAutoScroll = false;
|
||||||
|
m_dg->TopRow = 0;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
m_bSearch = false;
|
||||||
|
m_bAutoScroll = true;
|
||||||
|
m_dg->SetFocus();
|
||||||
|
}
|
||||||
|
|
||||||
|
ShowLogs();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::SearchExit(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_sbSearch->Text = m_sSearch;
|
||||||
|
m_sbSearch->Color = clWhite;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::SearchEnter(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_sbSearch->Color = clWebCornSilk;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::SearchDblClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
SearchSelAll();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::SearchSelAll()
|
||||||
|
{
|
||||||
|
if(m_sbSearch->Text.Length()){
|
||||||
|
m_sbSearch->SelStart = 0;
|
||||||
|
m_sbSearch->SelLength = m_sbSearch->Text.Length();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::FormDeactivate(TObject *Sender)
|
||||||
|
{
|
||||||
|
if(Showing && m_sbSearch->Color!=clWhite)
|
||||||
|
SearchExit(NULL);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::FormActivate(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_dg->SetFocus();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBetLogForm::LogsMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
|
||||||
|
{
|
||||||
|
ResetIdle();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -0,0 +1,129 @@
|
|||||||
|
object BetLogForm: TBetLogForm
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
Caption = #25346#26426#26085#24535
|
||||||
|
ClientHeight = 475
|
||||||
|
ClientWidth = 354
|
||||||
|
Color = clBtnFace
|
||||||
|
CustomTitleBar.Control = m_tbp
|
||||||
|
CustomTitleBar.Enabled = True
|
||||||
|
CustomTitleBar.Height = 31
|
||||||
|
CustomTitleBar.BackgroundColor = clWhite
|
||||||
|
CustomTitleBar.ForegroundColor = 65793
|
||||||
|
CustomTitleBar.InactiveBackgroundColor = clWhite
|
||||||
|
CustomTitleBar.InactiveForegroundColor = 10066329
|
||||||
|
CustomTitleBar.ButtonForegroundColor = 65793
|
||||||
|
CustomTitleBar.ButtonBackgroundColor = clWhite
|
||||||
|
CustomTitleBar.ButtonHoverForegroundColor = 65793
|
||||||
|
CustomTitleBar.ButtonHoverBackgroundColor = 16053492
|
||||||
|
CustomTitleBar.ButtonPressedForegroundColor = 65793
|
||||||
|
CustomTitleBar.ButtonPressedBackgroundColor = 15395562
|
||||||
|
CustomTitleBar.ButtonInactiveForegroundColor = 10066329
|
||||||
|
CustomTitleBar.ButtonInactiveBackgroundColor = clWhite
|
||||||
|
Constraints.MaxWidth = 370
|
||||||
|
Constraints.MinWidth = 370
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
GlassFrame.Enabled = True
|
||||||
|
GlassFrame.Top = 31
|
||||||
|
KeyPreview = True
|
||||||
|
Position = poDesigned
|
||||||
|
StyleElements = [seFont, seClient]
|
||||||
|
StyleName = 'Windows'
|
||||||
|
OnActivate = FormActivate
|
||||||
|
OnClose = FormClose
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnDeactivate = FormDeactivate
|
||||||
|
OnKeyDown = FormKeyDown
|
||||||
|
OnResize = FormResize
|
||||||
|
TextHeight = 15
|
||||||
|
object m_dg: TDrawGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 30
|
||||||
|
Width = 354
|
||||||
|
Height = 445
|
||||||
|
Align = alClient
|
||||||
|
Color = clNone
|
||||||
|
ColCount = 2
|
||||||
|
DefaultRowHeight = 27
|
||||||
|
DefaultDrawing = False
|
||||||
|
DoubleBuffered = True
|
||||||
|
FixedCols = 0
|
||||||
|
RowCount = 16
|
||||||
|
FixedRows = 0
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
Options = [goThumbTracking]
|
||||||
|
ParentDoubleBuffered = False
|
||||||
|
ParentFont = False
|
||||||
|
PopupMenu = m_pm
|
||||||
|
ScrollBars = ssNone
|
||||||
|
TabOrder = 0
|
||||||
|
OnDrawCell = LogsDrawCell
|
||||||
|
OnMouseMove = LogsMouseMove
|
||||||
|
OnMouseWheelDown = LogsMouseWheelDown
|
||||||
|
OnMouseWheelUp = LogsMouseWheelUp
|
||||||
|
OnSelectCell = LogsSelectCell
|
||||||
|
OnTopLeftChanged = LogsTopChanged
|
||||||
|
end
|
||||||
|
object m_tbp: TTitleBarPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 354
|
||||||
|
Height = 30
|
||||||
|
ParentCustomHint = False
|
||||||
|
CustomButtons = <>
|
||||||
|
object m_sbSearch: TSearchBox
|
||||||
|
Left = 181
|
||||||
|
Top = 5
|
||||||
|
Width = 132
|
||||||
|
Height = 23
|
||||||
|
ParentCustomHint = False
|
||||||
|
TabStop = False
|
||||||
|
AutoSelect = False
|
||||||
|
AutoSize = False
|
||||||
|
BevelInner = bvSpace
|
||||||
|
BevelKind = bkTile
|
||||||
|
BevelOuter = bvSpace
|
||||||
|
BiDiMode = bdLeftToRight
|
||||||
|
Color = clWhite
|
||||||
|
Ctl3D = False
|
||||||
|
DoubleBuffered = True
|
||||||
|
ParentBiDiMode = False
|
||||||
|
ParentCtl3D = False
|
||||||
|
ParentDoubleBuffered = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = False
|
||||||
|
TabOrder = 0
|
||||||
|
OnDblClick = SearchDblClick
|
||||||
|
OnEnter = SearchEnter
|
||||||
|
OnExit = SearchExit
|
||||||
|
OnInvokeSearch = SearchInvokeSearch
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object m_pm: TPopupMenu
|
||||||
|
AutoHotkeys = maManual
|
||||||
|
Left = 120
|
||||||
|
Top = 64
|
||||||
|
object save: TMenuItem
|
||||||
|
AutoHotkeys = maManual
|
||||||
|
Caption = #20445#23384#20026'...'
|
||||||
|
OnClick = SaveClick
|
||||||
|
end
|
||||||
|
object N1: TMenuItem
|
||||||
|
Caption = '-'
|
||||||
|
end
|
||||||
|
object clear: TMenuItem
|
||||||
|
AutoHotkeys = maManual
|
||||||
|
Caption = #28165#31354#20869#23481
|
||||||
|
OnClick = ClearClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -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
|
||||||
@@ -0,0 +1,147 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "GameUnit.h"
|
||||||
|
#include "ChartFormUnit.h"
|
||||||
|
#include "ContentPanel.h"
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include "UtilityUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TChartForm *ChartForm = NULL;
|
||||||
|
|
||||||
|
//char * u_sTimeUnit[] = {"5秒", "10秒", "20秒", "30秒", "1分",
|
||||||
|
// "2分", "5分", "10分", "30分", "1小时"};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TChartForm::TChartForm(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
// m_lblTimeUnit->Caption = String(u_sTimeUnit[0]);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TChartForm::FormClose(TObject *Sender, TCloseAction &Action)
|
||||||
|
{
|
||||||
|
ChartForm->Hide();
|
||||||
|
delete ChartForm;
|
||||||
|
ChartForm = NULL;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TChartForm::FormCreate(TObject *Sender)
|
||||||
|
{
|
||||||
|
/////////////////////////////////////
|
||||||
|
//test
|
||||||
|
// TDot dot;
|
||||||
|
// for(int i=0; i<4; i++){
|
||||||
|
// g_aDots[i].clear();
|
||||||
|
// g_aDots[i].push_back(dot);
|
||||||
|
// }
|
||||||
|
//
|
||||||
|
// int counts[2] = {0};
|
||||||
|
// int profile = 0;
|
||||||
|
// int tm = time(NULL);
|
||||||
|
// for(int i=0; i<2000; i++){
|
||||||
|
// profile += Random(2000) - 1000;
|
||||||
|
// dot.val = profile;
|
||||||
|
// dot.ts = tm++;
|
||||||
|
// g_aDots[0].push_back(dot);
|
||||||
|
//
|
||||||
|
// counts[Random(2)]++;
|
||||||
|
// dot.val = counts[0] - counts[1];
|
||||||
|
// dot.ts = tm++;
|
||||||
|
// g_aDots[3].push_back(dot);
|
||||||
|
// }
|
||||||
|
//
|
||||||
|
///////////////////////////////////////
|
||||||
|
|
||||||
|
m_panChart = new TContentPanel(this);
|
||||||
|
m_panChart->Parent = this;
|
||||||
|
m_panChart->Align = alClient;
|
||||||
|
m_panChart->Show();
|
||||||
|
|
||||||
|
ShowRunTime();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TChartForm::UMChartUpdate(TMessage &msg)
|
||||||
|
{
|
||||||
|
int mod = msg.WParam,
|
||||||
|
op = msg.LParam;
|
||||||
|
((TContentPanel*)m_panChart)->UpdateView(mod, op);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TChartForm::UMRunTime(TMessage &msg)
|
||||||
|
{
|
||||||
|
ShowRunTime();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TChartForm::ShowRunTime()
|
||||||
|
{
|
||||||
|
int d = g_aGames.runTime / 86400,
|
||||||
|
r = g_aGames.runTime - d * 86400,
|
||||||
|
h, m, s;
|
||||||
|
h = r / 3600, r -= h * 3600;
|
||||||
|
m = r / 60, r -= m * 60;
|
||||||
|
s = r;
|
||||||
|
|
||||||
|
m_lblRunTime->Caption = Format(String("%d天 %.2d:%.2d:%.2d"), ARRAYOFCONST((d, h, m, s)));
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TChartForm::TopDrawTab(TObject *Sender, TCanvas *TabCanvas, TRect &R, int Index, bool Selected)
|
||||||
|
{
|
||||||
|
TTabSet* pTS = (TTabSet*)Sender;
|
||||||
|
|
||||||
|
int w = TabCanvas->TextWidth((*pTS->Tabs)[Index]),
|
||||||
|
l = ( R.Width() - w ) / 2,
|
||||||
|
h = TabCanvas->TextHeight((*pTS->Tabs)[Index]),
|
||||||
|
t = ( R.Height() - h ) /2;
|
||||||
|
|
||||||
|
if( Index==0 )
|
||||||
|
TabCanvas->Font->Color = clBlue;
|
||||||
|
else if( Index==1 )
|
||||||
|
TabCanvas->Font->Color = clGreen;
|
||||||
|
else if( Index==2 )
|
||||||
|
TabCanvas->Font->Color = clRed;
|
||||||
|
else
|
||||||
|
TabCanvas->Font->Color = clWebRoyalBlue;
|
||||||
|
|
||||||
|
TabCanvas->TextOut(R.Left + l, R.Top + t, (*pTS->Tabs)[Index]);
|
||||||
|
|
||||||
|
TabCanvas->Font->Color = clBlack;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TChartForm::TopMeasureTab(TObject *Sender, int Index, int &TabWidth)
|
||||||
|
{
|
||||||
|
TabWidth = DPIX(80);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TChartForm::FormResize(TObject *Sender)
|
||||||
|
{
|
||||||
|
int l = DPIX(150) + (ClientWidth - m_panTU->Width) / 2;
|
||||||
|
int lB = DPIX(420);
|
||||||
|
if(l<lB) l = lB;
|
||||||
|
m_panTU->Left = l;
|
||||||
|
|
||||||
|
// if(WindowState==wsMaximized)
|
||||||
|
// FormStyle = fsNormal;
|
||||||
|
// else if(Application->MainForm->WindowState==wsMaximized)
|
||||||
|
// FormStyle = fsStayOnTop;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TChartForm::TopChange(TObject *Sender, int NewTab, bool &AllowChange)
|
||||||
|
{
|
||||||
|
((TContentPanel*)m_panChart)->SetView(NewTab);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TChartForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
|
||||||
|
{
|
||||||
|
ResetIdle();
|
||||||
|
|
||||||
|
if(Key==37 || Key==39){
|
||||||
|
((TContentPanel*)m_panChart)->PanKeyDown(Key);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -0,0 +1,116 @@
|
|||||||
|
object ChartForm: TChartForm
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
ParentCustomHint = False
|
||||||
|
HorzScrollBar.Tracking = True
|
||||||
|
HorzScrollBar.Visible = False
|
||||||
|
VertScrollBar.Tracking = True
|
||||||
|
VertScrollBar.Visible = False
|
||||||
|
BiDiMode = bdLeftToRight
|
||||||
|
Caption = #25968#25454#22270#34920
|
||||||
|
ClientHeight = 461
|
||||||
|
ClientWidth = 850
|
||||||
|
Color = clBtnFace
|
||||||
|
Constraints.MaxHeight = 500
|
||||||
|
Constraints.MinHeight = 500
|
||||||
|
Constraints.MinWidth = 680
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentBiDiMode = False
|
||||||
|
Position = poDesigned
|
||||||
|
StyleElements = []
|
||||||
|
StyleName = 'Windows'
|
||||||
|
OnClose = FormClose
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnKeyDown = FormKeyDown
|
||||||
|
OnResize = FormResize
|
||||||
|
TextHeight = 14
|
||||||
|
object m_tsTop: TTabSet
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 850
|
||||||
|
Height = 25
|
||||||
|
ParentCustomHint = False
|
||||||
|
Align = alTop
|
||||||
|
AutoScroll = False
|
||||||
|
DoubleBuffered = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentDoubleBuffered = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = False
|
||||||
|
SelectedColor = clWhite
|
||||||
|
Style = tsOwnerDraw
|
||||||
|
TabHeight = 25
|
||||||
|
Tabs.Strings = (
|
||||||
|
#24635#36194#21033
|
||||||
|
#27169#25311#26412#37329
|
||||||
|
#36134#25143#20313#39069
|
||||||
|
#36194#36755#27425#24046)
|
||||||
|
TabIndex = 0
|
||||||
|
TabPosition = tpTop
|
||||||
|
OnChange = TopChange
|
||||||
|
OnDrawTab = TopDrawTab
|
||||||
|
OnMeasureTab = TopMeasureTab
|
||||||
|
end
|
||||||
|
object m_panTU: TPanel
|
||||||
|
Left = 350
|
||||||
|
Top = 0
|
||||||
|
Width = 163
|
||||||
|
Height = 23
|
||||||
|
ParentCustomHint = False
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Color = clInactiveBorder
|
||||||
|
Ctl3D = False
|
||||||
|
DoubleBuffered = False
|
||||||
|
ParentBackground = False
|
||||||
|
ParentCtl3D = False
|
||||||
|
ParentDoubleBuffered = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowCaption = False
|
||||||
|
ShowHint = False
|
||||||
|
TabOrder = 1
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 64
|
||||||
|
Height = 23
|
||||||
|
Align = alLeft
|
||||||
|
AutoSize = False
|
||||||
|
Caption = #25346#26426#26102#38271#65306
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
Layout = tlCenter
|
||||||
|
ExplicitLeft = 3
|
||||||
|
ExplicitTop = 5
|
||||||
|
ExplicitHeight = 15
|
||||||
|
end
|
||||||
|
object m_lblRunTime: TLabel
|
||||||
|
Left = 64
|
||||||
|
Top = 0
|
||||||
|
Width = 99
|
||||||
|
Height = 23
|
||||||
|
Align = alRight
|
||||||
|
Alignment = taCenter
|
||||||
|
AutoSize = False
|
||||||
|
Caption = '0'#22825' 00:00:00'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Arial'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -0,0 +1,48 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef ChartFormUnitH
|
||||||
|
#define ChartFormUnitH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <System.Classes.hpp>
|
||||||
|
#include <Vcl.Controls.hpp>
|
||||||
|
#include <Vcl.StdCtrls.hpp>
|
||||||
|
#include <Vcl.Forms.hpp>
|
||||||
|
#include <Vcl.TitleBarCtrls.hpp>
|
||||||
|
|
||||||
|
#include "ContentPanel.h"
|
||||||
|
#include <Vcl.Tabs.hpp>
|
||||||
|
#include <Vcl.ExtCtrls.hpp>
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TChartForm : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TTabSet *m_tsTop;
|
||||||
|
TLabel *Label1;
|
||||||
|
TPanel *m_panTU;
|
||||||
|
TLabel *m_lblRunTime;
|
||||||
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
||||||
|
void __fastcall FormCreate(TObject *Sender);
|
||||||
|
void __fastcall TopDrawTab(TObject *Sender, TCanvas *TabCanvas, TRect &R, int Index, bool Selected);
|
||||||
|
void __fastcall TopMeasureTab(TObject *Sender, int Index, int &TabWidth);
|
||||||
|
void __fastcall FormResize(TObject *Sender);
|
||||||
|
void __fastcall TopChange(TObject *Sender, int NewTab, bool &AllowChange);
|
||||||
|
void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
||||||
|
private: // User declarations
|
||||||
|
TPanel* m_panChart;
|
||||||
|
|
||||||
|
void __fastcall ShowRunTime();
|
||||||
|
MESSAGE void __fastcall UMRunTime(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMChartUpdate(TMessage &msg);
|
||||||
|
|
||||||
|
BEGIN_MESSAGE_MAP
|
||||||
|
MESSAGE_HANDLER(UM_RUN_TIME, TMessage, UMRunTime)
|
||||||
|
MESSAGE_HANDLER(UM_CHART_UPDATE, TMessage, UMChartUpdate)
|
||||||
|
END_MESSAGE_MAP(TForm)
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TChartForm(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TChartForm *ChartForm;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
@@ -0,0 +1,32 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "Chip02FrameUnit.h"
|
||||||
|
#include "GameUnit.h"
|
||||||
|
#include "PolicyUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TChip02Frame *Chip02Frame = NULL;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TChip02Frame::TChip02Frame(TComponent* Owner)
|
||||||
|
: TFrame(Owner)
|
||||||
|
{
|
||||||
|
m_leMinChip->Text = g_RandomChip.minChip;
|
||||||
|
m_leMaxChip->Text = g_RandomChip.maxChip;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TChip02Frame::EditChipExit(TObject *Sender)
|
||||||
|
{
|
||||||
|
TEdit* pE = (TEdit*)Sender;
|
||||||
|
|
||||||
|
int num;
|
||||||
|
if(!TryStrToInt(pE->Text, num) || num<g_MinOnBet || num>g_MaxOnBet ){
|
||||||
|
ShowMessage("×¢Âë½ð¶î²»Äܳ¬¹ýÏÞºì");
|
||||||
|
pE->Text = pE==m_leMinChip ? "20" : "100";
|
||||||
|
pE->SetFocus();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
@@ -0,0 +1,79 @@
|
|||||||
|
object Chip02Frame: TChip02Frame
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 384
|
||||||
|
Height = 310
|
||||||
|
Ctl3D = False
|
||||||
|
ParentCtl3D = False
|
||||||
|
TabOrder = 0
|
||||||
|
Visible = False
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 40
|
||||||
|
Top = 24
|
||||||
|
Width = 117
|
||||||
|
Height = 15
|
||||||
|
Caption = #20869#32622#27880#30721#65306#38543#26426#27880#30721
|
||||||
|
end
|
||||||
|
object m_leMinChip: TLabeledEdit
|
||||||
|
Left = 145
|
||||||
|
Top = 88
|
||||||
|
Width = 70
|
||||||
|
Height = 26
|
||||||
|
Hint = #38543#26426#27880#30721#26368#23567#20540
|
||||||
|
Alignment = taCenter
|
||||||
|
EditLabel.Width = 80
|
||||||
|
EditLabel.Height = 26
|
||||||
|
EditLabel.Caption = #19979#27880#33539#22260#65306
|
||||||
|
EditLabel.Font.Charset = DEFAULT_CHARSET
|
||||||
|
EditLabel.Font.Color = clWindowText
|
||||||
|
EditLabel.Font.Height = -15
|
||||||
|
EditLabel.Font.Name = 'Segoe UI'
|
||||||
|
EditLabel.Font.Style = []
|
||||||
|
EditLabel.ParentFont = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -15
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
LabelPosition = lpLeft
|
||||||
|
MaxLength = 5
|
||||||
|
NumbersOnly = True
|
||||||
|
ParentFont = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 0
|
||||||
|
Text = '20'
|
||||||
|
OnExit = EditChipExit
|
||||||
|
end
|
||||||
|
object m_leMaxChip: TLabeledEdit
|
||||||
|
Left = 259
|
||||||
|
Top = 88
|
||||||
|
Width = 70
|
||||||
|
Height = 26
|
||||||
|
Hint = #38543#26426#27880#30721#26368#22823#20540
|
||||||
|
Alignment = taCenter
|
||||||
|
EditLabel.Width = 31
|
||||||
|
EditLabel.Height = 26
|
||||||
|
EditLabel.Caption = ' '#8212' '
|
||||||
|
EditLabel.Font.Charset = DEFAULT_CHARSET
|
||||||
|
EditLabel.Font.Color = clWindowText
|
||||||
|
EditLabel.Font.Height = -15
|
||||||
|
EditLabel.Font.Name = 'Segoe UI'
|
||||||
|
EditLabel.Font.Style = []
|
||||||
|
EditLabel.ParentFont = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -15
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
LabelPosition = lpLeft
|
||||||
|
MaxLength = 5
|
||||||
|
NumbersOnly = True
|
||||||
|
ParentFont = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 1
|
||||||
|
Text = '100'
|
||||||
|
OnExit = EditChipExit
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -0,0 +1,27 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef Chip02FrameUnitH
|
||||||
|
#define Chip02FrameUnitH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#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 TChip02Frame : public TFrame
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TLabeledEdit *m_leMinChip;
|
||||||
|
TLabeledEdit *m_leMaxChip;
|
||||||
|
TLabel *Label1;
|
||||||
|
void __fastcall EditChipExit(TObject *Sender);
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TChip02Frame(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TChip02Frame *Chip02Frame;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
@@ -0,0 +1,101 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "ChipsFormUnit.h"
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "PNGButton"
|
||||||
|
#pragma link "PNGButton"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TChipsForm *ChipsForm = NULL;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TChipsForm::TChipsForm(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
m_aChips[0] = m_btnChip1;
|
||||||
|
m_aChips[1] = m_btnChip5;
|
||||||
|
m_aChips[2] = m_btnChip10;
|
||||||
|
m_aChips[3] = m_btnChip20;
|
||||||
|
m_aChips[4] = m_btnChip50;
|
||||||
|
m_aChips[5] = m_btnChip100;
|
||||||
|
m_aChips[6] = m_btnChip500;
|
||||||
|
m_aChips[7] = m_btnChip1k;
|
||||||
|
m_aChips[8] = m_btnChip5k;
|
||||||
|
m_aChips[9] = m_btnChip10k;
|
||||||
|
|
||||||
|
m_aValues[0] = 1;
|
||||||
|
m_aValues[1] = 5;
|
||||||
|
m_aValues[2] = 10;
|
||||||
|
m_aValues[3] = 20;
|
||||||
|
m_aValues[4] = 50;
|
||||||
|
m_aValues[5] = 100;
|
||||||
|
m_aValues[6] = 500;
|
||||||
|
m_aValues[7] = 1000;
|
||||||
|
m_aValues[8] = 5000;
|
||||||
|
m_aValues[9] = 10000;
|
||||||
|
|
||||||
|
m_iSelChip = 3;
|
||||||
|
m_nSelChip = 20;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TChipsForm::ChipClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPNGButton* pBtn = (TPNGButton*)Sender;
|
||||||
|
if(!pBtn->Down){
|
||||||
|
m_aChips[m_iSelChip]->Down = false;
|
||||||
|
pBtn->Down = true;
|
||||||
|
|
||||||
|
m_iSelChip = pBtn->Tag;
|
||||||
|
m_nSelChip = m_aValues[m_iSelChip];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TChipsForm::FormResize(TObject *Sender)
|
||||||
|
{
|
||||||
|
int dx = m_btnChip1->Width,
|
||||||
|
dy = m_btnChip1->Height;
|
||||||
|
int col = ClientWidth / dx,
|
||||||
|
row = ClientHeight / dy;
|
||||||
|
|
||||||
|
int y = 0, ind = 0;
|
||||||
|
for(int i=0; i<row && ind<10; i++,y+=dy){
|
||||||
|
int x = 0;
|
||||||
|
for(int j=0; j<col && ind<10; j++, x+=dx, ind++){
|
||||||
|
TPNGButton* pB = m_aChips[ind];
|
||||||
|
pB->Top = y;
|
||||||
|
pB->Left = x;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TChipsForm::FormCanResize(TObject *Sender, int &NewWidth, int &NewHeight, bool &Resize)
|
||||||
|
{
|
||||||
|
int dx = m_btnChip1->Width,
|
||||||
|
dy = m_btnChip1->Height,
|
||||||
|
cx = Width - ClientWidth,
|
||||||
|
cy = Height - ClientHeight;
|
||||||
|
int col, row;
|
||||||
|
if(Width!=NewWidth){
|
||||||
|
col = (NewWidth - cx) / dx;
|
||||||
|
row = 10 / col;
|
||||||
|
if(10%col) row++;
|
||||||
|
}
|
||||||
|
else if(Height!=NewHeight){
|
||||||
|
row = (NewHeight-cy) / dy;
|
||||||
|
col = 10 / row;
|
||||||
|
if(10%row) col++;
|
||||||
|
|
||||||
|
}
|
||||||
|
else
|
||||||
|
return;
|
||||||
|
|
||||||
|
NewWidth = col * dx + cx;
|
||||||
|
NewHeight = row * dy + cy;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
+3094
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,41 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef ChipsFormUnitH
|
||||||
|
#define ChipsFormUnitH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <System.Classes.hpp>
|
||||||
|
#include <Vcl.Controls.hpp>
|
||||||
|
#include <Vcl.StdCtrls.hpp>
|
||||||
|
#include <Vcl.Forms.hpp>
|
||||||
|
#include <Vcl.Buttons.hpp>
|
||||||
|
#include "PNGButton.hpp"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TChipsForm : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TPNGButton *m_btnChip1;
|
||||||
|
TPNGButton *m_btnChip5;
|
||||||
|
TPNGButton *m_btnChip10;
|
||||||
|
TPNGButton *m_btnChip20;
|
||||||
|
TPNGButton *m_btnChip50;
|
||||||
|
TPNGButton *m_btnChip100;
|
||||||
|
TPNGButton *m_btnChip500;
|
||||||
|
TPNGButton *m_btnChip1k;
|
||||||
|
TPNGButton *m_btnChip5k;
|
||||||
|
TPNGButton *m_btnChip10k;
|
||||||
|
void __fastcall ChipClick(TObject *Sender);
|
||||||
|
void __fastcall FormResize(TObject *Sender);
|
||||||
|
void __fastcall FormCanResize(TObject *Sender, int &NewWidth, int &NewHeight, bool &Resize);
|
||||||
|
private: // User declarations
|
||||||
|
TPNGButton* m_aChips[10];
|
||||||
|
int m_aValues[10];
|
||||||
|
int m_iSelChip;
|
||||||
|
public: // User declarations
|
||||||
|
int m_nSelChip;
|
||||||
|
|
||||||
|
__fastcall TChipsForm(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TChipsForm *ChipsForm;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
@@ -0,0 +1,646 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <vcl.h>
|
||||||
|
#include <windows.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "GameUnit.h"
|
||||||
|
#include "ContentPanel.h"
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include "UtilityUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
|
||||||
|
TColor clrAxis = TColor(RGB(3,5,7)), //XY轴及边框
|
||||||
|
clrLineTen = TColor(RGB(215,215,215)), //十倍横线
|
||||||
|
clrLineNor = TColor(0x00EDEDED),// TColor(RGB(250,250,250)), //普通线
|
||||||
|
clrHeadFont = TColor(RGB(83,109,165)), //头文字
|
||||||
|
clrSelect = TColor(RGB(150, 155, 159));
|
||||||
|
TColor u_clrLink[] = {clBlue, clWebLimeGreen, clRed, clWebRoyalBlue};
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
__fastcall TContentPanel::TContentPanel(TComponent* AOwner)
|
||||||
|
: Vcl::Extctrls::TPanel(AOwner)
|
||||||
|
{
|
||||||
|
Visible = false;
|
||||||
|
DoubleBuffered = true;
|
||||||
|
Ctl3D = false;
|
||||||
|
Color = clBtnHighlight;//clWhite;
|
||||||
|
BorderStyle = bsSingle;
|
||||||
|
OnMouseMove = PanMouseMove;
|
||||||
|
|
||||||
|
m_nTopGap = m_nLeftBound = m_nTopBound = 0;
|
||||||
|
m_nRows = 50;
|
||||||
|
m_xScaleGap = m_nGap = DPIX(8);
|
||||||
|
m_yZero = 0;
|
||||||
|
m_yScaleGap = m_nGap * 5;
|
||||||
|
m_nRightBound = m_nLeftBound + m_nGap * m_nCols;
|
||||||
|
m_nBottomBound = m_nTopBound + m_nGap * m_nRows;
|
||||||
|
|
||||||
|
m_nAmoUnit = 100;
|
||||||
|
m_nAmoMax = m_nAmoMin = m_nRowMax = m_nRowMin = 0;
|
||||||
|
m_iType = m_nOriDots = 0;
|
||||||
|
m_iSample = 1;
|
||||||
|
m_iMask = 0;
|
||||||
|
m_iPeakU = m_iPeakL = -1;
|
||||||
|
|
||||||
|
m_xHalfGap = m_xScaleGap>>1;
|
||||||
|
m_iHint = m_xMaxHint = 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TContentPanel::CreateWnd(void)
|
||||||
|
{
|
||||||
|
Vcl::Extctrls::TPanel::CreateWnd();
|
||||||
|
|
||||||
|
for(int i=0; i<2; i++){
|
||||||
|
m_lblHint[i] = new TLabel(NULL);
|
||||||
|
m_lblHint[i]->Visible = false;
|
||||||
|
m_lblHint[i]->Parent = this;
|
||||||
|
m_lblHint[i]->Font->Color = clrHeadFont;
|
||||||
|
// m_lblHint[i]->AutoSize = false;
|
||||||
|
// m_lblHint[i]->Width = 52;
|
||||||
|
// m_lblHint[i]->Height = 16;
|
||||||
|
// m_lblHint[i]->Alignment = taCenter;
|
||||||
|
// m_lblHint[i]->Layout = tlCenter;
|
||||||
|
}
|
||||||
|
|
||||||
|
UpdateView(0, true);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
__fastcall TContentPanel::~TContentPanel()
|
||||||
|
{
|
||||||
|
for(int i=0; i<2; i++)
|
||||||
|
delete m_lblHint[i];
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TContentPanel::SetView(int iType)
|
||||||
|
{
|
||||||
|
if(iType!=m_iType){
|
||||||
|
m_iType = iType;
|
||||||
|
m_nAmoUnit = iType==3 ? 10 : 100;
|
||||||
|
UpdateView(iType, true);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TContentPanel::WMSize(TWMSize &msg)
|
||||||
|
{
|
||||||
|
m_nCols = (msg.Width - m_nLeftBound - DPIX(4)) / m_nGap;
|
||||||
|
m_nRightBound = m_nLeftBound + m_nGap * m_nCols;
|
||||||
|
m_xScaleGap = m_nGap;
|
||||||
|
m_xHalfGap = m_xScaleGap>>1;
|
||||||
|
m_aDots.clear();
|
||||||
|
m_nOriDots = 0;
|
||||||
|
m_iSample = 1;
|
||||||
|
m_iMask = 0;
|
||||||
|
if(!CalcXUnit())
|
||||||
|
InvalidateRect(Handle, NULL, TRUE);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TContentPanel::Paint()
|
||||||
|
{
|
||||||
|
TRect rtInvalid = Canvas->ClipRect;
|
||||||
|
bool bPeakU = m_iPeakU>=0, bPeakL = m_iPeakL>=0;
|
||||||
|
vector<TDot>& aDots = m_aDots.empty() ? g_aDots[m_iType] : m_aDots;
|
||||||
|
|
||||||
|
//绘制选中线
|
||||||
|
if(m_iHint>0){
|
||||||
|
int x = m_xZero + m_iHint * m_xScaleGap;
|
||||||
|
Canvas->Pen->Color = clrSelect;
|
||||||
|
Canvas->Pen->Width = 1;
|
||||||
|
Canvas->Pen->Style = psDot;
|
||||||
|
Canvas->MoveTo(x, m_nTopBound+1);
|
||||||
|
Canvas->LineTo(x, m_nBottomBound-1);
|
||||||
|
}
|
||||||
|
|
||||||
|
int x0 = m_xZero,
|
||||||
|
y0 = m_nTopBound,
|
||||||
|
x1 = x0,
|
||||||
|
l = ( rtInvalid.left - 1 - x0 ) / m_xScaleGap,
|
||||||
|
r = ( rtInvalid.right + 1 - x0 ) / m_xScaleGap + 1,
|
||||||
|
total = aDots.size();
|
||||||
|
|
||||||
|
if(total>0)
|
||||||
|
y0 += (int)((m_nRowMax - aDots[0].val) * m_yScale + 0.5);
|
||||||
|
|
||||||
|
Canvas->Pen->Color = u_clrLink[m_iType];
|
||||||
|
Canvas->Pen->Width = 2;
|
||||||
|
Canvas->MoveTo( x0, y0 );
|
||||||
|
|
||||||
|
for( int i=1; i<total; i++ ){
|
||||||
|
x1 += m_xScaleGap;
|
||||||
|
|
||||||
|
int c = (m_nRowMax - aDots[i].val) * m_yScale + 0.5;
|
||||||
|
int y1 = m_nTopBound + c;
|
||||||
|
|
||||||
|
if(l <= i && r >= i){
|
||||||
|
//绘制连接线
|
||||||
|
Canvas->LineTo( x1, y1 );
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
Canvas->MoveTo( x1, y1 );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TContentPanel::WMEraseBkgnd(TWMEraseBkgnd &Message)
|
||||||
|
{
|
||||||
|
TCanvas* tempCanvas = new TCanvas;
|
||||||
|
tempCanvas->Handle = Message.DC;
|
||||||
|
|
||||||
|
//背景色
|
||||||
|
TRect rect( 0, 0, ClientWidth, ClientHeight );
|
||||||
|
tempCanvas->Brush->Color = clBtnFace;//clWhite;
|
||||||
|
tempCanvas->FillRect( rect );
|
||||||
|
|
||||||
|
//外边框
|
||||||
|
rect.left = m_nLeftBound;
|
||||||
|
rect.right = m_nRightBound + 1;
|
||||||
|
rect.top = m_nTopBound;
|
||||||
|
rect.bottom = m_nBottomBound + 1;
|
||||||
|
tempCanvas->Brush->Color = clrAxis;
|
||||||
|
tempCanvas->FrameRect( rect );
|
||||||
|
|
||||||
|
//纵线
|
||||||
|
int x = m_xZero,
|
||||||
|
t = rect.top+1,
|
||||||
|
b = rect.bottom-1;
|
||||||
|
tempCanvas->Pen->Color = clrLineNor;
|
||||||
|
for( int i=1; i<m_nCols; i++ ){
|
||||||
|
x += m_nGap;
|
||||||
|
tempCanvas->MoveTo( x, t );
|
||||||
|
tempCanvas->LineTo( x, b );
|
||||||
|
}
|
||||||
|
|
||||||
|
//刻度
|
||||||
|
tempCanvas->Font->Color = clrHeadFont;
|
||||||
|
tempCanvas->Brush->Style = bsClear;
|
||||||
|
int y = m_nTopGap,//, iY0 = 0,
|
||||||
|
num = m_nRowMax;
|
||||||
|
for( int i=0; i<=10; i++ ){
|
||||||
|
String sTxt = IntToStr(num);
|
||||||
|
TSize szTxt = tempCanvas->TextExtent( sTxt );
|
||||||
|
x = m_nLeftBound - szTxt.cx - 1;
|
||||||
|
tempCanvas->TextOut( x, y, sTxt );
|
||||||
|
|
||||||
|
num -= m_iAmoUnit;
|
||||||
|
y += m_yScaleGap;
|
||||||
|
}
|
||||||
|
|
||||||
|
//横线
|
||||||
|
tempCanvas->Brush->Style = bsSolid;
|
||||||
|
y = m_nTopBound;
|
||||||
|
int l = m_xZero+1,
|
||||||
|
r = rect.right-1;
|
||||||
|
for( int i=1; i<m_nRows; i++ ){
|
||||||
|
y += m_nGap;
|
||||||
|
tempCanvas->Pen->Color = i==m_yZero ? clrAxis
|
||||||
|
: i % 5 ? clrLineNor
|
||||||
|
: clrLineTen;
|
||||||
|
tempCanvas->MoveTo( l, y );
|
||||||
|
tempCanvas->LineTo( r, y );
|
||||||
|
}
|
||||||
|
|
||||||
|
delete tempCanvas;
|
||||||
|
Message.Result = true;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TContentPanel::UpdateView(int iType, bool bInit)
|
||||||
|
{
|
||||||
|
if(m_iType!=iType)
|
||||||
|
return;
|
||||||
|
|
||||||
|
vector<TDot>& dots = g_aDots[m_iType];
|
||||||
|
int nTotal = dots.size();
|
||||||
|
|
||||||
|
if(bInit){
|
||||||
|
int nMax(0), nMin(0);
|
||||||
|
if(nTotal>0){
|
||||||
|
nMax = nMin = dots[0].val;
|
||||||
|
for(int i=1; i<nTotal; i++){
|
||||||
|
int p = dots[i].val;
|
||||||
|
if(p>nMax){
|
||||||
|
nMax = p;
|
||||||
|
m_iPeakU = i;
|
||||||
|
}
|
||||||
|
else if(p<nMin){
|
||||||
|
nMin = p;
|
||||||
|
m_iPeakL = i;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
m_nAmoMax = nMax;
|
||||||
|
m_nAmoMin = nMin;
|
||||||
|
m_xScaleGap = m_nGap;
|
||||||
|
m_xHalfGap = m_xScaleGap>>1;
|
||||||
|
m_aDots.clear();
|
||||||
|
m_nOriDots = 0;
|
||||||
|
m_iSample = 1;
|
||||||
|
m_iMask = 0;
|
||||||
|
CalcYUnit(nMax, nMin, true);
|
||||||
|
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(!nTotal || m_nOriDots==nTotal)
|
||||||
|
return;
|
||||||
|
|
||||||
|
int nOriCount = m_nOriDots,
|
||||||
|
nLocCount = m_aDots.size();
|
||||||
|
bool bYChange = false;
|
||||||
|
for(int i=m_nOriDots; i<nTotal; i++){
|
||||||
|
int p = dots[i].val;
|
||||||
|
if(!m_aDots.empty()){
|
||||||
|
m_aDots.push_back(dots[i]);
|
||||||
|
}
|
||||||
|
|
||||||
|
if(p > m_nAmoMax){
|
||||||
|
m_nAmoMax = p;
|
||||||
|
bYChange = true;
|
||||||
|
|
||||||
|
if(p > m_nRowMax) m_iPeakU = nTotal - 1;
|
||||||
|
}
|
||||||
|
else if(p < m_nAmoMin){
|
||||||
|
m_nAmoMin = p;
|
||||||
|
bYChange = true;
|
||||||
|
|
||||||
|
if(p < m_nRowMin) m_iPeakL = nTotal -1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
m_nOriDots = nTotal;
|
||||||
|
|
||||||
|
if(bYChange && CalcYUnit(m_nAmoMax, m_nAmoMin))
|
||||||
|
return;
|
||||||
|
else if(CalcXUnit())
|
||||||
|
return;
|
||||||
|
|
||||||
|
TRect rectDraw;
|
||||||
|
rectDraw.top = m_nTopBound - 1;
|
||||||
|
rectDraw.bottom = m_nBottomBound + 1;
|
||||||
|
|
||||||
|
if(m_aDots.empty()){
|
||||||
|
rectDraw.left = m_xZero + (nOriCount-1) * m_xScaleGap;
|
||||||
|
rectDraw.right = rectDraw.Left + (nTotal-nOriCount) * m_xScaleGap + 2;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
rectDraw.left = m_xZero + (nLocCount-1) * m_xScaleGap;
|
||||||
|
rectDraw.right = rectDraw.Left + (m_aDots.size()-nLocCount) * m_xScaleGap + 2;
|
||||||
|
}
|
||||||
|
|
||||||
|
InvalidateRect( Handle, &rectDraw, false );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TContentPanel::Resample()
|
||||||
|
{
|
||||||
|
vector<TDot>& dots = g_aDots[m_iType];
|
||||||
|
|
||||||
|
m_aDots.clear();
|
||||||
|
m_aDots.push_back(dots[0]);
|
||||||
|
|
||||||
|
int total = dots.size(),
|
||||||
|
num = total-20; //保留最少20个点
|
||||||
|
|
||||||
|
bool bNoSample = m_iSample==1,
|
||||||
|
bMask = m_iMask>m_iSample;
|
||||||
|
int iS = 0,
|
||||||
|
iM = !bMask,
|
||||||
|
iMask = m_iMask + 1;
|
||||||
|
TDot dtMax = dots[0],
|
||||||
|
dtMin = dots[0];
|
||||||
|
for(int i=1; i<num; i++){
|
||||||
|
if(bNoSample || ++iS==m_iSample){
|
||||||
|
iS = 0;
|
||||||
|
if(bMask && ++iM==iMask)
|
||||||
|
iM = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(dots[i].val>dtMax.val)
|
||||||
|
dtMax = dots[i];
|
||||||
|
else if(dots[i].val<dtMin.val)
|
||||||
|
dtMin = dots[i];
|
||||||
|
|
||||||
|
if(iM && !iS){
|
||||||
|
bool bPushMax = true;
|
||||||
|
|
||||||
|
int nTmp = m_aDots.back().val;
|
||||||
|
if(dtMin.val>=nTmp || dtMax.val==m_nAmoMax)
|
||||||
|
bPushMax = true;
|
||||||
|
else if(dtMax.val<=nTmp || dtMin.val==m_nAmoMin)
|
||||||
|
bPushMax = false;
|
||||||
|
else if(m_aDots.size()>1){
|
||||||
|
int nSec = m_aDots[m_aDots.size()-2].val;
|
||||||
|
if(nTmp<nSec)
|
||||||
|
bPushMax = false;
|
||||||
|
// else
|
||||||
|
// bPushMax = true;
|
||||||
|
}
|
||||||
|
else if(dtMax.val-nTmp < nTmp-dtMin.val)
|
||||||
|
bPushMax = false;
|
||||||
|
// else
|
||||||
|
// bPushMax = true;
|
||||||
|
|
||||||
|
if(bPushMax && dtMax.ts)
|
||||||
|
m_aDots.push_back(dtMax);
|
||||||
|
else if(!bPushMax && dtMin.ts)
|
||||||
|
m_aDots.push_back(dtMin);
|
||||||
|
|
||||||
|
dtMax = dtMin = dots[i];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
for(int i=num; i<total; i++)
|
||||||
|
m_aDots.push_back(dots[i]);
|
||||||
|
|
||||||
|
m_xMaxHint = m_nLeftBound + m_aDots.size() * m_xScaleGap - m_xHalfGap;
|
||||||
|
|
||||||
|
m_nOriDots = total;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
bool __fastcall TContentPanel::CalcXUnit()
|
||||||
|
{
|
||||||
|
int nWidth = ClientWidth - m_nLeftBound - DPIX(4) - 1;
|
||||||
|
vector<TDot>& aDots = m_aDots.empty() ? g_aDots[m_iType] : m_aDots;
|
||||||
|
int total = aDots.size();
|
||||||
|
int xGap = m_xScaleGap;
|
||||||
|
int xMinGap = 3;
|
||||||
|
|
||||||
|
if(total * xGap < nWidth){
|
||||||
|
m_xMaxHint = m_nLeftBound + total * m_xScaleGap - m_xHalfGap;
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
total = g_aDots[m_iType].size();
|
||||||
|
while(xGap>xMinGap && total * xGap >= nWidth){
|
||||||
|
xGap--;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(xGap!=m_xScaleGap){
|
||||||
|
m_xScaleGap = xGap;
|
||||||
|
m_xHalfGap = m_xScaleGap>>1;
|
||||||
|
if(total * xGap < nWidth){
|
||||||
|
// DebugPrint("Change xGap: %d", xGap);
|
||||||
|
|
||||||
|
m_xMaxHint = m_nLeftBound + total * xGap - m_xHalfGap;
|
||||||
|
if(m_iHint>0){
|
||||||
|
m_iHint = 0;
|
||||||
|
m_lblHint[0]->Visible = false;
|
||||||
|
m_lblHint[1]->Visible = false;
|
||||||
|
}
|
||||||
|
|
||||||
|
InvalidateRect( Handle, NULL, true );
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
int nCol = nWidth / xGap;
|
||||||
|
int iSample = m_iSample,
|
||||||
|
iMask = m_iMask;
|
||||||
|
|
||||||
|
while((total-20) / iSample + 20 + 10 > nCol){
|
||||||
|
if(iMask<=iSample)
|
||||||
|
iMask = iSample + 10;
|
||||||
|
|
||||||
|
while(iMask>iSample && (total-20) * iMask / ((iMask+1)*iSample) + 20 + 10 > nCol){
|
||||||
|
iMask--;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(iMask>iSample)
|
||||||
|
break;
|
||||||
|
|
||||||
|
iSample++;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(iSample!=m_iSample || iMask!=m_iMask){
|
||||||
|
m_iMask = iMask;
|
||||||
|
m_iSample = iSample;
|
||||||
|
// DebugPrint("Change sample: %d mask: %d", iSample, iMask);
|
||||||
|
}
|
||||||
|
|
||||||
|
Resample();
|
||||||
|
if(m_iHint>0){
|
||||||
|
m_iHint = 0;
|
||||||
|
m_lblHint[0]->Visible = false;
|
||||||
|
m_lblHint[1]->Visible = false;
|
||||||
|
}
|
||||||
|
|
||||||
|
InvalidateRect( Handle, NULL, true );
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
bool __fastcall TContentPanel::CalcYUnit(int nMax, int nMin, bool bInit)
|
||||||
|
{
|
||||||
|
if(bInit || nMax > m_nRowMax || nMin < m_nRowMin ){ //初始化||范围变动
|
||||||
|
int scale = 100 / m_nAmoUnit;
|
||||||
|
if(nMax==nMin){
|
||||||
|
m_nRowMax = (nMax / m_nAmoUnit + 1) * m_nAmoUnit;
|
||||||
|
m_nRowMin = m_nRowMax - 2 * m_nAmoUnit;
|
||||||
|
if(m_nRowMax>0 && m_nRowMin<0)
|
||||||
|
m_yZero = 25;
|
||||||
|
else
|
||||||
|
m_yZero = 0;
|
||||||
|
}
|
||||||
|
else if(nMax>0 && nMin<0){
|
||||||
|
nMax = (nMax / m_nAmoUnit + ((nMax % m_nAmoUnit) ? 1 : 0)) * m_nAmoUnit;
|
||||||
|
nMin = (nMin / m_nAmoUnit - ((nMin % m_nAmoUnit) ? 1 : 0)) * m_nAmoUnit;
|
||||||
|
|
||||||
|
//找可整除的0轴
|
||||||
|
int m = (nMax - nMin) * scale / 50;
|
||||||
|
if(0 == (nMin * scale) % m){
|
||||||
|
m_nRowMax = nMax;
|
||||||
|
m_nRowMin = nMin;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
int rMax = nMax,
|
||||||
|
rMin = nMin,
|
||||||
|
tmpMin = nMin,
|
||||||
|
rm = m_iType==3 ? 10000 : 10000000;
|
||||||
|
|
||||||
|
//寻找最佳方案
|
||||||
|
bool bUp = g_aDots[m_iType].back().val > 0;
|
||||||
|
for(int m1=m; m1 < (bUp ? rm : rm+1); m1+=2){ //最后的数据为负，优先扩下半区，或者尽量上下同扩
|
||||||
|
if(m1>m && 0 == tmpMin % m1){
|
||||||
|
rMax = nMax;
|
||||||
|
rMin = tmpMin;
|
||||||
|
rm = m1;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
int tmpMax = nMax;
|
||||||
|
for(int m2=m1+2; -tmpMin>=m2 && m2 < (bUp ? rm+1: rm); m2+=2){ //最后的数据为正，优先扩上半区
|
||||||
|
tmpMax += m_nAmoUnit;
|
||||||
|
if(0==tmpMin % m2){
|
||||||
|
rMax = tmpMax;
|
||||||
|
rMin = tmpMin;
|
||||||
|
rm = m2;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
tmpMin -= m_nAmoUnit;
|
||||||
|
}
|
||||||
|
|
||||||
|
m_nRowMax = rMax;
|
||||||
|
m_nRowMin = rMin;
|
||||||
|
m = rm;
|
||||||
|
}
|
||||||
|
|
||||||
|
int n = - m_nRowMin * scale / m;
|
||||||
|
if(n<1) n = 1;
|
||||||
|
else if(n>49) n = 49;
|
||||||
|
m_yZero = 50 - n;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
m_nRowMax = nMax / m_nAmoUnit * m_nAmoUnit;
|
||||||
|
if(nMax > 0 && nMax % m_nAmoUnit) m_nRowMax += m_nAmoUnit;
|
||||||
|
|
||||||
|
m_nRowMin = nMin / m_nAmoUnit * m_nAmoUnit;
|
||||||
|
if(nMin < 0 && nMin % m_nAmoUnit) m_nRowMin -= m_nAmoUnit;
|
||||||
|
|
||||||
|
m_yZero = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
TSize szTxt1 = Canvas->TextExtent(IntToStr(m_nRowMax)),
|
||||||
|
szTxt2 = Canvas->TextExtent(IntToStr(m_nRowMin));
|
||||||
|
// int hhTxt = szTxt1.cy / 2;
|
||||||
|
// if(hhTxt<16){
|
||||||
|
// m_nTopGap = 16 - hhTxt;
|
||||||
|
// m_nTopBound = 16;
|
||||||
|
// }
|
||||||
|
// else{
|
||||||
|
// m_nTopGap = 0;
|
||||||
|
// m_nTopBound = hhTxt;
|
||||||
|
// }
|
||||||
|
m_nTopBound = szTxt1.cy;
|
||||||
|
m_nTopGap = szTxt1.cy / 2;
|
||||||
|
m_nBottomBound = m_nTopBound + m_nGap * m_nRows;
|
||||||
|
m_nLeftBound = max(szTxt1.cx, szTxt2.cx) + 2;
|
||||||
|
m_xZero = m_nLeftBound;
|
||||||
|
m_iAmoUnit = (m_nRowMax - m_nRowMin) / 10;
|
||||||
|
m_yScale = 5.0 * m_nGap / m_iAmoUnit;
|
||||||
|
|
||||||
|
m_nCols = (ClientWidth - m_nLeftBound - DPIX(4)) / m_nGap;
|
||||||
|
m_nRightBound = m_nLeftBound + m_nGap * m_nCols;
|
||||||
|
CalcXUnit();
|
||||||
|
|
||||||
|
InvalidateRect( Handle, NULL, true );
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TContentPanel::PanMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
|
||||||
|
{
|
||||||
|
ResetIdle();
|
||||||
|
|
||||||
|
int iHit = HitTest(X, Y);
|
||||||
|
|
||||||
|
if(m_iHint!=iHit)
|
||||||
|
ShowTimeHint(iHit);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TContentPanel::PanKeyDown(WORD Key)
|
||||||
|
{
|
||||||
|
if(Key==37){
|
||||||
|
if(!m_iHint){
|
||||||
|
vector<TDot>& aDots = m_aDots.empty() ? g_aDots[m_iType] : m_aDots;
|
||||||
|
if(aDots.size()>1)
|
||||||
|
ShowTimeHint(aDots.size()-1);
|
||||||
|
}
|
||||||
|
else if(m_iHint>1){
|
||||||
|
ShowTimeHint(m_iHint-1);
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
else if(Key==39){
|
||||||
|
vector<TDot>& aDots = m_aDots.empty() ? g_aDots[m_iType] : m_aDots;
|
||||||
|
if(m_iHint>0){
|
||||||
|
if(m_iHint<aDots.size()-1)
|
||||||
|
ShowTimeHint(m_iHint+1);
|
||||||
|
}
|
||||||
|
else if(aDots.size()>1){
|
||||||
|
ShowTimeHint(1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
int __fastcall TContentPanel::HitTest(int x, int y)
|
||||||
|
{
|
||||||
|
int iHit = 0;
|
||||||
|
|
||||||
|
if(y>m_nTopBound && y<m_nBottomBound && x>m_nLeftBound && x<m_xMaxHint){
|
||||||
|
int dx = x - m_xZero,
|
||||||
|
p = dx % m_xScaleGap;
|
||||||
|
if(p <= m_xHalfGap)
|
||||||
|
iHit = dx / m_xScaleGap;
|
||||||
|
else
|
||||||
|
iHit = dx / m_xScaleGap + 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
return iHit;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TContentPanel::ShowTimeHint(int iHint)
|
||||||
|
{
|
||||||
|
TRect rectDraw;
|
||||||
|
rectDraw.top = m_nTopBound + 1;
|
||||||
|
rectDraw.bottom = m_nBottomBound - 1;
|
||||||
|
|
||||||
|
if(m_iHint>0){
|
||||||
|
int x = m_xZero + m_iHint * m_xScaleGap;
|
||||||
|
rectDraw.left = x - 1;
|
||||||
|
rectDraw.right = x + 1;
|
||||||
|
|
||||||
|
InvalidateRect( Handle, &rectDraw, false );
|
||||||
|
}
|
||||||
|
|
||||||
|
m_iHint = iHint;
|
||||||
|
|
||||||
|
if(iHint>0){
|
||||||
|
int x = m_xZero + iHint * m_xScaleGap;
|
||||||
|
rectDraw.left = x - 1;
|
||||||
|
rectDraw.right = x + 1;
|
||||||
|
|
||||||
|
InvalidateRect( Handle, &rectDraw, false );
|
||||||
|
|
||||||
|
vector<TDot>& aDots = m_aDots.empty() ? g_aDots[m_iType] : m_aDots;
|
||||||
|
int ts = aDots[iHint].ts - 57600,
|
||||||
|
r = ts % 86400,
|
||||||
|
h, m, s;
|
||||||
|
h = r / 3600, r -= h * 3600;
|
||||||
|
m = r / 60, r -= m * 60;
|
||||||
|
s = r;
|
||||||
|
|
||||||
|
m_lblHint[0]->Top = m_nTopBound - m_lblHint[0]->Height;
|
||||||
|
m_lblHint[0]->Caption = IntToStr(aDots[iHint].val);
|
||||||
|
m_lblHint[1]->Top = m_nBottomBound + 1;
|
||||||
|
m_lblHint[1]->Caption = Format(String("%.2d:%.2d:%.2d"), ARRAYOFCONST((h, m, s)));
|
||||||
|
|
||||||
|
int xMin = m_xZero-1, xMax = m_nRightBound+2;
|
||||||
|
for(int i=0; i<2; i++){
|
||||||
|
int l = x - (m_lblHint[i]->Width>>1);
|
||||||
|
if(l<xMin)
|
||||||
|
l = xMin;
|
||||||
|
else if(l > xMax - m_lblHint[i]->Width)
|
||||||
|
l = xMax - m_lblHint[i]->Width;
|
||||||
|
|
||||||
|
m_lblHint[i]->Left = l;
|
||||||
|
m_lblHint[i]->Visible = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
m_lblHint[0]->Visible = false;
|
||||||
|
m_lblHint[1]->Visible = false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -0,0 +1,72 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef ContentPanelH
|
||||||
|
#define ContentPanelH
|
||||||
|
|
||||||
|
#include <vector>
|
||||||
|
using namespace std;
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
class TContentPanel : public Extctrls::TPanel
|
||||||
|
{
|
||||||
|
private:
|
||||||
|
//显示相关
|
||||||
|
int m_nTopGap,
|
||||||
|
m_nLeftBound,
|
||||||
|
m_nRightBound,
|
||||||
|
m_nTopBound,
|
||||||
|
m_nBottomBound,
|
||||||
|
m_nGap,
|
||||||
|
m_nCols,
|
||||||
|
m_nRows,
|
||||||
|
m_xZero,
|
||||||
|
m_yZero,
|
||||||
|
m_xScaleGap,
|
||||||
|
m_yScaleGap;
|
||||||
|
|
||||||
|
//刻度相关
|
||||||
|
int m_nAmoMax, m_nAmoMin, m_iAmoUnit, m_nRowMax, m_nRowMin, m_nAmoUnit;
|
||||||
|
double m_yScale;
|
||||||
|
//峰值
|
||||||
|
int m_iPeakU, m_iPeakL;
|
||||||
|
//点显示与压缩
|
||||||
|
vector<TDot> m_aDots;
|
||||||
|
int m_nOriDots, m_iType, m_iSample, m_iMask;
|
||||||
|
|
||||||
|
//显示时间
|
||||||
|
int m_iHint, m_xHalfGap, m_xMaxHint;
|
||||||
|
|
||||||
|
TLabel * m_lblHint[2];
|
||||||
|
|
||||||
|
bool __fastcall CalcXUnit();
|
||||||
|
bool __fastcall CalcYUnit(int nMax, int nMin, bool bInit=false);
|
||||||
|
void __fastcall Resample();
|
||||||
|
int __fastcall HitTest(int x, int y);
|
||||||
|
void __fastcall ShowTimeHint(int iHint);
|
||||||
|
|
||||||
|
void __fastcall PanMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
|
||||||
|
|
||||||
|
MESSAGE void __fastcall WMEraseBkgnd(TWMEraseBkgnd &Message);
|
||||||
|
MESSAGE void __fastcall WMSize(TWMSize &Message);
|
||||||
|
|
||||||
|
BEGIN_MESSAGE_MAP
|
||||||
|
MESSAGE_HANDLER(WM_ERASEBKGND, TWMEraseBkgnd, WMEraseBkgnd)
|
||||||
|
MESSAGE_HANDLER(WM_SIZE, TWMSize, WMSize)
|
||||||
|
END_MESSAGE_MAP(Vcl::Extctrls::TPanel)
|
||||||
|
|
||||||
|
protected:
|
||||||
|
virtual void __fastcall CreateWnd();
|
||||||
|
virtual void __fastcall Paint(void);
|
||||||
|
|
||||||
|
public:
|
||||||
|
__fastcall virtual TContentPanel(System::Classes::TComponent* AOwner);
|
||||||
|
__fastcall ~TContentPanel();
|
||||||
|
|
||||||
|
void __fastcall SetView(int iType);
|
||||||
|
void __fastcall UpdateView(int iType, bool bInit);
|
||||||
|
void __fastcall PanKeyDown(WORD Key);
|
||||||
|
|
||||||
|
};
|
||||||
|
|
||||||
|
#endif
|
||||||
@@ -0,0 +1,82 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include <string.h>
|
||||||
|
#include "GameSettings.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void TSettings::FromVersionD(TSettingsD& d)
|
||||||
|
{
|
||||||
|
//开始挂机
|
||||||
|
bWaitNew = d.bWaitNew;
|
||||||
|
bInitCurProfitByStart = d.bInitCurProfitByStart;
|
||||||
|
bInitTabProfitByStart = d.bInitTabProfitByStart;
|
||||||
|
bInitBetChipByStart = d.bInitBetChipByStart;
|
||||||
|
bInitClearTabLog = d.bInitClearTabLog;
|
||||||
|
|
||||||
|
//新局
|
||||||
|
bInitBetByGame = d.bInitBetByGame;
|
||||||
|
bInitChipByGame = d.bInitChipByGame;
|
||||||
|
bInitProfitByGame = d.bInitProfitByGame;
|
||||||
|
bInitLogByGame = d.bInitLogByGame;
|
||||||
|
|
||||||
|
//模拟本金
|
||||||
|
fSimAcc = d.fSimAcc;
|
||||||
|
bSimAccOn = d.bSimAccOn;
|
||||||
|
bNoBetLow = d.bNoBetLow;
|
||||||
|
bStopLow = d.bStopLow;
|
||||||
|
bSyncReal = d.bSyncReal;
|
||||||
|
|
||||||
|
//止赢止损
|
||||||
|
bTotalStopLos = d.bTotalStopLos;
|
||||||
|
bTotalStopWin = d.bTotalStopWin;
|
||||||
|
bTableStopLos = d.bTableStopLos;
|
||||||
|
bTableStopWin = d.bTableStopWin;
|
||||||
|
bAccStopWin = d.bAccStopWin;
|
||||||
|
bAccStopLos = d.bAccStopLos;
|
||||||
|
bU2DStop = d.bU2DStop;
|
||||||
|
bU2DMinPeak = d.bU2DMinPeak;
|
||||||
|
bU2DPause = d.bU2DPause;
|
||||||
|
nTotalStopLos = d.nTotalStopLos;
|
||||||
|
nTotalStopWin = d.nTotalStopWin;
|
||||||
|
nTableStopLos = d.nTableStopLos;
|
||||||
|
nTableStopWin = d.nTableStopWin;
|
||||||
|
nAccStopWin = d.nAccStopWin;
|
||||||
|
nAccStopLos = d.nAccStopLos;
|
||||||
|
nTotalWinPause = d.nTotalWinPause;
|
||||||
|
nTotalLosPause = d.nTotalLosPause;
|
||||||
|
nTableWinPause = d.nTableWinPause;
|
||||||
|
nTableLosPause = d.nTableLosPause;
|
||||||
|
nU2DStop = d.nU2DStop;
|
||||||
|
nU2DMinPeak = d.nU2DMinPeak;
|
||||||
|
nU2DPause = d.nU2DPause;
|
||||||
|
iTotalWinOp = d.iTotalWinOp;
|
||||||
|
iTotalLosOp = d.iTotalLosOp;
|
||||||
|
iTableWinOp = d.iTableWinOp;
|
||||||
|
iTableLosOp = d.iTableLosOp;
|
||||||
|
|
||||||
|
//模实转换
|
||||||
|
bR2SLos = d.bR2SLos;
|
||||||
|
bR2SWin = d.bR2SWin;
|
||||||
|
bS2RLos = d.bS2RLos;
|
||||||
|
bS2RWin = d.bS2RWin;
|
||||||
|
nR2SLos = d.nR2SLos;
|
||||||
|
nR2SWin = d.nR2SWin;
|
||||||
|
nS2RLos = d.nS2RLos;
|
||||||
|
nS2RWin = d.nS2RWin;
|
||||||
|
|
||||||
|
//游台
|
||||||
|
iFloatMode = d.iFloatMode;
|
||||||
|
|
||||||
|
//牌局选项
|
||||||
|
bHoldBet = d.bHoldBet;
|
||||||
|
bHaltBet = d.bHaltBet;
|
||||||
|
nHoldBet = d.nHoldBet;
|
||||||
|
nHaltBet = d.nHaltBet;
|
||||||
|
// bBetsNoTie = d.bBetsNoTie;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
+186
@@ -0,0 +1,186 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef GameSettingsH
|
||||||
|
#define GameSettingsH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
//兼容USER_GAME_FILE VERSION 0x0D
|
||||||
|
class TSettingsD{
|
||||||
|
public:
|
||||||
|
//开始挂机
|
||||||
|
bool bWaitNew, //开始挂机等待新局
|
||||||
|
bInitCurProfitByStart, //开始挂机重置当期赢利
|
||||||
|
bInitTabProfitByStart, //开始挂机重置台桌赢利
|
||||||
|
bInitBetChipByStart; //开始挂机重置打法注码
|
||||||
|
|
||||||
|
//新局
|
||||||
|
bool bInitBetByGame, //新局初始化打法
|
||||||
|
bInitChipByGame, //新局初始化注码
|
||||||
|
bInitProfitByGame, //新局初始化赢利
|
||||||
|
bInitLogByGame; //新局清空台桌日志
|
||||||
|
|
||||||
|
//模拟本金
|
||||||
|
double fSimAcc; //模拟账户余额
|
||||||
|
bool bSimAccOn, //启用模拟本金
|
||||||
|
bNoBetLow, //模拟余额少于注码时不下注
|
||||||
|
bStopLow, //模拟余额低于限红时停止挂机
|
||||||
|
bSyncReal; //实打时同步增减模拟余额
|
||||||
|
|
||||||
|
//止赢止损
|
||||||
|
bool bTotalStopLos, //总体止损
|
||||||
|
bTotalStopWin, //总体止赢
|
||||||
|
bTableStopLos, //单桌止损
|
||||||
|
bTableStopWin, //单桌止赢
|
||||||
|
bAccStopWin, //账户止赢
|
||||||
|
bAccStopLos, //账户止损
|
||||||
|
bU2DStop, //回落止损
|
||||||
|
bU2DMinPeak, //回落止损有最小峰值
|
||||||
|
bU2DPause; //回落止损暂停重启
|
||||||
|
int nTotalStopLos, //总体止损金额
|
||||||
|
nTotalStopWin, //总体止赢金额
|
||||||
|
nTableStopLos, //单桌止损金额
|
||||||
|
nTableStopWin, //单桌止赢金额
|
||||||
|
nAccStopWin, //账户止赢金额
|
||||||
|
nAccStopLos, //账户止损金额
|
||||||
|
nTotalWinPause, //总体止赢暂停分钟数
|
||||||
|
nTotalLosPause, //总体止损暂停分钟数
|
||||||
|
nTableWinPause, //单桌止赢暂停分钟数
|
||||||
|
nTableLosPause, //单桌止损暂停分钟数
|
||||||
|
nU2DStop, //回落止损金额
|
||||||
|
nU2DMinPeak, //回落止损最小峰值
|
||||||
|
nU2DPause; //回落止损暂停分钟数
|
||||||
|
int iTotalWinOp, //总体止赢后操作
|
||||||
|
iTotalLosOp, //总体止损后操作
|
||||||
|
iTableWinOp, //单桌止赢后操作
|
||||||
|
iTableLosOp; //单桌止损后操作
|
||||||
|
|
||||||
|
//模实转换
|
||||||
|
bool bR2SLos, //实打亏损转模拟
|
||||||
|
bR2SWin, //实打赢利转模拟
|
||||||
|
bS2RLos, //模拟亏损转实打
|
||||||
|
bS2RWin; //模拟赢利转实打
|
||||||
|
int nR2SLos, //实打转模拟亏损金额
|
||||||
|
nR2SWin, //实打转模拟赢利金额
|
||||||
|
nS2RLos, //模拟转实打亏损金额
|
||||||
|
nS2RWin; //模拟转实打赢利金额
|
||||||
|
|
||||||
|
//游台
|
||||||
|
bool bFloat; //是否开启游台
|
||||||
|
int iFloatMode; //游台模式：0=不开启游台 1=每项换台 2=洗牌换台 4=输换台 8=赢换台 16=和换台
|
||||||
|
|
||||||
|
//开始挂机
|
||||||
|
bool bInitClearTabLog; //清空台桌下注记录
|
||||||
|
|
||||||
|
//牌局选项
|
||||||
|
bool bHoldBet, //开局X手后开始下注
|
||||||
|
bHaltBet; //开局X手后停止下注
|
||||||
|
int nHoldBet, //开局开始下注手数
|
||||||
|
nHaltBet; //开局停止下注手数
|
||||||
|
|
||||||
|
TSettingsD() {
|
||||||
|
memset( this, 0, sizeof(TSettingsD) );
|
||||||
|
bInitBetChipByStart = bInitTabProfitByStart = bNoBetLow = nTotalWinPause = nTotalLosPause = 1;
|
||||||
|
nTotalStopLos = nTotalStopWin = nTableStopLos = nTableStopWin
|
||||||
|
= nR2SLos = nR2SWin = nS2RLos = nS2RWin = 1000;
|
||||||
|
fSimAcc = 10000;
|
||||||
|
nU2DStop = nU2DMinPeak = nAccStopWin = 2000;
|
||||||
|
nAccStopLos = 500;
|
||||||
|
nU2DPause = 3;
|
||||||
|
|
||||||
|
bInitClearTabLog = 1;
|
||||||
|
bHoldBet = bHaltBet = false;
|
||||||
|
nHoldBet = 5, nHaltBet = 50;
|
||||||
|
};
|
||||||
|
};
|
||||||
|
|
||||||
|
//当前设置
|
||||||
|
class TSettings{
|
||||||
|
public:
|
||||||
|
//开始挂机
|
||||||
|
bool bWaitNew, //开始挂机等待新局
|
||||||
|
bInitCurProfitByStart, //开始挂机重置当期赢利
|
||||||
|
bInitTabProfitByStart, //开始挂机重置台桌赢利
|
||||||
|
bInitBetChipByStart, //开始挂机重置打法注码
|
||||||
|
bInitClearTabLog; //清空台桌下注记录
|
||||||
|
|
||||||
|
//新局
|
||||||
|
bool bInitBetByGame, //新局初始化打法
|
||||||
|
bInitChipByGame, //新局初始化注码
|
||||||
|
bInitProfitByGame, //新局初始化赢利
|
||||||
|
bInitLogByGame; //新局清空台桌日志
|
||||||
|
|
||||||
|
//模拟本金
|
||||||
|
double fSimAcc; //模拟账户余额
|
||||||
|
bool bSimAccOn, //启用模拟本金
|
||||||
|
bNoBetLow, //模拟余额少于注码时不下注
|
||||||
|
bStopLow, //模拟余额低于限红时停止挂机
|
||||||
|
bSyncReal; //实打时同步增减模拟余额
|
||||||
|
|
||||||
|
//止赢止损
|
||||||
|
bool bTotalStopLos, //总体止损
|
||||||
|
bTotalStopWin, //总体止赢
|
||||||
|
bTableStopLos, //单桌止损
|
||||||
|
bTableStopWin, //单桌止赢
|
||||||
|
bAccStopWin, //账户止赢
|
||||||
|
bAccStopLos, //账户止损
|
||||||
|
bU2DStop, //回落止损
|
||||||
|
bU2DMinPeak, //回落止损有最小峰值
|
||||||
|
bU2DPause; //回落止损暂停重启
|
||||||
|
int nTotalStopLos, //总体止损金额
|
||||||
|
nTotalStopWin, //总体止赢金额
|
||||||
|
nTableStopLos, //单桌止损金额
|
||||||
|
nTableStopWin, //单桌止赢金额
|
||||||
|
nAccStopWin, //账户止赢金额
|
||||||
|
nAccStopLos, //账户止损金额
|
||||||
|
nTotalWinPause, //总体止赢暂停分钟数
|
||||||
|
nTotalLosPause, //总体止损暂停分钟数
|
||||||
|
nTableWinPause, //单桌止赢暂停分钟数
|
||||||
|
nTableLosPause, //单桌止损暂停分钟数
|
||||||
|
nU2DStop, //回落止损金额
|
||||||
|
nU2DMinPeak, //回落止损最小峰值
|
||||||
|
nU2DPause; //回落止损暂停分钟数
|
||||||
|
int iTotalWinOp, //总体止赢后操作
|
||||||
|
iTotalLosOp, //总体止损后操作
|
||||||
|
iTableWinOp, //单桌止赢后操作
|
||||||
|
iTableLosOp; //单桌止损后操作
|
||||||
|
|
||||||
|
//模实转换
|
||||||
|
bool bR2SLos, //实打亏损转模拟
|
||||||
|
bR2SWin, //实打赢利转模拟
|
||||||
|
bS2RLos, //模拟亏损转实打
|
||||||
|
bS2RWin; //模拟赢利转实打
|
||||||
|
int nR2SLos, //实打转模拟亏损金额
|
||||||
|
nR2SWin, //实打转模拟赢利金额
|
||||||
|
nS2RLos, //模拟转实打亏损金额
|
||||||
|
nS2RWin; //模拟转实打赢利金额
|
||||||
|
|
||||||
|
//游台
|
||||||
|
int iFloatMode; //游台模式：0=不开启游台 1=每项换台 2=洗牌换台 4=输换台 8=赢换台 16=和换台
|
||||||
|
|
||||||
|
//牌局选项
|
||||||
|
bool bHoldBet, //开局X手后开始下注
|
||||||
|
bHaltBet; //开局X手后停止下注
|
||||||
|
int nHoldBet, //开局开始下注手数
|
||||||
|
nHaltBet; //开局停止下注手数
|
||||||
|
bool bBetsNoTie; //连续下注忽略和
|
||||||
|
|
||||||
|
TSettings() {
|
||||||
|
memset( this, 0, sizeof(TSettings) );
|
||||||
|
bInitBetChipByStart = bInitTabProfitByStart = bNoBetLow = nTotalWinPause = nTotalLosPause = 1;
|
||||||
|
nTotalStopLos = nTotalStopWin = nTableStopLos = nTableStopWin
|
||||||
|
= nR2SLos = nR2SWin = nS2RLos = nS2RWin = 1000;
|
||||||
|
fSimAcc = 10000;
|
||||||
|
nU2DStop = nU2DMinPeak = nAccStopWin = 2000;
|
||||||
|
nAccStopLos = 500;
|
||||||
|
nU2DPause = 3;
|
||||||
|
|
||||||
|
bInitClearTabLog = 1;
|
||||||
|
bHoldBet = bHaltBet = false;
|
||||||
|
nHoldBet = 5, nHaltBet = 50;
|
||||||
|
};
|
||||||
|
|
||||||
|
void FromVersionD(TSettingsD& d);
|
||||||
|
};
|
||||||
|
|
||||||
+2065
File diff suppressed because it is too large
Load Diff
+401
@@ -0,0 +1,401 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef GameUnitH
|
||||||
|
#define GameUnitH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <system.hpp>
|
||||||
|
#include <vector>
|
||||||
|
#include "PolicyUnit.h"
|
||||||
|
#include "SimpleMutex.h"
|
||||||
|
#include "GameSettings.h"
|
||||||
|
|
||||||
|
#define EXCODE_SERVERWAIT 0x01
|
||||||
|
#define EXCODE_OPCOMPLETE 0x010
|
||||||
|
#define EXCODE_USERCANCEL 0x1000
|
||||||
|
#define EXCODE_INSUFFICIENT 0x1001
|
||||||
|
#define EXCODE_REACHWINLIMIT 0x1003
|
||||||
|
#define EXCODE_REACHLOSLIMIT 0x1004
|
||||||
|
#define EXCODE_WEBSITEERROR 0x1005
|
||||||
|
#define EXCODE_GAMEOVER 0x1006
|
||||||
|
#define EXCODE_USERINVALID 0x1007
|
||||||
|
#define EXCODE_USEREXPIRE 0x1008
|
||||||
|
#define EXCODE_USERLOGOUT 0x1009
|
||||||
|
#define EXCODE_NOBETWAY 0x100A
|
||||||
|
#define EXCODE_REACHLIMIT 0x100B
|
||||||
|
#define EXCODE_SERVERDOWN 0x100C
|
||||||
|
#define EXCODE_RESPONSEERR 0x100D
|
||||||
|
#define EXCODE_CANTSETPAGE 0x100E
|
||||||
|
#define EXCODE_UNKNOWN 0x1100
|
||||||
|
|
||||||
|
#define UM_TAB_UPDATE WM_USER+0x2000
|
||||||
|
#define UM_LOG_UPDATE WM_USER+0x2001
|
||||||
|
#define UM_CHART_UPDATE WM_USER+0x2002
|
||||||
|
#define UM_RUN_TIME WM_USER+0x2003
|
||||||
|
#define UM_STATE_UPDATE WM_USER+0x2004
|
||||||
|
#define UM_CHANGE_ROAD WM_USER+0x2005
|
||||||
|
#define UM_MANUAL_SET WM_USER+0x2006
|
||||||
|
#define UM_ENTER_TABLE WM_USER+0x2007
|
||||||
|
#define UM_FLOAT_BET WM_USER+0x2008
|
||||||
|
#define UM_FLOAT_DEAD WM_USER+0x2009
|
||||||
|
#define UM_GLOBAL_BET WM_USER+0x200A
|
||||||
|
#define UM_GLOBAL_DEAD WM_USER+0x200B
|
||||||
|
|
||||||
|
#define UPDATE_ROAD 0
|
||||||
|
#define UPDATE_STATUS 1
|
||||||
|
#define UPDATE_TIME 2
|
||||||
|
#define UPDATE_MANBET 3
|
||||||
|
#define UPDATE_MANRES 4
|
||||||
|
#define UPDATE_RESET 5 //重置数据
|
||||||
|
#define UPDATE_IP 6 //重置独立策略
|
||||||
|
|
||||||
|
#define STATE_AMOUNT 0
|
||||||
|
#define STATE_BET_R 1
|
||||||
|
#define STATE_PEAK 2
|
||||||
|
#define STATE_COUNT 3
|
||||||
|
#define STATE_MISC 4
|
||||||
|
#define STATE_MAN 5
|
||||||
|
#define STATE_REAL 6
|
||||||
|
#define STATE_BALANCE 7
|
||||||
|
#define STATE_LIMIT 8
|
||||||
|
#define STATE_ALL 0x10
|
||||||
|
|
||||||
|
#define LOGEVT_START 0
|
||||||
|
#define LOGEVT_BET 1
|
||||||
|
#define LOGEVT_RES 2
|
||||||
|
#define LOGEVT_ROUND 3
|
||||||
|
#define LOGEVT_DEAD 4
|
||||||
|
#define LOGEVT_STOPWIN 5
|
||||||
|
#define LOGEVT_STOPLOS 6
|
||||||
|
#define LOGEVT_END 7
|
||||||
|
#define LOGEVT_RESET 8
|
||||||
|
#define LOGEVT_SWITCH 9
|
||||||
|
#define LOGEVT_QUASH 10
|
||||||
|
|
||||||
|
#define ST_INIT 0
|
||||||
|
#define ST_NOBET 1
|
||||||
|
#define ST_BETSET 2
|
||||||
|
#define ST_BETTING 3
|
||||||
|
#define ST_BETTED 4
|
||||||
|
#define ST_EXPIRED 5
|
||||||
|
#define ST_PAID 6
|
||||||
|
#define ST_CANCELED 7
|
||||||
|
#define ST_FAILED 8
|
||||||
|
#define ST_QUASH 9 //注单撤销
|
||||||
|
#define ST_ROUND 10
|
||||||
|
#define ST_SHUFFLE 11
|
||||||
|
|
||||||
|
#define TAB_WAIT -1
|
||||||
|
#define TAB_NOWAY -2
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
using namespace std;
|
||||||
|
|
||||||
|
//图表数据
|
||||||
|
typedef struct tagDot{
|
||||||
|
int val; //数值
|
||||||
|
int ts; //时间
|
||||||
|
|
||||||
|
tagDot(){ memset( this, 0, sizeof(tagDot)); };
|
||||||
|
tagDot(int v, int t){ val=v,ts=t; };
|
||||||
|
}TDot;
|
||||||
|
|
||||||
|
//挂机日志
|
||||||
|
typedef struct tagBetLog{
|
||||||
|
int ts; //时间
|
||||||
|
int num; //数值
|
||||||
|
char tno[14];//台桌名
|
||||||
|
char ev; //事件
|
||||||
|
char op; //选项
|
||||||
|
|
||||||
|
tagBetLog(){memset( this, 0, sizeof(tagBetLog));};
|
||||||
|
}TBetLog;
|
||||||
|
|
||||||
|
// 挂机数据
|
||||||
|
typedef struct tagBetData{
|
||||||
|
double profits[8]; //总赢利/总赢利峰值/总赢利谷值/当期赢利/实打总赢利/手工总赢利/当期模拟赢利/当期实打赢利
|
||||||
|
int amounts[3], //总流水/实打流水/手工流水
|
||||||
|
counts[4], //赢计数/输计数/最大连赢/连输计数
|
||||||
|
maxChip, //最大注额
|
||||||
|
dead; //爆缆次数
|
||||||
|
|
||||||
|
tagBetData(){Reset();};
|
||||||
|
void Reset(){memset( this, 0, sizeof(tagBetData));};
|
||||||
|
}TBetData;
|
||||||
|
|
||||||
|
//手工下注
|
||||||
|
typedef struct tagManBet{
|
||||||
|
int chips[3]; //注码 0=庄 1=闲 2=平
|
||||||
|
int state; //状态 ST_INIT/ST_BETTING/ST_BETTED
|
||||||
|
|
||||||
|
tagManBet(){memset( this, 0, sizeof(tagManBet));};
|
||||||
|
}TManBet;
|
||||||
|
|
||||||
|
//阶梯注码
|
||||||
|
class TRankChip{
|
||||||
|
protected:
|
||||||
|
int iType, //注码类型
|
||||||
|
iRank, //注码层数
|
||||||
|
nRnkChip; //当层注码
|
||||||
|
bool bWait; //等待结算
|
||||||
|
TChipPolicy* pPolicy; //注码方案
|
||||||
|
|
||||||
|
public:
|
||||||
|
TRankChip();
|
||||||
|
|
||||||
|
bool __fastcall IsTypeOf(int type){return type==iType;};
|
||||||
|
|
||||||
|
void __fastcall SetPolicy(TChipPolicy* pCP);
|
||||||
|
virtual int __fastcall GetChip(){return bWait || iRank<0 ? -1 : nRnkChip;};
|
||||||
|
virtual void __fastcall Reset() = 0;
|
||||||
|
virtual int __fastcall HandleResult(int res, double wl) = 0;
|
||||||
|
};
|
||||||
|
|
||||||
|
//层级注码
|
||||||
|
class TTierChip : public TRankChip{
|
||||||
|
int nWLDiff, //本层赢输差
|
||||||
|
nAccChip, //累加注码
|
||||||
|
nLos, //当层输额
|
||||||
|
nCount; //当层下注计数
|
||||||
|
|
||||||
|
public:
|
||||||
|
TTierChip();
|
||||||
|
|
||||||
|
virtual void __fastcall Reset();
|
||||||
|
// virtual int __fastcall GetChip(){return nCurrChip;};
|
||||||
|
virtual int __fastcall HandleResult(int res, double wl);
|
||||||
|
};
|
||||||
|
|
||||||
|
//阶梯注码
|
||||||
|
class TLevelChip : public TRankChip{
|
||||||
|
protected:
|
||||||
|
bool bGlobal; //总体计算
|
||||||
|
double fWLDiff; //本层输赢金额
|
||||||
|
|
||||||
|
public:
|
||||||
|
TLevelChip(bool bG=false);
|
||||||
|
|
||||||
|
virtual void __fastcall Reset();
|
||||||
|
virtual void __fastcall CalcChip();
|
||||||
|
virtual void __fastcall CalcLevelChip(bool bLevel, int res);
|
||||||
|
virtual int __fastcall HandleResult(int res, double wl);
|
||||||
|
};
|
||||||
|
|
||||||
|
//组合阶梯注码
|
||||||
|
class TComboChip : public TLevelChip{
|
||||||
|
int iRnkSeq; //当层注码步骤
|
||||||
|
int nRnkMul; //当层倍数
|
||||||
|
|
||||||
|
TChipPolicy* pRnkPolicy; //当层注码方案
|
||||||
|
public:
|
||||||
|
TComboChip(bool bG=false);
|
||||||
|
|
||||||
|
virtual void __fastcall Reset();
|
||||||
|
virtual void __fastcall CalcChip();
|
||||||
|
virtual void __fastcall CalcLevelChip(bool bLevel, int res);
|
||||||
|
int __fastcall GetRankSeq(int res, int iRnk, int iSeq);
|
||||||
|
int __fastcall GetComboChip(int& iRnk, int& iSeq);
|
||||||
|
};
|
||||||
|
|
||||||
|
//赢输次差注码
|
||||||
|
class TWLDiffChip : public TRankChip{
|
||||||
|
protected:
|
||||||
|
bool bGlobal; //总体计算
|
||||||
|
int nWLDiff; //输赢次差
|
||||||
|
|
||||||
|
public:
|
||||||
|
TWLDiffChip(bool bG=false);
|
||||||
|
|
||||||
|
virtual void __fastcall Reset();
|
||||||
|
virtual void __fastcall CalcChip();
|
||||||
|
virtual int __fastcall HandleResult(int res, double wl);
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
//路珠图
|
||||||
|
class TRoadmap{
|
||||||
|
public:
|
||||||
|
vector<char*> aCols;
|
||||||
|
int iCol, iRow, iRoot;
|
||||||
|
bool bBend;
|
||||||
|
|
||||||
|
TRoadmap();
|
||||||
|
void __fastcall DrawMap(char curr, char last);
|
||||||
|
void __fastcall Clear();
|
||||||
|
void __fastcall CheckColumn();
|
||||||
|
};
|
||||||
|
|
||||||
|
//台桌
|
||||||
|
class TTableFrame;
|
||||||
|
class TGame
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
int iGame; //gameId
|
||||||
|
//台桌相关
|
||||||
|
String vid; //房间号
|
||||||
|
String gmcode;
|
||||||
|
int gmstatus; //0=结算 1=下注 2=开牌 11=洗牌 12=维护
|
||||||
|
int timeout;
|
||||||
|
int countdown; //固定倒计时
|
||||||
|
char winCount[3]; //庄闲计数 [0]庄 [1]闲 [2]平
|
||||||
|
String bcard; //庄牌 2-3张 0-9 0,5,2
|
||||||
|
String pcard; //闲牌 3,4,_
|
||||||
|
|
||||||
|
bool bRun, //运行
|
||||||
|
bRev, //反打
|
||||||
|
bPause, //暂停
|
||||||
|
bReset, //是否重置打法注码
|
||||||
|
bBreak; //是否等待新局
|
||||||
|
|
||||||
|
int iRoad;
|
||||||
|
bool bIndPolicy; //是否独立策略
|
||||||
|
int iBetPolicy, iChipPolicy, nChipMul; //独立策略
|
||||||
|
|
||||||
|
//下注相关
|
||||||
|
int iState; //INIT/BETTING/BETTED
|
||||||
|
int iBet; //下注项
|
||||||
|
int nChip; //下注金额
|
||||||
|
int iBetSeq; //下注手数+打法
|
||||||
|
int iChipSeq; //注码步骤
|
||||||
|
// bool bGlobalChip; //是否全局注码
|
||||||
|
bool bReal; //模拟/实打 0=模拟 1=实打
|
||||||
|
vector<char> aBets; //剩余连续下注项
|
||||||
|
|
||||||
|
vector<TManBet> aManBets; //手工下注
|
||||||
|
|
||||||
|
TRankChip * pRankChip; //层级注码
|
||||||
|
|
||||||
|
//统计相关
|
||||||
|
double profit; //当前赢利
|
||||||
|
int seqCount[2]; //连赢/连输计数
|
||||||
|
|
||||||
|
HWND hTable; //台桌句柄，通过消息操作UI
|
||||||
|
CSema* pSema;
|
||||||
|
|
||||||
|
//路单数据
|
||||||
|
vector<char> aRes; //历史结果
|
||||||
|
vector<char> aRoad[4]; //大路/大眼路/小路/小强路
|
||||||
|
char lastRoad[4];
|
||||||
|
TRoadmap aMap[4]; //路珠图
|
||||||
|
|
||||||
|
TGame(int iG);
|
||||||
|
~TGame();
|
||||||
|
|
||||||
|
void __fastcall HandleResult(int op=0); //op =0正常处理 =1数据异常 =2结算超时 =3维护注销
|
||||||
|
void __fastcall AutoBetOn(bool bReset=false);
|
||||||
|
void __fastcall AutoBetOff(bool bBreak=false);
|
||||||
|
void __fastcall ManualBetOn(int chips[]);
|
||||||
|
void __fastcall ManualBetOff();
|
||||||
|
void __fastcall BetResp(bool bSuc);
|
||||||
|
void __fastcall Shuffle();
|
||||||
|
void __fastcall CalcBet();
|
||||||
|
void __fastcall CalcChip();
|
||||||
|
int __fastcall CalcResult(int op);
|
||||||
|
void __fastcall Reset();
|
||||||
|
void __fastcall ResetBet();
|
||||||
|
void __fastcall ClearBets();
|
||||||
|
int __fastcall ParseCard(int c);
|
||||||
|
void __fastcall ClearResults();
|
||||||
|
void __fastcall BuildRoadmap(char wt);
|
||||||
|
bool __fastcall CanBet();
|
||||||
|
TBetLog* __fastcall NewBetLog();
|
||||||
|
void __fastcall GameOn();
|
||||||
|
void __fastcall GameOff();
|
||||||
|
void __fastcall BetResp(int state, int chips[]=NULL); //state 下注状态 0=成功 10=低于限红 11=高于限红 25=已停止下注 26=余额不足 其它=未知
|
||||||
|
void __fastcall Pause(bool bP){bPause = bP;};
|
||||||
|
int __fastcall Color2Bet(TBetPolicy* pBP, char clr); //下三路下注 clr=红蓝 返回庄闲
|
||||||
|
void __fastcall ClearRankChip();
|
||||||
|
TRankChip* __fastcall GetRankChip(int type);
|
||||||
|
void __fastcall ResetIP();
|
||||||
|
};
|
||||||
|
|
||||||
|
class TGameArray : public vector<TGame*>
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
CSema* pSema;
|
||||||
|
vector<TGame*> aGames;
|
||||||
|
TBetData betData; //总输赢状态及计数
|
||||||
|
|
||||||
|
//游台相关
|
||||||
|
bool bFloat, //是否游台
|
||||||
|
bSwitchable; //可否换台
|
||||||
|
int iFloatGame; //下注台号
|
||||||
|
|
||||||
|
//全局注码
|
||||||
|
int iChipSeq, //全局注码步骤
|
||||||
|
seqCount[2]; //连赢/连输计数
|
||||||
|
|
||||||
|
TRankChip * pRankChip; //层级注码
|
||||||
|
|
||||||
|
int runTime, //挂机时长
|
||||||
|
nBetted[3]; //待结算的下注 模拟/实打/全局计算
|
||||||
|
double fCurrProfitPeak; //最大当期赢利
|
||||||
|
|
||||||
|
TGameArray();
|
||||||
|
~TGameArray();
|
||||||
|
|
||||||
|
void __fastcall Init(String sRooms);
|
||||||
|
TGame* __fastcall NewGame(int iG, String vid, int ind);
|
||||||
|
TGame* __fastcall GetGame(int iG);
|
||||||
|
int __fastcall FindGame(int iG, TGame*& pGame);
|
||||||
|
void __fastcall ClearAllGames();
|
||||||
|
void __fastcall CalcBet();
|
||||||
|
void __fastcall Reset();
|
||||||
|
void __fastcall ResetFloat();
|
||||||
|
|
||||||
|
void __fastcall SetSwitchable(bool bS, int iG);
|
||||||
|
bool __fastcall CanFloatBet(int iG);
|
||||||
|
void __fastcall GameOn();
|
||||||
|
void __fastcall GameOff();
|
||||||
|
void __fastcall AllBetOff();
|
||||||
|
void __fastcall ClearRankChip();
|
||||||
|
void __fastcall ResetRankChip();
|
||||||
|
TRankChip* __fastcall GetRankChip(int type);
|
||||||
|
void __fastcall SetCountDown(String s);
|
||||||
|
void __fastcall ResetRankSeq();
|
||||||
|
};
|
||||||
|
|
||||||
|
class TIPGame
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
String vid; //gameId
|
||||||
|
int iBetPolicy, iChipPolicy, nChipMul; //独立策略
|
||||||
|
TGame* pGame;
|
||||||
|
|
||||||
|
TIPGame(String v, int b, int c, int m){pGame=NULL, vid=v,
|
||||||
|
iBetPolicy=b, iChipPolicy=c, nChipMul=m;};
|
||||||
|
TIPGame(TGame* pG){pGame = pG, vid=pG->vid, iBetPolicy=pG->iBetPolicy,
|
||||||
|
iChipPolicy=pG->iChipPolicy, nChipMul=pG->nChipMul;};
|
||||||
|
};
|
||||||
|
|
||||||
|
class TIPGameArray : public vector<TIPGame*>
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
int iPlatform;
|
||||||
|
|
||||||
|
int __fastcall FindGame(String vid, TIPGame*& pIG);
|
||||||
|
void __fastcall ClearAll();
|
||||||
|
void __fastcall AddGame(TGame* pG);
|
||||||
|
void __fastcall DelGame(TGame* pG);
|
||||||
|
void __fastcall AddIPGame(String v, int b, int c, int m);
|
||||||
|
|
||||||
|
TIPGameArray(){iPlatform==0;};
|
||||||
|
~TIPGameArray();
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
int __fastcall Vid2Gid(String vid);
|
||||||
|
|
||||||
|
extern TSettings g_settings; //基本设置
|
||||||
|
extern TGameArray g_aGames;
|
||||||
|
extern double g_fBalance; //账户余额
|
||||||
|
extern int g_iRoad; //全局路珠类型 0=六珠路 1=大路 2=大眼路 3=小路 4=小强路
|
||||||
|
extern bool g_bSimulate, //模拟/实打
|
||||||
|
g_bGameOn, //开始挂机
|
||||||
|
g_bShowSetting, //开始挂机时显示设置页面
|
||||||
|
g_bDeadPause, //全局爆缆暂停
|
||||||
|
g_bBetPause; //总体止赢止损暂停
|
||||||
|
extern int g_MinOnBet, //最小注码
|
||||||
|
g_MaxOnBet; //最大注码
|
||||||
|
extern int g_nRBReport; //实打流水上报
|
||||||
|
extern vector<TDot> g_aDots[4]; //资金图表数据 总赢利/模拟本金/账户余额/总输赢差
|
||||||
|
extern TIPGameArray g_aIPGames; //独立策略台桌
|
||||||
|
#endif
|
||||||
+1320
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,11 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef HookJSH
|
||||||
|
#define HookJSH
|
||||||
|
#include <vcl.h>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern String linkJS_PA, loginJS_PA, baseJS_PA, stopJS_PA, enterJS_PA,
|
||||||
|
userJS_PA, goLinkJS_PA, goLobbyJS_PA, expireJS_PA;
|
||||||
|
extern String stopJS_AB, msgJS_AB, goLinkJS_AB, expireJS_AB;
|
||||||
|
extern String loginJS_DB, userJS_DB, expireJS_DB, msgJS_DB;
|
||||||
|
#endif
|
||||||
@@ -0,0 +1,23 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "InfoFrameUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TInfoFrame *InfoFrame;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TInfoFrame::TInfoFrame(TComponent* Owner)
|
||||||
|
: TFrame(Owner)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TInfoFrame::FrameResize(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_panInfo1->Width = Width - 4;
|
||||||
|
m_panInfo2->Width = Width - 4;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -0,0 +1,816 @@
|
|||||||
|
object InfoFrame: TInfoFrame
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1234
|
||||||
|
Height = 53
|
||||||
|
DoubleBuffered = False
|
||||||
|
Color = clRed
|
||||||
|
Ctl3D = False
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentCtl3D = False
|
||||||
|
ParentDoubleBuffered = False
|
||||||
|
TabOrder = 0
|
||||||
|
OnResize = FrameResize
|
||||||
|
object m_panInfo1: TPanel
|
||||||
|
Left = 2
|
||||||
|
Top = 27
|
||||||
|
Width = 1231
|
||||||
|
Height = 24
|
||||||
|
Align = alCustom
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Color = clBlack
|
||||||
|
DoubleBuffered = False
|
||||||
|
FullRepaint = False
|
||||||
|
ParentBackground = False
|
||||||
|
ParentDoubleBuffered = False
|
||||||
|
TabOrder = 0
|
||||||
|
object m_lblCurProfit: TLabel
|
||||||
|
Left = 77
|
||||||
|
Top = 3
|
||||||
|
Width = 60
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Shape1: TShape
|
||||||
|
Left = 140
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Shape2: TShape
|
||||||
|
Left = 282
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Shape3: TShape
|
||||||
|
Left = 430
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 145
|
||||||
|
Top = 4
|
||||||
|
Width = 69
|
||||||
|
Height = 16
|
||||||
|
Caption = #26368#22823#36194#21033':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblPeakU: TLabel
|
||||||
|
Left = 216
|
||||||
|
Top = 3
|
||||||
|
Width = 66
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Shape4: TShape
|
||||||
|
Left = 542
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Label9: TLabel
|
||||||
|
Left = 287
|
||||||
|
Top = 4
|
||||||
|
Width = 69
|
||||||
|
Height = 16
|
||||||
|
Caption = #26368#22823#20111#25439':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblPeakL: TLabel
|
||||||
|
Left = 358
|
||||||
|
Top = 3
|
||||||
|
Width = 70
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clFuchsia
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Shape5: TShape
|
||||||
|
Left = 666
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 546
|
||||||
|
Top = 4
|
||||||
|
Width = 69
|
||||||
|
Height = 16
|
||||||
|
Caption = #24635#36194#27425#25968':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblWinCount: TLabel
|
||||||
|
Left = 616
|
||||||
|
Top = 3
|
||||||
|
Width = 48
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Shape6: TShape
|
||||||
|
Left = 790
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Label13: TLabel
|
||||||
|
Left = 670
|
||||||
|
Top = 4
|
||||||
|
Width = 69
|
||||||
|
Height = 16
|
||||||
|
Caption = #24635#36755#27425#25968':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblLosCount: TLabel
|
||||||
|
Left = 740
|
||||||
|
Top = 3
|
||||||
|
Width = 48
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Shape7: TShape
|
||||||
|
Left = 892
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Label15: TLabel
|
||||||
|
Left = 795
|
||||||
|
Top = 4
|
||||||
|
Width = 69
|
||||||
|
Height = 16
|
||||||
|
Caption = #26368#22823#36830#36194':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblSWin: TLabel
|
||||||
|
Left = 867
|
||||||
|
Top = 3
|
||||||
|
Width = 21
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Shape8: TShape
|
||||||
|
Left = 992
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Label17: TLabel
|
||||||
|
Left = 897
|
||||||
|
Top = 4
|
||||||
|
Width = 69
|
||||||
|
Height = 16
|
||||||
|
Caption = #26368#22823#36830#36755':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblSLos: TLabel
|
||||||
|
Left = 969
|
||||||
|
Top = 3
|
||||||
|
Width = 21
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Label19: TLabel
|
||||||
|
Left = 998
|
||||||
|
Top = 4
|
||||||
|
Width = 53
|
||||||
|
Height = 16
|
||||||
|
Caption = #29190#32518#25968':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblDead: TLabel
|
||||||
|
Left = 1055
|
||||||
|
Top = 3
|
||||||
|
Width = 39
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 5
|
||||||
|
Top = 4
|
||||||
|
Width = 69
|
||||||
|
Height = 16
|
||||||
|
Caption = #24403#26399#36194#21033':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 434
|
||||||
|
Top = 4
|
||||||
|
Width = 69
|
||||||
|
Height = 16
|
||||||
|
Caption = #26368#22823#27880#30721':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblMaxChip: TLabel
|
||||||
|
Left = 505
|
||||||
|
Top = 3
|
||||||
|
Width = 35
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Shape9: TShape
|
||||||
|
Left = 1096
|
||||||
|
Top = -1
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object m_lblSRProfit: TLabel
|
||||||
|
Left = 1172
|
||||||
|
Top = 3
|
||||||
|
Width = 55
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblSRTitle: TLabel
|
||||||
|
Left = 1101
|
||||||
|
Top = 4
|
||||||
|
Width = 69
|
||||||
|
Height = 16
|
||||||
|
Caption = #24403#21069#27169#25311':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object m_panInfo2: TPanel
|
||||||
|
Left = 2
|
||||||
|
Top = 2
|
||||||
|
Width = 1231
|
||||||
|
Height = 24
|
||||||
|
Align = alCustom
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Color = clBlack
|
||||||
|
DoubleBuffered = False
|
||||||
|
FullRepaint = False
|
||||||
|
ParentBackground = False
|
||||||
|
ParentDoubleBuffered = False
|
||||||
|
TabOrder = 1
|
||||||
|
object m_lblManAmount: TLabel
|
||||||
|
Left = 1035
|
||||||
|
Top = 3
|
||||||
|
Width = 57
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblRealAmount: TLabel
|
||||||
|
Left = 760
|
||||||
|
Top = 3
|
||||||
|
Width = 61
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Label14: TLabel
|
||||||
|
Left = 689
|
||||||
|
Top = 4
|
||||||
|
Width = 69
|
||||||
|
Height = 16
|
||||||
|
Caption = #23454#25171#27969#27700':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Shape13: TShape
|
||||||
|
Left = 294
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Shape14: TShape
|
||||||
|
Left = 170
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Label16: TLabel
|
||||||
|
Left = 827
|
||||||
|
Top = 4
|
||||||
|
Width = 69
|
||||||
|
Height = 16
|
||||||
|
Caption = #23454#25171#36194#21033':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblRealProfit: TLabel
|
||||||
|
Left = 899
|
||||||
|
Top = 3
|
||||||
|
Width = 57
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Shape15: TShape
|
||||||
|
Left = 548
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Label20: TLabel
|
||||||
|
Left = 1101
|
||||||
|
Top = 4
|
||||||
|
Width = 69
|
||||||
|
Height = 16
|
||||||
|
Caption = #25163#24037#36194#21033':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblManProfit: TLabel
|
||||||
|
Left = 1172
|
||||||
|
Top = 3
|
||||||
|
Width = 55
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Shape16: TShape
|
||||||
|
Left = 685
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Shape24: TShape
|
||||||
|
Left = 411
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Label39: TLabel
|
||||||
|
Left = 964
|
||||||
|
Top = 4
|
||||||
|
Width = 69
|
||||||
|
Height = 16
|
||||||
|
Caption = #25163#24037#27969#27700':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Shape17: TShape
|
||||||
|
Left = 822
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Shape19: TShape
|
||||||
|
Left = 1096
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object Shape20: TShape
|
||||||
|
Left = 959
|
||||||
|
Top = 0
|
||||||
|
Width = 2
|
||||||
|
Height = 24
|
||||||
|
Pen.Color = clCream
|
||||||
|
end
|
||||||
|
object m_lblAccountTitle: TLabel
|
||||||
|
Left = 298
|
||||||
|
Top = 4
|
||||||
|
Width = 37
|
||||||
|
Height = 16
|
||||||
|
Hint = #27169#25311#26102#26174#31034#27169#25311#26412#37329#65292#23454#25171#26102#26174#31034#30495#23454#20313#39069
|
||||||
|
Caption = #20313#39069':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 416
|
||||||
|
Top = 4
|
||||||
|
Width = 53
|
||||||
|
Height = 16
|
||||||
|
Caption = #24635#27969#27700':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 553
|
||||||
|
Top = 4
|
||||||
|
Width = 53
|
||||||
|
Height = 16
|
||||||
|
Caption = #24635#36194#21033':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblAccount: TLabel
|
||||||
|
Left = 338
|
||||||
|
Top = 3
|
||||||
|
Width = 71
|
||||||
|
Height = 16
|
||||||
|
Hint = #27169#25311#26102#26174#31034#27169#25311#26412#37329#65292#23454#25171#26102#26174#31034#30495#23454#20313#39069
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblAmount: TLabel
|
||||||
|
Left = 471
|
||||||
|
Top = 3
|
||||||
|
Width = 76
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblTotProfit: TLabel
|
||||||
|
Left = 609
|
||||||
|
Top = 3
|
||||||
|
Width = 73
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblLimits: TLabel
|
||||||
|
Left = 214
|
||||||
|
Top = 3
|
||||||
|
Width = 77
|
||||||
|
Height = 16
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 174
|
||||||
|
Top = 4
|
||||||
|
Width = 37
|
||||||
|
Height = 16
|
||||||
|
Caption = #38480#32418':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_lblAccName: TLabel
|
||||||
|
Left = 45
|
||||||
|
Top = 3
|
||||||
|
Width = 123
|
||||||
|
Height = 16
|
||||||
|
Hint = #36134#21495#21487#28857#20987#21491#38190#22797#21046
|
||||||
|
Alignment = taCenter
|
||||||
|
AutoSize = False
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object Label22: TLabel
|
||||||
|
Left = 5
|
||||||
|
Top = 4
|
||||||
|
Width = 37
|
||||||
|
Height = 16
|
||||||
|
Caption = #36134#21495':'
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clYellow
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
Transparent = True
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -0,0 +1,80 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef InfoFrameUnitH
|
||||||
|
#define InfoFrameUnitH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <System.Classes.hpp>
|
||||||
|
#include <Vcl.Controls.hpp>
|
||||||
|
#include <Vcl.StdCtrls.hpp>
|
||||||
|
#include <Vcl.Forms.hpp>
|
||||||
|
#include <Vcl.ExtCtrls.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TInfoFrame : public TFrame
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TPanel *m_panInfo1;
|
||||||
|
TLabel *m_lblAccountTitle;
|
||||||
|
TLabel *m_lblAccount;
|
||||||
|
TLabel *m_lblAmount;
|
||||||
|
TLabel *Label4;
|
||||||
|
TShape *Shape1;
|
||||||
|
TShape *Shape2;
|
||||||
|
TLabel *Label5;
|
||||||
|
TLabel *m_lblTotProfit;
|
||||||
|
TShape *Shape3;
|
||||||
|
TLabel *Label7;
|
||||||
|
TLabel *m_lblPeakU;
|
||||||
|
TShape *Shape4;
|
||||||
|
TLabel *Label9;
|
||||||
|
TLabel *m_lblPeakL;
|
||||||
|
TShape *Shape5;
|
||||||
|
TLabel *Label11;
|
||||||
|
TLabel *m_lblWinCount;
|
||||||
|
TShape *Shape6;
|
||||||
|
TLabel *Label13;
|
||||||
|
TLabel *m_lblLosCount;
|
||||||
|
TShape *Shape7;
|
||||||
|
TLabel *Label15;
|
||||||
|
TLabel *m_lblSWin;
|
||||||
|
TShape *Shape8;
|
||||||
|
TLabel *Label17;
|
||||||
|
TLabel *m_lblSLos;
|
||||||
|
TLabel *Label19;
|
||||||
|
TLabel *m_lblDead;
|
||||||
|
TLabel *Label3;
|
||||||
|
TLabel *m_lblCurProfit;
|
||||||
|
TPanel *m_panInfo2;
|
||||||
|
TLabel *m_lblManAmount;
|
||||||
|
TLabel *m_lblRealAmount;
|
||||||
|
TLabel *Label14;
|
||||||
|
TShape *Shape13;
|
||||||
|
TShape *Shape14;
|
||||||
|
TLabel *Label16;
|
||||||
|
TLabel *m_lblRealProfit;
|
||||||
|
TShape *Shape15;
|
||||||
|
TLabel *Label20;
|
||||||
|
TLabel *m_lblManProfit;
|
||||||
|
TShape *Shape16;
|
||||||
|
TShape *Shape24;
|
||||||
|
TLabel *Label39;
|
||||||
|
TLabel *Label2;
|
||||||
|
TLabel *m_lblMaxChip;
|
||||||
|
TShape *Shape17;
|
||||||
|
TShape *Shape19;
|
||||||
|
TShape *Shape20;
|
||||||
|
TLabel *m_lblLimits;
|
||||||
|
TLabel *Label10;
|
||||||
|
TLabel *m_lblAccName;
|
||||||
|
TLabel *Label22;
|
||||||
|
TShape *Shape9;
|
||||||
|
TLabel *m_lblSRProfit;
|
||||||
|
TLabel *m_lblSRTitle;
|
||||||
|
void __fastcall FrameResize(TObject *Sender);
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TInfoFrame(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TInfoFrame *InfoFrame;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
+283
@@ -0,0 +1,283 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "LoginUnit.h"
|
||||||
|
#include "UtilityUnit.h"
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include <Clipbrd.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
|
||||||
|
bool g_bAutoLogin = true;
|
||||||
|
|
||||||
|
String GetValueByKey(String key, String str)
|
||||||
|
{
|
||||||
|
String ret;
|
||||||
|
int klen = key.Length(),
|
||||||
|
slen = str.Length();
|
||||||
|
int p0 = 1; //外部搜索key的游标
|
||||||
|
while((p0 = Pos(key, str, p0))!=0){
|
||||||
|
p0 += klen;
|
||||||
|
|
||||||
|
int p1 = p0; //p1为内部搜索游标
|
||||||
|
bool bOk = false;
|
||||||
|
while(p1<slen){
|
||||||
|
char nc = str[p1];
|
||||||
|
++p1;
|
||||||
|
|
||||||
|
if(nc==' ' || nc=='\t' || nc=='\n'){
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
if(nc=='=') //确认赋值语句
|
||||||
|
bOk = true;
|
||||||
|
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
p0 = p1;
|
||||||
|
|
||||||
|
if(!bOk)
|
||||||
|
continue;
|
||||||
|
|
||||||
|
int p2 = 0, len = 0; //p2为第一个引号位置
|
||||||
|
char quote = 0;
|
||||||
|
while(p1<slen){ //寻找两个引号
|
||||||
|
char nc = str[p1];
|
||||||
|
++p1;
|
||||||
|
|
||||||
|
if(!quote){ //第一个引号
|
||||||
|
if(nc==' ' || nc=='\t' || nc=='\n'){
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
else if(nc=='\'' || nc=='\"'){
|
||||||
|
p2 = p1;
|
||||||
|
quote = nc;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
else if(nc==quote){ //第二个引号
|
||||||
|
len = p1 - p2 - 1;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(p2>0 && len>0){
|
||||||
|
ret = str.SubString(p2, len);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return ret;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
__fastcall TLoginForm::TLoginForm(TComponent* Owner, int iPF)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
m_iPlatform = iPF;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TLoginForm::OnLoginClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
if(!m_memTxt->Lines->Count){
|
||||||
|
if(m_iPlatform==PF_PA)
|
||||||
|
ShowMessage("请按提示复制网页内容到编辑框");
|
||||||
|
else if(m_iPlatform==PF_AB)
|
||||||
|
ShowMessage("请按提示复制网页完整地址到编辑框");
|
||||||
|
else if(m_iPlatform==PF_DB)
|
||||||
|
ShowMessage("请按操作说明复制网页地址到编辑框");
|
||||||
|
}
|
||||||
|
else if(m_iPlatform==PF_PA && GetLoginValues(m_memTxt->Text)
|
||||||
|
|| m_iPlatform!=PF_PA && GetUrl(m_memTxt->Text)){
|
||||||
|
ModalResult = mrOk;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
ShowMessage("复制的内容无效，请重新复制");
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TLoginForm::FormCreate(TObject *Sender)
|
||||||
|
{
|
||||||
|
if(m_iPlatform==PF_PA)
|
||||||
|
Caption = Caption + " - PA视讯(AG)";
|
||||||
|
else if(m_iPlatform==PF_AB)
|
||||||
|
Caption = Caption + " - 欧博(ABG)";
|
||||||
|
else if(m_iPlatform==PF_DB)
|
||||||
|
Caption = Caption + " - 多宝(DB)";
|
||||||
|
|
||||||
|
m_cbAuto->Checked = g_bAutoLogin;
|
||||||
|
|
||||||
|
m_imgSpec = new TPngImage();
|
||||||
|
TResourceStream * pResStream = new TResourceStream(int(HInstance),
|
||||||
|
m_iPlatform==PF_DB ? L"PNG_DBSPEC"
|
||||||
|
: m_iPlatform==PF_AB ? L"PNG_ABSPEC"
|
||||||
|
: L"PNG_PASPEC",
|
||||||
|
RT_RCDATA);
|
||||||
|
m_imgSpec->LoadFromStream(pResStream);
|
||||||
|
delete pResStream;
|
||||||
|
|
||||||
|
m_imgBack->Picture->Bitmap->Assign(m_imgSpec);
|
||||||
|
|
||||||
|
m_memTxt->Lines->Add(m_iPlatform==PF_PA ? "请将网页内容复制到这里"
|
||||||
|
: m_iPlatform==PF_DB ? "按操作说明打开调试控制台，复制粘贴以下代码并回车"
|
||||||
|
: "请将网页完整地址复制到这里" );
|
||||||
|
if(m_iPlatform==PF_DB){
|
||||||
|
m_memTxt->Lines->Add(" history.replaceState(0,'',location.href+'&deviceId='+localStorage.getItem('fixedDeviceId'))");
|
||||||
|
m_memTxt->Lines->Add("然后复制网页完整地址到这里");
|
||||||
|
}
|
||||||
|
|
||||||
|
AddClipboardFormatListener(Handle);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TLoginForm::FormClose(TObject *Sender, TCloseAction &Action)
|
||||||
|
{
|
||||||
|
RemoveClipboardFormatListener(Handle);
|
||||||
|
delete m_imgSpec;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TLoginForm::WMClipboardUpdate(TMessage &msg)
|
||||||
|
{
|
||||||
|
Sleep(100); //处理剪贴板延迟呈现
|
||||||
|
|
||||||
|
if(ModalResult!=mrNone)
|
||||||
|
return;
|
||||||
|
|
||||||
|
if( !OpenClipboard( Handle ) ){
|
||||||
|
OutputDebugString(L"OpenClipboard faild!");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
String txt;
|
||||||
|
if( IsClipboardFormatAvailable(CF_UNICODETEXT) ){
|
||||||
|
HANDLE h = GetClipboardData(CF_UNICODETEXT);//获取剪切板数据
|
||||||
|
if(h){
|
||||||
|
txt = static_cast<LPCWSTR>(GlobalLock(h));
|
||||||
|
GlobalUnlock(h);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if( IsClipboardFormatAvailable(CF_TEXT) ){
|
||||||
|
HANDLE h = GetClipboardData(CF_TEXT);//获取剪切板数据
|
||||||
|
if(h){
|
||||||
|
txt = static_cast<char*>(GlobalLock(h));
|
||||||
|
GlobalUnlock(h);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(txt.Length()>0 && ( m_iPlatform==PF_PA && GetLoginValues(txt)
|
||||||
|
|| m_iPlatform!=PF_PA && GetUrl(txt))){
|
||||||
|
SetWindowPos(Application->Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE|SWP_NOMOVE);
|
||||||
|
SetWindowPos(Application->Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE|SWP_NOMOVE);
|
||||||
|
|
||||||
|
ModalResult = mrOk; // mrCancel;//
|
||||||
|
}
|
||||||
|
|
||||||
|
CloseClipboard();//关闭剪贴板
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TLoginForm::AutoClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
g_bAutoLogin = m_cbAuto->Checked;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
bool __fastcall TLoginForm::GetLoginValues(String in)
|
||||||
|
{
|
||||||
|
static String keys[] = {"pid", "tempLangInt", "myGametype", "username", "myDm", "myDofoward"};
|
||||||
|
for(int i=0; i<6; i++){
|
||||||
|
m_values[i] = GetValueByKey(keys[i], in);
|
||||||
|
if(m_values[i].Length()==0)
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
bool __fastcall TLoginForm::GetUrl(String in)
|
||||||
|
{
|
||||||
|
int p0 = in.Pos("https://");
|
||||||
|
if(!p0)
|
||||||
|
return false;
|
||||||
|
|
||||||
|
if(m_iPlatform==PF_AB){
|
||||||
|
int p1 = Pos("\/?", in, p0+8);
|
||||||
|
if(!p1)
|
||||||
|
return false;
|
||||||
|
|
||||||
|
m_url = in.SubString(p0, p1+2 - p0);
|
||||||
|
|
||||||
|
if(!(p0 = Pos("sessionId=", in, p1+2)) && !(p0 = Pos("sessionid=", in, p1+2)))
|
||||||
|
return false;
|
||||||
|
|
||||||
|
if(!(p1 = Pos("&", in, p0+10)) && !(p1 = Pos("#", in, p0+10)))
|
||||||
|
p1 = in.Length()+1;
|
||||||
|
|
||||||
|
if(p1-p0 < 50)
|
||||||
|
return false;
|
||||||
|
|
||||||
|
m_url += in.SubString(p0, p1-p0);
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
else if(m_iPlatform==PF_DB){
|
||||||
|
int p1 = Pos("egret\/", in, p0+8);
|
||||||
|
if(!p1)
|
||||||
|
return false;
|
||||||
|
|
||||||
|
m_url = in.SubString(p0, p1+6 - p0) + "multi"; //"hall"; //
|
||||||
|
|
||||||
|
if(!(p0 = Pos("?params=", in, p1+6)))
|
||||||
|
return false;
|
||||||
|
|
||||||
|
if(!(p1 = Pos("&signature=", in, p0+20)) || !(p1 = Pos("&ttl=", in, p0+20)))
|
||||||
|
return false;
|
||||||
|
|
||||||
|
int p2 = Pos("&deviceId=", in, p1+16);
|
||||||
|
if(!p2)
|
||||||
|
return false;
|
||||||
|
|
||||||
|
if(!(p1 = Pos("&", in, p2+10)))
|
||||||
|
p1 = in.Length()+1;
|
||||||
|
|
||||||
|
m_values[0] = in.SubString(p2+10, p1 - p2 - 10);
|
||||||
|
|
||||||
|
if(p2-p0 < 1700)
|
||||||
|
return false;
|
||||||
|
|
||||||
|
m_url += in.SubString(p0, p2-p0);
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TLoginForm::OnSpecClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
PostMessage(Application->MainFormHandle, UM_OPENMAUAL, 0, 0);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TLoginForm::SpecMouseEnter(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_lblSpec->Font->Color = clHighlight;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TLoginForm::SpecMouseLeave(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_lblSpec->Font->Color = clBlue;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
+104
@@ -0,0 +1,104 @@
|
|||||||
|
object LoginForm: TLoginForm
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = #32593#31449#30331#24405
|
||||||
|
ClientHeight = 470
|
||||||
|
ClientWidth = 600
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poMainFormCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
OnCreate = FormCreate
|
||||||
|
TextHeight = 15
|
||||||
|
object m_lblSpec: TLabel
|
||||||
|
Left = 488
|
||||||
|
Top = 439
|
||||||
|
Width = 97
|
||||||
|
Height = 19
|
||||||
|
Cursor = crHandPoint
|
||||||
|
Hint = #28857#20987#26597#30475#30331#24405#25805#20316#35828#26126
|
||||||
|
ParentCustomHint = False
|
||||||
|
Alignment = taRightJustify
|
||||||
|
AutoSize = False
|
||||||
|
Caption = #26597#30475#25805#20316#35828#26126
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clBlue
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = [fsUnderline]
|
||||||
|
ParentFont = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowAccelChar = False
|
||||||
|
ShowHint = True
|
||||||
|
Layout = tlCenter
|
||||||
|
OnClick = OnSpecClick
|
||||||
|
OnMouseEnter = SpecMouseEnter
|
||||||
|
OnMouseLeave = SpecMouseLeave
|
||||||
|
end
|
||||||
|
object m_panSpec: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 600
|
||||||
|
Height = 298
|
||||||
|
AutoSize = True
|
||||||
|
BevelKind = bkFlat
|
||||||
|
BevelOuter = bvNone
|
||||||
|
ShowCaption = False
|
||||||
|
TabOrder = 0
|
||||||
|
object m_imgBack: TImage
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 596
|
||||||
|
Height = 294
|
||||||
|
ParentCustomHint = False
|
||||||
|
Align = alClient
|
||||||
|
Center = True
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = False
|
||||||
|
Stretch = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object m_memTxt: TMemo
|
||||||
|
Left = 0
|
||||||
|
Top = 302
|
||||||
|
Width = 600
|
||||||
|
Height = 121
|
||||||
|
BevelInner = bvNone
|
||||||
|
BevelKind = bkFlat
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Color = clBlack
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clLime
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
ScrollBars = ssBoth
|
||||||
|
TabOrder = 1
|
||||||
|
WordWrap = False
|
||||||
|
end
|
||||||
|
object m_btnLogin: TButton
|
||||||
|
Left = 269
|
||||||
|
Top = 435
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = #30331#24405
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = OnLoginClick
|
||||||
|
end
|
||||||
|
object m_cbAuto: TCheckBox
|
||||||
|
Left = 16
|
||||||
|
Top = 439
|
||||||
|
Width = 97
|
||||||
|
Height = 17
|
||||||
|
Caption = #19979#27425#33258#21160#30331#24405
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = AutoClick
|
||||||
|
end
|
||||||
|
end
|
||||||
+49
@@ -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
|
||||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,456 @@
|
|||||||
|
object PolicyEditForm: TPolicyEditForm
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderStyle = bsDialog
|
||||||
|
Caption = #31574#30053#32534#36753
|
||||||
|
ClientHeight = 457
|
||||||
|
ClientWidth = 448
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poMainFormCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnMouseMove = FormMouseMove
|
||||||
|
TextHeight = 15
|
||||||
|
object m_lblPolicy: TLabel
|
||||||
|
Left = 22
|
||||||
|
Top = 41
|
||||||
|
Width = 65
|
||||||
|
Height = 23
|
||||||
|
AutoSize = False
|
||||||
|
Caption = #32534#36753#25171#27861#65306
|
||||||
|
Layout = tlCenter
|
||||||
|
end
|
||||||
|
object m_cbPolicy: TComboBox
|
||||||
|
Left = 87
|
||||||
|
Top = 41
|
||||||
|
Width = 165
|
||||||
|
Height = 23
|
||||||
|
AutoDropDown = True
|
||||||
|
AutoCloseUp = True
|
||||||
|
DropDownCount = 20
|
||||||
|
DropDownWidth = 200
|
||||||
|
TabOrder = 0
|
||||||
|
Text = #35831#36873#25321#25171#27861
|
||||||
|
OnChange = OnPolicyChange
|
||||||
|
end
|
||||||
|
object m_btnAdd: TButton
|
||||||
|
Left = 271
|
||||||
|
Top = 41
|
||||||
|
Width = 75
|
||||||
|
Height = 23
|
||||||
|
Caption = #26032#24314
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = OnAddClick
|
||||||
|
end
|
||||||
|
object m_panEdit: TPanel
|
||||||
|
Left = 21
|
||||||
|
Top = 75
|
||||||
|
Width = 408
|
||||||
|
Height = 344
|
||||||
|
BevelKind = bkFlat
|
||||||
|
BevelOuter = bvNone
|
||||||
|
TabOrder = 2
|
||||||
|
OnMouseMove = FormMouseMove
|
||||||
|
object m_bvChip: TBevel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 405
|
||||||
|
Height = 55
|
||||||
|
ParentCustomHint = False
|
||||||
|
ParentShowHint = False
|
||||||
|
Shape = bsFrame
|
||||||
|
ShowHint = False
|
||||||
|
end
|
||||||
|
object m_btnDelRow: TButton
|
||||||
|
Left = 4
|
||||||
|
Top = 313
|
||||||
|
Width = 80
|
||||||
|
Height = 25
|
||||||
|
Caption = #21024#38500#34892
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = OnDelRowClick
|
||||||
|
end
|
||||||
|
object m_btnSave: TButton
|
||||||
|
Left = 201
|
||||||
|
Top = 313
|
||||||
|
Width = 88
|
||||||
|
Height = 25
|
||||||
|
Caption = #20445#23384#25171#27861
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = OnSaveClick
|
||||||
|
end
|
||||||
|
object m_btnSelect: TButton
|
||||||
|
Left = 297
|
||||||
|
Top = 313
|
||||||
|
Width = 103
|
||||||
|
Height = 25
|
||||||
|
Caption = #36873#25321#35813#25171#27861
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = OnSelectClick
|
||||||
|
end
|
||||||
|
object m_sg: TStringGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 55
|
||||||
|
Width = 404
|
||||||
|
Height = 256
|
||||||
|
ParentCustomHint = False
|
||||||
|
BevelInner = bvNone
|
||||||
|
BevelOuter = bvNone
|
||||||
|
ColCount = 4
|
||||||
|
DefaultColWidth = 99
|
||||||
|
DefaultDrawing = False
|
||||||
|
DoubleBuffered = True
|
||||||
|
DrawingStyle = gdsGradient
|
||||||
|
FixedCols = 0
|
||||||
|
RowCount = 10
|
||||||
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goRowSelect, goThumbTracking]
|
||||||
|
ParentDoubleBuffered = False
|
||||||
|
ParentShowHint = False
|
||||||
|
PopupMenu = m_pmSG
|
||||||
|
ScrollBars = ssVertical
|
||||||
|
ShowHint = False
|
||||||
|
TabOrder = 5
|
||||||
|
OnDrawCell = SGDrawCell
|
||||||
|
OnKeyDown = SGKeyDown
|
||||||
|
OnMouseDown = SGMouseDown
|
||||||
|
OnMouseMove = FormMouseMove
|
||||||
|
OnMouseWheelDown = SGMouseWheelDown
|
||||||
|
OnMouseWheelUp = SGMouseWheelUp
|
||||||
|
OnSelectCell = SGSelectCell
|
||||||
|
OnTopLeftChanged = SGTopLeftChanged
|
||||||
|
DefaultTextDrawing = False
|
||||||
|
end
|
||||||
|
object m_pEditor: TEdit
|
||||||
|
Left = 96
|
||||||
|
Top = 83
|
||||||
|
Width = 97
|
||||||
|
Height = 23
|
||||||
|
ParentCustomHint = False
|
||||||
|
AutoSize = False
|
||||||
|
BevelInner = bvNone
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Ctl3D = True
|
||||||
|
ParentCtl3D = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = False
|
||||||
|
TabOrder = 4
|
||||||
|
Visible = False
|
||||||
|
OnExit = EditorExit
|
||||||
|
OnKeyDown = EditorKeyDown
|
||||||
|
OnKeyPress = EditorKeyPress
|
||||||
|
end
|
||||||
|
object m_rgRoad: TRadioGroup
|
||||||
|
Left = 10
|
||||||
|
Top = 1
|
||||||
|
Width = 380
|
||||||
|
Height = 48
|
||||||
|
Align = alCustom
|
||||||
|
Color = clBtnFace
|
||||||
|
Columns = 5
|
||||||
|
Ctl3D = True
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
#29664' '#30424
|
||||||
|
#22823' '#36335
|
||||||
|
#22823#30524#36335
|
||||||
|
#23567' '#36335
|
||||||
|
#23567#24378#36335)
|
||||||
|
ParentBackground = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentCtl3D = False
|
||||||
|
ShowFrame = False
|
||||||
|
TabOrder = 7
|
||||||
|
OnClick = OnRoadClick
|
||||||
|
end
|
||||||
|
object m_panChip: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 404
|
||||||
|
Height = 54
|
||||||
|
Align = alTop
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Ctl3D = True
|
||||||
|
ParentCtl3D = False
|
||||||
|
TabOrder = 6
|
||||||
|
OnClick = OnDeadClick
|
||||||
|
OnMouseMove = FormMouseMove
|
||||||
|
object m_lblDead: TLabel
|
||||||
|
Left = 17
|
||||||
|
Top = 32
|
||||||
|
Width = 39
|
||||||
|
Height = 15
|
||||||
|
Caption = #29190#32518#65306
|
||||||
|
end
|
||||||
|
object Bevel1: TBevel
|
||||||
|
Left = 16
|
||||||
|
Top = 26
|
||||||
|
Width = 375
|
||||||
|
Height = 2
|
||||||
|
end
|
||||||
|
object m_rgDead: TGroupBox
|
||||||
|
Left = 64
|
||||||
|
Top = 30
|
||||||
|
Width = 330
|
||||||
|
Height = 19
|
||||||
|
ShowFrame = False
|
||||||
|
TabOrder = 0
|
||||||
|
object m_lblDead2Tail: TLabel
|
||||||
|
Left = 240
|
||||||
|
Top = 3
|
||||||
|
Width = 65
|
||||||
|
Height = 15
|
||||||
|
Caption = #20998#38047#21518#37325#21551
|
||||||
|
end
|
||||||
|
object m_rbDead0: TRadioButton
|
||||||
|
Left = 8
|
||||||
|
Top = 2
|
||||||
|
Width = 50
|
||||||
|
Height = 17
|
||||||
|
Hint = #20572#27490#19979#27880
|
||||||
|
Caption = #20572#27490
|
||||||
|
Checked = True
|
||||||
|
TabOrder = 0
|
||||||
|
TabStop = True
|
||||||
|
OnClick = OnDeadClick
|
||||||
|
end
|
||||||
|
object m_rbDead1: TRadioButton
|
||||||
|
Tag = 1
|
||||||
|
Left = 71
|
||||||
|
Top = 2
|
||||||
|
Width = 81
|
||||||
|
Height = 17
|
||||||
|
Hint = #26412#23616#26242#20572#65292#26032#23616#37325#26032#24320#22987
|
||||||
|
Caption = #26032#23616#37325#21551
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = OnDeadClick
|
||||||
|
end
|
||||||
|
object m_rbDead2: TRadioButton
|
||||||
|
Tag = 2
|
||||||
|
Left = 163
|
||||||
|
Top = 2
|
||||||
|
Width = 50
|
||||||
|
Height = 17
|
||||||
|
Hint = #26242#20572#21518#37325#21551
|
||||||
|
Caption = #26242#20572
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = OnDeadClick
|
||||||
|
end
|
||||||
|
object m_edDeadPause: TEdit
|
||||||
|
Left = 213
|
||||||
|
Top = 0
|
||||||
|
Width = 23
|
||||||
|
Height = 19
|
||||||
|
Hint = '0-15'#20998#38047
|
||||||
|
Alignment = taCenter
|
||||||
|
AutoSize = False
|
||||||
|
MaxLength = 2
|
||||||
|
NumbersOnly = True
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 3
|
||||||
|
Text = '0'
|
||||||
|
TextHint = '0-30'
|
||||||
|
OnExit = DeadPauseExit
|
||||||
|
OnKeyDown = DeadPauseKeyDown
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object m_cbKind: TComboBox
|
||||||
|
Left = 17
|
||||||
|
Top = 2
|
||||||
|
Width = 80
|
||||||
|
Height = 23
|
||||||
|
AutoComplete = False
|
||||||
|
Style = csDropDownList
|
||||||
|
ItemIndex = 0
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 3
|
||||||
|
Text = #24120#35268#27880#30721
|
||||||
|
OnChange = OnKindChange
|
||||||
|
Items.Strings = (
|
||||||
|
#24120#35268#27880#30721
|
||||||
|
#23618#32423#27880#30721
|
||||||
|
#38454#26799#27880#30721
|
||||||
|
#32452#21512#38454#26799
|
||||||
|
#36194#36755#27425#24046)
|
||||||
|
end
|
||||||
|
object m_cbLevelTotalDiff: TCheckBox
|
||||||
|
Left = 116
|
||||||
|
Top = 5
|
||||||
|
Width = 78
|
||||||
|
Height = 17
|
||||||
|
Hint = #21246#36873#26102#25353#24635#20307#35745#31639#36755#36194#65292#21542#21017#21488#26700#21508#33258#35745#31639#36755#36194
|
||||||
|
Caption = #24635#20307#35745#31639
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 4
|
||||||
|
Visible = False
|
||||||
|
OnClick = OnChipOptionClick
|
||||||
|
end
|
||||||
|
object m_cbLevelInstant: TCheckBox
|
||||||
|
Left = 210
|
||||||
|
Top = 5
|
||||||
|
Width = 78
|
||||||
|
Height = 17
|
||||||
|
Caption = #21363#26102#21319#38477
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 5
|
||||||
|
Visible = False
|
||||||
|
OnClick = OnChipOptionClick
|
||||||
|
end
|
||||||
|
object m_cbLevelIndie: TCheckBox
|
||||||
|
Left = 304
|
||||||
|
Top = 5
|
||||||
|
Width = 78
|
||||||
|
Height = 17
|
||||||
|
Caption = #21319#38477#28165#38646
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 6
|
||||||
|
Visible = False
|
||||||
|
OnClick = OnChipOptionClick
|
||||||
|
end
|
||||||
|
object m_cbTierAccChip: TCheckBox
|
||||||
|
Left = 228
|
||||||
|
Top = 5
|
||||||
|
Width = 92
|
||||||
|
Height = 17
|
||||||
|
Hint = #27599#23618#20928#36755#20540'('#19981#35745#36180#29575')'#32047#21152#33267#20197#21518#21508#23618#27880#30721
|
||||||
|
Caption = #20928#36755#20540#32047#21152
|
||||||
|
Checked = True
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 2
|
||||||
|
Visible = False
|
||||||
|
OnClick = OnChipOptionClick
|
||||||
|
end
|
||||||
|
object m_cbTierWinRet: TCheckBox
|
||||||
|
Left = 116
|
||||||
|
Top = 5
|
||||||
|
Width = 105
|
||||||
|
Height = 17
|
||||||
|
Hint = #20108#23618#20197#19978#21482#35201#36194#27425#25968#22823#20110#36755#27425#25968#23601#22238#31532#19968#23618
|
||||||
|
Caption = #39640#23618#36194#22810#22238#22522
|
||||||
|
Checked = True
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 1
|
||||||
|
Visible = False
|
||||||
|
OnClick = OnChipOptionClick
|
||||||
|
end
|
||||||
|
object m_cbTierLos0: TCheckBox
|
||||||
|
Left = 325
|
||||||
|
Top = 5
|
||||||
|
Width = 70
|
||||||
|
Height = 17
|
||||||
|
Hint = #27599#23618#36755#30340#27425#25968#22810#20110#36194#26102#27880#30721#20026'0'
|
||||||
|
Caption = #36755#22810#25171'0'
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 7
|
||||||
|
Visible = False
|
||||||
|
OnClick = OnChipOptionClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object m_btnInsRow: TButton
|
||||||
|
Left = 92
|
||||||
|
Top = 313
|
||||||
|
Width = 80
|
||||||
|
Height = 25
|
||||||
|
Caption = #25554#20837#34892
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 8
|
||||||
|
OnClick = OnInsRowClick
|
||||||
|
end
|
||||||
|
object m_pCombo: TComboBox
|
||||||
|
Left = 72
|
||||||
|
Top = 146
|
||||||
|
Width = 141
|
||||||
|
Height = 23
|
||||||
|
AutoDropDown = True
|
||||||
|
AutoCloseUp = True
|
||||||
|
Style = csDropDownList
|
||||||
|
DropDownCount = 20
|
||||||
|
DropDownWidth = 200
|
||||||
|
TabOrder = 0
|
||||||
|
TabStop = False
|
||||||
|
Visible = False
|
||||||
|
OnKeyDown = ComboKeyDown
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object m_btnDel: TButton
|
||||||
|
Left = 352
|
||||||
|
Top = 40
|
||||||
|
Width = 75
|
||||||
|
Height = 23
|
||||||
|
Caption = #21024#38500
|
||||||
|
Enabled = False
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = OnDelClick
|
||||||
|
end
|
||||||
|
object m_btnTip: TButton
|
||||||
|
Left = 21
|
||||||
|
Top = 424
|
||||||
|
Width = 408
|
||||||
|
Height = 25
|
||||||
|
Caption = #28857#20987#26597#30475#35268#21017#35828#26126
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clBtnText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 4
|
||||||
|
OnClick = OnTipClick
|
||||||
|
end
|
||||||
|
object m_tsTop: TTabSet
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 448
|
||||||
|
Height = 25
|
||||||
|
ParentCustomHint = False
|
||||||
|
Align = alTop
|
||||||
|
AutoScroll = False
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = False
|
||||||
|
SoftTop = True
|
||||||
|
Style = tsOwnerDraw
|
||||||
|
Tabs.Strings = (
|
||||||
|
#25171#27861
|
||||||
|
#27880#30721)
|
||||||
|
TabPosition = tpTop
|
||||||
|
OnChange = TopChange
|
||||||
|
OnDrawTab = TopDrawTab
|
||||||
|
OnMeasureTab = TopMeasureTab
|
||||||
|
end
|
||||||
|
object m_pmSG: TPopupMenu
|
||||||
|
AutoHotkeys = maManual
|
||||||
|
Left = 301
|
||||||
|
Top = 307
|
||||||
|
object miExport: TMenuItem
|
||||||
|
Caption = #23548#20986#34920#26684'...'
|
||||||
|
OnClick = OnExport
|
||||||
|
end
|
||||||
|
object miImport: TMenuItem
|
||||||
|
Caption = #23548#20837#34920#26684'...'
|
||||||
|
OnClick = OnImport
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -0,0 +1,121 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef PolicyEditFormUnitH
|
||||||
|
#define PolicyEditFormUnitH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#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 "PolicyUnit.h"
|
||||||
|
#include <Vcl.Menus.hpp>
|
||||||
|
#include <Vcl.Tabs.hpp>
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TPolicyEditForm : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TLabel *m_lblPolicy;
|
||||||
|
TComboBox *m_cbPolicy;
|
||||||
|
TButton *m_btnAdd;
|
||||||
|
TPanel *m_panEdit;
|
||||||
|
TButton *m_btnDelRow;
|
||||||
|
TButton *m_btnSave;
|
||||||
|
TRadioGroup *m_rgRoad;
|
||||||
|
TButton *m_btnSelect;
|
||||||
|
TButton *m_btnDel;
|
||||||
|
TStringGrid *m_sg;
|
||||||
|
TPanel *m_panChip;
|
||||||
|
TLabel *m_lblDead;
|
||||||
|
TBevel *m_bvChip;
|
||||||
|
TEdit *m_pEditor;
|
||||||
|
TRadioButton *m_rbDead0;
|
||||||
|
TRadioButton *m_rbDead1;
|
||||||
|
TRadioButton *m_rbDead2;
|
||||||
|
TEdit *m_edDeadPause;
|
||||||
|
TLabel *m_lblDead2Tail;
|
||||||
|
TGroupBox *m_rgDead;
|
||||||
|
TCheckBox *m_cbTierWinRet;
|
||||||
|
TCheckBox *m_cbTierAccChip;
|
||||||
|
TBevel *Bevel1;
|
||||||
|
TButton *m_btnTip;
|
||||||
|
TComboBox *m_cbKind;
|
||||||
|
TComboBox *m_pCombo;
|
||||||
|
TButton *m_btnInsRow;
|
||||||
|
TCheckBox *m_cbLevelTotalDiff;
|
||||||
|
TCheckBox *m_cbLevelInstant;
|
||||||
|
TCheckBox *m_cbLevelIndie;
|
||||||
|
TPopupMenu *m_pmSG;
|
||||||
|
TMenuItem *miExport;
|
||||||
|
TMenuItem *miImport;
|
||||||
|
TCheckBox *m_cbTierLos0;
|
||||||
|
TTabSet *m_tsTop;
|
||||||
|
void __fastcall FormCreate(TObject *Sender);
|
||||||
|
void __fastcall OnDelRowClick(TObject *Sender);
|
||||||
|
void __fastcall OnPolicyChange(TObject *Sender);
|
||||||
|
void __fastcall OnAddClick(TObject *Sender);
|
||||||
|
void __fastcall OnSaveClick(TObject *Sender);
|
||||||
|
void __fastcall SGDrawCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, TRect &Rect, TGridDrawState State);
|
||||||
|
void __fastcall EditorKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
||||||
|
void __fastcall EditorKeyPress(TObject *Sender, System::WideChar &Key);
|
||||||
|
void __fastcall SGMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled);
|
||||||
|
void __fastcall SGMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled);
|
||||||
|
void __fastcall SGTopLeftChanged(TObject *Sender);
|
||||||
|
void __fastcall SGMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
|
||||||
|
void __fastcall OnSelectClick(TObject *Sender);
|
||||||
|
void __fastcall OnDelClick(TObject *Sender);
|
||||||
|
void __fastcall OnRoadClick(TObject *Sender);
|
||||||
|
void __fastcall OnDeadClick(TObject *Sender);
|
||||||
|
void __fastcall EditorExit(TObject *Sender);
|
||||||
|
void __fastcall SGKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
||||||
|
void __fastcall SGSelectCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, bool &CanSelect);
|
||||||
|
void __fastcall DeadPauseExit(TObject *Sender);
|
||||||
|
void __fastcall DeadPauseKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
||||||
|
void __fastcall OnKindChange(TObject *Sender);
|
||||||
|
void __fastcall OnChipOptionClick(TObject *Sender);
|
||||||
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
||||||
|
void __fastcall OnSPEditChange(TObject *Sender);
|
||||||
|
void __fastcall OnAskRoadClick(TObject *Sender);
|
||||||
|
void __fastcall OnTipClick(TObject *Sender);
|
||||||
|
void __fastcall ComboKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
||||||
|
void __fastcall OnInsRowClick(TObject *Sender);
|
||||||
|
void __fastcall OnExport(TObject *Sender);
|
||||||
|
void __fastcall OnImport(TObject *Sender);
|
||||||
|
void __fastcall TopMeasureTab(TObject *Sender, int Index, int &TabWidth);
|
||||||
|
void __fastcall TopDrawTab(TObject *Sender, TCanvas *TabCanvas, TRect &R, int Index, bool Selected);
|
||||||
|
void __fastcall TopChange(TObject *Sender, int NewTab, bool &AllowChange);
|
||||||
|
void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
|
||||||
|
private: // User declarations
|
||||||
|
int m_iType;
|
||||||
|
int m_iSelPolicy;
|
||||||
|
TBasePolicy* m_editPolicy;
|
||||||
|
|
||||||
|
int m_colEdit, m_rowEdit;
|
||||||
|
int m_nRows, m_nNewNum;
|
||||||
|
String m_sOrig, m_sType;;
|
||||||
|
bool m_bRowChanged, m_bColChanged, m_bRoadChanged;
|
||||||
|
|
||||||
|
TRadioButton *m_aDeadRB[3];
|
||||||
|
TFrame *m_frmSP; //ÌØÊâ²ßÂÔÃæ°å
|
||||||
|
|
||||||
|
vector<int> m_aCPMap; //ComboÓ³Éä
|
||||||
|
|
||||||
|
void __fastcall UpdateGrid();
|
||||||
|
String __fastcall AutoNewName();
|
||||||
|
void __fastcall GridEndEdit();
|
||||||
|
void __fastcall SetSelection(int selRow);
|
||||||
|
void __fastcall SGSelCell(int ACol, int ARow);
|
||||||
|
void __fastcall Clear();
|
||||||
|
void __fastcall CalcNewName();
|
||||||
|
void __fastcall InitChipGrid(int kind); //0=ÆÕͨעÂë 1=²ã¼¶×¢Âë
|
||||||
|
void __fastcall ClearSPFrame();
|
||||||
|
void __fastcall SetView(int type);
|
||||||
|
|
||||||
|
public: // User declarations
|
||||||
|
|
||||||
|
__fastcall TPolicyEditForm(TComponent* Owner, int iType);//, int iSel);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
@@ -0,0 +1,72 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "PolicySave.h"
|
||||||
|
#include "PolicyUnit.h"
|
||||||
|
#include "UtilityUnit.h"
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TPolicySaveForm::TPolicySaveForm(TComponent* Owner, int type, String name)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
m_iType = type;
|
||||||
|
m_name = name;
|
||||||
|
m_sType = type==TYPE_P_BET ? "打法" : "注码";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TPolicySaveForm::FormCreate(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_leName->Text = m_name;
|
||||||
|
m_leName->EditLabel->Caption = m_sType + "名称：";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TPolicySaveForm::OnOkClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
vector<TBasePolicy*>& aPolicies = m_iType==TYPE_P_BET ? g_aBetPolicies : g_aChipPolicies;
|
||||||
|
// bool bRepeat = false;
|
||||||
|
int type = -1;
|
||||||
|
m_iPolicy = -1;
|
||||||
|
for(int i=0; i<aPolicies.size(); i++){
|
||||||
|
if(aPolicies[i]->name == m_leName->Text){
|
||||||
|
m_iPolicy = i;
|
||||||
|
type = aPolicies[i]->type;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(m_iPolicy>=0){
|
||||||
|
if(type<2){
|
||||||
|
String msg = "该名称的" + m_sType + "为系统内置，不可覆盖，请修改名称";
|
||||||
|
MessageBox(Handle, msg.c_str(), L"保存", MB_ICONERROR | MB_OK);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
else if(IsPolicyInUse(m_iType, m_iPolicy)){
|
||||||
|
String msg = "该名称的" + m_sType + "正在使用中，不可覆盖，请修改名称";
|
||||||
|
MessageBox(Handle, msg.c_str(), L"保存", MB_ICONERROR | MB_OK);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
vector<int> coms = PolicyInCombo(aPolicies[m_iPolicy]->id);
|
||||||
|
if(!coms.empty()){
|
||||||
|
String msg = "该名称的" + m_sType + "被组合方案使用，不可覆盖，请修改名称";
|
||||||
|
MessageBox(Handle, msg.c_str(), L"保存", MB_ICONERROR | MB_OK);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
String msg = "该名称的" + m_sType + "已存在，是否覆盖？";
|
||||||
|
int mrRet = MessageBox(Handle, msg.c_str(), L"保存", MB_ICONQUESTION | MB_OKCANCEL);
|
||||||
|
if(mrRet==mrCancel)
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
m_name = m_leName->Text;
|
||||||
|
ModalResult = mrOk;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
@@ -0,0 +1,62 @@
|
|||||||
|
object PolicySaveForm: TPolicySaveForm
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderStyle = bsNone
|
||||||
|
Caption = 'PolicySaveForm'
|
||||||
|
ClientHeight = 126
|
||||||
|
ClientWidth = 303
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
Position = poOwnerFormCenter
|
||||||
|
RoundedCorners = rcOn
|
||||||
|
OnCreate = FormCreate
|
||||||
|
TextHeight = 15
|
||||||
|
object m_panBack: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 303
|
||||||
|
Height = 126
|
||||||
|
Align = alClient
|
||||||
|
BevelOuter = bvNone
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
Ctl3D = False
|
||||||
|
ParentCtl3D = False
|
||||||
|
TabOrder = 0
|
||||||
|
object m_btnCancel: TButton
|
||||||
|
Left = 161
|
||||||
|
Top = 78
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = #21462#28040
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object m_btnOk: TButton
|
||||||
|
Left = 73
|
||||||
|
Top = 78
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Caption = #30830#23450
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = OnOkClick
|
||||||
|
end
|
||||||
|
object m_leName: TLabeledEdit
|
||||||
|
Left = 94
|
||||||
|
Top = 34
|
||||||
|
Width = 181
|
||||||
|
Height = 23
|
||||||
|
AutoSize = False
|
||||||
|
EditLabel.Width = 65
|
||||||
|
EditLabel.Height = 23
|
||||||
|
EditLabel.Caption = #25171#27861#21517#31216#65306
|
||||||
|
LabelPosition = lpLeft
|
||||||
|
MaxLength = 63
|
||||||
|
TabOrder = 0
|
||||||
|
Text = ''
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -0,0 +1,34 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef PolicySaveH
|
||||||
|
#define PolicySaveH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#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 TPolicySaveForm : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TLabeledEdit *m_leName;
|
||||||
|
TButton *m_btnOk;
|
||||||
|
TButton *m_btnCancel;
|
||||||
|
TPanel *m_panBack;
|
||||||
|
void __fastcall FormCreate(TObject *Sender);
|
||||||
|
void __fastcall OnOkClick(TObject *Sender);
|
||||||
|
private: // User declarations
|
||||||
|
int m_iType;
|
||||||
|
String m_sType;
|
||||||
|
|
||||||
|
public: // User declarations
|
||||||
|
String m_name;
|
||||||
|
int m_iPolicy;
|
||||||
|
__fastcall TPolicySaveForm(TComponent* Owner, int type, String name);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TPolicySaveForm *PolicySaveForm;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
+1244
File diff suppressed because it is too large
Load Diff
+195
@@ -0,0 +1,195 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef PolicyUnitH
|
||||||
|
#define PolicyUnitH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <system.hpp>
|
||||||
|
#include <vector>
|
||||||
|
|
||||||
|
#define TYPE_P_BET 0
|
||||||
|
#define TYPE_P_CHIP 1
|
||||||
|
|
||||||
|
#define KIND_BET_NOR 0
|
||||||
|
#define KIND_BET_ASK 2
|
||||||
|
#define KIND_BET_DIF 3
|
||||||
|
|
||||||
|
#define KIND_CHIP_NOR 0
|
||||||
|
#define KIND_CHIP_HAN 1
|
||||||
|
#define KIND_CHIP_LEV 2
|
||||||
|
#define KIND_CHIP_COM 3
|
||||||
|
#define KIND_CHIP_WLD 4
|
||||||
|
#define KIND_CHIP_RAN 8
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
using namespace std;
|
||||||
|
|
||||||
|
//策略基类
|
||||||
|
class TBaseRow {
|
||||||
|
public:
|
||||||
|
virtual void Clear()=0;
|
||||||
|
// TBaseRow(){Clear();};
|
||||||
|
};
|
||||||
|
|
||||||
|
class TBasePolicy {
|
||||||
|
public:
|
||||||
|
String name;
|
||||||
|
int type; //存储类型 0=内置免费 1=内置付费 2=用户自定义 3=用户定制
|
||||||
|
int id; //唯一ID
|
||||||
|
int kind; //自定义类型 CHIP:0=普通 1=手数层级 2=组合层级 4=随机 ... BET:0=普通 2=庄闲问路 3=庄闲差...
|
||||||
|
bool actived; //是否激活
|
||||||
|
vector<TBaseRow*> aRows;
|
||||||
|
|
||||||
|
virtual void AddNewRow()=0;
|
||||||
|
virtual TBaseRow* ParseRow(char* data, int& err)=0;
|
||||||
|
virtual int ParsePolicy(char* data, int pt);
|
||||||
|
virtual void Clear();
|
||||||
|
virtual void Reset();
|
||||||
|
|
||||||
|
TBasePolicy(){id=type=kind=0;}
|
||||||
|
~TBasePolicy();
|
||||||
|
};
|
||||||
|
|
||||||
|
//打法策略
|
||||||
|
class TBetRow : public TBaseRow {
|
||||||
|
public:
|
||||||
|
vector<int> cond; //切入点匹配，字符串解析为整形保存
|
||||||
|
// item&0x3=颜色 (item&7C)>>2=个数 item&0x80=是否定长
|
||||||
|
// int bet; //下注方向
|
||||||
|
vector<char> bets; //下注项
|
||||||
|
|
||||||
|
virtual void Clear(){
|
||||||
|
cond.clear();
|
||||||
|
bets.clear();
|
||||||
|
};
|
||||||
|
|
||||||
|
// TBetRow(){};//Clear();};
|
||||||
|
};
|
||||||
|
|
||||||
|
class TBetPolicy : public TBasePolicy{
|
||||||
|
public:
|
||||||
|
int road; //适用路单
|
||||||
|
|
||||||
|
TBetPolicy& operator = (const TBetPolicy& b);
|
||||||
|
bool operator == (const TBetPolicy& b);
|
||||||
|
|
||||||
|
virtual void AddNewRow();
|
||||||
|
virtual TBaseRow* ParseRow(char* data, int& err);
|
||||||
|
vector<int> ParseCondition(char* data);
|
||||||
|
static vector<char> ParseBet(char* data);
|
||||||
|
virtual void Reset();
|
||||||
|
|
||||||
|
TBetPolicy(){road=0;}
|
||||||
|
};
|
||||||
|
|
||||||
|
//注码策略
|
||||||
|
class TChipRow : public TBaseRow{
|
||||||
|
public:
|
||||||
|
int iSeq; //序号
|
||||||
|
int chip; //注码/倍数
|
||||||
|
int iWin; //赢走向
|
||||||
|
int iLos; //输走向
|
||||||
|
|
||||||
|
virtual void Clear(){iSeq=chip=iWin=iLos=0;};
|
||||||
|
|
||||||
|
TChipRow(){Clear();};
|
||||||
|
};
|
||||||
|
|
||||||
|
//层级
|
||||||
|
class TTierRow : public TChipRow{
|
||||||
|
public:
|
||||||
|
int hands; //层级注码手数
|
||||||
|
};
|
||||||
|
|
||||||
|
//阶梯
|
||||||
|
class TLevelRow : public TChipRow{
|
||||||
|
public:
|
||||||
|
int nCondWin; //赢走向条件
|
||||||
|
int nCondLos; //输走向条件
|
||||||
|
};
|
||||||
|
|
||||||
|
//组合
|
||||||
|
class TComboRow : public TLevelRow{
|
||||||
|
public:
|
||||||
|
int id; //方案id
|
||||||
|
int iPolicy; //方案序号
|
||||||
|
TComboRow(){id=iPolicy=-1;};
|
||||||
|
};
|
||||||
|
|
||||||
|
////赢输次差
|
||||||
|
//class TWLDiffRow : public TChipRow{
|
||||||
|
//public:
|
||||||
|
// int nMore; //大于数值
|
||||||
|
// int nLess; //少于数值
|
||||||
|
//};
|
||||||
|
|
||||||
|
class TChipPolicy: public TBasePolicy{
|
||||||
|
public:
|
||||||
|
int dead, //爆缆后操作 0=停止 1=新局重启 2=暂停后重启
|
||||||
|
deadPause; //暂停分钟数
|
||||||
|
|
||||||
|
TChipPolicy& operator = (const TChipPolicy& b);
|
||||||
|
bool operator == (const TChipPolicy& b);
|
||||||
|
|
||||||
|
virtual void AddNewRow();
|
||||||
|
virtual TBaseRow* ParseRow(char* data, int& err);
|
||||||
|
|
||||||
|
TChipPolicy(){dead=deadPause=0;}
|
||||||
|
};
|
||||||
|
|
||||||
|
class TTierPolicy: public TChipPolicy{
|
||||||
|
public:
|
||||||
|
bool bTierWinRet,//二层以上赢利回基
|
||||||
|
bTierAccChip, //输额加入下层注码
|
||||||
|
bTierLos0; //输打0
|
||||||
|
|
||||||
|
TTierPolicy(){bTierWinRet=bTierAccChip=bTierLos0=0;}
|
||||||
|
};
|
||||||
|
|
||||||
|
class TLevelPolicy: public TChipPolicy{
|
||||||
|
public:
|
||||||
|
bool bTotalDiff, //总体计算输赢
|
||||||
|
bInstant; //即时跳转
|
||||||
|
|
||||||
|
TLevelPolicy(){bTotalDiff=bInstant=0;}
|
||||||
|
};
|
||||||
|
|
||||||
|
class TWLDiffPolicy: public TLevelPolicy{
|
||||||
|
public:
|
||||||
|
bool bIndie; //各层分别统计
|
||||||
|
TWLDiffPolicy(){bIndie=0;}
|
||||||
|
};
|
||||||
|
|
||||||
|
typedef struct tagRandomChip{
|
||||||
|
int minChip, //最小随机
|
||||||
|
maxChip; //最大随机
|
||||||
|
tagRandomChip(){minChip=20, maxChip=100;}
|
||||||
|
}TRandomChip;
|
||||||
|
|
||||||
|
typedef struct tagBPAskBet{
|
||||||
|
char bet[2]; //庄全红/闲全红 0=不打 1=庄 2=闲
|
||||||
|
tagBPAskBet(){bet[0]=1, bet[1]=2;}
|
||||||
|
}TBPAskBet;
|
||||||
|
|
||||||
|
typedef struct tagBPDiffBet{
|
||||||
|
BYTE diff[2]; //庄闲差 0=庄大 1=闲大
|
||||||
|
// char bet[2]; //庄大/闲大下注 1=庄 2=闲
|
||||||
|
char bets[2][16]; //庄大/闲大下注 1=庄 2=闲
|
||||||
|
tagBPDiffBet(){diff[0]=diff[1]=5, strcpy(bets[0],"a"), strcpy(bets[1],"s");}
|
||||||
|
}TBPDiffBet;
|
||||||
|
|
||||||
|
void __fastcall LoadPolicies();
|
||||||
|
int __fastcall SavePolicy(int type, TBasePolicy* pPolicy, int index);
|
||||||
|
int __fastcall DeletePolicy(int type, int index);
|
||||||
|
int __fastcall MinChipOfPolicy(int index);
|
||||||
|
vector<int> __fastcall PolicyInCombo(int iPolicy);
|
||||||
|
int __fastcall FindPolicy(int type, int id);
|
||||||
|
void __fastcall CheckComboRow(TComboRow* row);
|
||||||
|
|
||||||
|
extern vector<TBasePolicy*> g_aBetPolicies;
|
||||||
|
extern vector<TBasePolicy*> g_aChipPolicies;
|
||||||
|
extern int g_iBetPolicy; //全局打法
|
||||||
|
extern int g_iChipPolicy;//全局注码
|
||||||
|
extern int g_nChipMul; //全局注码倍数
|
||||||
|
extern TRandomChip g_RandomChip;
|
||||||
|
extern TBPAskBet g_BPAskBet;
|
||||||
|
extern TBPDiffBet g_BPDiffBet;
|
||||||
|
#endif
|
||||||
+1649
File diff suppressed because it is too large
Load Diff
+335
@@ -0,0 +1,335 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <vcl.h>
|
||||||
|
#include <tchar.h>
|
||||||
|
#include <System.IOUtils.hpp>
|
||||||
|
#include <Winternl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "CommonV8Handler.h"
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Vcl.Styles.hpp>
|
||||||
|
#include <Vcl.Themes.hpp>
|
||||||
|
#pragma package(smart_init)
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////////////////////////////
|
||||||
|
// 获取父进程函数
|
||||||
|
typedef struct _PROCESS_BASIC_INFORMATIONWOW64 {
|
||||||
|
NTSTATUS ExitStatus;
|
||||||
|
ULONG64 PebBaseAddress;
|
||||||
|
ULONG64 AffinityMask;
|
||||||
|
LONG BasePriority;
|
||||||
|
ULONG64 UniqueProcessId;
|
||||||
|
ULONG64 InheritedFromUniqueProcessId;
|
||||||
|
} PROCESS_BASIC_INFORMATION_WOW64;
|
||||||
|
|
||||||
|
typedef LONG (WINAPI *PNTQUERYINFORMATIONPROCESS)(HANDLE,UINT,PVOID,ULONG,PULONG);
|
||||||
|
|
||||||
|
DWORD GetParentProcessId(DWORD pid)//获取指定进程的父进程ID
|
||||||
|
{
|
||||||
|
DWORD dwParentPID = 0;
|
||||||
|
HANDLE hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, FALSE, pid);
|
||||||
|
if( !hProcess ){
|
||||||
|
//ShowMessage( "OpenProcess err" );
|
||||||
|
return -1;
|
||||||
|
}
|
||||||
|
PNTQUERYINFORMATIONPROCESS NtQueryInformationProcess = NULL;
|
||||||
|
BOOL bProcWow = FALSE;
|
||||||
|
IsWow64Process(hProcess, &bProcWow);
|
||||||
|
if( bProcWow==TRUE ){
|
||||||
|
//ShowMessage( "32bit" );
|
||||||
|
NtQueryInformationProcess = (PNTQUERYINFORMATIONPROCESS)GetProcAddress(GetModuleHandleA("ntdll.dll"),
|
||||||
|
"NtWow64QueryInformationProcess64");
|
||||||
|
PROCESS_BASIC_INFORMATION_WOW64 pbi;
|
||||||
|
NTSTATUS status = NtQueryInformationProcess(hProcess, ProcessBasicInformation, (PVOID)&pbi,
|
||||||
|
sizeof(PROCESS_BASIC_INFORMATION_WOW64), NULL);
|
||||||
|
//ShowMessage("NtWow64Query return: " + IntToHex((int)status));
|
||||||
|
if( NT_SUCCESS(status) )
|
||||||
|
dwParentPID = (DWORD)pbi.InheritedFromUniqueProcessId;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
//ShowMessage( "64bit" );
|
||||||
|
NtQueryInformationProcess = (PNTQUERYINFORMATIONPROCESS)GetProcAddress(GetModuleHandleA("ntdll.dll"),
|
||||||
|
"NtQueryInformationProcess");
|
||||||
|
PROCESS_BASIC_INFORMATION pbi;
|
||||||
|
NTSTATUS status = NtQueryInformationProcess(hProcess, ProcessBasicInformation, (PVOID)&pbi,
|
||||||
|
sizeof(PROCESS_BASIC_INFORMATION), NULL);
|
||||||
|
//ShowMessage("NtQuery return: " + IntToHex((int)status));
|
||||||
|
if( NT_SUCCESS(status) )
|
||||||
|
dwParentPID = (DWORD)pbi.Reserved3;
|
||||||
|
}
|
||||||
|
CloseHandle(hProcess);
|
||||||
|
|
||||||
|
|
||||||
|
return dwParentPID;
|
||||||
|
}
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////////////////
|
||||||
|
// 定义枚举窗口回调函数
|
||||||
|
BOOL CALLBACK EnumWndProc(HWND hwnd, LPARAM lParam)
|
||||||
|
{
|
||||||
|
HANDLE h = GetProp(hwnd, _TEXT(APPABBR));
|
||||||
|
if(h == (HANDLE)SOFTWARE_ID) {
|
||||||
|
*(HANDLE*)lParam = hwnd;
|
||||||
|
return FALSE;
|
||||||
|
}
|
||||||
|
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////////////////
|
||||||
|
// CEF初始化函数
|
||||||
|
|
||||||
|
bool InitCef()
|
||||||
|
{
|
||||||
|
GlobalCEFApp = new TCefApplication;
|
||||||
|
|
||||||
|
GlobalCEFApp->Cache = String(g_AppPath) + "cache";
|
||||||
|
GlobalCEFApp->Locale = "zh-CN";
|
||||||
|
GlobalCEFApp->AcceptLanguageList = "zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6";
|
||||||
|
|
||||||
|
if(g_bTesting){
|
||||||
|
GlobalCEFApp->LogFile = "debug-" + IntToStr(DateTimeToUnix(Now(), false)) + ".log";
|
||||||
|
GlobalCEFApp->LogSeverity = LOGSEVERITY_INFO; //LOGSEVERITY_VERBOSE; //
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
GlobalCEFApp->LogSeverity = LOGSEVERITY_DISABLE;
|
||||||
|
}
|
||||||
|
|
||||||
|
GlobalCEFApp->CheckCEFFiles = false;
|
||||||
|
// GlobalCEFApp->PackLoadingDisabled = false;
|
||||||
|
GlobalCEFApp->PersistSessionCookies = true;
|
||||||
|
// GlobalCEFApp->PersistUserPreferences = true;
|
||||||
|
GlobalCEFApp->IgnoreCertificateErrors = true;
|
||||||
|
GlobalCEFApp->NoSandbox = true;
|
||||||
|
GlobalCEFApp->MuteAudio = true;
|
||||||
|
GlobalCEFApp->EnableGPU = true;
|
||||||
|
GlobalCEFApp->SitePerProcess = true; //78.0以上iframe运行js代码必须设置
|
||||||
|
GlobalCEFApp->DisableWebSecurity = true; //78.0以上iframe运行js代码必须设置
|
||||||
|
GlobalCEFApp->DisableSiteIsolationTrials = true; //78.0以上iframe运行js代码必须设置
|
||||||
|
GlobalCEFApp->DisableChromeLoginPrompt = true;
|
||||||
|
GlobalCEFApp->EnableMediaStream = false; //true; //
|
||||||
|
GlobalCEFApp->LogProcessInfo = false; //true; //
|
||||||
|
GlobalCEFApp->SingleProcess = false; //true; //
|
||||||
|
GlobalCEFApp->MultiThreadedMessageLoop = true;
|
||||||
|
GlobalCEFApp->WindowlessRenderingEnabled = true;
|
||||||
|
GlobalCEFApp->DisableImageLoading = true;
|
||||||
|
|
||||||
|
GlobalCEFApp->OnWebKitInitialized = _di_TOnWebKitInitializedEvent(new TWebKitInitializeEvent());
|
||||||
|
|
||||||
|
if( !GlobalCEFApp->StartMainProcess() )
|
||||||
|
return false;
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////////////////
|
||||||
|
// 子进程判断函数
|
||||||
|
bool IsRestart()
|
||||||
|
{
|
||||||
|
HWND hWnd = NULL;
|
||||||
|
if(SINGLE_INSTANCE){
|
||||||
|
EnumWindows(EnumWndProc,(LPARAM)&hWnd); //枚举所有运行的窗口
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
String strFullName = TPath::GetFullPath(Application->ExeName);
|
||||||
|
HWND hWnd = FindWindow( (LPCTSTR)strFullName.c_str(), NULL );
|
||||||
|
}
|
||||||
|
|
||||||
|
if( hWnd ){
|
||||||
|
//ShowMessage("restart");
|
||||||
|
|
||||||
|
DWORD wndProcess_id = 0;
|
||||||
|
DWORD parent_id=GetParentProcessId(GetCurrentProcessId());
|
||||||
|
GetWindowThreadProcessId( hWnd, &wndProcess_id );
|
||||||
|
|
||||||
|
if( wndProcess_id==parent_id ){
|
||||||
|
//ShowMessage("SubProcess");
|
||||||
|
InitCef();
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
SendMessage( hWnd, UM_RESTORE, 0, 0 );
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
/////////////////////////////////////////////////////////////////
|
||||||
|
// 程序自动升级函数
|
||||||
|
void StartUpgrade( int mode )
|
||||||
|
{
|
||||||
|
HANDLE hToken = NULL,
|
||||||
|
hTokenDup = NULL;
|
||||||
|
if(OpenProcessToken(GetCurrentProcess(),TOKEN_ALL_ACCESS,&hToken)){
|
||||||
|
if(DuplicateTokenEx(hToken, TOKEN_ALL_ACCESS,NULL, SecurityIdentification,
|
||||||
|
TokenPrimary, &hTokenDup)){
|
||||||
|
STARTUPINFO si;
|
||||||
|
PROCESS_INFORMATION pi;
|
||||||
|
|
||||||
|
ZeroMemory(&si,sizeof(STARTUPINFO));
|
||||||
|
ZeroMemory(&pi,sizeof(PROCESS_INFORMATION));
|
||||||
|
si.cb = sizeof(STARTUPINFO);
|
||||||
|
si.lpDesktop = NULL;
|
||||||
|
si.lpReserved = NULL;
|
||||||
|
si.lpTitle = NULL;
|
||||||
|
si.cbReserved2 = NULL;
|
||||||
|
si.lpReserved2 = NULL;
|
||||||
|
si.dwFlags = STARTF_USESHOWWINDOW;
|
||||||
|
si.wShowWindow = mode==2 ? SW_SHOWNORMAL //显示进程窗口
|
||||||
|
: SW_HIDE; //隐藏进程窗口
|
||||||
|
|
||||||
|
String command = "\"" + (String)g_AppPath + UPDATE_APP_NAME + "\"";
|
||||||
|
if( mode==3 )
|
||||||
|
command += " move ";
|
||||||
|
else if( mode==2 )
|
||||||
|
command += " show ";
|
||||||
|
else
|
||||||
|
command += " hide ";
|
||||||
|
|
||||||
|
command += ExtractFileName(Application->ExeName);
|
||||||
|
command += " " + IntToStr(SOFTWARE_ID);
|
||||||
|
command += " " + String(GLOBAL_VAR_FILE);
|
||||||
|
|
||||||
|
CreateProcessAsUser(hTokenDup,NULL,command.c_str(),NULL,NULL,FALSE,0,NULL,NULL,&si,&pi);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern bool g_bBacData;
|
||||||
|
|
||||||
|
void InitUserPath()
|
||||||
|
{
|
||||||
|
String sAppPath = g_AppPath;
|
||||||
|
String sUserPath = sAppPath + "user\\";
|
||||||
|
if(!DirectoryExists( sUserPath, false)){
|
||||||
|
ForceDirectories( sUserPath );
|
||||||
|
}
|
||||||
|
|
||||||
|
if(g_bBacData){
|
||||||
|
String sDataPath = sAppPath + "data\\";
|
||||||
|
if(!DirectoryExists( sDataPath, false)){
|
||||||
|
ForceDirectories( sDataPath );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
USEFORM("RBmasterMain.cpp", MainForm);
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
bool Startup()
|
||||||
|
{
|
||||||
|
String strAppPath = ExtractFileDir(ParamStr(0)) + "\\";
|
||||||
|
strcpy( g_AppPath, ((AnsiString)strAppPath).c_str() );
|
||||||
|
|
||||||
|
for(int i=1; i<=ParamCount(); i++){
|
||||||
|
String sParam = LowerCase(ParamStr(i));
|
||||||
|
if (sParam == "-d")
|
||||||
|
g_bBacData = true;
|
||||||
|
else if (sParam == "-testing")
|
||||||
|
g_bTesting = true;
|
||||||
|
}
|
||||||
|
|
||||||
|
if( IsRestart() ){
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
|
||||||
|
try{
|
||||||
|
Application->Initialize();
|
||||||
|
|
||||||
|
int tag = 0;
|
||||||
|
if( !InitCef() ){
|
||||||
|
tag = -5;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
InitUserPath();
|
||||||
|
Application->Title = APPNAME;
|
||||||
|
Application->CreateForm(__classid(TMainForm), &MainForm);
|
||||||
|
Application->MainFormOnTaskBar = true;
|
||||||
|
tag = Application->MainForm->Tag;
|
||||||
|
}
|
||||||
|
|
||||||
|
bool bRun(0);
|
||||||
|
if( tag==0 ){
|
||||||
|
bRun = true;
|
||||||
|
}
|
||||||
|
else if( tag==-1 ){
|
||||||
|
ShowMessage( "加载应用模块失败，退出程序" );
|
||||||
|
}
|
||||||
|
else if( tag==-3 ){
|
||||||
|
ShowMessage( "连接服务器失败，退出程序" );
|
||||||
|
}
|
||||||
|
else if( tag==-4 ){
|
||||||
|
ShowMessage( "软件已停止运行，退出程序" );
|
||||||
|
}
|
||||||
|
else if( tag==-5 ){
|
||||||
|
ShowMessage( "初始化网络模块失败，退出程序" );
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
int mode = tag;
|
||||||
|
if( tag==4 ){
|
||||||
|
int mrRet = MessageBox(NULL, L"检测到有新的版本，是否立即升级？",
|
||||||
|
APPNAME, MB_ICONQUESTION | MB_YESNO);
|
||||||
|
if( mrRet==mrYes )
|
||||||
|
mode = 2;
|
||||||
|
else
|
||||||
|
mode = 0;
|
||||||
|
}
|
||||||
|
else if( tag==2 ){
|
||||||
|
ShowMessage( "软件运行需更新相关组件，即将启动更新程序" );
|
||||||
|
}
|
||||||
|
|
||||||
|
bRun = mode<=1;
|
||||||
|
|
||||||
|
if( mode>0 )
|
||||||
|
StartUpgrade( mode );
|
||||||
|
}
|
||||||
|
|
||||||
|
if(bRun){
|
||||||
|
if(!g_bTesting)
|
||||||
|
SetProp(Application->MainFormHandle, _TEXT(APPABBR), (HANDLE)SOFTWARE_ID);
|
||||||
|
|
||||||
|
Application->HintHidePause = 10000;
|
||||||
|
Application->MainForm->Show();
|
||||||
|
|
||||||
|
Application->Run();
|
||||||
|
|
||||||
|
if(!g_bTesting)
|
||||||
|
RemoveProp(Application->MainFormHandle, _TEXT(APPABBR));
|
||||||
|
}
|
||||||
|
|
||||||
|
DestroyGlobalCEFApp();
|
||||||
|
}
|
||||||
|
catch (Exception &exception)
|
||||||
|
{
|
||||||
|
Application->ShowException(&exception);
|
||||||
|
}
|
||||||
|
catch (...)
|
||||||
|
{
|
||||||
|
try
|
||||||
|
{
|
||||||
|
throw Exception("");
|
||||||
|
}
|
||||||
|
catch (Exception &exception)
|
||||||
|
{
|
||||||
|
Application->ShowException(&exception);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
|
||||||
|
{
|
||||||
|
if( !Startup() )
|
||||||
|
return -1;
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
+4348
File diff suppressed because it is too large
Load Diff
+139908
File diff suppressed because it is too large
Load Diff
+313
@@ -0,0 +1,313 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef RBmasterMainH
|
||||||
|
#define RBmasterMainH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <System.Classes.hpp>
|
||||||
|
#include <Vcl.Controls.hpp>
|
||||||
|
#include <Vcl.StdCtrls.hpp>
|
||||||
|
#include <Vcl.Forms.hpp>
|
||||||
|
#include <Vcl.Buttons.hpp>
|
||||||
|
#include <Vcl.ExtCtrls.hpp>
|
||||||
|
#include <Vcl.ComCtrls.hpp>
|
||||||
|
#include <Vcl.Grids.hpp>
|
||||||
|
|
||||||
|
#include "CEF4DelphiVCLRTL.hpp"
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include <Vcl.Mask.hpp>
|
||||||
|
#include <Vcl.WinXCtrls.hpp>
|
||||||
|
#include "InfoFrameUnit.h"
|
||||||
|
#include <Vcl.TitleBarCtrls.hpp>
|
||||||
|
#include <Vcl.Imaging.jpeg.hpp>
|
||||||
|
#include <Vcl.Imaging.pngimage.hpp>
|
||||||
|
#include <Vcl.Menus.hpp>
|
||||||
|
#include "TableUnit.h"
|
||||||
|
|
||||||
|
#include <vector>
|
||||||
|
#include <set>
|
||||||
|
using namespace std;
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TMainForm : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TBitBtn *m_btnSetting;
|
||||||
|
TScrollBox *m_panWeb;
|
||||||
|
TComboBox *m_cbRoad;
|
||||||
|
TToggleSwitch *m_tsMode;
|
||||||
|
TComboBox *m_cbBetWays;
|
||||||
|
TLabel *m_lblBetWayEdit;
|
||||||
|
TPanel *m_panTopBar;
|
||||||
|
TLabel *m_lblBetChipEdit;
|
||||||
|
TComboBox *m_cbBetChips;
|
||||||
|
TBitBtn *m_btnChart;
|
||||||
|
TBitBtn *m_btnLogs;
|
||||||
|
TBitBtn *m_btnStart;
|
||||||
|
TBitBtn *m_btnTables;
|
||||||
|
TBitBtn *m_btnLogin;
|
||||||
|
TLabeledEdit *m_leChipMul;
|
||||||
|
TLabel *m_lblTips;
|
||||||
|
TBevel *Bevel1;
|
||||||
|
TBevel *Bevel2;
|
||||||
|
TBevel *Bevel3;
|
||||||
|
TBevel *Bevel4;
|
||||||
|
TBitBtn *m_btnManual;
|
||||||
|
TBitBtn *m_btnReset;
|
||||||
|
TImage *m_imgBack;
|
||||||
|
TLabel *m_lblAnnonce;
|
||||||
|
TPopupMenu *m_pmCopyAccount;
|
||||||
|
TMenuItem *m_miCopyAccount;
|
||||||
|
TInfoFrame *m_frmInfo;
|
||||||
|
TPopupMenu *m_pmLogin;
|
||||||
|
TMenuItem *m_miPA;
|
||||||
|
TMenuItem *m_miAB;
|
||||||
|
TMenuItem *m_miDB;
|
||||||
|
TPopupMenu *m_pmRight;
|
||||||
|
TMenuItem *m_miRun;
|
||||||
|
TMenuItem *m_miRunOnly;
|
||||||
|
TMenuItem *m_miStop;
|
||||||
|
TMenuItem *N1;
|
||||||
|
TMenuItem *N2;
|
||||||
|
TMenuItem *m_miUnselect;
|
||||||
|
TMenuItem *m_miStopOthers;
|
||||||
|
TMenuItem *N3;
|
||||||
|
TMenuItem *m_miSpec;
|
||||||
|
TMenuItem *N4;
|
||||||
|
|
||||||
|
void __fastcall FormCreate(TObject *Sender);
|
||||||
|
void __fastcall FormResize(TObject *Sender);
|
||||||
|
void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
|
||||||
|
void __fastcall FormShow(TObject *Sender);
|
||||||
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
||||||
|
void __fastcall OnStartClick(TObject *Sender);
|
||||||
|
void __fastcall WebMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled);
|
||||||
|
void __fastcall WebMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled);
|
||||||
|
void __fastcall OnRoadChange(TObject *Sender);
|
||||||
|
void __fastcall OnTablesClick(TObject *Sender);
|
||||||
|
void __fastcall OnModeClick(TObject *Sender);
|
||||||
|
void __fastcall OnPolicyEditClick(TObject *Sender);
|
||||||
|
void __fastcall OnPolicyChange(TObject *Sender);
|
||||||
|
void __fastcall OnLoginClick(TObject *Sender);
|
||||||
|
void __fastcall OnChipMulExit(TObject *Sender);
|
||||||
|
void __fastcall OnLogsClick(TObject *Sender);
|
||||||
|
void __fastcall OnChartClick(TObject *Sender);
|
||||||
|
void __fastcall OnSettingClick(TObject *Sender);
|
||||||
|
void __fastcall OnResetClick(TObject *Sender);
|
||||||
|
void __fastcall OnManualClick(TObject *Sender);
|
||||||
|
void __fastcall OnChipMulKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
||||||
|
void __fastcall OnAccountClick(TObject *Sender);
|
||||||
|
void __fastcall FormActivate(TObject *Sender);
|
||||||
|
void __fastcall OnLoginMenuClick(TObject *Sender);
|
||||||
|
void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
||||||
|
void __fastcall OnComboCloseUp(TObject *Sender);
|
||||||
|
void __fastcall WebMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
|
||||||
|
void __fastcall WebMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
|
||||||
|
void __fastcall WebMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
|
||||||
|
void __fastcall OnPMRightClick(TObject *Sender);
|
||||||
|
void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
|
||||||
|
|
||||||
|
private: // User declarations
|
||||||
|
HINSTANCE m_hPMDll;
|
||||||
|
|
||||||
|
int m_iWSVelo, m_iWS;
|
||||||
|
String m_loginValues[6];
|
||||||
|
String m_url;
|
||||||
|
|
||||||
|
String m_sActCode; //授权码
|
||||||
|
int m_tExpire; //授权有效期
|
||||||
|
UINT m_idDevice; //设备号
|
||||||
|
|
||||||
|
WORD m_version[4];
|
||||||
|
|
||||||
|
TThread *m_vlThread, //Velo线程
|
||||||
|
*m_jsThread, //JS处理线程
|
||||||
|
*m_urThread, //用户鉴权线程
|
||||||
|
*m_dpThread; //数据解析线程
|
||||||
|
|
||||||
|
TTimer *m_pDPTimer, //数据处理定时器
|
||||||
|
*m_pUtilTimer; //工具定时器，Tag区分用途
|
||||||
|
int m_tmChart, //图表定时计数
|
||||||
|
m_tmWebFocus, //网页激活定时计数
|
||||||
|
// m_tmWebTimeout, //网页无数据超时
|
||||||
|
m_tmCount, //秒计数器
|
||||||
|
m_tmLogon, //登录时间
|
||||||
|
m_tmDailyLogin, //每日登录时间
|
||||||
|
m_tmDailyReport, //每日上报时间
|
||||||
|
m_tmDeadPause, //爆缆暂停定时计数
|
||||||
|
m_tmBetPause; //止赢止损暂停定时计数
|
||||||
|
|
||||||
|
bool m_bWebLogon,
|
||||||
|
m_bClosing,
|
||||||
|
m_bManual;
|
||||||
|
|
||||||
|
int m_nTabCols, m_nTabGap;
|
||||||
|
int m_iWindowState,
|
||||||
|
m_nLeft, m_nTop, m_nWidth, m_nHeight;
|
||||||
|
|
||||||
|
TChromium *m_chrm;
|
||||||
|
|
||||||
|
TStringList* m_v8Values;
|
||||||
|
HANDLE m_hV8Sema;
|
||||||
|
HANDLE m_hV8ValueSema;
|
||||||
|
// bool m_bV8Waiting;
|
||||||
|
|
||||||
|
vector<TTableFrame*> m_aTables;
|
||||||
|
vector<TThread*> m_aABThreads; //自动下注线程组
|
||||||
|
int m_nTabShow, m_nTabRun;
|
||||||
|
|
||||||
|
bool m_bDragReady, //鼠标拖动进行选择操作
|
||||||
|
m_bDraging;
|
||||||
|
TTimer *m_pDragTimer; //拖动滚屏定时器
|
||||||
|
int m_iLastSel; //最后单独选中台桌
|
||||||
|
set<int> m_aSelTabs; //选中台桌集合
|
||||||
|
|
||||||
|
int __fastcall TryUpdate();
|
||||||
|
int __fastcall InitGlobalVars();
|
||||||
|
|
||||||
|
void __fastcall DPTimerProc(TObject* Sender);
|
||||||
|
void __fastcall UtilTimerProc(TObject* Sender);
|
||||||
|
bool __fastcall WebsiteVelocity();
|
||||||
|
void __fastcall InitBrowser();
|
||||||
|
void __fastcall FileUserWeb( bool bSave=false );
|
||||||
|
void __fastcall FileGame( bool bSave=false );
|
||||||
|
void __fastcall FileUserVars( bool bSave=false );
|
||||||
|
void __fastcall ClearABThread(int hThread=0);
|
||||||
|
void __fastcall ClearDPThread();
|
||||||
|
void __fastcall ClearJSThread();
|
||||||
|
void __fastcall ClearVLThread();
|
||||||
|
void __fastcall ClearURThread();
|
||||||
|
void __fastcall ClearUtilTimer();
|
||||||
|
void __fastcall OnWSConnectError();
|
||||||
|
void __fastcall ResetGame();
|
||||||
|
void __fastcall GameOn();
|
||||||
|
void __fastcall GameOff(int iReason=0); //用户停止或退出
|
||||||
|
void __fastcall ManualOn();
|
||||||
|
void __fastcall ManualOff();
|
||||||
|
void __fastcall StartJSThread(int iOp);
|
||||||
|
void __fastcall ResetTableGrid();
|
||||||
|
void __fastcall ClearGames();
|
||||||
|
Int8 __fastcall ShowSettingForm();
|
||||||
|
void __fastcall ChangeWebsite();
|
||||||
|
int __fastcall GetTimeCount();
|
||||||
|
void __fastcall RBReport();
|
||||||
|
void __fastcall LoadUrl();
|
||||||
|
void __fastcall RecalcMultiRate();
|
||||||
|
void __fastcall SetTableFocus();
|
||||||
|
int __fastcall GetTableByPos(int x, int y);
|
||||||
|
void __fastcall SelectTables(int x1, int y1, int x2, int y2);
|
||||||
|
void __fastcall ClearSelect();
|
||||||
|
void __fastcall SetScrollTimer(int y);
|
||||||
|
void __fastcall ScrollTimerProc(TObject* Sender);
|
||||||
|
void __fastcall ReleaseV8ValueSema();
|
||||||
|
void __fastcall GetDeviceId();
|
||||||
|
void __fastcall Logout();
|
||||||
|
void __fastcall SetExpireJS();
|
||||||
|
bool __fastcall StopWebLoad();
|
||||||
|
|
||||||
|
void __fastcall WebAfterCreated(TObject *Sender, const _di_ICefBrowser browser);
|
||||||
|
void __fastcall WebBeforeClose(TObject* Sender, const _di_ICefBrowser browse);
|
||||||
|
void __fastcall WebBeforeContextMenu(TObject* Sender, const _di_ICefBrowser browser,
|
||||||
|
const _di_ICefFrame frame, const _di_ICefContextMenuParams params,
|
||||||
|
const _di_ICefMenuModel model);
|
||||||
|
void __fastcall WebBeforePopup(TObject* Sender, const _di_ICefBrowser browser, const _di_ICefFrame frame,
|
||||||
|
int popup_id, const ustring targetUrl, const ustring targetFrameName,
|
||||||
|
TCefWindowOpenDisposition targetDisposition, bool userGesture, const TCefPopupFeatures &popupFeatures,
|
||||||
|
TCefWindowInfo &windowInfo, _di_ICefClient &client, TCefBrowserSettings &settings,
|
||||||
|
_di_ICefDictionaryValue &extra_info, bool &noJavascriptAccess, bool &Result);
|
||||||
|
void __fastcall WebLoadEnd(TObject* Sender, const _di_ICefBrowser browser,
|
||||||
|
const _di_ICefFrame frame, int httpStatusCode);
|
||||||
|
void __fastcall WebProcessMessageReceived(TObject* Sender, const _di_ICefBrowser browser,
|
||||||
|
const _di_ICefFrame frame, TCefProcessId sourceProcess, const _di_ICefProcessMessage message,
|
||||||
|
/* out */ bool &Result);
|
||||||
|
void __fastcall WebResourceLoadComplete(TObject* Sender, const _di_ICefBrowser browser,
|
||||||
|
const _di_ICefFrame frame, const _di_ICefRequest request, const _di_ICefResponse response,
|
||||||
|
TCefUrlRequestStatus status, __int64 receivedContentLength);
|
||||||
|
// void __fastcall WebAddressChange(TObject* Sender, const _di_ICefBrowser browser,
|
||||||
|
// const _di_ICefFrame frame, const ustring url);
|
||||||
|
void __fastcall WebJsdialog(TObject* Sender, const _di_ICefBrowser browser, const ustring originUrl,
|
||||||
|
TCefJsDialogType dialogType, const ustring messageText, const ustring defaultPromptText,
|
||||||
|
_di_ICefJsDialogCallback callback, /* out */ bool &suppressMessage, /* out */ bool &Result);
|
||||||
|
void __fastcall WebLoadError(TObject* Sender, const _di_ICefBrowser browser, const _di_ICefFrame frame,
|
||||||
|
TCefErrorCode errorCode, const ustring errorText, const ustring failedUrl);
|
||||||
|
// void __fastcall WebPaint(TObject* Sender, const _di_ICefBrowser browser, TCefPaintElementType type_,
|
||||||
|
// NativeUInt dirtyRectsCount, const PCefRectArray dirtyRects, const void * buffer,
|
||||||
|
// int width, int height);
|
||||||
|
// void __fastcall WebGetViewRect(TObject* Sender, const _di_ICefBrowser browser, TCefRect &rect);
|
||||||
|
void __fastcall WebBeforeResourceLoad(TObject* Sender, const _di_ICefBrowser browser, const _di_ICefFrame frame,
|
||||||
|
const _di_ICefRequest request, const _di_ICefCallback callback, /* out */ TCefReturnValue &Result);
|
||||||
|
|
||||||
|
|
||||||
|
//消息处理
|
||||||
|
MESSAGE void __fastcall FormMove(TWMMove &msg);
|
||||||
|
MESSAGE void __fastcall SystemMenuCommand(TWMMenuSelect &Msg);
|
||||||
|
|
||||||
|
MESSAGE void __fastcall UMAutoBetEnd(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMRestoreWindow(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMVelocity(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMJsHandled(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMCheckCEF(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMSetBet(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMAddTable(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMStatus(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMWebLogin(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMHttpReturn(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMUserConfirm(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMWebDead(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMPolicyChanged(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMLogUpdate(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMStateUpdate(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMChartUpdate(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMEnterTable(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMFloatBet(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMFloatDead(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMGlobalBet(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMGlobalDead(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMShowActCode(TMessage &msg);
|
||||||
|
MESSAGE void __fastcall UMOpenManual(TMessage &msg);
|
||||||
|
|
||||||
|
BEGIN_MESSAGE_MAP
|
||||||
|
MESSAGE_HANDLER(WM_MOVE, TWMMove, FormMove)
|
||||||
|
MESSAGE_HANDLER(WM_SYSCOMMAND,TWMMenuSelect,SystemMenuCommand)
|
||||||
|
|
||||||
|
MESSAGE_HANDLER(UM_AUTOBETEND, TMessage, UMAutoBetEnd)
|
||||||
|
MESSAGE_HANDLER(UM_RESTORE, TMessage, UMRestoreWindow)
|
||||||
|
MESSAGE_HANDLER(UM_VELOCITY, TMessage, UMVelocity)
|
||||||
|
MESSAGE_HANDLER(UM_JSHANDLED, TMessage, UMJsHandled)
|
||||||
|
MESSAGE_HANDLER(UM_CHECKCEF, TMessage, UMCheckCEF)
|
||||||
|
MESSAGE_HANDLER(UM_SETBET, TMessage, UMSetBet)
|
||||||
|
MESSAGE_HANDLER(UM_ADDTABLE, TMessage, UMAddTable)
|
||||||
|
MESSAGE_HANDLER(UM_STATUS, TMessage, UMStatus)
|
||||||
|
MESSAGE_HANDLER(UM_WEBLOGIN, TMessage, UMWebLogin)
|
||||||
|
MESSAGE_HANDLER(UM_USERCONFIRM, TMessage, UMUserConfirm)
|
||||||
|
MESSAGE_HANDLER(UM_HTTPRETURN, TMessage, UMHttpReturn)
|
||||||
|
MESSAGE_HANDLER(UM_WEBDEAD, TMessage, UMWebDead)
|
||||||
|
MESSAGE_HANDLER(UM_POLICYCHANGED, TMessage, UMPolicyChanged)
|
||||||
|
MESSAGE_HANDLER(UM_LOG_UPDATE, TMessage, UMLogUpdate)
|
||||||
|
MESSAGE_HANDLER(UM_STATE_UPDATE, TMessage, UMStateUpdate)
|
||||||
|
MESSAGE_HANDLER(UM_CHART_UPDATE, TMessage, UMChartUpdate)
|
||||||
|
MESSAGE_HANDLER(UM_ENTER_TABLE, TMessage, UMEnterTable)
|
||||||
|
MESSAGE_HANDLER(UM_FLOAT_BET, TMessage, UMFloatBet)
|
||||||
|
MESSAGE_HANDLER(UM_FLOAT_DEAD, TMessage, UMFloatDead)
|
||||||
|
MESSAGE_HANDLER(UM_GLOBAL_BET, TMessage, UMGlobalBet)
|
||||||
|
MESSAGE_HANDLER(UM_GLOBAL_DEAD, TMessage, UMGlobalDead)
|
||||||
|
MESSAGE_HANDLER(UM_SUBFORMSHOWN, TMessage, UMShowActCode)
|
||||||
|
MESSAGE_HANDLER(UM_OPENMAUAL, TMessage, UMOpenManual)
|
||||||
|
END_MESSAGE_MAP(TForm)
|
||||||
|
|
||||||
|
protected:
|
||||||
|
virtual void __fastcall CreateParams(TCreateParams &Params);
|
||||||
|
|
||||||
|
public: // User declarations
|
||||||
|
String m_strStatus;
|
||||||
|
|
||||||
|
__fastcall TMainForm(TComponent* Owner);
|
||||||
|
|
||||||
|
_di_ICefFrame __fastcall GetCefFrame( int type );
|
||||||
|
TStringList* __fastcall GetJQValue( String& str, _di_ICefFrame frame );
|
||||||
|
int __fastcall IsPolicyInUse(int type, int iPolicy);
|
||||||
|
// bool __fastcall IsGameOn(){return m_bGameOn && !m_tmBetPause;};
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TMainForm *MainForm;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
@@ -0,0 +1,234 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include "ResetFormUnit.h"
|
||||||
|
#include "GameUnit.h"
|
||||||
|
#include "UtilityUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TResetForm *ResetForm = NULL;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TResetForm::TResetForm(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TResetForm::SelAllClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_cbAmount->Checked = true;
|
||||||
|
m_cbTotProfit->Checked = true;
|
||||||
|
m_cbPeakU->Checked = true;
|
||||||
|
m_cbPeakL->Checked = true;
|
||||||
|
m_cbRealAmount->Checked = true;
|
||||||
|
m_cbRealProfit->Checked = true;
|
||||||
|
m_cbManAmount->Checked = true;
|
||||||
|
m_cbManProfit->Checked = true;
|
||||||
|
m_cbWinCount->Checked = true;
|
||||||
|
m_cbLosCount->Checked = true;
|
||||||
|
m_cbSWin->Checked = true;
|
||||||
|
m_cbSLos->Checked = true;
|
||||||
|
m_cbCurrProfit->Checked = true;
|
||||||
|
m_cbMaxChip->Checked = true;
|
||||||
|
m_cbSRProfit->Checked = true;
|
||||||
|
m_cbDead->Checked = true;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TResetForm::SelNoneClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_cbAmount->Checked = false;
|
||||||
|
m_cbTotProfit->Checked = false;
|
||||||
|
m_cbPeakU->Checked = false;
|
||||||
|
m_cbPeakL->Checked = false;
|
||||||
|
m_cbRealAmount->Checked = false;
|
||||||
|
m_cbRealProfit->Checked = false;
|
||||||
|
m_cbManAmount->Checked = false;
|
||||||
|
m_cbManProfit->Checked = false;
|
||||||
|
m_cbWinCount->Checked = false;
|
||||||
|
m_cbLosCount->Checked = false;
|
||||||
|
m_cbSWin->Checked = false;
|
||||||
|
m_cbSLos->Checked = false;
|
||||||
|
m_cbCurrProfit->Checked = false;
|
||||||
|
m_cbMaxChip->Checked = false;
|
||||||
|
m_cbSRProfit->Checked = false;
|
||||||
|
m_cbDead->Checked = false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TResetForm::OkClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
for(int i=0; i<g_aGames.size(); i++){
|
||||||
|
TGame* pG = g_aGames[i];
|
||||||
|
if(m_cbTotProfit->Checked)
|
||||||
|
pG->profit = 0;
|
||||||
|
if(m_cbSWin->Checked)
|
||||||
|
pG->seqCount[0] = 0;
|
||||||
|
if(m_cbSLos->Checked)
|
||||||
|
pG->seqCount[1] = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(m_cbAmount->Checked){
|
||||||
|
g_aGames.betData.amounts[0] = 0;
|
||||||
|
// g_aGames.betData.profits[0] = 0;
|
||||||
|
// PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_AMOUNT, 0);
|
||||||
|
}
|
||||||
|
if(m_cbAmount->Checked || m_cbTotProfit->Checked){
|
||||||
|
g_aGames.betData.profits[0] = 0;
|
||||||
|
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_AMOUNT, 0);
|
||||||
|
PostMessage(Application->MainFormHandle, UM_CHART_UPDATE, 0, 1);
|
||||||
|
}
|
||||||
|
|
||||||
|
if(m_cbPeakU->Checked || m_cbPeakL->Checked){
|
||||||
|
if(m_cbPeakU->Checked) g_aGames.betData.profits[1] = 0;
|
||||||
|
if(m_cbPeakL->Checked) g_aGames.betData.profits[2] = 0;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_PEAK, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
if(m_cbRealAmount->Checked){
|
||||||
|
g_aGames.betData.amounts[1] = 0;
|
||||||
|
g_aGames.betData.profits[4] = 0;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_REAL, 1);
|
||||||
|
}
|
||||||
|
else if(m_cbRealProfit->Checked){
|
||||||
|
g_aGames.betData.profits[4] = 0;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_REAL, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
if(m_cbManAmount->Checked){
|
||||||
|
g_aGames.betData.amounts[2] = 0;
|
||||||
|
g_aGames.betData.profits[5] = 0;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_MAN, 1);
|
||||||
|
}
|
||||||
|
else if(m_cbManProfit->Checked){
|
||||||
|
g_aGames.betData.profits[5] = 0;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_MAN, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
if(m_cbCurrProfit->Checked){
|
||||||
|
g_aGames.betData.profits[3] = g_aGames.fCurrProfitPeak = 0;
|
||||||
|
g_aGames.betData.profits[6] = g_aGames.betData.profits[7] = 0;
|
||||||
|
for(int i=0; i<g_aGames.size(); i++){ //台桌数据也要重置
|
||||||
|
TGame* pG = g_aGames[i];
|
||||||
|
pG->profit = 0;
|
||||||
|
if(pG->hTable) PostMessage(pG->hTable, UM_TAB_UPDATE, UPDATE_RESET, 0);
|
||||||
|
}
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_BET_R, 0);
|
||||||
|
}
|
||||||
|
else if(m_cbSRProfit->Checked){
|
||||||
|
g_aGames.betData.profits[6] = g_aGames.betData.profits[7] = 0;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_BET_R, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
if(m_cbWinCount->Checked || m_cbLosCount->Checked){
|
||||||
|
if(m_cbWinCount->Checked){
|
||||||
|
g_aGames.betData.counts[0] = 0;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_COUNT, 0);
|
||||||
|
}
|
||||||
|
if(m_cbLosCount->Checked){
|
||||||
|
g_aGames.betData.counts[1] = 0;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_COUNT, 1);
|
||||||
|
}
|
||||||
|
PostMessage(Application->MainFormHandle, UM_CHART_UPDATE, 3, 1);
|
||||||
|
}
|
||||||
|
if(m_cbSWin->Checked){
|
||||||
|
g_aGames.betData.counts[2] = 0;
|
||||||
|
for(int i=0; i<g_aGames.size(); i++){ //台桌数据也要重置
|
||||||
|
TGame* pG = g_aGames[i];
|
||||||
|
pG->seqCount[0] = 0;
|
||||||
|
if(pG->hTable) PostMessage(pG->hTable, UM_TAB_UPDATE, UPDATE_RESET, 1);
|
||||||
|
}
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_COUNT, 2);
|
||||||
|
}
|
||||||
|
if(m_cbSLos->Checked){
|
||||||
|
g_aGames.betData.counts[3] = 0;
|
||||||
|
for(int i=0; i<g_aGames.size(); i++){ //台桌数据也要重置
|
||||||
|
TGame* pG = g_aGames[i];
|
||||||
|
pG->seqCount[1] = 0;
|
||||||
|
if(pG->hTable) PostMessage(pG->hTable, UM_TAB_UPDATE, UPDATE_RESET, 2);
|
||||||
|
}
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_COUNT, 3);
|
||||||
|
}
|
||||||
|
if(m_cbMaxChip->Checked){
|
||||||
|
g_aGames.betData.maxChip = 0;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_MISC, 0);
|
||||||
|
}
|
||||||
|
if(m_cbDead->Checked){
|
||||||
|
g_aGames.betData.dead = 0;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_MISC, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
ModalResult = mrOk;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TResetForm::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
|
||||||
|
{
|
||||||
|
if(X < 0 || Y < 0 || X > Width || Y > Height)
|
||||||
|
ModalResult = mrCancel;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TResetForm::FormMouseEnter(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
// DebugPrint("mouse enter %d - %d", cPos.X, cPos.Y);
|
||||||
|
if(cPos.X>=0 && cPos.Y>=0 && cPos.X<=Width && cPos.Y<=Height){
|
||||||
|
m_bMouseOver = true;
|
||||||
|
if(MouseCapture){
|
||||||
|
MouseCapture = false;
|
||||||
|
// DebugPrint("discaptured");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TResetForm::FormMouseLeave(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
// DebugPrint("mouse leave %d - %d of %d - %d", cPos.X, cPos.Y);
|
||||||
|
if((cPos.X<=10 || cPos.Y<=10 || cPos.X>=Width-10 || cPos.Y>=Height-10)){
|
||||||
|
m_bMouseOver = false;
|
||||||
|
if(!MouseCapture){
|
||||||
|
MouseCapture = true;
|
||||||
|
// DebugPrint("captured");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TResetForm::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
|
||||||
|
{
|
||||||
|
ResetIdle();
|
||||||
|
|
||||||
|
if(!m_bMouseOver && X>10 && X<Width-10 && Y>10 && Y<Height-10){
|
||||||
|
m_bMouseOver = true;
|
||||||
|
MouseCapture = false;
|
||||||
|
// DebugPrint("discaptured %d - %d", X, Y);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TResetForm::FormShow(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
if(cPos.X>=0 && cPos.Y>=0 && cPos.X<=Width && cPos.Y<=Height){
|
||||||
|
m_bMouseOver = true;
|
||||||
|
MouseCapture = false;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
m_bMouseOver = false;
|
||||||
|
MouseCapture = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TResetForm::WMKillFocus(TWMKillFocus &Message)
|
||||||
|
{
|
||||||
|
if(!m_bMouseOver)
|
||||||
|
ModalResult = mrCancel;
|
||||||
|
}
|
||||||
|
//--------------------------------------------------------
|
||||||
|
void __fastcall TResetForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
|
||||||
|
{
|
||||||
|
if(Key==VK_ESCAPE)
|
||||||
|
ModalResult = mrCancel;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -0,0 +1,198 @@
|
|||||||
|
object ResetForm: TResetForm
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Hint = #27169#23454#36194#20111#20540#36798#21040#36194#21033#20540#21518#36716#23454#25171
|
||||||
|
ParentCustomHint = False
|
||||||
|
BiDiMode = bdLeftToRight
|
||||||
|
BorderIcons = []
|
||||||
|
BorderStyle = bsNone
|
||||||
|
Caption = #37325#32622#25968#25454
|
||||||
|
ClientHeight = 224
|
||||||
|
ClientWidth = 423
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
FormStyle = fsStayOnTop
|
||||||
|
KeyPreview = True
|
||||||
|
ParentBiDiMode = False
|
||||||
|
OnKeyDown = FormKeyDown
|
||||||
|
OnMouseDown = FormMouseDown
|
||||||
|
OnMouseMove = FormMouseMove
|
||||||
|
OnShow = FormShow
|
||||||
|
TextHeight = 15
|
||||||
|
object m_panBack: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 423
|
||||||
|
Height = 224
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
OnMouseEnter = FormMouseEnter
|
||||||
|
OnMouseLeave = FormMouseLeave
|
||||||
|
object m_btnOk: TButton
|
||||||
|
Left = 330
|
||||||
|
Top = 177
|
||||||
|
Width = 70
|
||||||
|
Height = 25
|
||||||
|
Caption = #30830#23450
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = OkClick
|
||||||
|
end
|
||||||
|
object m_gb: TGroupBox
|
||||||
|
Left = 23
|
||||||
|
Top = 15
|
||||||
|
Width = 377
|
||||||
|
Height = 146
|
||||||
|
TabOrder = 1
|
||||||
|
object m_cbAmount: TCheckBox
|
||||||
|
Left = 21
|
||||||
|
Top = 21
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #24635#27969#27700
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object m_cbDead: TCheckBox
|
||||||
|
Left = 280
|
||||||
|
Top = 111
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #29190#32518#25968
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object m_cbLosCount: TCheckBox
|
||||||
|
Left = 107
|
||||||
|
Top = 81
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #24635#36755#27425#25968
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object m_cbManProfit: TCheckBox
|
||||||
|
Left = 280
|
||||||
|
Top = 51
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #25163#24037#36194#21033
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object m_cbPeakL: TCheckBox
|
||||||
|
Left = 280
|
||||||
|
Top = 21
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #26368#22823#20111#25439
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object m_cbPeakU: TCheckBox
|
||||||
|
Left = 193
|
||||||
|
Top = 21
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #26368#22823#36194#21033
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object m_cbTotProfit: TCheckBox
|
||||||
|
Left = 107
|
||||||
|
Top = 21
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #24635#36194#21033
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object m_cbSLos: TCheckBox
|
||||||
|
Left = 280
|
||||||
|
Top = 81
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #26368#22823#36830#36755
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object m_cbSWin: TCheckBox
|
||||||
|
Left = 193
|
||||||
|
Top = 81
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #26368#22823#36830#36194
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object m_cbWinCount: TCheckBox
|
||||||
|
Left = 21
|
||||||
|
Top = 81
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #24635#36194#27425#25968
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
object m_cbRealProfit: TCheckBox
|
||||||
|
Left = 107
|
||||||
|
Top = 51
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #23454#25171#36194#21033
|
||||||
|
TabOrder = 11
|
||||||
|
end
|
||||||
|
object m_cbRealAmount: TCheckBox
|
||||||
|
Left = 21
|
||||||
|
Top = 51
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #23454#25171#27969#27700
|
||||||
|
TabOrder = 12
|
||||||
|
end
|
||||||
|
object m_cbManAmount: TCheckBox
|
||||||
|
Left = 193
|
||||||
|
Top = 51
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #25163#24037#27969#27700
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object m_cbCurrProfit: TCheckBox
|
||||||
|
Left = 21
|
||||||
|
Top = 111
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #24403#26399#36194#21033
|
||||||
|
TabOrder = 13
|
||||||
|
end
|
||||||
|
object m_cbMaxChip: TCheckBox
|
||||||
|
Left = 107
|
||||||
|
Top = 111
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #26368#22823#27880#30721
|
||||||
|
TabOrder = 14
|
||||||
|
end
|
||||||
|
object m_cbSRProfit: TCheckBox
|
||||||
|
Left = 193
|
||||||
|
Top = 111
|
||||||
|
Width = 80
|
||||||
|
Height = 17
|
||||||
|
Caption = #27169#23454#36194#20111
|
||||||
|
TabOrder = 15
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object m_btnSelAll: TButton
|
||||||
|
Left = 23
|
||||||
|
Top = 177
|
||||||
|
Width = 70
|
||||||
|
Height = 25
|
||||||
|
Caption = #20840#36873
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = SelAllClick
|
||||||
|
end
|
||||||
|
object m_btnSelNone: TButton
|
||||||
|
Left = 100
|
||||||
|
Top = 177
|
||||||
|
Width = 70
|
||||||
|
Height = 25
|
||||||
|
Caption = #20840#19981#36873
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = SelNoneClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -0,0 +1,59 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef ResetFormUnitH
|
||||||
|
#define ResetFormUnitH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <System.Classes.hpp>
|
||||||
|
#include <Vcl.Controls.hpp>
|
||||||
|
#include <Vcl.StdCtrls.hpp>
|
||||||
|
#include <Vcl.Forms.hpp>
|
||||||
|
#include <Vcl.ExtCtrls.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TResetForm : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TPanel *m_panBack;
|
||||||
|
TButton *m_btnOk;
|
||||||
|
TGroupBox *m_gb;
|
||||||
|
TCheckBox *m_cbAmount;
|
||||||
|
TCheckBox *m_cbDead;
|
||||||
|
TCheckBox *m_cbLosCount;
|
||||||
|
TCheckBox *m_cbManProfit;
|
||||||
|
TCheckBox *m_cbPeakL;
|
||||||
|
TCheckBox *m_cbPeakU;
|
||||||
|
TCheckBox *m_cbTotProfit;
|
||||||
|
TCheckBox *m_cbSLos;
|
||||||
|
TCheckBox *m_cbSWin;
|
||||||
|
TCheckBox *m_cbWinCount;
|
||||||
|
TCheckBox *m_cbRealProfit;
|
||||||
|
TCheckBox *m_cbRealAmount;
|
||||||
|
TCheckBox *m_cbManAmount;
|
||||||
|
TCheckBox *m_cbCurrProfit;
|
||||||
|
TCheckBox *m_cbMaxChip;
|
||||||
|
TCheckBox *m_cbSRProfit;
|
||||||
|
TButton *m_btnSelAll;
|
||||||
|
TButton *m_btnSelNone;
|
||||||
|
void __fastcall SelAllClick(TObject *Sender);
|
||||||
|
void __fastcall SelNoneClick(TObject *Sender);
|
||||||
|
void __fastcall OkClick(TObject *Sender);
|
||||||
|
void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
|
||||||
|
void __fastcall FormMouseEnter(TObject *Sender);
|
||||||
|
void __fastcall FormMouseLeave(TObject *Sender);
|
||||||
|
void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
|
||||||
|
void __fastcall FormShow(TObject *Sender);
|
||||||
|
void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
||||||
|
private: // User declarations
|
||||||
|
bool m_bMouseOver;
|
||||||
|
|
||||||
|
MESSAGE void __fastcall WMKillFocus(TWMKillFocus &Message);
|
||||||
|
|
||||||
|
BEGIN_MESSAGE_MAP
|
||||||
|
MESSAGE_HANDLER(WM_KILLFOCUS, TWMKillFocus, WMKillFocus)
|
||||||
|
END_MESSAGE_MAP(TForm)
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TResetForm(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TResetForm *ResetForm;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
@@ -0,0 +1,516 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "SettingFormUnit.h"
|
||||||
|
#include "GameUnit.h"
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include "UtilityUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TSettingForm *SettingForm = NULL;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TSettingForm::TSettingForm(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
//开始挂机
|
||||||
|
m_cbWaitNew->Checked = g_settings.bWaitNew;
|
||||||
|
m_cbInitClearTabLog->Checked = g_settings.bInitClearTabLog;
|
||||||
|
m_cbInitBetChipByStart->Checked = g_settings.bInitBetChipByStart;
|
||||||
|
m_cbInitTabProfitByStart->Checked = g_settings.bInitTabProfitByStart;
|
||||||
|
m_cbInitCurProfitByStart->Checked = g_settings.bInitCurProfitByStart;
|
||||||
|
|
||||||
|
|
||||||
|
//台桌新局
|
||||||
|
m_cbInitBetByGame->Checked = g_settings.bInitBetByGame;
|
||||||
|
m_cbInitChipByGame->Checked = g_settings.bInitChipByGame;
|
||||||
|
m_cbInitProfitByGame->Checked = g_settings.bInitProfitByGame;
|
||||||
|
m_cbInitLogByGame->Checked = g_settings.bInitLogByGame;
|
||||||
|
|
||||||
|
//模拟本金
|
||||||
|
m_aRelatedCB[0] = m_cbSimAcc;
|
||||||
|
m_aRelatedCtrl[0].push_back(m_edSimAcc);
|
||||||
|
m_aRelatedCtrl[0].push_back(m_cbNoBetLow);
|
||||||
|
m_aRelatedCtrl[0].push_back(m_cbStopLow);
|
||||||
|
m_aRelatedCtrl[0].push_back(m_cbSyncReal);
|
||||||
|
|
||||||
|
m_cbSimAcc->Checked = g_settings.bSimAccOn;
|
||||||
|
m_edSimAcc->Text = g_settings.fSimAcc;
|
||||||
|
m_cbNoBetLow->Checked = g_settings.bNoBetLow;
|
||||||
|
m_cbStopLow->Checked = g_settings.bStopLow;
|
||||||
|
m_cbSyncReal->Checked = g_settings.bSyncReal;
|
||||||
|
|
||||||
|
//总体止赢
|
||||||
|
m_aRelatedCB[1] = m_cbTotalStopWin;
|
||||||
|
m_aRelatedCtrl[1].push_back(m_edTotalStopWin);
|
||||||
|
m_aRelatedCtrl[1].push_back(m_edTotalWinPause);
|
||||||
|
m_aRelatedCtrl[1].push_back(m_rbTotalWin0);
|
||||||
|
m_aRelatedCtrl[1].push_back(m_rbTotalWin1);
|
||||||
|
m_aRelatedCtrl[1].push_back(m_rbTotalWin2);
|
||||||
|
m_aRelatedCtrl[1].push_back(m_lbTotalWin);
|
||||||
|
|
||||||
|
m_cbTotalStopWin->Checked = g_settings.bTotalStopWin;
|
||||||
|
m_edTotalStopWin->Text = g_settings.nTotalStopWin;
|
||||||
|
m_edTotalWinPause->Text = g_settings.nTotalWinPause;
|
||||||
|
|
||||||
|
m_aTotalWinRB[0] = m_rbTotalWin0;
|
||||||
|
m_aTotalWinRB[1] = m_rbTotalWin1;
|
||||||
|
m_aTotalWinRB[2] = m_rbTotalWin2;
|
||||||
|
m_aTotalWinRB[g_settings.iTotalWinOp]->Checked = true;
|
||||||
|
|
||||||
|
//总体止损
|
||||||
|
m_aRelatedCB[2] = m_cbTotalStopLos;
|
||||||
|
m_aRelatedCtrl[2].push_back(m_edTotalStopLos);
|
||||||
|
m_aRelatedCtrl[2].push_back(m_edTotalLosPause);
|
||||||
|
m_aRelatedCtrl[2].push_back(m_rbTotalLos0);
|
||||||
|
m_aRelatedCtrl[2].push_back(m_rbTotalLos1);
|
||||||
|
m_aRelatedCtrl[2].push_back(m_rbTotalLos2);
|
||||||
|
m_aRelatedCtrl[2].push_back(m_lbTotalLos);
|
||||||
|
|
||||||
|
m_cbTotalStopLos->Checked = g_settings.bTotalStopLos;
|
||||||
|
m_edTotalStopLos->Text = g_settings.nTotalStopLos;
|
||||||
|
m_edTotalLosPause->Text = g_settings.nTotalLosPause;
|
||||||
|
|
||||||
|
m_aTotalLosRB[0] = m_rbTotalLos0;
|
||||||
|
m_aTotalLosRB[1] = m_rbTotalLos1;
|
||||||
|
m_aTotalLosRB[2] = m_rbTotalLos2;
|
||||||
|
m_aTotalLosRB[g_settings.iTotalLosOp]->Checked = true;
|
||||||
|
|
||||||
|
//赢利回落
|
||||||
|
m_aRelatedCB[3] = m_cbU2DStop;
|
||||||
|
m_aRelatedCtrl[3].push_back(m_cbU2DPause);
|
||||||
|
m_aRelatedCtrl[3].push_back(m_cbU2DMinPeak);
|
||||||
|
m_aRelatedCtrl[3].push_back(m_edU2DStop);
|
||||||
|
m_aRelatedCtrl[3].push_back(m_edU2DPause);
|
||||||
|
m_aRelatedCtrl[3].push_back(m_edU2DMinPeak);
|
||||||
|
m_aRelatedCtrl[3].push_back(m_lbU2DStop);
|
||||||
|
m_aRelatedCtrl[3].push_back(m_lbU2DPause);
|
||||||
|
|
||||||
|
m_cbU2DStop->Checked = g_settings.bU2DStop;
|
||||||
|
m_cbU2DMinPeak->Checked = g_settings.bU2DMinPeak;
|
||||||
|
m_cbU2DPause->Checked = g_settings.bU2DPause;
|
||||||
|
m_edU2DStop->Text = g_settings.nU2DStop;
|
||||||
|
m_edU2DMinPeak->Text = g_settings.nU2DMinPeak;
|
||||||
|
m_edU2DPause->Text = g_settings.nU2DPause;
|
||||||
|
|
||||||
|
//账户止赢
|
||||||
|
m_aRelatedCB[4] = m_cbAccStopWin;
|
||||||
|
m_aRelatedCtrl[4].push_back(m_edAccStopWin);
|
||||||
|
m_aRelatedCtrl[4].push_back(m_lbAccStopWin);
|
||||||
|
|
||||||
|
m_cbAccStopWin->Checked = g_settings.bAccStopWin;
|
||||||
|
m_edAccStopWin->Text = g_settings.nAccStopWin;
|
||||||
|
|
||||||
|
//账户止损
|
||||||
|
m_aRelatedCB[5] = m_cbAccStopLos;
|
||||||
|
m_aRelatedCtrl[5].push_back(m_edAccStopLos);
|
||||||
|
m_aRelatedCtrl[5].push_back(m_lbAccStopLos);
|
||||||
|
|
||||||
|
m_cbAccStopLos->Checked = g_settings.bAccStopLos;
|
||||||
|
m_edAccStopLos->Text = g_settings.nAccStopLos;
|
||||||
|
|
||||||
|
//单桌止赢
|
||||||
|
m_aRelatedCB[6] = m_cbTableStopWin;
|
||||||
|
m_aRelatedCtrl[6].push_back(m_edTableStopWin);
|
||||||
|
m_aRelatedCtrl[6].push_back(m_edTableWinPause);
|
||||||
|
m_aRelatedCtrl[6].push_back(m_rbTableWin0);
|
||||||
|
m_aRelatedCtrl[6].push_back(m_rbTableWin1);
|
||||||
|
m_aRelatedCtrl[6].push_back(m_rbTableWin2);
|
||||||
|
m_aRelatedCtrl[6].push_back(m_lbTableWin);
|
||||||
|
|
||||||
|
m_cbTableStopWin->Checked = g_settings.bTableStopWin;
|
||||||
|
m_edTableStopWin->Text = g_settings.nTableStopWin;
|
||||||
|
m_edTableWinPause->Text = g_settings.nTableWinPause;
|
||||||
|
|
||||||
|
m_aTableWinRB[0] = m_rbTableWin0;
|
||||||
|
m_aTableWinRB[1] = m_rbTableWin1;
|
||||||
|
m_aTableWinRB[2] = m_rbTableWin2;
|
||||||
|
m_aTableWinRB[g_settings.iTableWinOp]->Checked = true;
|
||||||
|
|
||||||
|
//单桌止损
|
||||||
|
m_aRelatedCB[7] = m_cbTableStopLos;
|
||||||
|
m_aRelatedCtrl[7].push_back(m_edTableStopLos);
|
||||||
|
m_aRelatedCtrl[7].push_back(m_edTableLosPause);
|
||||||
|
m_aRelatedCtrl[7].push_back(m_rbTableLos0);
|
||||||
|
m_aRelatedCtrl[7].push_back(m_rbTableLos1);
|
||||||
|
m_aRelatedCtrl[7].push_back(m_rbTableLos2);
|
||||||
|
m_aRelatedCtrl[7].push_back(m_lbTableLos);
|
||||||
|
|
||||||
|
m_cbTableStopLos->Checked = g_settings.bTableStopLos;
|
||||||
|
m_edTableStopLos->Text = g_settings.nTableStopLos;
|
||||||
|
m_edTableLosPause->Text = g_settings.nTableLosPause;
|
||||||
|
|
||||||
|
m_aTableLosRB[0] = m_rbTableLos0;
|
||||||
|
m_aTableLosRB[1] = m_rbTableLos1;
|
||||||
|
m_aTableLosRB[2] = m_rbTableLos2;
|
||||||
|
m_aTableLosRB[g_settings.iTableLosOp]->Checked = true;
|
||||||
|
|
||||||
|
|
||||||
|
//模拟赢转实打
|
||||||
|
m_aRelatedCB[8] = m_cbS2RWin;
|
||||||
|
m_aRelatedCtrl[8].push_back(m_edS2RWin);
|
||||||
|
m_aRelatedCtrl[8].push_back(m_lbS2RWin);
|
||||||
|
|
||||||
|
m_cbS2RWin->Checked = g_settings.bS2RWin;
|
||||||
|
m_edS2RWin->Text = g_settings.nS2RWin;
|
||||||
|
|
||||||
|
//模拟输转实打
|
||||||
|
m_aRelatedCB[9] = m_cbS2RLos;
|
||||||
|
m_aRelatedCtrl[9].push_back(m_edS2RLos);
|
||||||
|
m_aRelatedCtrl[9].push_back(m_lbS2RLos);
|
||||||
|
|
||||||
|
m_cbS2RLos->Checked = g_settings.bS2RLos;
|
||||||
|
m_edS2RLos->Text = g_settings.nS2RLos;
|
||||||
|
|
||||||
|
//实打赢转模拟
|
||||||
|
m_aRelatedCB[10] = m_cbR2SWin;
|
||||||
|
m_aRelatedCtrl[10].push_back(m_edR2SWin);
|
||||||
|
m_aRelatedCtrl[10].push_back(m_lbR2SWin);
|
||||||
|
|
||||||
|
m_cbR2SWin->Checked = g_settings.bR2SWin;
|
||||||
|
m_edR2SWin->Text = g_settings.nR2SWin;
|
||||||
|
|
||||||
|
//实打输转模拟
|
||||||
|
m_aRelatedCB[11] = m_cbR2SLos;
|
||||||
|
m_aRelatedCtrl[11].push_back(m_edR2SLos);
|
||||||
|
m_aRelatedCtrl[11].push_back(m_lbR2SLos);
|
||||||
|
|
||||||
|
m_cbR2SLos->Checked = g_settings.bR2SLos;
|
||||||
|
m_edR2SLos->Text = g_settings.nR2SLos;
|
||||||
|
|
||||||
|
//游台
|
||||||
|
m_cbFloat->Hint = "勾选开启游台模式：每次只有一个台桌下注\n"
|
||||||
|
"开启游台时，至少勾选一种换台方式\n"
|
||||||
|
"只勾选一种换台方式，表示仅当该条件成立时才换台\n"
|
||||||
|
"若勾选了多种方式，则任意选中的条件成立时就换台";
|
||||||
|
|
||||||
|
m_aRelatedCB[12] = m_cbFloat;
|
||||||
|
m_aRelatedCtrl[12].push_back(m_cbFloatEach);
|
||||||
|
m_aRelatedCtrl[12].push_back(m_cbFloatShuffle);
|
||||||
|
m_aRelatedCtrl[12].push_back(m_cbFloatLos);
|
||||||
|
m_aRelatedCtrl[12].push_back(m_cbFloatWin);
|
||||||
|
m_aRelatedCtrl[12].push_back(m_cbFloatTie);
|
||||||
|
|
||||||
|
m_aFloatCB[0] = m_cbFloatEach;
|
||||||
|
m_aFloatCB[1] = m_cbFloatShuffle;
|
||||||
|
m_aFloatCB[2] = m_cbFloatLos;
|
||||||
|
m_aFloatCB[3] = m_cbFloatWin;
|
||||||
|
m_aFloatCB[4] = m_cbFloatTie;
|
||||||
|
|
||||||
|
if(g_settings.iFloatMode){
|
||||||
|
for(int i=0; i<5; i++){
|
||||||
|
m_aFloatCB[i]->Enabled = true;
|
||||||
|
m_aFloatCB[i]->OnClick = NULL;
|
||||||
|
m_aFloatCB[i]->Checked = g_settings.iFloatMode & (1<<i);
|
||||||
|
m_aFloatCB[i]->OnClick = OnFloatOpClick;
|
||||||
|
}
|
||||||
|
|
||||||
|
m_cbFloat->OnClick = NULL;
|
||||||
|
m_cbFloat->Checked = true;
|
||||||
|
m_cbFloat->OnClick = OnRelatedCBClick;
|
||||||
|
}
|
||||||
|
|
||||||
|
//牌局选项
|
||||||
|
m_aRelatedCB[13] = m_cbHoldBet;
|
||||||
|
m_aRelatedCtrl[13].push_back(m_edHoldBet);
|
||||||
|
m_aRelatedCtrl[13].push_back(m_lbHoldBet);
|
||||||
|
|
||||||
|
m_cbHoldBet->Checked = g_settings.bHoldBet;
|
||||||
|
m_edHoldBet->Text = g_settings.nHoldBet;
|
||||||
|
|
||||||
|
m_aRelatedCB[14] = m_cbHaltBet;
|
||||||
|
m_aRelatedCtrl[14].push_back(m_edHaltBet);
|
||||||
|
m_aRelatedCtrl[14].push_back(m_lbHaltBet);
|
||||||
|
|
||||||
|
m_cbHaltBet->Checked = g_settings.bHaltBet;
|
||||||
|
m_edHaltBet->Text = g_settings.nHaltBet;
|
||||||
|
|
||||||
|
m_cbBetsNoTie->Checked = g_settings.bBetsNoTie;
|
||||||
|
|
||||||
|
//页脚
|
||||||
|
m_cbStartShow->Checked = g_bShowSetting;
|
||||||
|
|
||||||
|
if(g_bGameOn){
|
||||||
|
m_btnOk->Enabled = false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::OkClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
g_settings.bWaitNew = m_cbWaitNew->Checked;
|
||||||
|
g_settings.bInitClearTabLog = m_cbInitClearTabLog->Checked;
|
||||||
|
g_settings.bInitBetChipByStart = m_cbInitBetChipByStart->Checked;
|
||||||
|
g_settings.bInitTabProfitByStart = m_cbInitTabProfitByStart->Checked;
|
||||||
|
g_settings.bInitCurProfitByStart = m_cbInitCurProfitByStart->Checked;
|
||||||
|
|
||||||
|
g_settings.bInitBetByGame = m_cbInitBetByGame->Checked;
|
||||||
|
g_settings.bInitChipByGame = m_cbInitChipByGame->Checked;
|
||||||
|
g_settings.bInitProfitByGame = m_cbInitProfitByGame->Checked;
|
||||||
|
g_settings.bInitLogByGame = m_cbInitLogByGame->Checked;
|
||||||
|
|
||||||
|
double fSimAcc = m_edSimAcc->Text.ToDouble();
|
||||||
|
if(m_cbSimAcc->Checked!=g_settings.bSimAccOn || fSimAcc!=g_settings.fSimAcc){
|
||||||
|
if(m_cbSimAcc->Checked && fSimAcc!=g_settings.fSimAcc){
|
||||||
|
g_settings.fSimAcc = fSimAcc;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_CHART_UPDATE, 1, 1); //初始化图表
|
||||||
|
}
|
||||||
|
|
||||||
|
g_settings.bSimAccOn = m_cbSimAcc->Checked;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_STATE_UPDATE, STATE_BALANCE, 1);
|
||||||
|
|
||||||
|
if(g_bTesting && m_cbSimAcc->Checked){
|
||||||
|
g_fBalance = fSimAcc;
|
||||||
|
PostMessage(Application->MainFormHandle, UM_CHART_UPDATE, 2, 1); //初始化图表
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
g_settings.bNoBetLow = m_cbNoBetLow->Checked;
|
||||||
|
g_settings.bStopLow = m_cbStopLow->Checked;
|
||||||
|
g_settings.bSyncReal = m_cbSyncReal->Checked;
|
||||||
|
|
||||||
|
g_settings.bTotalStopWin = m_cbTotalStopWin->Checked;
|
||||||
|
g_settings.bTotalStopLos = m_cbTotalStopLos->Checked;
|
||||||
|
g_settings.nTotalStopWin = m_edTotalStopWin->Text.ToInt();
|
||||||
|
g_settings.nTotalStopLos = m_edTotalStopLos->Text.ToInt();
|
||||||
|
g_settings.nTotalWinPause = m_edTotalWinPause->Text.ToInt();
|
||||||
|
g_settings.nTotalLosPause = m_edTotalLosPause->Text.ToInt();
|
||||||
|
for(int i=0; i<3; i++){
|
||||||
|
if(m_aTotalWinRB[i]->Checked){
|
||||||
|
g_settings.iTotalWinOp = i;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
for(int i=0; i<3; i++){
|
||||||
|
if(m_aTotalLosRB[i]->Checked){
|
||||||
|
g_settings.iTotalLosOp = i;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
g_settings.bTableStopWin = m_cbTableStopWin->Checked;
|
||||||
|
g_settings.bTableStopLos = m_cbTableStopLos->Checked;
|
||||||
|
g_settings.nTableStopWin = m_edTableStopWin->Text.ToInt();
|
||||||
|
g_settings.nTableStopLos = m_edTableStopLos->Text.ToInt();
|
||||||
|
g_settings.nTableWinPause = m_edTableWinPause->Text.ToInt();
|
||||||
|
g_settings.nTableLosPause = m_edTableLosPause->Text.ToInt();
|
||||||
|
for(int i=0; i<3; i++){
|
||||||
|
if(m_aTableWinRB[i]->Checked){
|
||||||
|
g_settings.iTableWinOp = i;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
for(int i=0; i<3; i++){
|
||||||
|
if(m_aTableLosRB[i]->Checked){
|
||||||
|
g_settings.iTableLosOp = i;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
g_settings.bU2DStop = m_cbU2DStop->Checked;
|
||||||
|
g_settings.bU2DPause = m_cbU2DPause->Checked;
|
||||||
|
g_settings.bU2DMinPeak = m_cbU2DMinPeak->Checked;
|
||||||
|
g_settings.nU2DStop = m_edU2DStop->Text.ToInt();
|
||||||
|
g_settings.nU2DPause = m_edU2DPause->Text.ToInt();
|
||||||
|
g_settings.nU2DMinPeak = m_edU2DMinPeak->Text.ToInt();
|
||||||
|
|
||||||
|
g_settings.bAccStopWin = m_cbAccStopWin->Checked;
|
||||||
|
g_settings.bAccStopLos = m_cbAccStopLos->Checked;
|
||||||
|
g_settings.nAccStopWin = m_edAccStopWin->Text.ToInt();
|
||||||
|
g_settings.nAccStopLos = m_edAccStopLos->Text.ToInt();
|
||||||
|
|
||||||
|
g_settings.bS2RWin = m_cbS2RWin->Checked;
|
||||||
|
g_settings.bS2RLos = m_cbS2RLos->Checked;
|
||||||
|
g_settings.bR2SWin = m_cbR2SWin->Checked;
|
||||||
|
g_settings.bR2SLos = m_cbR2SLos->Checked;
|
||||||
|
g_settings.nS2RWin = m_edS2RWin->Text.ToInt();
|
||||||
|
g_settings.nS2RLos = m_edS2RLos->Text.ToInt();
|
||||||
|
g_settings.nR2SWin = m_edR2SWin->Text.ToInt();
|
||||||
|
g_settings.nR2SLos = m_edR2SLos->Text.ToInt();
|
||||||
|
|
||||||
|
g_settings.bHoldBet = m_cbHoldBet->Checked;
|
||||||
|
g_settings.bHaltBet = m_cbHaltBet->Checked;
|
||||||
|
g_settings.nHoldBet = m_edHoldBet->Text.ToInt();
|
||||||
|
g_settings.nHaltBet = m_edHaltBet->Text.ToInt();
|
||||||
|
|
||||||
|
g_settings.iFloatMode = 0;
|
||||||
|
if(m_cbFloat->Checked){
|
||||||
|
for(int i=0; i<5; i++){
|
||||||
|
if(m_aFloatCB[i]->Checked)
|
||||||
|
g_settings.iFloatMode |= (1<<i);
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
g_settings.bBetsNoTie = m_cbBetsNoTie->Checked;
|
||||||
|
|
||||||
|
g_bShowSetting = m_cbStartShow->Checked;
|
||||||
|
|
||||||
|
ModalResult = mrOk;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::TotalPauseExit(TObject *Sender)
|
||||||
|
{
|
||||||
|
TEdit* pE = (TEdit*)Sender;
|
||||||
|
int num = pE->Text.ToInt();
|
||||||
|
if(num<1 || num>30){
|
||||||
|
ShowMessage("请输入1-30的分钟数");
|
||||||
|
pE->SetFocus();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::PauseKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
|
||||||
|
{
|
||||||
|
if( Key==13 )
|
||||||
|
m_btnOk->SetFocus();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::TablePauseExit(TObject *Sender)
|
||||||
|
{
|
||||||
|
TEdit* pE = (TEdit*)Sender;
|
||||||
|
int num = pE->Text.ToInt();
|
||||||
|
if(num<0 || num>15){
|
||||||
|
ShowMessage("请输入0-15的分钟数");
|
||||||
|
pE->SetFocus();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::SimAccKeyPress(TObject *Sender, System::WideChar &Key)
|
||||||
|
{
|
||||||
|
if( Key>'9' || Key<'0' && Key!=0x8 && ( Key!='.' || ((TEdit*)Sender)->Text.Pos(".")))
|
||||||
|
Key = 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::SimAccExit(TObject *Sender)
|
||||||
|
{
|
||||||
|
double fSimAcc;
|
||||||
|
if(!TryStrToFloat(m_edSimAcc->Text, fSimAcc) || fSimAcc<20 || fSimAcc>1000000){
|
||||||
|
ShowMessage("请输入 20-1000000 的模拟本金");
|
||||||
|
m_edSimAcc->Text = "10000";
|
||||||
|
m_edSimAcc->SetFocus();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::OnRelatedCBClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
TCheckBox* pCB = (TCheckBox*)Sender;
|
||||||
|
|
||||||
|
int ind = pCB->Tag;
|
||||||
|
vector<TControl*>& vc = m_aRelatedCtrl[ind];
|
||||||
|
for(int i=0; i<vc.size(); i++)
|
||||||
|
vc[i]->Enabled = pCB->Checked;
|
||||||
|
|
||||||
|
if(pCB==m_cbFloat){ //单独处理游台
|
||||||
|
if(pCB->Checked){
|
||||||
|
m_aFloatCB[0]->OnClick = NULL;
|
||||||
|
m_aFloatCB[0]->Checked = true;
|
||||||
|
m_aFloatCB[0]->OnClick = OnFloatOpClick;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
for(int i=0; i<5; i++){
|
||||||
|
m_aFloatCB[i]->OnClick = NULL;
|
||||||
|
m_aFloatCB[i]->Checked = false;
|
||||||
|
m_aFloatCB[i]->OnClick = OnFloatOpClick;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::OnFloatOpClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
TCheckBox* pCB = (TCheckBox*)Sender;
|
||||||
|
|
||||||
|
if(!pCB->Checked){
|
||||||
|
bool bChk = false;
|
||||||
|
for(int i=0; i<5; i++){
|
||||||
|
if(m_aFloatCB[i]->Checked){
|
||||||
|
bChk = true;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(!bChk){
|
||||||
|
pCB->OnClick = NULL;
|
||||||
|
pCB->Checked = true;
|
||||||
|
pCB->OnClick = OnFloatOpClick;
|
||||||
|
ShowMessage("至少选择一种换台方式");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::U2DPauseClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
TCheckBox* pCB = (TCheckBox*)Sender;
|
||||||
|
m_lbU2DStop->Visible = !pCB->Checked;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::FormShow(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
if(cPos.X>=0 && cPos.Y>=0 && cPos.X<=Width && cPos.Y<=Height){
|
||||||
|
m_bMouseOver = true;
|
||||||
|
MouseCapture = false;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
m_bMouseOver = false;
|
||||||
|
MouseCapture = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
|
||||||
|
{
|
||||||
|
if(Key==VK_ESCAPE)
|
||||||
|
ModalResult = mrCancel;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
|
||||||
|
{
|
||||||
|
if(X < 0 || Y < 0 || X > Width || Y > Height)
|
||||||
|
ModalResult = mrCancel;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
|
||||||
|
{
|
||||||
|
ResetIdle();
|
||||||
|
|
||||||
|
if(!m_bMouseOver && X>10 && X<Width-10 && Y>10 && Y<Height-10){
|
||||||
|
m_bMouseOver = true;
|
||||||
|
MouseCapture = false;
|
||||||
|
// DebugPrint("discaptured %d - %d", X, Y);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::FormMouseEnter(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
// DebugPrint("mouse enter %d - %d", cPos.X, cPos.Y);
|
||||||
|
if(cPos.X>=0 && cPos.Y>=0 && cPos.X<=Width && cPos.Y<=Height){
|
||||||
|
m_bMouseOver = true;
|
||||||
|
if(MouseCapture){
|
||||||
|
MouseCapture = false;
|
||||||
|
// DebugPrint("discaptured");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::FormMouseLeave(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
// DebugPrint("mouse leave %d - %d of %d - %d", cPos.X, cPos.Y);
|
||||||
|
if((cPos.X<=10 || cPos.Y<=10 || cPos.X>=Width-10 || cPos.Y>=Height-10)){
|
||||||
|
m_bMouseOver = false;
|
||||||
|
if(!MouseCapture){
|
||||||
|
MouseCapture = true;
|
||||||
|
// DebugPrint("captured");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TSettingForm::WMKillFocus(TWMKillFocus &Message)
|
||||||
|
{
|
||||||
|
if(!m_bMouseOver)
|
||||||
|
ModalResult = mrCancel;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
+1242
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,156 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef SettingFormUnitH
|
||||||
|
#define SettingFormUnitH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <System.Classes.hpp>
|
||||||
|
#include <Vcl.Controls.hpp>
|
||||||
|
#include <Vcl.StdCtrls.hpp>
|
||||||
|
#include <Vcl.Forms.hpp>
|
||||||
|
#include <Vcl.ExtCtrls.hpp>
|
||||||
|
|
||||||
|
#include <vector>
|
||||||
|
using namespace std;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TSettingForm : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TPanel *m_panBack;
|
||||||
|
TButton *m_btnOk;
|
||||||
|
TGroupBox *m_gbTable;
|
||||||
|
TCheckBox *m_cbInitBetByGame;
|
||||||
|
TCheckBox *m_cbInitChipByGame;
|
||||||
|
TGroupBox *m_gbMode;
|
||||||
|
TLabel *m_lbS2RWin;
|
||||||
|
TLabel *m_lbS2RLos;
|
||||||
|
TLabel *m_lbR2SLos;
|
||||||
|
TLabel *m_lbR2SWin;
|
||||||
|
TCheckBox *m_cbS2RWin;
|
||||||
|
TEdit *m_edS2RWin;
|
||||||
|
TCheckBox *m_cbS2RLos;
|
||||||
|
TEdit *m_edS2RLos;
|
||||||
|
TEdit *m_edR2SLos;
|
||||||
|
TCheckBox *m_cbR2SLos;
|
||||||
|
TCheckBox *m_cbR2SWin;
|
||||||
|
TEdit *m_edR2SWin;
|
||||||
|
TGroupBox *m_gbPause;
|
||||||
|
TBevel *Bevel1;
|
||||||
|
TCheckBox *m_cbTableStopWin;
|
||||||
|
TEdit *m_edTableStopWin;
|
||||||
|
TEdit *m_edTableStopLos;
|
||||||
|
TCheckBox *m_cbTableStopLos;
|
||||||
|
TCheckBox *m_cbTotalStopWin;
|
||||||
|
TEdit *m_edTotalStopWin;
|
||||||
|
TCheckBox *m_cbTotalStopLos;
|
||||||
|
TEdit *m_edTotalStopLos;
|
||||||
|
TGroupBox *m_gbStart;
|
||||||
|
TCheckBox *m_cbWaitNew;
|
||||||
|
TCheckBox *m_cbInitBetChipByStart;
|
||||||
|
TGroupBox *m_gbFloat;
|
||||||
|
TCheckBox *m_cbFloat;
|
||||||
|
TCheckBox *m_cbStartShow;
|
||||||
|
TGroupBox *m_gbTotalWin;
|
||||||
|
TRadioButton *m_rbTotalWin0;
|
||||||
|
TRadioButton *m_rbTotalWin1;
|
||||||
|
TRadioButton *m_rbTotalWin2;
|
||||||
|
TEdit *m_edTotalWinPause;
|
||||||
|
TLabel *m_lbTotalWin;
|
||||||
|
TGroupBox *m_gbTableWin;
|
||||||
|
TLabel *m_lbTableWin;
|
||||||
|
TRadioButton *m_rbTableWin0;
|
||||||
|
TRadioButton *m_rbTableWin1;
|
||||||
|
TRadioButton *m_rbTableWin2;
|
||||||
|
TEdit *m_edTableWinPause;
|
||||||
|
TCheckBox *m_cbInitTabProfitByStart;
|
||||||
|
TCheckBox *m_cbInitProfitByGame;
|
||||||
|
TCheckBox *m_cbInitCurProfitByStart;
|
||||||
|
TGroupBox *m_gbSimAcc;
|
||||||
|
TCheckBox *m_cbSyncReal;
|
||||||
|
TCheckBox *m_cbNoBetLow;
|
||||||
|
TCheckBox *m_cbStopLow;
|
||||||
|
TEdit *m_edSimAcc;
|
||||||
|
TCheckBox *m_cbSimAcc;
|
||||||
|
TCheckBox *m_cbInitLogByGame;
|
||||||
|
TCheckBox *m_cbU2DStop;
|
||||||
|
TEdit *m_edU2DStop;
|
||||||
|
TBevel *Bevel2;
|
||||||
|
TEdit *m_edU2DPause;
|
||||||
|
TLabel *m_lbU2DPause;
|
||||||
|
TGroupBox *m_gbU2D;
|
||||||
|
TLabel *Label7;
|
||||||
|
TLabel *Label9;
|
||||||
|
TGroupBox *m_gbTotalLos;
|
||||||
|
TLabel *m_lbTotalLos;
|
||||||
|
TRadioButton *m_rbTotalLos0;
|
||||||
|
TRadioButton *m_rbTotalLos1;
|
||||||
|
TRadioButton *m_rbTotalLos2;
|
||||||
|
TEdit *m_edTotalLosPause;
|
||||||
|
TGroupBox *m_gbTableLos;
|
||||||
|
TLabel *m_lbTableLos;
|
||||||
|
TRadioButton *m_rbTableLos0;
|
||||||
|
TRadioButton *m_rbTableLos1;
|
||||||
|
TRadioButton *m_rbTableLos2;
|
||||||
|
TEdit *m_edTableLosPause;
|
||||||
|
TCheckBox *m_cbAccStopWin;
|
||||||
|
TEdit *m_edAccStopWin;
|
||||||
|
TLabel *m_lbAccStopWin;
|
||||||
|
TCheckBox *m_cbAccStopLos;
|
||||||
|
TEdit *m_edAccStopLos;
|
||||||
|
TLabel *m_lbAccStopLos;
|
||||||
|
TBevel *Bevel3;
|
||||||
|
TGroupBox *m_gbFloatOp;
|
||||||
|
TCheckBox *m_cbU2DMinPeak;
|
||||||
|
TEdit *m_edU2DMinPeak;
|
||||||
|
TCheckBox *m_cbU2DPause;
|
||||||
|
TLabel *m_lbU2DStop;
|
||||||
|
TCheckBox *m_cbInitClearTabLog;
|
||||||
|
TCheckBox *m_cbHoldBet;
|
||||||
|
TEdit *m_edHoldBet;
|
||||||
|
TLabel *m_lbHoldBet;
|
||||||
|
TCheckBox *m_cbHaltBet;
|
||||||
|
TEdit *m_edHaltBet;
|
||||||
|
TLabel *m_lbHaltBet;
|
||||||
|
TCheckBox *m_cbFloatShuffle;
|
||||||
|
TCheckBox *m_cbFloatLos;
|
||||||
|
TCheckBox *m_cbFloatWin;
|
||||||
|
TCheckBox *m_cbFloatTie;
|
||||||
|
TCheckBox *m_cbBetsNoTie;
|
||||||
|
TCheckBox *m_cbFloatEach;
|
||||||
|
void __fastcall OkClick(TObject *Sender);
|
||||||
|
void __fastcall TotalPauseExit(TObject *Sender);
|
||||||
|
void __fastcall PauseKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
||||||
|
void __fastcall TablePauseExit(TObject *Sender);
|
||||||
|
void __fastcall SimAccKeyPress(TObject *Sender, System::WideChar &Key);
|
||||||
|
void __fastcall SimAccExit(TObject *Sender);
|
||||||
|
void __fastcall OnRelatedCBClick(TObject *Sender);
|
||||||
|
void __fastcall OnFloatOpClick(TObject *Sender);
|
||||||
|
void __fastcall U2DPauseClick(TObject *Sender);
|
||||||
|
void __fastcall FormShow(TObject *Sender);
|
||||||
|
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 FormMouseEnter(TObject *Sender);
|
||||||
|
void __fastcall FormMouseLeave(TObject *Sender);
|
||||||
|
void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
||||||
|
private: // User declarations
|
||||||
|
TRadioButton *m_aU2DStopRB[2],
|
||||||
|
*m_aTotalWinRB[3],
|
||||||
|
*m_aTotalLosRB[3],
|
||||||
|
*m_aTableWinRB[3],
|
||||||
|
*m_aTableLosRB[3];
|
||||||
|
TCheckBox* m_aRelatedCB[15],
|
||||||
|
*m_aFloatCB[5];
|
||||||
|
vector<TControl*> m_aRelatedCtrl[15];
|
||||||
|
bool m_bMouseOver;
|
||||||
|
|
||||||
|
MESSAGE void __fastcall WMKillFocus(TWMKillFocus &Message);
|
||||||
|
|
||||||
|
BEGIN_MESSAGE_MAP
|
||||||
|
MESSAGE_HANDLER(WM_KILLFOCUS, TWMKillFocus, WMKillFocus)
|
||||||
|
END_MESSAGE_MAP(TForm)
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TSettingForm(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TSettingForm *SettingForm;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
@@ -0,0 +1,249 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include "GameUnit.h"
|
||||||
|
#include "TableIPFormUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TTableIPForm::TTableIPForm(TComponent* Owner, TGame* pG)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
m_pGame = pG;
|
||||||
|
|
||||||
|
m_cbIndPolicy->Hint = "启用独立策略后，台桌将按自己的打法和注码进行投注\n"
|
||||||
|
"同时，将不参与注码的总体计算，也不参与游台下注";
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::FormCreate(TObject *Sender)
|
||||||
|
{
|
||||||
|
for(int i=0; i<g_aBetPolicies.size(); i++){
|
||||||
|
TBasePolicy* pPolicy = g_aBetPolicies[i];
|
||||||
|
m_cbBets->AddItem(pPolicy->name,NULL);
|
||||||
|
}
|
||||||
|
m_cbBets->ItemIndex = m_iBet = m_pGame->bIndPolicy ? m_pGame->iBetPolicy : g_iBetPolicy;
|
||||||
|
|
||||||
|
m_cbRoad->ItemIndex = m_pGame->iRoad<0 ? g_iRoad : m_pGame->iRoad;
|
||||||
|
|
||||||
|
for(int i=0; i<g_aChipPolicies.size(); i++){
|
||||||
|
TBasePolicy* pPolicy = g_aChipPolicies[i];
|
||||||
|
m_cbChips->AddItem(pPolicy->name,NULL);
|
||||||
|
}
|
||||||
|
m_cbChips->ItemIndex = m_iChip = m_pGame->bIndPolicy ? m_pGame->iChipPolicy : g_iChipPolicy;
|
||||||
|
|
||||||
|
m_nMul = m_pGame->bIndPolicy ? m_pGame->nChipMul : g_nChipMul;
|
||||||
|
if(m_nMul>0){
|
||||||
|
m_leChipMul->Text = m_nMul;
|
||||||
|
m_leChipMul->Enabled = true;
|
||||||
|
}
|
||||||
|
|
||||||
|
m_cbIndPolicy->Checked = m_pGame->bIndPolicy;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::OkClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
if(m_cbIndPolicy->Checked){
|
||||||
|
if(m_iBet<0){
|
||||||
|
ShowMessage("请选择打法策略");
|
||||||
|
m_cbBets->SetFocus();
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(m_iChip<0){
|
||||||
|
ShowMessage("请选择注码策略");
|
||||||
|
m_cbChips->SetFocus();
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
m_pGame->bIndPolicy = true;
|
||||||
|
m_pGame->iBetPolicy = m_iBet;
|
||||||
|
m_pGame->iChipPolicy = m_iChip;
|
||||||
|
m_pGame->nChipMul = m_nMul;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
m_pGame->bIndPolicy = false;
|
||||||
|
m_pGame->iBetPolicy = m_pGame->iChipPolicy = m_pGame->nChipMul = -1;
|
||||||
|
}
|
||||||
|
|
||||||
|
m_pGame->iRoad = m_cbRoad->ItemIndex==g_iRoad ? -1 : m_cbRoad->ItemIndex;
|
||||||
|
|
||||||
|
ModalResult = mrOk;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::PolicyChange(TObject *Sender)
|
||||||
|
{
|
||||||
|
TComboBox* pCB = (TComboBox*)Sender;
|
||||||
|
int ind = pCB->ItemIndex;
|
||||||
|
int& iPolicy = Sender==m_cbBets ? m_iBet : m_iChip;
|
||||||
|
|
||||||
|
if( ind != iPolicy ){
|
||||||
|
iPolicy = ind;
|
||||||
|
|
||||||
|
if(ind<0){
|
||||||
|
pCB->Text = pCB->Hint;
|
||||||
|
|
||||||
|
if(pCB==m_cbChips){
|
||||||
|
m_nMul = 0;
|
||||||
|
m_leChipMul->Text = "";
|
||||||
|
m_leChipMul->Enabled = false;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
m_cbRoad->ItemIndex = g_iRoad;
|
||||||
|
}
|
||||||
|
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(pCB==m_cbChips){
|
||||||
|
if(g_aChipPolicies[ind]->kind==KIND_CHIP_COM){
|
||||||
|
m_leChipMul->Text = "";
|
||||||
|
m_leChipMul->Enabled = false;
|
||||||
|
m_nMul = -1;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
int minChip = MinChipOfPolicy(ind);
|
||||||
|
if(minChip>0){
|
||||||
|
int mul = g_MinOnBet / minChip;
|
||||||
|
if(g_MinOnBet % minChip) mul++;
|
||||||
|
|
||||||
|
if(m_nMul<mul){
|
||||||
|
m_nMul = mul;
|
||||||
|
m_leChipMul->Text = IntToStr(mul);
|
||||||
|
m_leChipMul->Enabled = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
m_cbRoad->ItemIndex = ((TBetPolicy*)g_aBetPolicies[ind])->road;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
SetChanged();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::ChipMulExit(TObject *Sender)
|
||||||
|
{
|
||||||
|
int mul = m_leChipMul->Text.ToInt();
|
||||||
|
if(mul<=0){
|
||||||
|
ShowMessage("请输入投注倍数");
|
||||||
|
m_leChipMul->SetFocus();
|
||||||
|
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
int minChip = MinChipOfPolicy(m_iChip);
|
||||||
|
if(minChip * mul < g_MinOnBet){
|
||||||
|
int multi = g_MinOnBet / minChip;
|
||||||
|
if(g_MinOnBet % minChip) multi++;
|
||||||
|
|
||||||
|
m_nMul = multi;
|
||||||
|
m_leChipMul->Text = IntToStr(multi);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
m_nMul = mul;
|
||||||
|
}
|
||||||
|
|
||||||
|
SetChanged();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::ChipMulKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
|
||||||
|
{
|
||||||
|
if( Key==13 )
|
||||||
|
m_btnOk->SetFocus();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::SetChanged()
|
||||||
|
{
|
||||||
|
if(m_iBet>=0 && m_iChip>=0 && (m_iBet!=g_iBetPolicy || m_iChip!=g_iChipPolicy
|
||||||
|
|| m_nMul!=g_nChipMul)){
|
||||||
|
m_cbIndPolicy->Checked = true;
|
||||||
|
m_btnOk->SetFocus();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
|
||||||
|
{
|
||||||
|
if(X < 0 || Y < 0 || X > Width || Y > Height)
|
||||||
|
ModalResult = mrCancel;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
|
||||||
|
{
|
||||||
|
// DebugPrint("mouse move");
|
||||||
|
if(!m_bMouseOver && X>10 && X<Width-10 && Y>10 && Y<Height-10){
|
||||||
|
m_bMouseOver = true;
|
||||||
|
if(MouseCapture){
|
||||||
|
MouseCapture = false;
|
||||||
|
// DebugPrint("discaptured %d - %d", X, Y);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::FormShow(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
if(cPos.X>=0 && cPos.Y>=0 && cPos.X<=Width && cPos.Y<=Height){
|
||||||
|
m_bMouseOver = true;
|
||||||
|
MouseCapture = false;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
m_bMouseOver = false;
|
||||||
|
MouseCapture = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::FormMouseEnter(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
// DebugPrint("mouse enter %d - %d", cPos.X, cPos.Y);
|
||||||
|
if(cPos.X>=0 && cPos.Y>=0 && cPos.X<=Width && cPos.Y<=Height){
|
||||||
|
m_bMouseOver = true;
|
||||||
|
if(MouseCapture){
|
||||||
|
MouseCapture = false;
|
||||||
|
// DebugPrint("discaptured");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::FormMouseLeave(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
// DebugPrint("mouse leave %d - %d of %d - %d", cPos.X, cPos.Y);
|
||||||
|
if((cPos.X<=10 || cPos.Y<=10 || cPos.X>=Width-10 || cPos.Y>=Height-10)){
|
||||||
|
m_bMouseOver = false;
|
||||||
|
if(!MouseCapture){
|
||||||
|
MouseCapture = true;
|
||||||
|
// DebugPrint("captured");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::WMKillFocus(TWMKillFocus &Message)
|
||||||
|
{
|
||||||
|
if(!m_bMouseOver)
|
||||||
|
ModalResult = mrCancel;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::ComboCloseUp(TObject *Sender)
|
||||||
|
{
|
||||||
|
TComboBox* pCB = (TComboBox*)Sender;
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
if((cPos.X<=10 || cPos.Y<=10 || cPos.X>=Width-10 || cPos.Y>=Height-10)){
|
||||||
|
cPos = pCB->ClientToScreen(TPoint(pCB->Width-10, pCB->Height/2));
|
||||||
|
SetCursorPos(cPos.X, cPos.Y);
|
||||||
|
m_bMouseOver = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTableIPForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
|
||||||
|
{
|
||||||
|
if(Key==VK_ESCAPE)
|
||||||
|
ModalResult = mrCancel;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -0,0 +1,153 @@
|
|||||||
|
object TableIPForm: TTableIPForm
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = []
|
||||||
|
BorderStyle = bsNone
|
||||||
|
ClientHeight = 86
|
||||||
|
ClientWidth = 399
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
KeyPreview = True
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnKeyDown = FormKeyDown
|
||||||
|
OnMouseDown = FormMouseDown
|
||||||
|
OnMouseMove = FormMouseMove
|
||||||
|
OnShow = FormShow
|
||||||
|
TextHeight = 15
|
||||||
|
object m_panBack: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 399
|
||||||
|
Height = 86
|
||||||
|
Align = alClient
|
||||||
|
BevelKind = bkFlat
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Ctl3D = True
|
||||||
|
FullRepaint = False
|
||||||
|
ParentCtl3D = False
|
||||||
|
ShowCaption = False
|
||||||
|
TabOrder = 0
|
||||||
|
OnMouseEnter = FormMouseEnter
|
||||||
|
OnMouseLeave = FormMouseLeave
|
||||||
|
object m_btnOk: TButton
|
||||||
|
Left = 316
|
||||||
|
Top = 46
|
||||||
|
Width = 65
|
||||||
|
Height = 25
|
||||||
|
Caption = #30830#23450
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = OkClick
|
||||||
|
end
|
||||||
|
object m_cbChips: TComboBox
|
||||||
|
Left = 166
|
||||||
|
Top = 14
|
||||||
|
Width = 135
|
||||||
|
Height = 22
|
||||||
|
Hint = #35831#36873#25321#27880#30721
|
||||||
|
ParentCustomHint = False
|
||||||
|
AutoDropDown = True
|
||||||
|
AutoCloseUp = True
|
||||||
|
Color = clWhite
|
||||||
|
DoubleBuffered = False
|
||||||
|
DropDownCount = 20
|
||||||
|
DropDownWidth = 200
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentDoubleBuffered = False
|
||||||
|
ParentFont = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = False
|
||||||
|
TabOrder = 1
|
||||||
|
Text = #35831#36873#25321#27880#30721
|
||||||
|
OnChange = PolicyChange
|
||||||
|
OnCloseUp = ComboCloseUp
|
||||||
|
end
|
||||||
|
object m_cbBets: TComboBox
|
||||||
|
Left = 14
|
||||||
|
Top = 14
|
||||||
|
Width = 135
|
||||||
|
Height = 22
|
||||||
|
Hint = #35831#36873#25321#25171#27861
|
||||||
|
ParentCustomHint = False
|
||||||
|
AutoDropDown = True
|
||||||
|
AutoCloseUp = True
|
||||||
|
Color = clWhite
|
||||||
|
DoubleBuffered = False
|
||||||
|
DropDownCount = 20
|
||||||
|
DropDownWidth = 200
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentDoubleBuffered = False
|
||||||
|
ParentFont = False
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = False
|
||||||
|
TabOrder = 2
|
||||||
|
Text = #35831#36873#25321#25171#27861
|
||||||
|
OnChange = PolicyChange
|
||||||
|
OnCloseUp = ComboCloseUp
|
||||||
|
end
|
||||||
|
object m_cbIndPolicy: TCheckBox
|
||||||
|
Left = 166
|
||||||
|
Top = 50
|
||||||
|
Width = 97
|
||||||
|
Height = 17
|
||||||
|
Caption = #21551#29992#29420#31435#31574#30053
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object m_leChipMul: TLabeledEdit
|
||||||
|
Left = 342
|
||||||
|
Top = 14
|
||||||
|
Width = 39
|
||||||
|
Height = 21
|
||||||
|
Alignment = taCenter
|
||||||
|
AutoSize = False
|
||||||
|
EditLabel.Width = 26
|
||||||
|
EditLabel.Height = 21
|
||||||
|
EditLabel.Caption = #20493#25968
|
||||||
|
Enabled = False
|
||||||
|
LabelPosition = lpLeft
|
||||||
|
NumbersOnly = True
|
||||||
|
TabOrder = 4
|
||||||
|
Text = ''
|
||||||
|
OnExit = ChipMulExit
|
||||||
|
OnKeyDown = ChipMulKeyDown
|
||||||
|
end
|
||||||
|
object m_cbRoad: TComboBox
|
||||||
|
Left = 14
|
||||||
|
Top = 47
|
||||||
|
Width = 66
|
||||||
|
Height = 22
|
||||||
|
AutoComplete = False
|
||||||
|
Style = csDropDownList
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ItemIndex = 0
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 5
|
||||||
|
Text = #20845#29664#36335
|
||||||
|
OnCloseUp = ComboCloseUp
|
||||||
|
Items.Strings = (
|
||||||
|
#20845#29664#36335
|
||||||
|
#22823#36335
|
||||||
|
#22823#30524#36335
|
||||||
|
#23567#36335
|
||||||
|
#23567#24378#36335)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
@@ -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
|
||||||
+190
@@ -0,0 +1,190 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include "TableSet.h"
|
||||||
|
#include "GameUnit.h"
|
||||||
|
#include "UtilityUnit.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TTabSetForm::TTabSetForm(TComponent* Owner, int nGame, int nShow, int nRun)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
m_nGame = nGame;
|
||||||
|
m_nShow = nShow < 0 || nShow>nGame ? nGame : nShow;
|
||||||
|
m_nRun = nRun < 0 || nRun>m_nShow ? m_nShow : nRun;
|
||||||
|
m_iRun = 0;
|
||||||
|
m_bMouseOver = false;
|
||||||
|
|
||||||
|
//根据game数量添加台桌显示选项
|
||||||
|
int n = (nGame - 30) / 15;
|
||||||
|
if(0 == (nGame % 15)) n--;
|
||||||
|
for(int i=0; i<n; i++){
|
||||||
|
String str = IntToStr(45 + i*15) + "台";
|
||||||
|
m_cbShow->AddItem(str, NULL);
|
||||||
|
}
|
||||||
|
m_cbShow->AddItem("全选", NULL);
|
||||||
|
|
||||||
|
if(nShow<0 || nShow>=nGame)
|
||||||
|
m_iShow = m_cbShow->Items->Count - 1;
|
||||||
|
else
|
||||||
|
m_iShow = (m_nShow / 15) - 1;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTabSetForm::FormCreate(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_cbShow->ItemIndex = m_iShow;
|
||||||
|
OnShowChange(NULL);
|
||||||
|
m_cbShow->Enabled = !g_bGameOn;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTabSetForm::OnShowChange(TObject *Sender)
|
||||||
|
{
|
||||||
|
TComboBox* pShow = (TComboBox*)Sender;
|
||||||
|
if(pShow){
|
||||||
|
m_iShow = pShow->ItemIndex;
|
||||||
|
if(m_iShow == m_cbShow->Items->Count-1)
|
||||||
|
m_nShow = m_nGame;
|
||||||
|
else
|
||||||
|
m_nShow = (m_iShow+1) * 15;
|
||||||
|
}
|
||||||
|
|
||||||
|
for(int i=m_cbRun->Items->Count-1; i>2; i--)
|
||||||
|
m_cbRun->Items->Delete(i);
|
||||||
|
|
||||||
|
//根据显示数量添加台桌运行选项
|
||||||
|
int n = m_nShow / 15;
|
||||||
|
if(0 == (m_nShow % 15)) n--;
|
||||||
|
for(int i=0; i<n; i++){
|
||||||
|
String str = IntToStr(15 + i*15) + "台";
|
||||||
|
m_cbRun->AddItem(str, NULL);
|
||||||
|
}
|
||||||
|
m_cbRun->AddItem("全选", NULL);
|
||||||
|
|
||||||
|
if(m_nRun >= m_nShow){
|
||||||
|
m_nRun = m_nShow;
|
||||||
|
m_cbRun->ItemIndex = m_iRun = m_cbRun->Items->Count - 1;
|
||||||
|
}
|
||||||
|
else if(m_nRun>=15){
|
||||||
|
m_cbRun->ItemIndex = m_iRun = m_nRun / 15 + 2;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
m_cbRun->ItemIndex = m_iRun = m_nRun / 5;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTabSetForm::OnRunChange(TObject *Sender)
|
||||||
|
{
|
||||||
|
m_iRun = m_cbRun->ItemIndex;
|
||||||
|
|
||||||
|
if(m_iRun==m_cbRun->Items->Count - 1)
|
||||||
|
m_nRun = m_nShow;
|
||||||
|
else if(m_iRun>=3)
|
||||||
|
m_nRun = (m_iRun-2) * 15;
|
||||||
|
else
|
||||||
|
m_nRun = m_iRun * 5;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTabSetForm::OnOkClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
if(m_iShow==m_cbShow->Items->Count-1)
|
||||||
|
m_nShow = -1;
|
||||||
|
if(m_iRun==m_cbRun->Items->Count-1)
|
||||||
|
m_nRun = -1;
|
||||||
|
|
||||||
|
if(m_cbResetIPs->Checked){
|
||||||
|
for(int i=0; i<g_aGames.size(); i++)
|
||||||
|
g_aGames[i]->ResetIP();
|
||||||
|
|
||||||
|
g_aIPGames.ClearAll();
|
||||||
|
}
|
||||||
|
|
||||||
|
ModalResult = mrOk;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTabSetForm::FormShow(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
|
||||||
|
if(cPos.X>=0 && cPos.Y>=0 && cPos.X<=Width && cPos.Y<=Height){
|
||||||
|
m_bMouseOver = true;
|
||||||
|
MouseCapture = false;
|
||||||
|
// DebugPrint("discaptured");
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
m_bMouseOver = false;
|
||||||
|
MouseCapture = true;
|
||||||
|
// DebugPrint("captured");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTabSetForm::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
|
||||||
|
{
|
||||||
|
if(X < 0 || Y < 0 || X > Width || Y > Height)
|
||||||
|
ModalResult = mrCancel;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTabSetForm::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
|
||||||
|
{
|
||||||
|
ResetIdle();
|
||||||
|
|
||||||
|
if(!m_bMouseOver && X>10 && X<Width-10 && Y>10 && Y<Height-10){
|
||||||
|
m_bMouseOver = true;
|
||||||
|
MouseCapture = false;
|
||||||
|
// DebugPrint("discaptured %d - %d", X, Y);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTabSetForm::WMKillFocus(TWMKillFocus &Message)
|
||||||
|
{
|
||||||
|
if(!m_bMouseOver)
|
||||||
|
ModalResult = mrCancel;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTabSetForm::ComboCloseUp(TObject *Sender)
|
||||||
|
{
|
||||||
|
TComboBox* pCB = (TComboBox*)Sender;
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
if((cPos.X<=10 || cPos.Y<=10 || cPos.X>=Width-10 || cPos.Y>=Height-10)){
|
||||||
|
cPos = pCB->ClientToScreen(TPoint(pCB->Width-10, pCB->Height/2));
|
||||||
|
SetCursorPos(cPos.X, cPos.Y);
|
||||||
|
m_bMouseOver = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTabSetForm::FormMouseEnter(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
// DebugPrint("mouse enter %d - %d", cPos.X, cPos.Y);
|
||||||
|
if(cPos.X>=0 && cPos.Y>=0 && cPos.X<=Width && cPos.Y<=Height){
|
||||||
|
m_bMouseOver = true;
|
||||||
|
if(MouseCapture){
|
||||||
|
MouseCapture = false;
|
||||||
|
// DebugPrint("discaptured");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTabSetForm::FormMouseLeave(TObject *Sender)
|
||||||
|
{
|
||||||
|
TPoint cPos = ScreenToClient(Mouse->CursorPos);
|
||||||
|
// DebugPrint("mouse leave %d - %d of %d - %d", cPos.X, cPos.Y);
|
||||||
|
if((cPos.X<=10 || cPos.Y<=10 || cPos.X>=Width-10 || cPos.Y>=Height-10)){
|
||||||
|
m_bMouseOver = false;
|
||||||
|
if(!MouseCapture){
|
||||||
|
MouseCapture = true;
|
||||||
|
// DebugPrint("captured");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TTabSetForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
|
||||||
|
{
|
||||||
|
if(Key==VK_ESCAPE)
|
||||||
|
ModalResult = mrCancel;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -0,0 +1,97 @@
|
|||||||
|
object TabSetForm: TTabSetForm
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
BorderIcons = []
|
||||||
|
BorderStyle = bsNone
|
||||||
|
ClientHeight = 93
|
||||||
|
ClientWidth = 273
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = 'Segoe UI'
|
||||||
|
Font.Style = []
|
||||||
|
KeyPreview = True
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnKeyDown = FormKeyDown
|
||||||
|
OnMouseDown = FormMouseDown
|
||||||
|
OnMouseMove = FormMouseMove
|
||||||
|
OnShow = FormShow
|
||||||
|
TextHeight = 15
|
||||||
|
object m_panBack: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 273
|
||||||
|
Height = 93
|
||||||
|
Align = alClient
|
||||||
|
Ctl3D = True
|
||||||
|
FullRepaint = False
|
||||||
|
ParentCtl3D = False
|
||||||
|
ShowCaption = False
|
||||||
|
TabOrder = 0
|
||||||
|
OnMouseEnter = FormMouseEnter
|
||||||
|
OnMouseLeave = FormMouseLeave
|
||||||
|
object m_lblShow: TLabel
|
||||||
|
Left = 23
|
||||||
|
Top = 17
|
||||||
|
Width = 26
|
||||||
|
Height = 15
|
||||||
|
Caption = #26174#31034
|
||||||
|
end
|
||||||
|
object m_lblTabRun: TLabel
|
||||||
|
Left = 145
|
||||||
|
Top = 17
|
||||||
|
Width = 26
|
||||||
|
Height = 15
|
||||||
|
Caption = #36816#34892
|
||||||
|
end
|
||||||
|
object m_btnOk: TButton
|
||||||
|
Left = 186
|
||||||
|
Top = 52
|
||||||
|
Width = 60
|
||||||
|
Height = 25
|
||||||
|
Caption = #30830#23450
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = OnOkClick
|
||||||
|
end
|
||||||
|
object m_cbResetIPs: TCheckBox
|
||||||
|
Left = 23
|
||||||
|
Top = 56
|
||||||
|
Width = 106
|
||||||
|
Height = 17
|
||||||
|
Hint = #28165#38500#20840#37096#21488#26700#30340#29420#31435#31574#30053
|
||||||
|
Caption = #37325#32622#21488#26700#31574#30053
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object m_cbRun: TComboBox
|
||||||
|
Left = 179
|
||||||
|
Top = 14
|
||||||
|
Width = 67
|
||||||
|
Height = 23
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 2
|
||||||
|
OnChange = OnRunChange
|
||||||
|
OnCloseUp = ComboCloseUp
|
||||||
|
Items.Strings = (
|
||||||
|
#20840#19981#36873
|
||||||
|
'5'#21488
|
||||||
|
'10'#21488
|
||||||
|
#20840#36873)
|
||||||
|
end
|
||||||
|
object m_cbShow: TComboBox
|
||||||
|
Left = 58
|
||||||
|
Top = 14
|
||||||
|
Width = 57
|
||||||
|
Height = 23
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 3
|
||||||
|
OnChange = OnShowChange
|
||||||
|
OnCloseUp = ComboCloseUp
|
||||||
|
Items.Strings = (
|
||||||
|
'15'#21488
|
||||||
|
'30'#21488)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
+50
@@ -0,0 +1,50 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef TableSetH
|
||||||
|
#define TableSetH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <System.Classes.hpp>
|
||||||
|
#include <Vcl.Controls.hpp>
|
||||||
|
#include <Vcl.StdCtrls.hpp>
|
||||||
|
#include <Vcl.Forms.hpp>
|
||||||
|
#include <Vcl.ExtCtrls.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TTabSetForm : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TLabel *m_lblShow;
|
||||||
|
TLabel *m_lblTabRun;
|
||||||
|
TComboBox *m_cbShow;
|
||||||
|
TComboBox *m_cbRun;
|
||||||
|
TButton *m_btnOk;
|
||||||
|
TCheckBox *m_cbResetIPs;
|
||||||
|
TPanel *m_panBack;
|
||||||
|
|
||||||
|
void __fastcall FormCreate(TObject *Sender);
|
||||||
|
void __fastcall FormShow(TObject *Sender);
|
||||||
|
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 OnShowChange(TObject *Sender);
|
||||||
|
void __fastcall OnRunChange(TObject *Sender);
|
||||||
|
void __fastcall OnOkClick(TObject *Sender);
|
||||||
|
void __fastcall ComboCloseUp(TObject *Sender);
|
||||||
|
void __fastcall FormMouseEnter(TObject *Sender);
|
||||||
|
void __fastcall FormMouseLeave(TObject *Sender);
|
||||||
|
void __fastcall FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
|
||||||
|
|
||||||
|
private: // User declarations
|
||||||
|
int m_iShow, m_iRun, m_nGame;
|
||||||
|
bool m_bMouseOver;
|
||||||
|
|
||||||
|
MESSAGE void __fastcall WMKillFocus(TWMKillFocus &Message);
|
||||||
|
|
||||||
|
BEGIN_MESSAGE_MAP
|
||||||
|
MESSAGE_HANDLER(WM_KILLFOCUS, TWMKillFocus, WMKillFocus)
|
||||||
|
END_MESSAGE_MAP(TForm)
|
||||||
|
public: // User declarations
|
||||||
|
int m_nShow, m_nRun;
|
||||||
|
__fastcall TTabSetForm(TComponent* Owner, int nGame, int nShow, int nRun);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
+1019
File diff suppressed because it is too large
Load Diff
+1280
File diff suppressed because it is too large
Load Diff
+136
@@ -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
|
||||||
@@ -0,0 +1,89 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "UtilityUnit.h"
|
||||||
|
#include "GlobalUnit.h"
|
||||||
|
#include "RBmasterMain.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
|
||||||
|
int g_iPlatform = 0; //游戏平台
|
||||||
|
unsigned g_tmCurrent = 0,
|
||||||
|
g_tmIdle = 0; //软件无操作时间
|
||||||
|
bool g_bBacData = false;
|
||||||
|
|
||||||
|
void __fastcall ResetIdle()
|
||||||
|
{
|
||||||
|
if(g_tmIdle==600)
|
||||||
|
MainForm->GetCefFrame( MAIN_FRAME )->ExecuteJavaScript("tmRetry=90;console.log('tmRetry:',tmRetry);", "", 0);
|
||||||
|
|
||||||
|
g_tmIdle = 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
_di_ICefFrame __fastcall GetCefFrame( int type )
|
||||||
|
{
|
||||||
|
return MainForm->GetCefFrame( type );
|
||||||
|
}
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
TStringList* __fastcall GetJQValue( String& str, _di_ICefFrame frame )
|
||||||
|
{
|
||||||
|
return MainForm->GetJQValue( str, frame );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall SetStatus( int iStatus, String str )
|
||||||
|
{
|
||||||
|
MainForm->m_strStatus = str;
|
||||||
|
MainForm->Perform(UM_STATUS, iStatus, (NativeInt)0 );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall UpdateStatistics()
|
||||||
|
{
|
||||||
|
MainForm->Perform(UM_STATISTICS, 0, (NativeInt)0 );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall AutoBetEnd(int code)
|
||||||
|
{
|
||||||
|
PostMessage( MainForm->Handle, UM_AUTOBETEND, code, 0 );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
//bool __fastcall IsGameOn()
|
||||||
|
//{
|
||||||
|
// return MainForm->IsGameOn();
|
||||||
|
//}
|
||||||
|
////---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
int __fastcall IsPolicyInUse(int type, int iPolicy)
|
||||||
|
{
|
||||||
|
return MainForm->IsPolicyInUse(type, iPolicy);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
char sufCard[3][8] = {"_,_,_", ",_,_", ",_"};
|
||||||
|
String __fastcall UnifyCard(String card)
|
||||||
|
{
|
||||||
|
String uc;
|
||||||
|
|
||||||
|
int len = card.Length();
|
||||||
|
if(len==0)
|
||||||
|
uc = sufCard[0];
|
||||||
|
else if(len==1)
|
||||||
|
uc = card + sufCard[1];
|
||||||
|
else if(len==3)
|
||||||
|
uc = card + sufCard[2];
|
||||||
|
else if(len==5)
|
||||||
|
uc = card;
|
||||||
|
else
|
||||||
|
DebugPrint("!!!====abnormal card : %s", ((AnsiString)uc).c_str());
|
||||||
|
|
||||||
|
return uc;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
@@ -0,0 +1,27 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
#ifndef UtilityUnitH
|
||||||
|
#define UtilityUnitH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include "CEF4DelphiVCLRTL.hpp"
|
||||||
|
|
||||||
|
#define MAIN_FRAME 0
|
||||||
|
|
||||||
|
#define PF_PA 1
|
||||||
|
#define PF_AB 2
|
||||||
|
#define PF_DB 3
|
||||||
|
|
||||||
|
void __fastcall ResetIdle();
|
||||||
|
_di_ICefFrame __fastcall GetCefFrame( int type );
|
||||||
|
TStringList* __fastcall GetJQValue( String& str, _di_ICefFrame frame );
|
||||||
|
void __fastcall SetStatus( int iStatus, String str );
|
||||||
|
void __fastcall UpdateStatistics();
|
||||||
|
void __fastcall AutoBetEnd(int code);
|
||||||
|
String __fastcall UnifyCard(String card);
|
||||||
|
//bool __fastcall IsGameOn();
|
||||||
|
int __fastcall IsPolicyInUse(int type, int iPolicy);
|
||||||
|
|
||||||
|
extern int g_iPlatform; //ÓÎϷƽ̨
|
||||||
|
extern unsigned g_tmCurrent, g_tmIdle;
|
||||||
|
extern bool g_bBacData;
|
||||||
|
#endif
|
||||||
Binary file not shown.
|
After Width: | Height: | Size: 76 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 1.9 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 1.9 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.1 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 119 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 788 KiB |
Reference in New Issue
Block a user