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

UptoLike

ВУЗ: 

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

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

Рубрика: 

19
inherited;
with ClientRect do SetLength(FTraceMap,Right-Left+1,Bottom-Top+1);
end {TTracedSpriteList.AfterConstruction};
procedure TTracedSpriteList.BeforeDestruction;
begin
inherited;
FTraceMap:=nil;
end {TTracedSpriteList.BeforeDestruction};
procedure TTracedSpriteList.DeleteSprite(const aZ:integer);
begin
if (aZ > -1) and (aZ < Count) then
begin
TTracedSprite(Self[aZ]).FTracePoints:=nil;
inherited DeleteSprite(aZ);
end
end {TTracedSpriteList.DeleteSprite};
procedure TTracedSpriteList.Clear;
var i,j:integer;
begin
for i:= Low(FTraceMap) to High(FTraceMap) do
for j:= Low(FTraceMap[i]) to High(FTraceMap[i]) do
FTraceMap[i,j]:= false;
inherited Clear;
end {TTracedSpriteList.Clear};
//Реализация методов класса TTracedSprite
procedure TTracedSprite.AfterConstruction;
begin
inherited;
FCenter:=Types.CenterPoint(SpriteRect);
end {TTracedSprite.AfterConstruction};
procedure TTracedSprite.BeforeDestruction;
begin
FTracePoints:=nil;
inherited
end {TTracedSprite.BeforeDestruction};
procedure TTracedSprite.SetTraceColor(const aTraceColor:Graphics.TColor);
begin
FTraceColor:=aTraceColor;
FTraceColored:=true
end {SetTraceColor};

Страницы