Shear example for Delphi

This example shears the bitmap 5 degrees horizontally and redisplays the image. It uses blue as the fill color.

var
   sRet: Smallint;
   RasterProc: LEADRasterProcess;
begin
   RasterProc:= CreateComObject(CLASS_LEADRasterProcess) as LEADRasterProcess;
   RasterProc.Shear (LEADRasterView1.Raster, 500, True, RGB(0, 0, 255));
   LEADRasterView1.ForceRepaint (sRet);
end;