编写“线围棋”程序-2-可开局

棋盘有了，怎么支持在上面落子呢？

只要解决下面3个问题就可以了：

1.响应鼠标点击事件，获得“下棋子”的动作源。

2.修改和记录棋局状态。

3.在棋盘上显示棋局的状态。

为此，直接增加一个“棋局类“，也就是对“一盘棋“对象的实现。

先把已经编好的棋盘类移到一个新的单元里，不再放到窗体单元中，我喜欢这样把成熟的程序逐渐移到新单元内存放。

棋盘单元如下：

unit UnitBoardView;

interface

uses
Windows, Messages, SysUtils, Variants, Types, Classes, Graphics;

Type
TStringGoBoard = Class(TObject)     //线棋盘类
   Private
     FMaxP : Integer;                  //棋盘最大点树
     FRect : TRect;                    //棋盘区域位置
     Function GetDD : Integer;         //相邻交叉点间隔距离
     Function GetBX0 : Integer;        //棋盘起画点X
     Function GetBY0 : Integer;        //棋盘起画点Y
   Protected
     Procedure SetMaxP(AMaxP : Integer);
     Property DD : Integer Read GetDD;     //相邻交叉点间隔距离
     Property BX0 : Integer Read GetBX0;   //棋盘起画点X
     Property BY0 : Integer Read GetBY0;   //棋盘起画点Y
   Public
     Procedure Drawto(ACanvas : TCanvas); //画到一个画布上
     Procedure DrawMove(ACanvas : TCanvas; APos : Integer; AStatus : Integer); //画一步棋
     Function Position(X,Y : Integer) : Integer;         //找一个下棋位置
     Property MaxP : Integer Read FMaxP Write SetMaxP;
     Property Rect : TRect Read FRect Write FRect;
   End;

implementation

{TStringGoBoard}
Function TStringGoBoard.GetDD : Integer;     //相邻交叉点间隔距离
begin
    Result := ((Rect.Right - Rect.Left) - 20) div MaxP; //宽度两边各留10个像素
end;

Function TStringGoBoard.GetBX0 : Integer;        //棋盘起画点X
begin
    Result := Rect.Left + 10;
end;

Function TStringGoBoard.GetBY0 : Integer;        //棋盘起画点Y
begin
    Result := Rect.Top + (Rect.Bottom - Rect.Top) div 2;
end;

Procedure TStringGoBoard.SetMaxP(AMaxP : Integer);
begin
    FMaxP := (AMaxP Div 2) * 2; //N必须是偶数，也就是必须得到奇数个交叉点；
end;

Procedure TStringGoBoard.Drawto(ACanvas : TCanvas); //画到一个画布上
var
i,M: Integer;
X0,Y0,BDD,CDD : Integer;
begin
M := MaxP div 2;
with ACanvas do
    begin
      Pen.Width := 1;
      X0 := BX0;          //动态计算画棋盘位置
      Y0 := BY0;
      BDD := DD;
      CDD := BDD div 2;
      moveto(X0,Y0);
      LineTo(X0 + MaxP * BDD, Y0);
      For i := 0 to MaxP do
        begin
          if (i = 0) or (i = MaxP) then
             Pen.Width := 3           //画两端的粗线
            else
             Pen.Width := 1;          //画中间的细线
          moveto(X0 + i * BDD,Y0 - CDD);
          Lineto(X0 + i * BDD,Y0 + CDD);
          if i = M then               //在中点画一个星（天元，呵呵！）
            begin
              Brush.Color := ClBlack;
              Brush.Style := bsSolid;
              Ellipse(X0 - 2 + i * BDD, Y0 -2, X0 +2 + i * BDD, Y0 +2);
            end;
        end;
    end;
end;

Procedure TStringGoBoard.DrawMove(ACanvas : TCanvas; APos : Integer; AStatus : Integer); //画一步棋
var
X0,Y0,BDD,CDD : Integer;
begin
with ACanvas do
    begin
      X0 := BX0;
      Y0 := BY0;
      BDD := DD;
      CDD := BDD div 2;
      if AStatus = 1 then
         Brush.Color := ClBlack
        else
         Brush.Color := ClWhite;
      Pen.Width := 1;
      Pen.Color := Brush.Color;
      Brush.Style := bsSolid;
      Ellipse(X0 - CDD + APos * BDD, Y0 - CDD, X0 + CDD + APos * BDD, Y0 + CDD);
    end;
end;

Function TStringGoBoard.Position(X,Y : Integer) : Integer;         //找一个下棋位置
var
    i : Integer;
    X0,Y0,BDD,CDD,X1,Y1,X2,Y2 : Integer;
begin
    Result := -1;
    X0 := BX0;
    Y0 := BY0;
    BDD := DD;
    CDD := BDD div 2;
    For i := 0 to MaxP do
      begin
        X1 := X0 - CDD + i * BDD;
        Y1 := Y0 - CDD;
        X2 := X0 + CDD + i * BDD;
        Y2 := Y0 + CDD;
        if (X >= X1) and (X <= X2) and
           (Y >= Y1) and (Y <= Y2) then
          begin
            Result := i;
            Exit;
          end;
      end;
end;

end.

里面已经添加了显示一步棋和根据鼠标位置找下棋点位置的方法了，这是支持下棋所必需要有的方法。

然后，继续在窗体类的单元内试验新建的棋局类。为简便起见，棋盘就当作棋局本身的一部分了。

新的窗体单元变成了这个样子的：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, UnitBoardView;

type

TGame = Class(TObject)
Private
    FBoard : TStringGoBoard;            //包含一个棋盘对象
    FPosStatus : Array of Integer;      //记录棋子状态的数组
    FCurPlayer : Integer;               //当前行棋方,1:黑,2:白
Protected
    Function GetMaxP : Integer;
    Procedure SetMaxP (AMaxP : Integer);
Public
    Constructor Create;
    Destructor Destroy; Override;
    Procedure SetPos(APos : Integer);     //在位置上走一步棋
    Procedure Drawto(ACanvas : TCanvas); //把棋局画在画布上
    Property Board : TStringGoBoard Read FBoard;
    Property MaxP : Integer Read GetMaxP Write SetMaxP; //最大棋盘位置
end;

TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
private
    FGame : TGame;               //棋局对象
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
FGame := TGame.Create;            //窗口创建时是创建对局
FGame.Board.Rect := ClientRect;   //棋盘占整个窗口位置
FGame.MaxP := 8;                //设为9点棋局
//FGame.MaxP := 15;                //设为15点棋局
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
FGame.Drawto(Canvas);              //画棋局
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
FGame.Free;                       //窗口销毁时销毁棋局
end;

procedure TForm1.FormResize(Sender: TObject);
begin
FGame.Board.Rect := ClientRect;    //窗口变化大小是变化棋盘大小
Repaint;                           //启动重画窗口
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Pos : Integer;
begin
if Button = mbLeft then
    begin
      Pos := FGame.Board.Position(X,Y); //根据屏幕坐标得到下棋点坐标。
      if Pos >= 0 then
        begin
          FGame.SetPos(Pos);          //在棋局上走一步棋
          Repaint;                    //显示棋局
        end;
    end;
end;

{TGame}
Constructor TGame.Create;
begin
    Inherited Create;
    FCurPlayer := 1;                 //默认黑为当前下子方
    FBoard := TStringGoBoard.Create;
end;

Destructor TGame.Destroy;
begin
    FBoard.Free;
    Inherited Destroy;
end;

Procedure TGame.SetPos(APos : Integer);
begin
    FPosStatus[APos] := FCurPlayer;
    FCurPlayer := 3 - FCurPlayer;
end;

Procedure TGame.Drawto(ACanvas : TCanvas);
var
    i : Integer;
begin
    FBoard.Drawto(ACanvas);           //画出棋盘
    For i := 0 to MaxP do
      begin
        if FPosStatus[i] <> 0 then
          begin
            FBoard.DrawMove(ACanvas,i,FPosStatus[i]);   //画棋子
          end;
      end;
end;

Function TGame.GetMaxP : Integer;
begin
    Result := FBoard.MaxP;
end;

Procedure TGame.SetMaxP (AMaxP : Integer);
var
    i : Integer;
begin
    FBoard.MaxP := AMaxP;          //设置棋盘大小
    SetLength(FPosStatus, MaxP + 1 );    //初始化记录数组
    For i := 0 to MaxP do
      begin
        FPosStatus[i] := 0;
      end;
end;

end.