ShowGetEffectDlg example for Delphi

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

   LEADDlgEffect1.Effect:= EFX_EFFECT_ROLL4_T_R_T_L; 
   LEADDlgEffect1.Grain:= 5; 
   LEADDlgEffect1.Delay:= 50; 
   LEADDlgEffect1.MaxPass:= 1; 
   LEADDlgEffect1.Transparent:= False; 
   LEADDlgEffect1.TransparentColor:= RGB(0,0,0); 
   LEADDlgEffect1.WandThickness:= 3; 
   LEADDlgEffect1.WandColor:= RGB(255,0,0); 
   LEADDlgEffect1.DlgFlags:= DLG_EFFECT_SHOW_PREVIEW     Or
                             DLG_EFFECT_DELAY            Or
                             DLG_EFFECT_GRAIN            Or
                             DLG_EFFECT_PASSES           Or
                             DLG_EFFECT_TRANSPARENT      Or
                             DLG_EFFECT_WAND             Or
                             DLG_EFFECT_CLASS_WIPE       Or
                             DLG_EFFECT_CLASS_WIPERECT   Or
                             DLG_EFFECT_CLASS_WIPECIRCLE  Or
                             DLG_EFFECT_CLASS_PUSH       Or
                             DLG_EFFECT_CLASS_SLIDE      Or
                             DLG_EFFECT_CLASS_ROLL       Or
                             DLG_EFFECT_CLASS_ROTATE     Or
                             DLG_EFFECT_CLASS_ZOOM       Or
                             DLG_EFFECT_CLASS_DRIP       Or
                             DLG_EFFECT_CLASS_BLIND      Or
                             DLG_EFFECT_CLASS_RANDOM     Or
                             DLG_EFFECT_CLASS_CHECK      Or
                             DLG_EFFECT_CLASS_BLOCKS     Or
                             DLG_EFFECT_CLASS_CIRCLE     Or
                             DLG_EFFECT_CLASS_ELLIPSE; 

   LEADDlgEffect1.LEADImage:= LEADImage1; 
   LEADDlgEffect1.LEADDlgService:= LEADDlgService1; 
   nRet:= LEADDlgEffect1.ShowGetEffectDlg ( 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:= 'Transparent True'
      else
         Edit5.Text:= 'Transparent False'; 
      Edit6.Text:= IntToStr ( LEADDlgEffect1.WandThickness ); 

      Shape1.Brush.Color:= LEADDlgEffect1.TransparentColor; 
      Shape2.Brush.Color:= LEADDlgEffect1.WandColor; 
   end; 
end;