| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема с выводом спрайтов?! [D5]
CrowD © (2003-03-19 12:10:00)Привет, All!
пытаюсь вывести спрайт с маской на форму, ничего не выводит пример взял отсюда http://www.delphigfx.narod.ru/2d/2d_1.htm
файлы считывает, если выводить сразу без буфера выводит, но при этом маску не накладывает
...
var
Wizard, WizardMask,Buffer:Tbitmap; X,Y:integer;
begin
Wizard:=Tbitmap.Create;
Wizard.Loadfromfile("spr1.bmp");
WizardMask:=Tbitmap.Create;
WizardMask.Loadfromfile("spr2.bmp");
Buffer:=Tbitmap.Create;
// Копируем маску в буфер
BitBlt(Buffer.Canvas.Handle,0,0,50,50, WizardMask.Canvas.Handle,0,0,SrcPaint);
// Копируем спрайт в буфер
BitBlt(Buffer.Canvas.Handle,0,0,50,50, Wizard.Canvas.Handle,0,0,SrcAnd);
// Перемещаем буфер на форму
BitBlt(Form1.Canvas.Handle,0,0,320,240,Buffer.Canvas.Handle,0,0,SrcCopy);
ктонибудь сведующий растолкуйти что и как
Спасибо.
Mihey (2003-03-19 21:19:00) [1]Укажи размер буфера,а иначе не будет пахать. Типа:
Buffer.Width := 320;
Buffer.Height := 240;
reticon (2003-03-19 19:47:00) [2]Ну не знаю как ты делаешь, но я давно как то делал пример по подобию как на этом сайте и все работало. Кстати, оригинальный код, взятый отссюда, у меня работает без каких либо проблем
| |
