Здравствуйте!
мне нужно создать класс фигура для шахматной доски
шахматная доска готова
состоит из 64ёх панелек))
сейчас класс выглядит вот так:
Код:
TFigure=Class(TObject)
Private
Color:Boolean;
TypeFigure:String;
ImgFigure:TImage;
Protected
DestroyFigure:Boolean;
OcheredHodaFigure:Boolean;
Private
Function GetCoordFigure:TPanel;
Procedure SetCoordFigure(const Value:Tpanel);
public
Property CoordFigure:TPanel
read GetCoordFigure
write SetCoordFigure;
Public
Function GetHodFigure:TPanel;
Procedure SetHodFigure(a:TPAnel);
Private
constructor Fcreate (Coord:Tpanel);
end;
подскажите почему у меня ошибка там где красное?
и что я вообще сделал не так или неправильно?
прошу помочь в разработке.
спасибо!