Вывод изображения по маске, используется MackBlt |
Previous Top Next |
Code: |
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
©Drkb::03775