PaintROP3 example for Delphi

This example demonstrates the PaintROP3 property.

//Add this WIN32 constant to the Declarations module
Const
   SRCINVERT = 6684742;
var
   sRet: Smallint;
begin
   //Use this code to paint an inverted image.
   LEADRasterView1.PaintROP3:= SRCINVERT;
   LEADRasterView1.ForceRepaint (sRet);
end;