Вывод изображения по маске, используется MackBlt

Вывод изображения по маске, используется MackBlt

procedure TForm1.Button1Click(Sender: TObject);
var
 BitmapSrc, BitmapMask: TBitmap;
begin
 BitmapSrc := TBitmap.Create;
 try
  BitmapMask := TBitmap.Create;
  try
  BitmapSrc.LoadFromFile('c:\src.bmp');
  BitmapMask.LoadFromFile('c:\mask.bmp');
  MaskBlt(Canvas.Handle, 0, 0, BitmapSrc.Width, BitmapSrc.Height,
  BitmapSrc.Canvas.Handle, 0, 0, BitmapMask.Handle, 0, 0, MakeROP4(PATCOPY xor PATINVERT, SRCCOPY));
  finally
  BitmapMask.Free;
  end;
 finally
  BitmapSrc.Free;
 end;
end;
Автор: Rouse_ Взято из http://forum.sources.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...