Проблемы с выводом изображения

[FomAW]

procedure TForm1.FormCreate(Sender: TObject);
begin
  Mask1:=TBitMap.Create;
  Mask1.LoadFromFile('spr1_1.bmp');
  BM:=TBitMap.Create;
  BM.LoadFromFile('spr2_1.bmp');
  Buffer:=TBitMap.Create;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=39 then
  begin
    BitBlt(Buffer.Canvas.Handle,0,0,60,80,Mask1.Canvas.Handle,0,0,SRCPaint); //Копируем маску в буфер
    BitBlt(Buffer.Canvas.Handle,0,0,60,80,BM.Canvas.Handle,0,0,SRCAnd); //Копируем спрайт в буфер
    BitBlt(Form1.Canvas.Handle,0,0,320,240,Buffer.Handle,0,0,SRCCopy); //Перемещаем буфер на форму
  end;
end;

Изображение не выводится на экран. Что тут не так?

[Аватар]

BM:=BM.Create; ???

[FomAW]

Исправил, но изображение всеравно не выводится.

[Rin]

Не рисуется потому что не заданы размеры для Buffer. То есть у вас buffer размерами 0х0. Но и в этом случае нарисуется фигня.
Пример во вложении. Вот, только не удалось мне избавиться от мерцания. Мерцание происходит из-за восстановления фона.
Получается, что этот метод рисования не чем не лучше того, что написано в книге "Основы программирования в TurboDelphi (Автор Культин Н.)" на 145 странице.

[Rin]

Не рисуется потому что не заданы размеры для Buffer. То есть у вас buffer размерами 0х0. Но и в этом случае нарисуется фигня.

Непонятно написал как-то. Извиняюсь за второй пост, но правка уже запрещена.
Вы пишите

Bm:=TBitmap.Create;
Bm.LoadFromFile('путь,имя файла');// здесь Bm получает все свойства картинки,
// и размеры в том числе.
buffer:=TBitmap.Create;
// На данный момент у переменной buffer width и height равны 0.
// Их нужно задать, чтобы в эту область записывать растр.
buffer.width:= Some_width; //Some_width - необходимая ширина.
buffer.height:= Some_height; //Some_height - необходимая высота.
// вот теперь в buffer будет записываться растр.

[Rin]

Что-то не спалось, и делать было нечего. Подправил чутка прогу. Теперь нет мерцания. Если не скачал, скачиваешь вложение на 1 Мб 38Кб, потом скачиваешь этот архив на 2 Кб. Заменяешь Unit из первого вложения на этот и радуешься жизни.

[FomAW]

Rin Спасибо!