Скачать: CL | DM;

Проблема с выводом спрайтов?!   Найти похожие ветки 

← →
CrowD ©   (2003-03-19 12:10) [0]

Привет, 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);

ктонибудь сведующий растолкуйти что и как

Спасибо.

---

← →
reticon ©   (2003-03-19 19:47) [1]

Ну не знаю как ты делаешь, но я давно как то делал пример по подобию как на этом сайте и все работало. Кстати, оригинальный код, взятый отссюда, у меня работает без каких либо проблем

---

← →
Mihey   (2003-03-19 21:19) [2]

Укажи размер буфера,а иначе не будет пахать. Типа:

Buffer.Width := 320;
Buffer.Height := 240;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c