Сделал создание фигур и их расстановка на доске:
| Код |
unit UChess;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TFigure=class(TImage) // базовый класс фигуры
private
FColor: TColor;
FxPos, FyPos: Integer;
constructor Create(i, j:Integer);
function Hod(x, y: Integer): Boolean; virtual; abstract;
procedure PosistionX(PosX: Integer);
procedure PositionY(PosY: Integer);
property X: Integer read FxPos write PosistionX;
property Y: Integer read FyPos write PositionY;
end;
TPawn=class(TFigure)
function Hod(x, y: Integer): Boolean; override;
end;
TRook=class(TFigure)
function Hod(x, y: Integer): Boolean; override;
end;
THorse=class(TFigure)
function Hod(x, y: Integer): Boolean; override;
end;
TElephant=class(TFigure)
function Hod(x, y: Integer): Boolean; override;
end;
TQueen=class(TFigure)
function Hod(x, y: Integer): Boolean; override;
end;
TKing=class(TFigure)
function Hod(x, y: Integer): Boolean; override;
end;
var
Form1: TForm1;
Figure: array[1..32] of TFigure;
implementation
{$R *.dfm}
{$R MyRes.res}
procedure TForm1.FormCreate(Sender: TObject);
var
i:Byte;
begin
for I := 1 to 8 do
begin
Figure[i] := TPawn.Create(2, i);
Figure[i+8] := TPawn.Create(7, i);
end;
Figure[17] := TRook.Create(1, 1);
Figure[18] := TRook.Create(8, 1);
Figure[19] := TRook.Create(8, 8);
Figure[20] := TRook.Create(1, 8);
Figure[21] := THorse.Create(1, 2);
Figure[22] := THorse.Create(1, 7);
Figure[23] := THorse.Create(8, 2);
Figure[24] := THorse.Create(8, 7);
Figure[25] := TElephant.Create(1, 3);
Figure[26] := TElephant.Create(1, 6);
Figure[27] := TElephant.Create(8, 3);
Figure[28] := TElephant.Create(8, 6);
Figure[29] := TQueen.Create(1, 4);
Figure[30] := TQueen.Create(8, 4);
Figure[31] := TKing.Create(1, 5);
Figure[32] := TKing.Create(8, 5);
end;
procedure TForm1.FormPaint(Sender: TObject);
var
i, j: Byte;
x1, y1, step: Word;
strBuk: string;
begin
strBuk := 'hgfedcba';
Canvas.Pen.Color := clBlack;
Canvas.Pen.Width := 2;
x1 := 30;
y1 := 30;
step := 60;
for I := 1 to 8 do
begin
for j := 1 to 8 do
begin
if ((i + j) mod 2)<>0 then Canvas.Brush.Color := clBlack
else Canvas.Brush.Color := clWhite;
Canvas.Rectangle(x1, y1, x1 + step, y1 + step);
x1 := x1 + step;
end;
y1 := y1 + step;
x1 := 30;
end;
{ рисование букв }
y1 := 30 + step;;
for I := 1 to 8 do
begin
Canvas.Brush.Color := clBtnFace;
Canvas.Font.Size:=12;
Canvas.TextOut((x1 div 2), (y1 div 2), strBuk[i]);
y1 := y1 + step*2;
end;
{ рисование цифр }
y1 := 30 + 8*60;
x1 := 30 + 60;
for I := 1 to 8 do
begin
Canvas.Brush.Color := clBtnFace;
Canvas.Font.Size := 12;
Canvas.TextOut((x1 div 2), y1, IntToStr(i));
x1 := x1 + step*2;
end;
end;
{ TFigure }
constructor TFigure.Create(i, j: Integer);
var
NameClass: string;
begin
NameClass := ClassName;
inherited Create(Form1);
Parent := Form1;
DragMode := dmAutomatic;
if (i<=2) then // Определение цвета фигуры
begin
Picture.Bitmap.LoadFromResourceName(HInstance, 'WH_' + NameClass);
FColor := clWhite; // фигура черная
end
else
begin
Picture.Bitmap.LoadFromResourceName(HInstance, 'BL_' + NameClass);
FColor := clBlack; // фигура белая
end;
X := i;
Y := j;
Transparent := true;
end;
procedure TFigure.PosistionX(PosX: Integer);
begin
FxPos := PosX;
if(PosX>=1) or (PosX<=8) then Top := 60*(8-PosX)+30
else
ShowMessage(' Нет такой позиции ');
end;
procedure TFigure.PositionY(PosY: Integer);
begin
FyPos := PosY;
if(PosY>=1) or (PosY<=8) then Left := 60*(PosY-1)+30
else
ShowMessage(' Нет такой позиции ');
end;
|
P.S. проблема которая описана выше пока не решена. |
.