//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "PolicyEditFormUnit.h"
#include "PolicySave.h"
#include "GlobalUnit.h"
#include "GameUnit.h"
#include "UtilityUnit.h"
#include "Chip02FrameUnit.h"
#include "Bet02FrameUnit.h"
#include "Bet03FrameUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

#define COLOR_OVEN      TColor(0x00FFFCF2)
#define C_OD 	0  	//序号
#define C_CP    1   //切入点/注码
#define C_PD    2   //下注/赢走向
//#define C_ND    3   //输走向
//---------------------------------------------------------------------------
__fastcall TPolicyEditForm::TPolicyEditForm(TComponent* Owner, int iType)
	: TForm(Owner)
{
	m_iType = iType;
	m_editPolicy = NULL;
	m_colEdit = m_rowEdit = -1;
	m_nRows = m_nNewNum = 0;
	m_bRowChanged = m_bColChanged = m_bRoadChanged = false;

	m_aDeadRB[0] = m_rbDead0;
	m_aDeadRB[1] = m_rbDead1;
	m_aDeadRB[2] = m_rbDead2;

	m_frmSP = NULL;

	m_cbLevelInstant->Hint = "若勾选，则达到条件即刻升降层级(未结算数据计入下一层级)\n否则，将等待已下注台桌全部结算完后再决定升降";
	m_cbLevelIndie->Hint = "若勾选，则升降层级时赢输次差清零\n否则，仅在重置或爆缆重启时才清零";
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::FormCreate(TObject *Sender)
{
	m_pEditor->Height = m_sg->DefaultRowHeight;
	m_pEditor->Parent = m_sg;
	m_pCombo->Height = m_sg->DefaultRowHeight;
	m_pCombo->Parent = m_sg;
	m_sg->Canvas->Font = m_sg->Font;

	m_tsTop->TabIndex = m_iType;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::FormClose(TObject *Sender, TCloseAction &Action)
{
	ClearSPFrame();
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
	ResetIdle();
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::TopMeasureTab(TObject *Sender, int Index, int &TabWidth)
{
	TabWidth = (m_tsTop->Width - DPIX(40)) / 2;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::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;

	TabCanvas->TextOut(R.Left + l, R.Top + t, (*pTS->Tabs)[Index]);

	TabCanvas->Font->Color = clBlack;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::TopChange(TObject *Sender, int NewTab, bool &AllowChange)
{
	SetView(NewTab);
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::SetView(int type)
{
	m_iType = type;
	m_sType = type==TYPE_P_BET ? "打法" : "注码";

	m_lblPolicy->Caption = "编辑" + m_sType + "：";
	m_cbPolicy->Text = "请选择" + m_sType;
	m_btnSave->Caption = "保存" + m_sType;
	m_btnSelect->Caption = "选择该" + m_sType;
	m_panChip->Visible = type==TYPE_P_CHIP;
	m_rgRoad->Visible = type==TYPE_P_BET;

	m_cbPolicy->Clear();
	Clear();

	vector<TBasePolicy*>& aPolicies = type==TYPE_P_BET ? g_aBetPolicies : g_aChipPolicies;
	m_iSelPolicy = type==TYPE_P_BET ? g_iBetPolicy : g_iChipPolicy;
	if(type==TYPE_P_BET){
		m_sg->ColCount = 3;
		m_sg->Cells[0][0] = "序号";
		m_sg->Cells[1][0] = "切入点";
		m_sg->Cells[2][0] = "下注";
		m_sg->ColWidths[0] = DPIX(97);
		m_sg->ColWidths[1] = DPIX(150);
		m_sg->ColWidths[2] = DPIX(150);
	}

	for(int i=0; i<aPolicies.size(); i++){
		TBasePolicy* pPolicy = aPolicies[i];

		m_cbPolicy->AddItem(pPolicy->name, NULL);
		if(m_iSelPolicy==i){
			m_cbPolicy->ItemIndex = m_iSelPolicy;
			m_editPolicy = pPolicy;

			m_btnDel->Enabled = pPolicy->type>1;
			if(m_iType==TYPE_P_BET)
				m_rgRoad->ItemIndex = ((TBetPolicy*)pPolicy)->road;
			else{
				m_aDeadRB[((TChipPolicy*)pPolicy)->dead]->Checked = true;
				m_edDeadPause->Text = ((TChipPolicy*)pPolicy)->deadPause;
			}
		}

		if(m_iType==TYPE_P_CHIP && (pPolicy->kind==KIND_CHIP_NOR || pPolicy->kind==KIND_CHIP_RAN)){
			m_pCombo->AddItem(pPolicy->name, (TObject*)pPolicy->id);
			m_aCPMap.push_back(i);
		}
	}

	CalcNewName();
	if(m_iSelPolicy<0)
		m_cbPolicy->Text = AutoNewName();

	UpdateGrid();
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::ClearSPFrame()
{
	if(m_frmSP){
		delete m_frmSP;
		m_frmSP = NULL;
	}
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::CalcNewName()
{
    m_nNewNum = 0;

    String sPreNew = "新建" + m_sType;
    int lPre = sPreNew.Length();
    for(int i=0; i<m_cbPolicy->Items->Count; i++){
        String name = m_cbPolicy->Items->Strings[i];
        if(name.Pos(sPreNew)==1){
        	int len = name.Length();
            String suf = name.SubString(lPre+1, len-lPre);
            int num = 0;
            if(TryStrToInt(suf, num) && num>m_nNewNum)
                m_nNewNum = num;
        }
    }
}
//---------------------------------------------------------------------------
String __fastcall TPolicyEditForm::AutoNewName()
{
    return "新建" + m_sType + IntToStr(m_nNewNum+1);
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::UpdateGrid()
{
    m_btnSave->Enabled = m_bRowChanged = m_bColChanged = !m_editPolicy;
    m_bRoadChanged = false;
    m_btnSelect->Enabled = m_editPolicy;
	m_btnDel->Enabled = m_editPolicy && m_editPolicy->type>1;

	ClearSPFrame();

	if(m_iType==TYPE_P_BET){
		TBetPolicy* pBP = m_editPolicy ? (TBetPolicy*)m_editPolicy : NULL;
		if(pBP && pBP->kind>=KIND_BET_ASK){ //特殊打法
			if(pBP->kind==KIND_BET_ASK){ //庄闲问路
				TBet02Frame* frmSP = new TBet02Frame(NULL);
				m_frmSP = frmSP;

				for(int i=0; i<2; i++)
					frmSP->m_rgs[i]->OnClick = OnAskRoadClick;
			}
			else if(pBP->kind==KIND_BET_DIF){
				TBet03Frame* frmSP = new TBet03Frame(NULL);
				m_frmSP = frmSP;

				frmSP->m_leBlP->OnChange = OnSPEditChange;
				frmSP->m_lePlB->OnChange = OnSPEditChange;
				frmSP->m_edBlP->OnChange = OnSPEditChange;
				frmSP->m_edPlB->OnChange = OnSPEditChange;
			}

			m_frmSP->Parent = m_panEdit;
            m_frmSP->Width = m_panEdit->Width;
			m_frmSP->Show();

			return;
		}

		m_rgRoad->ItemIndex = pBP ? pBP->road : 0;
	}
	else{
		TChipPolicy* pCP = m_editPolicy ? (TChipPolicy*)m_editPolicy : NULL;
		if(pCP && pCP->kind==KIND_CHIP_RAN){ //随机注码
			TChip02Frame* frmSP = new TChip02Frame(NULL);
			m_frmSP = frmSP;

			frmSP->m_leMinChip->OnChange = OnSPEditChange;
			frmSP->m_leMaxChip->OnChange = OnSPEditChange;
			frmSP->Parent = m_panEdit;
			frmSP->Show();

			return;
		}

		int iDead = pCP ? pCP->dead : 0;
		m_aDeadRB[iDead]->Checked = true;
		m_edDeadPause->Text = pCP ? pCP->deadPause : 0;

		int kind = pCP ? pCP->kind : 0;
		m_cbKind->OnChange = NULL;
		m_cbKind->ItemIndex = kind;
		m_cbKind->OnChange = OnKindChange;
		m_cbKind->Enabled = pCP ? false : true;

		if(kind==KIND_CHIP_HAN){ //层级注码
			m_cbTierWinRet->OnClick = NULL;
			m_cbTierWinRet->Checked = pCP ? ((TTierPolicy*)pCP)->bTierWinRet : true;
			m_cbTierWinRet->OnClick = OnChipOptionClick;

			m_cbTierAccChip->OnClick = NULL;
			m_cbTierAccChip->Checked = pCP ? ((TTierPolicy*)pCP)->bTierAccChip : true;
			m_cbTierAccChip->OnClick = OnChipOptionClick;

			m_cbTierLos0->OnClick = NULL;
			m_cbTierLos0->Checked = pCP ? ((TTierPolicy*)pCP)->bTierLos0 : false;
			m_cbTierLos0->OnClick = OnChipOptionClick;
		}
		else if(kind>=KIND_CHIP_LEV && kind<=KIND_CHIP_WLD){ //阶梯注码
			m_cbLevelTotalDiff->OnClick = NULL;
			m_cbLevelTotalDiff->Checked = pCP ? ((TLevelPolicy*)pCP)->bTotalDiff : false;
			m_cbLevelTotalDiff->OnClick = OnChipOptionClick;

			m_cbLevelInstant->OnClick = NULL;
			m_cbLevelInstant->Checked = pCP ? ((TLevelPolicy*)pCP)->bInstant : false;
			m_cbLevelInstant->OnClick = OnChipOptionClick;

			if(kind==KIND_CHIP_WLD){
				m_cbLevelIndie->OnClick = NULL;
				m_cbLevelIndie->Checked = pCP ? ((TWLDiffPolicy*)pCP)->bIndie : false;
				m_cbLevelIndie->OnClick = OnChipOptionClick;
			}
		}

		InitChipGrid(kind);
	}

	int size = m_nRows = m_editPolicy ? m_editPolicy->aRows.size() : 0;
	if(!size) m_nRows = 1;

	LockWindowUpdate( m_sg->Handle );

	if(m_nRows>=m_sg->VisibleRowCount)
        m_sg->RowCount = m_nRows+2;
	else
		m_sg->RowCount = m_sg->VisibleRowCount+1;

	if(size){
		vector<TBaseRow*>& rows = m_editPolicy->aRows;

        int ind = 1;
		if(m_iType==TYPE_P_CHIP){
			TChipPolicy* pCP = (TChipPolicy*)m_editPolicy;
			for(int i=0; i<size; i++){
				TChipRow* row = (TChipRow*)rows[i];

				m_sg->Cells[0][ind] = row->iSeq;

				if(pCP->kind==KIND_CHIP_HAN){
					m_sg->Cells[1][ind] = row->chip;
					m_sg->Cells[2][ind] = ((TTierRow*)row)->hands;
					m_sg->Cells[3][ind] = row->iWin;
					m_sg->Cells[4][ind] = row->iLos;
				}
				else if(pCP->kind==KIND_CHIP_LEV || pCP->kind==KIND_CHIP_WLD){
					m_sg->Cells[1][ind] = row->chip;
					m_sg->Cells[2][ind] = ((TLevelRow*)row)->nCondWin;
					m_sg->Cells[3][ind] = row->iWin;
					m_sg->Cells[4][ind] = ((TLevelRow*)row)->nCondLos;
					m_sg->Cells[5][ind] = row->iLos;
				}
				else if(pCP->kind==KIND_CHIP_COM){
					TComboRow* cr = (TComboRow*)row;
					CheckComboRow(cr);

					int iCombo = m_pCombo->Items->IndexOfObject((TObject*)cr->id);
					m_sg->Cells[1][ind] = m_pCombo->Items->Strings[iCombo];// .GetText();
					m_sg->Objects[1][ind] = (TObject*)iCombo;
					m_sg->Cells[2][ind] = cr->chip;
					m_sg->Cells[3][ind] = cr->nCondWin;
					m_sg->Cells[4][ind] = cr->iWin;
					m_sg->Cells[5][ind] = cr->nCondLos;
					m_sg->Cells[6][ind] = cr->iLos;
				}
				else{
					m_sg->Cells[1][ind] = row->chip;
					m_sg->Cells[2][ind] = row->iWin;
					m_sg->Cells[3][ind] = row->iLos;
				}

                ind++;
            }
        }
        else{
            for(int i=0; i<size; i++){
                TBetRow* row = (TBetRow*)rows[i];

                m_sg->Cells[0][ind] = ind;

                //转换condition
                String cond;
				for(int j=0; j<row->cond.size(); j++){
					//item&0x3=颜色 (item&7C)>>2=个数 item&0x80=是否定长
					int item = row->cond[j];
					bool up = item & 0x80;
					char ch = item & 0x3;
					int num = (item & 0x7C) >> 2;

					if(ch==1) cond += up ? "A" : "a";
					else if(ch==2) cond += up ? "S" : "s";
					else if(ch==3) cond += up ? "D" : "d";
					if(num>1) cond += IntToStr(num);
				}
				m_sg->Cells[1][ind] = cond;

				//转换bet
				String bets;
				for(int j=0; j<row->bets.size(); j++){
					char bet = row->bets[j];
					if(bet==1) bets += "a";      	//庄/红
					else if(bet==2) bets += "s";  //闲/蓝
					else if(bet==3) bets += "d";  //和
					else if(bet==0) bets += "x";  //不下注
					else if(bet==4) bets += "z";  //本局停
				}
				m_sg->Cells[2][ind] = bets;

                ind++;
            }
        }
    }
    else{
    	m_sg->Cells[0][1] = 1;
    }

    SetSelection(1);

	LockWindowUpdate(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::Clear()
{
	TStringGrid* pSG = m_sg;

	for(int i=1; i<pSG->RowCount; i++){
		for( int j=0; j<pSG->ColCount; j++){
			pSG->Cells[j][i] = "";
		}
		pSG->Objects[1][i] = NULL;
	}

	m_colEdit = m_rowEdit = -1;
	m_pEditor->Visible = false;
	m_pCombo->Visible = false;
	pSG->TopRow = 1;

	TGridRect rtSel = {0,0,0,0};
	pSG->Selection = rtSel;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::GridEndEdit()
{
	if(!m_pEditor->Visible && !m_pCombo->Visible)
		return;

	if(m_pEditor->Visible){
		m_sg->Cells[m_colEdit][m_rowEdit] = m_pEditor->Text;
		m_pEditor->Visible = false;
		m_sg->SetFocus();
	}
	else if(m_pCombo->Visible){
		if(!m_sg->Cells[m_colEdit][m_rowEdit].Length()
					|| (int)m_sg->Objects[m_colEdit][m_rowEdit] != m_pCombo->ItemIndex){
			m_sg->Cells[m_colEdit][m_rowEdit] = m_pCombo->Text;
			m_sg->Objects[m_colEdit][m_rowEdit] = (TObject*)m_pCombo->ItemIndex;

			int ind = FindPolicy(TYPE_P_CHIP, (int)m_pCombo->Items->Objects[m_pCombo->ItemIndex]);
			int minChip = MinChipOfPolicy(ind);
			int multi = g_MinOnBet / minChip;
			if(g_MinOnBet % minChip) multi++;
			m_sg->Cells[2][m_rowEdit] = multi;
		}
		m_pCombo->Visible = false;
		m_sg->SetFocus();
	}

	if(!m_bColChanged && m_sg->Cells[m_colEdit][m_rowEdit]!=m_sOrig){
		m_btnSave->Enabled = m_bColChanged = true;
		m_btnSelect->Enabled = false;
	}

	m_colEdit = m_rowEdit = -1;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::SetSelection(int selRow)
{
	TGridRect rtSel = m_sg->Selection;
    if(selRow!=rtSel.Top || rtSel.Right<m_sg->ColCount-1){
        rtSel.Left = 0;
        rtSel.Right = m_sg->ColCount-1;
    	rtSel.Top = rtSel.Bottom = selRow;
	    m_sg->Selection = rtSel;
    }

	m_btnDelRow->Enabled = selRow>0;
	m_btnInsRow->Enabled = selRow>0;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::SGDrawCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, TRect &Rect, TGridDrawState State)
{
	TStringGrid* pSG = (TStringGrid*)Sender;
	String strText = pSG->Cells[ACol][ARow];
	int x=Rect.left,y=Rect.top;
	TSize szTxt = pSG->Canvas->TextExtent(strText);

	int dpi5 = DPIX(5);
	if( ARow==0 ){ //画下框线
		x += (Rect.Width() - szTxt.cx) / 2; // -- 水平居中
		y += (Rect.Height() - szTxt.cy) / 2 + 1;// -- 垂直居中

		TBrushStyle rBS = pSG->Canvas->Brush->Style;
        TColor rCl = pSG->Canvas->Brush->Color;
		pSG->Canvas->Brush->Style = bsSolid;
        pSG->Canvas->Brush->Color = clBtnFace;
		pSG->Canvas->FillRect(Rect);
		pSG->Canvas->TextOut(x,y,strText);
		pSG->Canvas->Brush->Style = rBS;
        pSG->Canvas->Brush->Color = rCl;

		TPenStyle rPS = pSG->Canvas->Pen->Style;
		pSG->Canvas->Pen->Style = psSolid;
		rCl = pSG->Canvas->Pen->Color;
		pSG->Canvas->Pen->Color = clGray;

		pSG->Canvas->MoveTo( Rect.left-dpi5, Rect.bottom );
		pSG->Canvas->LineTo( Rect.right, Rect.bottom );

		pSG->Canvas->Pen->Color = clBtnFace;
		pSG->Canvas->MoveTo( Rect.left-dpi5, Rect.top );
		pSG->Canvas->LineTo( Rect.right, Rect.top );

		pSG->Canvas->Pen->Color = rCl;
		pSG->Canvas->Pen->Style = rPS;
	}
	else{
		x += DPIX(4);
		y += (Rect.Height() - szTxt.cy) / 2 + 1;// -- 垂直居中

		bool bEven = ARow % 2;

		TBrushStyle rBS = pSG->Canvas->Brush->Style;
		TColor rBC = pSG->Canvas->Brush->Color;
		TColor rFC = pSG->Canvas->Font->Color;

		pSG->Canvas->Brush->Style = bsSolid;

		if(State.Contains(gdSelected) || m_rowEdit==ARow){
			pSG->Canvas->Brush->Color = clHotLight;
			pSG->Canvas->Font->Color = clWhite;
		}
		else
			pSG->Canvas->Brush->Color = bEven ? clWhite : COLOR_OVEN;

		pSG->Canvas->FillRect(Rect);

		if(szTxt.Width){
		if(m_iType==TYPE_P_CHIP && ACol==1){ //截断超长字符串并加...
				if(x + DPIX(2) + szTxt.Width > Rect.right){
					int xExt = x + DPIX(2) + pSG->Canvas->TextWidth("...");
					int nLen = strText.Length() - 1;
					String str = strText.SubString(1, nLen);
					int wS = pSG->Canvas->TextWidth(str);

					while( xExt + wS > Rect.right ){
						str = strText.SubString(1, --nLen);
						wS = pSG->Canvas->TextWidth(str);
					}

					strText = str + "...";
				}
			}

			pSG->Canvas->TextOut(x,y,strText);
        }

		pSG->Canvas->Brush->Style = rBS;
		pSG->Canvas->Brush->Color = rBC;
		pSG->Canvas->Font->Color = rFC;
	}
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::EditorKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
	if(Key<37 || Key>40)
		return;

	int col = m_colEdit,
		row = m_rowEdit;
	if(Key==37 && m_pEditor->SelStart==0 && m_pEditor->SelLength==0){ //最左边左键
		col--;
		Key = 0;
	}
	else if(Key==38){
		row--;
		Key = 0;
	}
	else if(Key==39 && m_pEditor->SelStart==m_pEditor->Text.Length()){
		col++;
		Key = 0;
	}
	else if(Key==40){
		row++;
		Key = 0;
	}
	else
		return;

	if(row>0)
		SGSelCell(col, row);
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::EditorKeyPress(TObject *Sender, System::WideChar &Key)
{
	if(Key==13)
		GridEndEdit();
	else if(Key<0x1E)
		return;
	else if(m_iType==TYPE_P_CHIP){
		if( Key>'9' || Key<'0' ){
			if(m_cbKind->ItemIndex==KIND_CHIP_WLD && Key=='-'
								&& (m_colEdit==2 || m_colEdit==4)){
				TEdit* pE = (TEdit*)Sender;
				if(pE->SelStart!=0 || pE->Text.Pos("-")>0)
					Key = 0;
			}
			else
				Key = 0;
		}
	}
	else{
		if(m_colEdit==C_CP){
			int iRoad = m_rgRoad->ItemIndex;
			if( (Key>'9' || Key<'0')    														//不是数字
					&& Key!='a' && Key!='A' && Key!='s' && Key!='S'	&& Key!='d' && Key!='D' ) 	//不是asd
				Key = 0;
			else if((Key=='d' || Key=='D') && iRoad>0)                  						//非珠盘不能有d
				Key = 0;
		}
		else if(m_colEdit==C_PD){
			if(Key!='a' && Key!='s' && Key!='d' && Key!='x' && Key!='z')
				Key = 0;
		}
	}
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::EditorExit(TObject *Sender)
{
	GridEndEdit();
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::ComboKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
	if(Key==37 || Key==39){
		int col = m_colEdit;
		if(Key==37)	col--;
		else col++;

		Key = 0;
		SGSelCell(col, m_rowEdit);
	}
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::SGSelCell(int col, int row)
{
	GridEndEdit();

	if(row > 0 && row <= m_nRows+1){
		if(row == m_nRows+1){
			m_nRows++;
			m_sg->Cells[0][m_nRows] = m_nRows;

			if(m_nRows>=m_sg->VisibleRowCount)
				m_sg->RowCount++;

			if(!m_bColChanged && !m_bRowChanged){
				m_btnSave->Enabled = m_bRowChanged = true;
				m_btnSelect->Enabled = false;
			}
		}

		if(m_sg->TopRow>0 && m_sg->TopRow > row)
			m_sg->TopRow--;
		else if(m_sg->TopRow + m_sg->VisibleRowCount <= row)
			m_sg->TopRow++;

		if(m_iType==TYPE_P_CHIP && m_cbKind->ItemIndex==KIND_CHIP_COM && col==1){
            TRect rc = m_sg->CellRect(col, row);
			m_pCombo->Top = rc.Top;
			m_pCombo->Left = rc.Left;
			m_pCombo->Width = rc.Right - rc.Left;
			m_pCombo->ItemIndex = m_sg->Objects[col][row] ? (int)m_sg->Objects[col][row] : 0;;
			m_pCombo->Visible = true;
			m_pCombo->SetFocus();
		}
		else if(col>0 && col<m_sg->ColCount){
			TRect rc = m_sg->CellRect(col, row);
			m_pEditor->Top = rc.Top;
			m_pEditor->Left = rc.Left;
			m_pEditor->Width = rc.Right - rc.Left;
			m_pEditor->Text = m_sg->Cells[col][row];
			m_pEditor->Visible = true;
			m_pEditor->SetFocus();
		}

		if(m_pCombo->Visible || m_pEditor->Visible){
			m_colEdit = col;
			m_rowEdit = row;
        }

		if(!m_bColChanged)
			m_sOrig = m_sg->Cells[col][row];

		SetSelection(row);
	}
	else{
		SetSelection(-1);
	}
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::SGSelectCell(TObject *Sender, System::LongInt ACol, System::LongInt ARow, bool &CanSelect)
{
	CanSelect = ARow > 0 && ARow <= m_nRows+1;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::SGKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
	ResetIdle();

	if(m_pEditor->Visible || m_pCombo->Visible)
		return;

	int row = m_sg->Selection.Top,
		col = 0;
	if(row>0){
		if(Key==37){ //选中最右格
			col = m_sg->ColCount-1;
		}
		else if(Key==39){
			col = 1;
		}
		else if(Key==38 && row>1){
			row--;
		}
		else if(Key==40 && row<m_nRows){
			row++;
		}
	}
	SGSelCell(col, row);

	Key = 0;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::SGMouseWheelDown(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled)
{
	TStringGrid* pSG = (TStringGrid*)Sender;
	SendMessage(pSG->Handle,WM_VSCROLL,SB_LINEDOWN,0);
    Handled = true;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::SGMouseWheelUp(TObject *Sender, TShiftState Shift, TPoint &MousePos, bool &Handled)
{
	TStringGrid* pSG = (TStringGrid*)Sender;
	SendMessage(pSG->Handle,WM_VSCROLL,SB_LINEUP,0);
    Handled = true;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::SGTopLeftChanged(TObject *Sender)
{
    TStringGrid* pSG = (TStringGrid*)Sender;

    if(pSG->LeftCol>0)
        pSG->LeftCol = 0;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::SGMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
	if(Button==mbLeft){
		int col, row;
		m_sg->MouseToCell(X, Y, col, row);

		SGSelCell(col, row);
	}
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnInsRowClick(TObject *Sender)
{
	TStringGrid* pSG = m_sg;
	TGridRect rtSel = pSG->Selection;

	GridEndEdit();

	int ind = rtSel.Top;
	if(ind>0){
		m_nRows++;
		m_sg->Cells[0][m_nRows] = m_nRows;

		if(m_nRows>=m_sg->VisibleRowCount)
			m_sg->RowCount++;

		for( int i=m_nRows; i>ind; i--){
			pSG->Rows[i]->Assign(pSG->Rows[i-1]);
			pSG->Cells[0][i] = i;
		}

		for(int i=1; i<pSG->ColCount; i++){
			pSG->Cells[i][ind] = "";
		}
		pSG->Objects[1][ind] = NULL;

		if(!m_bRowChanged){
			m_btnSave->Enabled = m_bRowChanged = true;
			m_btnSelect->Enabled = false;
		}
	}
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnDelRowClick(TObject *Sender)
{
	TStringGrid* pSG = m_sg;
	TGridRect rtSel = pSG->Selection;

	GridEndEdit();

	int ind = rtSel.Top;
	if(ind>0){
        if(ind==1 && m_nRows==1){ //唯一一条数据，清空
			for(int i=1; i<pSG->ColCount; i++)
				pSG->Cells[i][1] = "";
        }
        else{
			for( int i=ind; i<=m_nRows; i++){
				pSG->Rows[i]->Assign(pSG->Rows[i+1]);
				if(pSG->Cells[0][i].Length())
					pSG->Cells[0][i] = i;
			}

            if(m_nRows>=pSG->VisibleRowCount)
                pSG->RowCount--;
			if(ind==m_nRows)
				SetSelection(ind-1);

            m_nRows--;
        }

        if(!m_bColChanged){
            if(!m_bRowChanged || ind<=m_editPolicy->aRows.size()){ //内容改变
        	    m_btnSave->Enabled = m_bRowChanged = m_bColChanged = true;
                m_btnSelect->Enabled = false;
            }
            else if(m_nRows==m_editPolicy->aRows.size()){
                m_btnSave->Enabled = m_bRowChanged = false;
                m_btnSelect->Enabled = true;
            }
		}

		pSG->Invalidate();
    }
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnPolicyChange(TObject *Sender)
{
	TComboBox* combo = (TComboBox*)Sender;

    int ind = combo->ItemIndex;

    m_btnSelect->Enabled = ind>=0;

    if( ind != m_iSelPolicy ){
		m_iSelPolicy = ind;
        if(ind>=0){
            vector<TBasePolicy*>& aPolicies = m_iType==TYPE_P_BET ? g_aBetPolicies : g_aChipPolicies;
			m_editPolicy = aPolicies[ind];
		}
        else{
            m_editPolicy = NULL;
        }

    	Clear();
		UpdateGrid();
    }
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnAddClick(TObject *Sender)
{
	m_cbPolicy->ItemIndex = -1;
    m_cbPolicy->Text = AutoNewName();

	m_iSelPolicy = -1;
    m_btnSelect->Enabled = false;

	m_editPolicy = NULL;

    Clear();
	UpdateGrid();
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnSaveClick(TObject *Sender)
{
	if(m_editPolicy){ //处理特殊打法注码
		if(m_iType==TYPE_P_CHIP && m_editPolicy->kind==KIND_CHIP_RAN){ //随机注码
			TChip02Frame* frmSP = (TChip02Frame*)m_frmSP;
			int c1 = frmSP->m_leMinChip->Text.ToInt(),
				c2 = frmSP->m_leMaxChip->Text.ToInt();

			g_RandomChip.minChip = Min(c1, c2);
			g_RandomChip.maxChip = Max(c1, c2);

			m_btnSave->Enabled = false;

			return;
		}

		if(m_iType==TYPE_P_BET && m_editPolicy->kind==KIND_BET_ASK){ //庄闲问路
			TBet02Frame* frmSP = (TBet02Frame*)m_frmSP;

			for(int i=0; i<2; i++)
				g_BPAskBet.bet[i] = frmSP->m_rgs[i]->ItemIndex;

			m_btnSave->Enabled = false;

			return;
		}

		if(m_iType==TYPE_P_BET && m_editPolicy->kind==KIND_BET_DIF){ //庄闲差
			TBet03Frame* frmSP = (TBet03Frame*)m_frmSP;

			g_BPDiffBet.diff[0] = frmSP->m_leBlP->Text.ToInt();
			g_BPDiffBet.diff[1] = frmSP->m_lePlB->Text.ToInt();
			strcpy(g_BPDiffBet.bets[0], ((AnsiString)frmSP->m_edBlP->Text).c_str());
			strcpy(g_BPDiffBet.bets[1], ((AnsiString)frmSP->m_edPlB->Text).c_str());

			m_btnSave->Enabled = false;

			return;
		}
	}

    TStringGrid* pSG = m_sg;

	if(m_rowEdit>0)
        GridEndEdit();

    //自动清除无效空行
    bool bModified = false;
    for(int i=m_nRows; i>1; i--){
        bool bDel = true;
        for(int j=1; j<pSG->ColCount; j++){
            if(pSG->Cells[j][i].Length()){
                bDel = false;
                break;
            }
        }

        if(bDel){
			pSG->Cells[0][i] = "";
			m_nRows--;
            bModified = true;
        }
        else
            break;
    }

    if(bModified){
        if(m_nRows>=m_sg->VisibleRowCount)
            m_sg->RowCount = m_nRows+2;
        else
            m_sg->RowCount = m_sg->VisibleRowCount+1;

    	SetSelection(-1);
	}

    //校验数据完整并生成字符串
    AnsiString sTxt;
	for(int i=1; i<=m_nRows; i++){
		if(i>1) sTxt += ";";
		for(int j=1; j<pSG->ColCount; j++){
			if(j>1) sTxt += ",";

			String t = pSG->Cells[j][i];
			if(!t.Length()){
				String msg;
				msg += "第" + IntToStr(i) + "行第" + IntToStr(j+1) + "列未输入";
				MessageBox(Handle, msg.c_str(), L"保存", MB_ICONERROR | MB_OK);

				SetSelection(i);
				return;
			}
			else if(m_iType==TYPE_P_CHIP){//校验跳转合法性
				if(m_cbKind->ItemIndex==KIND_CHIP_NOR && (j==2||j==3)   	//常规
						|| m_cbKind->ItemIndex==KIND_CHIP_HAN && (j==3||j==4) //层级
						|| m_cbKind->ItemIndex==KIND_CHIP_LEV && (j==3||j==5) //阶梯
						|| m_cbKind->ItemIndex==KIND_CHIP_WLD && (j==3||j==5) //次差
						|| m_cbKind->ItemIndex==KIND_CHIP_COM && (j==4||j==6) ){ //组合
					int r = 0;
					if(!TryStrToInt(t, r) || r<0 || r>m_nRows){
						String msg;
						msg += "第" + IntToStr(i) + "行第" + IntToStr(j+1) + "列跳转有误";
						MessageBox(Handle, msg.c_str(), L"保存", MB_ICONERROR | MB_OK);

						SetSelection(i);
						return;
					}
				}
			}

			if(m_iType==TYPE_P_CHIP && m_cbKind->ItemIndex==KIND_CHIP_COM && j==1){
				int ind = (int)pSG->Objects[1][i];
				sTxt += IntToStr((int)m_pCombo->Items->Objects[ind]);
			}
			else
				sTxt += t;
		}
	}

    TBasePolicy* pTmpPolicy;
	if(m_iType==TYPE_P_BET){
    	pTmpPolicy = new TBetPolicy;
        ((TBetPolicy*)pTmpPolicy)->road = m_rgRoad->ItemIndex;
    }
    else{
		//是否层级注码
		int kind = m_cbKind->ItemIndex;
		pTmpPolicy = kind==KIND_CHIP_HAN ? new TTierPolicy
					: kind==KIND_CHIP_LEV || kind<=KIND_CHIP_COM ? new TLevelPolicy
					: kind==KIND_CHIP_WLD ? new TWLDiffPolicy
					: new TChipPolicy;
		pTmpPolicy->kind = kind;

		//爆缆处理
		((TChipPolicy*)pTmpPolicy)->deadPause = m_edDeadPause->Text.ToInt();
		for(int i=0; i<3; i++){
			if(m_aDeadRB[i]->Checked){
				((TChipPolicy*)pTmpPolicy)->dead = i;
				break;
			}
		}

		//层级注码
		if(kind==KIND_CHIP_HAN){
			((TTierPolicy*)pTmpPolicy)->bTierWinRet = m_cbTierWinRet->Checked;
			((TTierPolicy*)pTmpPolicy)->bTierAccChip = m_cbTierAccChip->Checked;
			((TTierPolicy*)pTmpPolicy)->bTierLos0 = m_cbTierLos0->Checked;
		}
		else if(kind>=KIND_CHIP_LEV && kind<=KIND_CHIP_WLD){
			((TLevelPolicy*)pTmpPolicy)->bTotalDiff = m_cbLevelTotalDiff->Checked;

			if(m_cbLevelTotalDiff->Checked)
				((TLevelPolicy*)pTmpPolicy)->bInstant = m_cbLevelInstant->Checked;

			if(kind==KIND_CHIP_WLD)
            	((TWLDiffPolicy*)pTmpPolicy)->bIndie = m_cbLevelIndie->Checked;
		}
	}

	int err = pTmpPolicy->ParsePolicy(sTxt.c_str(), m_iType);
	if(err){
		int row = err >> 16,
			col = err & 0xF;
		String msg;
		msg += "第" + IntToStr(row) + "行第" + IntToStr(col+1) + "列输入不合规范";
		MessageBox(Handle, msg.c_str(), L"保存", MB_ICONERROR | MB_OK);

		SetSelection(row);

		delete pTmpPolicy;
		return;
	}

	if(m_iType==TYPE_P_CHIP && pTmpPolicy->kind==KIND_CHIP_COM){ //检查倍数合法性
		for(int i=0; i<pTmpPolicy->aRows.size(); i++){
			TComboRow* pCR = (TComboRow*)pTmpPolicy->aRows[i];
			CheckComboRow(pCR);

			int minChip = MinChipOfPolicy(pCR->iPolicy);
			int mul = pCR->chip;
			if(minChip * mul < g_MinOnBet){
                String msg;
				msg += "第" + IntToStr(i+1) + "行倍数设置小于限红";
				MessageBox(Handle, msg.c_str(), L"保存", MB_ICONERROR | MB_OK);
				SetSelection(i+1);
				delete pTmpPolicy;
                return;
			}
		}
	}

	TPolicySaveForm* pForm = new TPolicySaveForm(this, m_iType, m_cbPolicy->Text);
	if(pForm->ShowModal()==mrOk){
        pTmpPolicy->name = pForm->m_name;
		pTmpPolicy->type = 2;
		int index = pForm->m_iPolicy;
		if(index>0){
			TBasePolicy* pP = m_iType==TYPE_P_BET ? g_aBetPolicies[index] : g_aChipPolicies[index];
			pTmpPolicy->id = pP->id;
		}

		String msg = "保存" + m_sType;
		int ret = SavePolicy(m_iType, pTmpPolicy, index);
        if(ret>=0){
        	if(index<0){
				m_cbPolicy->AddItem(pTmpPolicy->name, NULL);
				m_cbPolicy->ItemIndex = m_cbPolicy->Items->Count-1;

				if(m_iType==TYPE_P_CHIP && pTmpPolicy->kind==KIND_CHIP_NOR){
					m_pCombo->AddItem(pTmpPolicy->name, (TObject*)pTmpPolicy->id);
				}

				CalcNewName();

				PostMessage(Application->MainFormHandle, UM_POLICYCHANGED, 0x10000 | m_iType, 0);
				m_iSelPolicy = m_cbPolicy->ItemIndex;
			}
			else if(m_iSelPolicy!=index){
				m_cbPolicy->ItemIndex = index;
				m_iSelPolicy = index;

				if(m_iType==TYPE_P_CHIP && pTmpPolicy->kind==KIND_CHIP_NOR
								&& m_pCombo->Items->IndexOfObject((TObject*)pTmpPolicy->id)<0 ){
					m_pCombo->AddItem(pTmpPolicy->name, (TObject*)pTmpPolicy->id);
				}
			}

			m_editPolicy = pTmpPolicy;

			m_btnSave->Enabled = m_bRowChanged = m_bColChanged = false;
			m_btnSelect->Enabled = true;
			m_btnDel->Enabled = true;

			msg += "成功";
			MessageBox(Handle, msg.c_str(), L"保存", MB_ICONINFORMATION | MB_OK);
		}
		else{
			msg += "失败";
			MessageBox(Handle, msg.c_str(), L"保存", MB_ICONERROR | MB_OK);
            delete pTmpPolicy;
        }
    }
    else
        delete pTmpPolicy;

    delete pForm;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnSelectClick(TObject *Sender)
{
	PostMessage(Application->MainFormHandle, UM_POLICYCHANGED, m_iType, m_iSelPolicy);
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnDelClick(TObject *Sender)
{
	int iPolicy = m_cbPolicy->ItemIndex;
	String msg;
	int inUse = IsPolicyInUse(m_iType, iPolicy);
	if(inUse){
		msg = m_sType +  "[" + m_editPolicy->name + "]";
		if(inUse==1)
			msg += "正在使用中，不可删除";
		else
			msg += "用于台桌独立策略，不可删除";

		MessageBox(Handle, msg.c_str(), L"删除", MB_ICONERROR | MB_OK);
		return;
	}

	if(m_iType==TYPE_P_CHIP && m_editPolicy->kind==KIND_CHIP_NOR){
		vector<int> combs = PolicyInCombo(m_editPolicy->id);
		if(!combs.empty()){
			msg = m_sType +  "[" + m_editPolicy->name + "]被下列组合方案使用，不可删除\n";
			for(int i=0; i<combs.size(); i++){
                msg += g_aChipPolicies[combs[i]]->name + "\n";
			}
			MessageBox(Handle, msg.c_str(), L"删除", MB_ICONERROR | MB_OK);
			return;
		}
	}

	msg = "确定删除" + m_sType + "[" + m_editPolicy->name + "]？";
    int mrRet = MessageBox(Handle, msg.c_str(), L"删除", MB_ICONQUESTION | MB_OKCANCEL);
    if(mrRet==mrCancel)
        return;

    int ret = DeletePolicy(m_iType, iPolicy);
    if(ret>=0){
		m_cbPolicy->Items->Delete(iPolicy);

        CalcNewName();
		m_cbPolicy->Text = AutoNewName();

		if(m_iType==TYPE_P_CHIP && m_editPolicy->kind==KIND_CHIP_NOR){
			int iCombo = m_pCombo->Items->IndexOfObject((TObject*)m_editPolicy->id);
			m_cbPolicy->Items->Delete(iCombo);
		}

		PostMessage(Application->MainFormHandle, UM_POLICYCHANGED, 0x20000 | m_iType, iPolicy);
		OnPolicyChange(m_cbPolicy);
	}
	else{
        String msg = "删除" + m_sType + "失败";
        MessageBox(Handle, msg.c_str(), L"删除", MB_ICONERROR | MB_OK);
    }
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnRoadClick(TObject *Sender)
{
	TRadioGroup* pRG = (TRadioGroup*)Sender;
	if(m_editPolicy && ((TBetPolicy*)m_editPolicy)->road!=pRG->ItemIndex)
		m_btnSave->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnAskRoadClick(TObject *Sender)
{
	TRadioGroup* pRG = (TRadioGroup*)Sender;
	if(pRG->ItemIndex!=g_BPAskBet.bet[pRG->Tag])
		m_btnSave->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnDeadClick(TObject *Sender)
{
	TRadioButton* pRB = (TRadioButton*)Sender;
	if(m_editPolicy && ((TChipPolicy*)m_editPolicy)->dead!=pRB->Tag)
		m_btnSave->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::DeadPauseExit(TObject *Sender)
{
	TEdit* pE = (TEdit*)Sender;
	int num = pE->Text.ToInt();
	if(num<0 || num>15){
		ShowMessage("请输入0-15的分钟数");
		pE->SetFocus();
	}
	else if(m_editPolicy && ((TChipPolicy*)m_editPolicy)->deadPause!=num)
		m_btnSave->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::DeadPauseKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
	if( Key==13 )
		m_sg->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnKindChange(TObject *Sender)
{
	Clear();
	InitChipGrid(m_cbKind->ItemIndex);
	m_nRows = 1;
	m_sg->RowCount = m_sg->VisibleRowCount+1;
	m_sg->Cells[0][1] = 1;
	SetSelection(1);
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::InitChipGrid(int kind)
{
	m_cbTierWinRet->Visible = kind==KIND_CHIP_HAN;
	m_cbTierAccChip->Visible = kind==KIND_CHIP_HAN;
	m_cbTierLos0->Visible = kind==KIND_CHIP_HAN;
	m_cbLevelTotalDiff->Visible = kind>=KIND_CHIP_LEV && kind<=KIND_CHIP_WLD;
	m_cbLevelIndie->Visible = kind==KIND_CHIP_WLD;
	m_cbLevelInstant->Visible = kind>=KIND_CHIP_LEV && kind<=KIND_CHIP_WLD;
	m_cbLevelInstant->Enabled = m_cbLevelTotalDiff->Checked;

	if(kind==KIND_CHIP_HAN){
		m_sg->ColCount = 5;
		m_sg->Cells[0][0] = "层级";
		m_sg->Cells[1][0] = "注码";
		m_sg->Cells[2][0] = "手数";
		m_sg->Cells[3][0] = "赢走向";
		m_sg->Cells[4][0] = "输走向";
		m_sg->ColWidths[0] = DPIX(70);
		m_sg->ColWidths[1] = DPIX(85);
		m_sg->ColWidths[2] = DPIX(80);
		m_sg->ColWidths[3] = DPIX(80);
		m_sg->ColWidths[4] = DPIX(80);

		Hint = "层级注码按当层输赢手数差(赢>输为'赢'，否则为'输')决定走向";
	}
	else{
		if(kind==KIND_CHIP_LEV){
			m_sg->ColCount = 6;
			m_sg->Cells[0][0] = "层级";
			m_sg->Cells[1][0] = "注码";
			m_sg->Cells[2][0] = "赢利";
			m_sg->Cells[3][0] = "走向";
			m_sg->Cells[4][0] = "亏损";
			m_sg->Cells[5][0] = "走向";
			m_sg->ColWidths[0] = DPIX(60);
			m_sg->ColWidths[1] = DPIX(70);
			m_sg->ColWidths[2] = DPIX(72);
			m_sg->ColWidths[3] = DPIX(60);
			m_sg->ColWidths[4] = DPIX(72);
			m_sg->ColWidths[5] = DPIX(60);

			Hint = "阶梯注码按当层输赢金额(赢>输为'赢利'，赢<输为'亏损')决定走向";
		}
		else if(kind==KIND_CHIP_WLD){
			m_sg->ColCount = 6;
			m_sg->Cells[0][0] = "层级";
			m_sg->Cells[1][0] = "注码";
			m_sg->Cells[2][0] = "大于等于";
			m_sg->Cells[3][0] = "走向";
			m_sg->Cells[4][0] = "小于等于";
			m_sg->Cells[5][0] = "走向";
			m_sg->ColWidths[0] = DPIX(60);
			m_sg->ColWidths[1] = DPIX(66);
			m_sg->ColWidths[2] = DPIX(74);
			m_sg->ColWidths[3] = DPIX(60);
			m_sg->ColWidths[4] = DPIX(74);
			m_sg->ColWidths[5] = DPIX(60);

			Hint = "赢输次差注码按投注输赢的次数差(赢次数-输次数)决定走向";
		}
		else if(kind==KIND_CHIP_COM){
			m_sg->ColCount = 7;
			m_sg->Cells[0][0] = "层级";
			m_sg->Cells[1][0] = "常规方案";
			m_sg->Cells[2][0] = "倍数";
			m_sg->Cells[3][0] = "赢利";
			m_sg->Cells[4][0] = "走向";
			m_sg->Cells[5][0] = "亏损";
			m_sg->Cells[6][0] = "走向";
			m_sg->ColWidths[0] = DPIX(30);
			m_sg->ColWidths[1] = DPIX(160);
			m_sg->ColWidths[2] = DPIX(39);
			m_sg->ColWidths[3] = DPIX(50);
			m_sg->ColWidths[4] = DPIX(32);
			m_sg->ColWidths[5] = DPIX(50);
			m_sg->ColWidths[6] = DPIX(32);

			Hint = "组合阶梯注码是每层可选不同的常规注码方案的阶梯注码";
		}
		else{
			m_sg->ColCount = 4;
			m_sg->Cells[0][0] = "序号";
			m_sg->Cells[1][0] = "注码";
			m_sg->Cells[2][0] = "赢走向";
			m_sg->Cells[3][0] = "输走向";
			m_sg->ColWidths[0] = m_sg->DefaultColWidth;
			m_sg->ColWidths[1] = m_sg->DefaultColWidth;
			m_sg->ColWidths[2] = m_sg->DefaultColWidth;
			m_sg->ColWidths[3] = m_sg->DefaultColWidth;

			Hint = "常规注码按每次投注的输赢结果决定走向('和'不变)";
		}
	}
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnChipOptionClick(TObject *Sender)
{
	if(m_editPolicy){
		if(Sender==m_cbTierWinRet && ((TTierPolicy*)m_editPolicy)->bTierWinRet!=m_cbTierWinRet->Checked
				|| Sender==m_cbTierAccChip && ((TTierPolicy*)m_editPolicy)->bTierAccChip!=m_cbTierAccChip->Checked
				|| Sender==m_cbTierLos0 && ((TTierPolicy*)m_editPolicy)->bTierLos0!=m_cbTierLos0->Checked
				|| Sender==m_cbLevelTotalDiff && ((TLevelPolicy*)m_editPolicy)->bTotalDiff!=m_cbLevelTotalDiff->Checked
				|| Sender==m_cbLevelInstant && ((TLevelPolicy*)m_editPolicy)->bInstant!=m_cbLevelInstant->Checked
				|| Sender==m_cbLevelIndie && ((TWLDiffPolicy*)m_editPolicy)->bIndie!=m_cbLevelIndie->Checked)
			m_btnSave->Enabled = true;
	}

	if(Sender==m_cbLevelTotalDiff){
		m_cbLevelInstant->Enabled = m_cbLevelTotalDiff->Checked;
	}
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnSPEditChange(TObject *Sender)
{
	m_btnSave->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnTipClick(TObject *Sender)
{
	PostMessage(Application->MainFormHandle, UM_OPENMAUAL, 1, 0);
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnExport(TObject *Sender)
{
	TStringGrid* pSG = m_sg;

	if(m_rowEdit>0)
		GridEndEdit();

    //自动清除无效空行
    bool bModified = false;
    for(int i=m_nRows; i>1; i--){
        bool bDel = true;
        for(int j=1; j<pSG->ColCount; j++){
            if(pSG->Cells[j][i].Length()){
                bDel = false;
                break;
            }
        }

        if(bDel){
			pSG->Cells[0][i] = "";
			m_nRows--;
            bModified = true;
        }
        else
            break;
    }

    if(bModified){
        if(m_nRows>=m_sg->VisibleRowCount)
            m_sg->RowCount = m_nRows+2;
        else
            m_sg->RowCount = m_sg->VisibleRowCount+1;

    	SetSelection(-1);
	}

	TSaveDialog *pDlg = new TSaveDialog(this);
	pDlg->Title = "导出";
	pDlg->Filter = "CSV文件(*.csv)|*.CSV;";

	if(pDlg->Execute(Application->MainFormHandle)){
		TStringList *psl=new TStringList();

		try{
			String name = pDlg->FileName;
			if(ExtractFileExt(name)!='.csv')
				name = ChangeFileExt(name, ".csv");

			for(int i=0; i<=m_nRows; i++){
				String sTxt;

				for(int j=0; j<pSG->ColCount; j++){
					if(j>0) sTxt += ",";

					String t = pSG->Cells[j][i];
					if(i>0 && m_iType==TYPE_P_CHIP && m_cbKind->ItemIndex==KIND_CHIP_COM && j==1){
						int ind = (int)pSG->Objects[1][i];
						sTxt += IntToStr((int)m_pCombo->Items->Objects[ind]);
					}
					else
						sTxt += t;
				}

				psl->Add(sTxt);
			}

            psl->SaveToFile(name);

			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 psl;
	}

	delete pDlg;
}
//---------------------------------------------------------------------------
void __fastcall TPolicyEditForm::OnImport(TObject *Sender)
{
	TStringGrid* pSG = m_sg;

	if(m_rowEdit>0)
		GridEndEdit();

	TOpenDialog * pDlg = new TOpenDialog(NULL);
	pDlg->Options << ofFileMustExist;
	pDlg->Title = "导入";
	pDlg->Filter = "CSV文件 (*.csv)|*.CSV";

	if(pDlg->Execute(Application->MainFormHandle)){
		TStringList *psl = new TStringList();

		try{
			psl->LoadFromFile(pDlg->FileName);

			//检验数据合法性
			if(psl->Count==0)
				throw Exception("文件内容为空");

			vector<TStrings*> ass;
			for( int i=0; i<psl->Count; i++ ){
				bool bEmpty = true;
				TStringList * psTmp = new TStringList;

				TStringDynArray arr = SplitString( psl->Strings[i], "," );
				for(int j=1; j<pSG->ColCount; j++){
					String s = "";
					if(arr.size()>j){
						if(m_iType==TYPE_P_BET){
							int iRoad = m_rgRoad->ItemIndex;
							for(int k=1; k<=arr[j].Length(); k++){
								WideChar Key = arr[j][k];
								if(j==C_CP){
									if( Key=='a' || Key=='A' || Key=='s' || Key=='S' 	//as
											|| iRoad==0 && (Key=='d' || Key=='D') 		//珠盘路d
											|| Key>='0' && Key<='9' && s.Length() )		//数字,且不是第一字符
										s += Key;
								}
								else if(j==C_PD){
									if(Key=='a' || Key=='s' || Key=='d' || Key=='x' || Key=='z')
										s += Key;
								}
							}
						}
						else{
							int val;
							if(TryStrToInt(arr[j], val)){
								s = arr[j];
							}
						}
					}

					psTmp->Add(s);
					if(bEmpty && s.Length())
						bEmpty = false;
				}

				if(bEmpty)
					delete psTmp;
				else
					ass.push_back(psTmp);
			}

			if(ass.empty())
				throw Exception("文件格式不正确或无有效内容");

			LockWindowUpdate( m_sg->Handle );
			Clear();

			int size = m_nRows = ass.size();
			if(m_nRows>=m_sg->VisibleRowCount)
				m_sg->RowCount = m_nRows+2;
			else
				m_sg->RowCount = m_sg->VisibleRowCount+1;

			int ind = 1;
			for(int i=0; i<size; i++){
				m_sg->Cells[0][ind] = ind;

				TStrings * psTmp = ass[i];
				for(int j=0; j<psTmp->Count; j++){
					if(m_iType==TYPE_P_CHIP && m_cbKind->ItemIndex==KIND_CHIP_COM && j==0){
						int id = psTmp->Strings[j].ToInt();
						int iCombo = m_pCombo->Items->IndexOfObject((TObject*)id);
						m_sg->Cells[1][ind] = m_pCombo->Items->Strings[iCombo];
						m_sg->Objects[1][ind] = (TObject*)iCombo;
					}
					else
						m_sg->Cells[j+1][ind] = psTmp->Strings[j];
				}

                delete psTmp;
				ind++;
			}

			LockWindowUpdate(NULL);
		}
		catch(Exception &exception){
			String str = "表格导入失败!\n"+exception.Message;
			MessageBox(Application->MainFormHandle, str.c_str(), L"导入",
											MB_ICONERROR | MB_OK);
		}

		delete psl;
	}

	delete pDlg;
}
//---------------------------------------------------------------------------