Проблема с выводом спрайтов?!

← →
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;

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