| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Фон [Delphi, Windows]

Jackson ©   (2002-11-16 20:40:00) 

Люди,плиз хелп!!!Не могу сделать фон!!!
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:41:00) [1]

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

---

NikotiN   (2002-11-17 11:40:00) [2]

Наверно так:

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;

---

Наверх