PatternStyle example for Delphi

This example paints a transition with a diagonal cross pattern.

Lead1.AutoRepaint := False;
Lead1.EffectDelay := 50;
Lead1.Load ('c:\lead\images\image1.cmp', 0, 0, 1);
Lead1.TransitionEffect := EFX_EFFECT_WIPE_RECTANGLE_OUT;
Lead1.TransitionStyle := etsPattern;
Lead1.PatternStyle := epsDiagCross;
Lead1.PatternBackColor := RGB(255, 0, 0);
Lead1.PatternForeColor := RGB(0, 0, 255);
Lead1.AutoRepaint := True;