ShowGetTransitionDlg example for Delphi

procedure TForm1.ShowGetTransitionDlg1Click(Sender: TObject);
var
   nRet: L_INT; 
begin

   LEADDlgEffect1.TransitionStyle:= etsNone; 
   LEADDlgEffect1.Effect:= EFX_EFFECT_WIPE_L_TO_R; 
   LEADDlgEffect1.ForeColor:= RGB ( 255, 255, 0 ); 
   LEADDlgEffect1.BackColor:= RGB ( 255, 0, 255 ); 
   LEADDlgEffect1.GradientSteps:= 120; 
   LEADDlgEffect1.Delay:= 20; 
   LEADDlgEffect1.Grain:= 5; 
   LEADDlgEffect1.WandThickness:= 5; 
   LEADDlgEffect1.WandColor:= RGB ( 255, 255, 0 ); 
   LEADDlgEffect1.Transparent:= TRUE; 
   LEADDlgEffect1.TransparentColor:= RGB ( 255, 0, 0 ); 
   LEADDlgEffect1.DlgFlags:= DLG_TRANSITION_SHOW_PREVIEW    Or
                             DLG_TRANSITION_FORECOLOR       Or
                             DLG_TRANSITION_BACKCOLOR       Or
                             DLG_TRANSITION_DELAY           Or
                             DLG_TRANSITION_GRAIN           Or
                             DLG_TRANSITION_EFFECT          Or
                             DLG_TRANSITION_PASSES          Or
                             DLG_TRANSITION_WAND            Or
                             DLG_TRANSITION_TRANSPARENT     Or
                             DLG_TRANSITION_GRADIENT; 

   LEADDlgEffect1.LEADImage:= LEADImage1; 
   LEADDlgEffect1.LEADDlgService:= LEADDlgService1; 
   nRet:= LEADDlgEffect1.ShowGetTransitionDlg ( Self ); 
   if ( nRet= SUCCESS_DLG_OK ) then
   begin
      {output the results}
      Edit1.Text:= IntToStr ( LEADDlgEffect1.Effect); 
      Edit2.Text:= IntToStr ( LEADDlgEffect1.Grain ); 
      Edit3.Text:= IntToStr ( LEADDlgEffect1.Delay); 
      Edit4.Text:= IntToStr ( LEADDlgEffect1.MaxPass ); 
      if ( LEADDlgEffect1.Transparent ) then
         Edit5.Text:= 'True'
      else
         Edit5.Text:= 'False'; 
      Edit6.Text:= IntToStr ( LEADDlgEffect1.WandThickness ); 
      Edit7.Text:= IntToStr ( Ord(LEADDlgEffect1.TransitionStyle) ); 
      Edit8.Text:= IntToStr ( LEADDlgEffect1.GradientSteps ); 
      Shape1.Brush.Color:= LEADDlgEffect1.TransparentColor; 
      Shape2.Brush.Color:= LEADDlgEffect1.WandColor; 
      Shape3.Brush.Color:= LEADDlgEffect1.BackColor; 
      Shape4.Brush.Color:= LEADDlgEffect1.ForeColor; 
   end; 
end;