Вывод изображения по маске, используется 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