//---------------------------------------------------------------------
#include <vcl.h>  
#pragma hdrstop

#include "EndGameDlog.h"
#include "MainForm1.h"

//---------------------------------------------------------------------
TEndChessGameDlg *EndChessGameDlg;
//---------------------------------------------------------------------
/*
為了動態地創建窗體必須使用雙變量構造函數，這樣才能安全地忽略警告。
雙變量構造函數存在的唯一原因是構造動態窗體。
雙變量構造函數創建與DFM文件無關的窗體。
因為動態窗體不使用DFM文件，因此必須構造控件和分配事件句柄并在運行
期間為TEndChessGameDlg設置參數特性。
必須為動態創建的控件設置Top和Left參數。否則，控件將出現在窗體的角上。
同時，也應該為其它起重要作為的控件設置參數。
如果忘記設置原始參數。動態創建的控件將不會出現。
分配YesBtnClick給控件的事件句柄。當用戶撳擊YesBtn時YesBtnClick將執行。
分配NoBtnClick給控件的事件句柄。當用戶撳擊NoBtn時NoBtnClick將執行。
*/
__fastcall TEndChessGameDlg::TEndChessGameDlg(TComponent* AOwner,
  AnsiString EndGameString): TForm(AOwner,NULL)
{
  Left = 65;
  Top = 539;
  BorderStyle = bsDialog;
  Caption = "中國象棋";
  ClientHeight = 183;
  ClientWidth = 292;
  Color = clBtnFace;
  ParentFont = True ;
  OldCreateOrder = True;
  Position = poScreenCenter;
  PixelsPerInch = 96;

  TBevel *Bevel1 =new TBevel(this);
   Bevel1->Parent =this;
   Bevel1->Height= 1;
   Bevel1->Width = 292;
   Bevel1->Left = 0 ;
   Bevel1->Top = 120;

 TPanel *Panel1 = new TPanel(this);
  Panel1->Parent =this;
  Panel1->Left = 48;
  Panel1->Top = 24;
  Panel1->Width = 185 ;
  Panel1->Height = 81;
  Panel1->BevelOuter = bvLowered;
  Panel1->Color = clGrayText;
  Panel1->TabOrder = 1 ;

 TLabel *Label1 = new TLabel(this);
  Label1->Parent =Panel1;  //保證Panel1在底層,Label1在頂層
  Label1->AutoSize= true;
  Label1->Alignment=taCenter;
  Label1->Color = clGrayText;
  Label1->Font->Charset = DEFAULT_CHARSET;
  Label1->Font->Color = clWindowText;
  Label1->Font->Height = -17 ;
  Label1->ParentColor = False;
  Label1->ParentFont = False ;
  Label1->Height = 24;
  Label1->Width= 50;
  Label1->Left = Panel1->Left+Panel1->Width/2-Label1->Width/2-50;
  Label1->Top = Panel1->Top+Panel1->Height/2-Label1->Height/2-40;
  Label1->Caption=EndGameString;

 TLabel *Label2 = new TLabel(this);
  Label2->Parent =Panel1;     //保證Panel1在底層,Label2在頂層
  Label2->AutoSize= true;
  Label2->Alignment=taCenter;
  Label2->Color = clGrayText;
  Label2->Font->Charset = DEFAULT_CHARSET;
  Label2->Font->Color = clWindowText ;
  Label2->Font->Height = -17    ;
  Label2->ParentColor = False;
  Label2->ParentFont = False ;
  Label2->Width= 60;
  Label2->Height = 24;
  Label2->Left = Panel1->Left+Panel1->Width/2-Label2->Width/2-50;
  Label2->Top = Panel1->Top+Panel1->Height/2-Label2->Height/2;
  Label2->Caption="還玩嗎？";

 TButton *YesBtn = new TButton(this);
  YesBtn->Parent =this;
  YesBtn->Top=140;
  YesBtn->Left=60;
  YesBtn->Width= 75;
  YesBtn->Height =25;
  YesBtn->Caption = "YES";
  YesBtn->OnClick = YesBtnClick;
  YesBtn->Caption = "Yes";
  YesBtn->TabOrder = 0 ;

 TButton *NoBtn = new TButton(this);
  NoBtn->Parent =this;
  NoBtn->Top=140;
  NoBtn->Left=170;
  NoBtn->Width= 75;
  NoBtn->Height =25;
  NoBtn->Caption = "NO";
  NoBtn->OnClick = NoBtnClick;
  NoBtn->Caption = "No";
  NoBtn->TabOrder = 1 ;

};
//----------------------------------------------------------------------------
/*
分配NoBtnClick給控件的事件句柄。當用戶撳擊NoBtn時NoBtnClick將執行。
關閉應用程序。
*/
    void __fastcall TEndChessGameDlg::NoBtnClick(TObject *Sender)
    {
      PostMessage(MainForm->Handle,IDM_EXIT, 0,0);
      Close();
    }

//----------------------------------------------------------------------------
/*
分配YesBtnClick給控件的事件句柄。當用戶撳擊YesBtn時YesBtnClick將執行。建立棋盤
回到初始狀態。
*/
  void __fastcall TEndChessGameDlg::YesBtnClick(TObject *Sender)
    {
    GameOver = false;
    PostMessage(Application->MainForm->Handle, IDM_FILENEW,0,0);
    Close();
    }