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

Материал из DRKB


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;


Author: Rouse_
Source: http://forum.sources.ru
ID: 03775