procedure MoveTo(x,y: integer); Перемещает левый верхний угол графического объекта к точке (x, y) |
procedure MoveOn(a,b: integer); Перемещает графический объект на вектор (a, b) |
procedure Move; override; Перемещает графический объект на вектор, задаваемый свойствами dx, dy |
procedure Scale(f: real); override; Масштабирует графический объект в f раз (f>1 - увеличение, 0 |
procedure ToFront; Переносит графический объект на передний план |
procedure ToBack; Переносит графический объект на задний план |
function Bounds: System.Drawing.Rectangle; Возвращает прямоугольник, определяющий границы графического объекта |
function PtInside(x,y: integer): boolean; override; Возвращает True, если точка (x, y) находится внутри графического объекта, и False в противном случае |
function Intersect(g: ObjectABC): boolean; Возвращает True, если изображение данного графического объекта пересекается с изображением графического объекта g, и False в противном случае. Белый цвет считается прозрачным и не принадлежащим объекту |
function IntersectRect(r: System.Drawing.Rectangle): boolean; Возвращает True, если прямоугольник графического объекта пересекается прямоугольником r, и False в противном случае |
function Clone0: ObjectABC; override; Возвращает клон графического объекта |
procedure Draw(x,y: integer; g: Graphics); override; Защищенная. Не вызывается явно. Переопределяется для каждого графического класса. Рисует объект на объекте g: Graphics |
destructor Destroy; Уничтожает графический объект |
Класс ObjectBoardABC
Класс ObjectBoardABC является потомком класса BoardABC и представляет графический объект Доска с объектами.
constructor Create(x,y,nx,ny,szx,szy: integer; cl: GColor); Создает доску с объектами nx на ny клеток цвета cl с размером клетки (szx, szy) в позиции (x, y). |
constructor Create(g: ObjectBoardABC); Создает доску с объектами - копию доски g |
procedure DestroyObject(x,y: integer); Удаляет объект в клетке с координатами (x, y) |
property Items[x,y: integer]: ObjectABC read GetObject write SetObject; default; Объект в клетке с координатами (x, y) |
procedure SwapObjects(x1,y1,x2,y2: integer); Меняет местами объекты в клетках с координатами (x1, y1) и (x2, y2) |
function Clone: ObjectBoardABC; Возвращает клон доски с объектами |
property DimX: integer; Количество клеток доски по горизонтали |
property DimY: integer; Количество клеток доски по вертикали |
property CellSizeX: integer; Размер клетки по горизонтали |
property CellSizeY: integer; Размер клетки по вертикали |