ShowGetTransitionDlg example for C++ Builder

void __fastcall TForm1::ShowGetTransitionDlg1Click(TObject *Sender) 
{
   L_INT nRet; 
   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    |
                           DLG_TRANSITION_FORECOLOR       |
                           DLG_TRANSITION_BACKCOLOR       |
                           DLG_TRANSITION_DELAY           |
                           DLG_TRANSITION_GRAIN           |
                           DLG_TRANSITION_EFFECT          |
                           DLG_TRANSITION_PASSES          |
                           DLG_TRANSITION_WAND            |
                           DLG_TRANSITION_TRANSPARENT     |
                           DLG_TRANSITION_GRADIENT; 

   LEADDlgEffect1->LEADImage = LEADImage1; 
   LEADDlgEffect1->LEADDlgService = LEADDlgService1; 
   nRet= LEADDlgEffect1->ShowGetTransitionDlg ( this ); 
   if ( nRet == SUCCESS_DLG_OK ) 
   {
      /*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 ) 
         Edit5->Text= "True";
      else
         Edit5->Text= "False";
      Edit6->Text= IntToStr ( LEADDlgEffect1->WandThickness ); 
      Edit7->Text= IntToStr ( LEADDlgEffect1->TransitionStyle ); 
      Edit8->Text= IntToStr ( LEADDlgEffect1->GradientSteps ); 
      Shape1->Brush->Color= (TColor)LEADDlgEffect1->TransparentColor; 
      Shape2->Brush->Color= (TColor)LEADDlgEffect1->WandColor; 
      Shape3->Brush->Color= (TColor)LEADDlgEffect1->BackColor; 
      Shape4->Brush->Color= (TColor)LEADDlgEffect1->ForeColor; 
   }
}