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

UptoLike

ВУЗ: 

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

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

Рубрика: 

7
TTracedSpriteList=class(TSpriteList)
private
// Поле
// Хранит карту следов на канве
FTraceMap:TTraceMap;
public
//Возвращает карту следов на канве
property TraceMap:TTraceMap read FTraceMap;
// Методы
// Выполняет инициализирующие действия сразу после создания списка
procedure AfterConstruction;override;
// Выполняет действия непосредственно перед освобождением списка
procedure BeforeDestruction;override;
// Удаляет спрайт с индексом aZ (слой) из списка
procedure DeleteSprite(const aZ:integer);override;
// Очищает список от указателей на спрайты
procedure Clear;override;
end;
// Тип массива точек следа спрайта
TTracePoints=array of Types.TPoint;
// Класс, спрайты которого оставляют след перемещения
// по канве списка типа TTracedSpriteList
TTracedSprite=class(TSprite)
private
// Поля
// Хранит указание, оставляет ли спрайт след
FTraced:Boolean;
// Хранит точки со следом
FTracePoints:TTracePoints;
// Хранит указание, имеет ли след
определенный цвет
FTraceColored:Boolean;
// Хранит цвет следа
FTraceColor:Graphics.TColor;
// Хранит центр спрайта
FCenter:Types.TPoint;
// Метод
// Устанавливает цвет спрайта
procedure SetTraceColor(const aTraceColor:Graphics.TColor);
public
// Свойства
// Возвращает и устанавливает указание на наличия следа
property Traced:Boolean read FTraced write FTraced;
// Возвращает и устанавливает указатель на точки следа
property TracePoints:TTracePoints read FTracePoints;
// Возвращает и устанавливает указание, имеет ли след определенный цвет
property
TraceColored:Boolean read FTraceColored write FTraceColored;

Страницы