Фон

← →
Jackson © (2002-11-16 20:40) [0]

Люди,плиз хелп!!!Не могу сделать фон!!!
constructor TBackroundSprite.Create(AParent: TSprite);
begin
inherited Create(AParent);
PixelCheck := true;
Image:= form1.dxImageList1.Items.Find("Fon");
Width := Image.Width;
Height := Image.Height;
end;
При запуске проги у меня чёрный экран!!!Подскажите,где я ошибся!

← →
NikotiN © (2002-11-17 11:40) [1]

Наверно так:

TBackGround=class(TBackgroundSprite)
constructor Create(AParent:TSprite);override;
end;

constructor TBackGround.Create(AParent:TSprite);
begin
inherited create(AParent);
PixelCheck := true;
Image:= form1.dxImageList1.Items.Find("Fon");
Width := Image.Width;
Height := Image.Height;

Z:=0;
Tile:=true;
SetMapSize(200,100);
end;

Забыл скозать:
SetMapSize(x,y)
x,y - на твоё усмотрение!

Фон Найти похожие ветки