Сравнительное объектно-ориентированное проектирование - 8 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

8
// Возвращает и устанавливает цвет следа
property TraceColor:Graphics.TColor read FTraceColor write SetTraceColor;
// Возвращает центр спрайта
property Center:Types.TPoint read FCenter;
// Методы
// Выполняет инициализирующие действия сразу после создания спрайта
procedure AfterConstruction;override;
// Выполняет действия непосредственно перед освобождением спрайта
procedure BeforeDestruction;override;
// Перемещает спрайт на вектор drift
function Move(const drift:Types.TSize):boolean;override;
// Воспроизводит след
procedure PutTrace;
end;
const DefaultColor=$ffffff;//Цвет эллипса по умолчанию
type
// Класс, изображающий спрайт в форме сплошного эллипса
TEllipseSprite=class(TTracedSprite)
private
// Поле
// Хранит цвет эллипса
FColor:Graphics.TColor;
protected
// Методы
// Изображает эллипс
procedure PaintPicture;override;
// Устанавливает цвет эллипса
procedure SetColor(const aColor:Graphics.TColor);
public
// Свойство
// Возвращает и устанавливает цвет эллипса
property Color:Graphics.TColor read FColor write SetColor;
// Метод
// Выполняет инициализирующие действия
сразу после создания спрайта
procedure AfterConstruction;override;
end;
Вспомним правила описания в Delphi в контексте приведенного выше
интерфейса модуля
uSprite. С этой целью рассмотрим фрагмент начала модуля
uses Controls,Graphics,Classes,Types;
type
// Предварительное объявление класса TSprite
TSprite=class;
// Тип переменных, содержащих ссылки на классы типа TSprite
TSpriteClass=class of TSprite;
// Список спрайтов

Страницы