PatternStyle example for Delphi

This example paints a transition with a diagonal cross pattern.

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_PATTERN;
   LEADRasterView1.PatternStyle := EFX_PATTERN_DIAG_CROSS;
   LEADRasterView1.PatternBackColor := RGB(255, 0, 0);
   LEADRasterView1.PatternForeColor := RGB(0, 0, 255);
   LEADRasterView1.AutoRepaint := True;
end;