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

UptoLike

ВУЗ: 

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

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

Рубрика: 

18
var i:integer;
begin
for i:=FZ+1 to FSpriteList.FCount-1 do
with FSpriteList[i] do
if FMask then
begin
if FVisible then Paint;
FMask:=false
end
end {EndPaint};
procedure TSprite.Paint;
begin
with FSpriteList do
begin
FCanvas.CopyMode:=cmSrcCopy;
with FImage do
Canvas.CopyRect(Types.Rect(0,0,Width,Height),FCanvas,SpriteRect);
end;
PaintPicture
end {Paint};
procedure TSprite.Restore;
begin
with FSpriteList.FCanvas do
begin
CopyMode:= cmSrcCopy;
with FImage do CopyRect(SpriteRect,Canvas,Types.Rect(0,0,Width,Height));
end
end {Restore};
function TSprite.GetSpriteRect:Types.TRect;
begin
with FLocation,FSize do Result:=Types.Rect(X, Y, X+cx,Y+cy)
end {GetSpriteRect};
function TSprite.Intersect(const First,Second:integer):boolean;
var rect:Types.TRect;
begin
with FSpriteList[First] do
Result:=IntersectRect(rect,SpriteRect,FSpriteList[Second].SpriteRect);
end {Intersect};
//Реализация методов класса TTracedSpriteList
procedure TTracedSpriteList.AfterConstruction;
begin

Страницы