TransitionEffect example for Delphi

This example paints a transition with a 255-step grayscale gradient.

var
   RasterIO: LEADRasterIO;
begin
   RasterIO:= CreateComObject (CLASS_LEADRasterIO) as LEADRasterIO;
   LEADRasterView1.AutoRepaint:= False;
   LEADRasterView1.TransitionDelay:= 50;
   RasterIO.Load (LEADRasterView1.Raster, 'v:\images\Image1.cmp', 0, 0, 1);
   LEADRasterView1.TransitionEffect:= EFX_EFFECT_WIPE_RECTANGLE_OUT;
   LEADRasterView1.TransitionStyle:= EFX_TRANSITION_GRADIENT;
   LEADRasterView1.GradientStyle:= EFX_GRADIENT_ANGLE_TO_LT;
   LEADRasterView1.GradientEndColor:= RGB(0, 0, 0);
   LEADRasterView1.GradientStartColor:= RGB(255, 255, 255);
   LEADRasterView1.GradientSteps:= 255;
   LEADRasterView1.AutoRepaint:= True;
end;