Вывод изображения по маске, используется MackBlt
Falk0ner, вс, 06/07/2008 - 15:35.
Вывод изображения по маске, используется 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
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;
Отправить комментарий