ShowMotionBlurDlg example for Delphi

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

   LEADDlgImgEffect1.DlgFlags:= DLG_MOTIONBLUR_SHOW_PREVIEW Or
                                 DLG_MOTIONBLUR_SHOW_TOOL_ZOOMLEVEL; 
   LEADDlgImgEffect1.ZoomToFit:= False; 
   LEADDlgImgEffect1.LEADImage:= LEADImage1; 
   LEADDlgImgEffect1.LEADDlgService:= LEADDlgService1; 
   LEADDlgImgEffect1.EnableMethodErrors:= False; 
   LEADDlgImgEffect1.ShowHelpButton:= True; 

   nRet:= LEADDlgImgEffect1.ShowMotionBlurDlg ( Self ); 
   if ( nRet = SUCCESS_DLG_OK ) then
   begin
      LEADImage1.MotionBlur ( LEADDlgImgEffect1.Dimension, 
                              LEADDlgImgEffect1.Angle, 
                              LEADDlgImgEffect1.Unidirectional ); 
   end; 
end; 

procedure TForm1.LEADDlgImgEffect1DlgHelp (uDialogID: Cardinal); 
begin
   case ( uDialogID ) of
      DLG_HELP_MOTIONBLUR: 
         ShowMessage( 'Help from MotionBlur dialog' ); 

      DLG_HELP_RADIALBLUR: 
         ShowMessage( 'Help from RadialBlur dialog' ); 

      DLG_HELP_ZOOMBLUR: 
         ShowMessage( 'Help from ZoomBlur dialog' ); 

      DLG_HELP_GAUSSIANBLUR: 
         ShowMessage( 'Help from GaussianBlur dialog' ); 

      DLG_HELP_ANTIALIAS: 
         ShowMessage( 'Help from AntiAlias dialog' ); 

      DLG_HELP_AVERAGE: 
         ShowMessage( 'Help from Average dialog' ); 

      DLG_HELP_MEDIAN: 
         ShowMessage( 'Help from Median dialog' ); 

      DLG_HELP_ADDNOISE: 
         ShowMessage( 'Help from AddNoise dialog' ); 

      DLG_HELP_MAXFILTER: 
         ShowMessage( 'Help from MaxFilter dialog' ); 

      DLG_HELP_MINFILTER: 
         ShowMessage( 'Help from MinFilter dialog' ); 

      DLG_HELP_SHARPEN: 
         ShowMessage( 'Help from Sharpen dialog' ); 

      DLG_HELP_SHIFTDIFFERENCEFILTER: 
         ShowMessage( 'Help from ShiftDifferenceFilter dialog' ); 

      DLG_HELP_EMBOSS: 
         ShowMessage( 'Help from Emboss dialog' ); 

      DLG_HELP_OILIFY: 
         ShowMessage( 'Help from Oilify dialog' ); 

      DLG_HELP_MOSAIC: 
         ShowMessage( 'Help from Mosaic dialog' ); 

      DLG_HELP_EROSIONFILTER: 
         ShowMessage( 'Help from ErosionFilter dialog' ); 

      DLG_HELP_DILATIONFILTER: 
         ShowMessage( 'Help from DilationFilter dialog' ); 

        DLG_HELP_CONTOURFILTER: 
         ShowMessage( 'Help from ContourFilter dialog' ); 

      DLG_HELP_GRADIENTFILTER: 
         ShowMessage( 'Help from GradientFilter dialog' ); 

      DLG_HELP_LAPLACIANFILTER: 
         ShowMessage( 'Help from LaplacianFilter dialog' ); 

      DLG_HELP_SOBELFILTER: 
         ShowMessage( 'Help from SobelFilter dialog' ); 

      DLG_HELP_PREWITTFILTER: 
         ShowMessage( 'Help from PrewittFilter dialog' ); 

        DLG_HELP_LINESEGMENTFILTER: 
         ShowMessage( 'Help from LineSegmentFilter dialog' ); 

      DLG_HELP_UNSHARPMASK: 
         ShowMessage( 'Help from UnsharpMask dialog' ); 

      DLG_HELP_MULTIPLY: 
         ShowMessage( 'Help from Multiply dialog' );

      DLG_HELP_ADDBITMAPS: 
         ShowMessage( 'Help from AddBitmaps dialog' ); 

      DLG_HELP_STITCH: 
         ShowMessage( 'Help from Stitch dialog' ); 

      DLG_HELP_FREEHANDWAVE: 
         ShowMessage( 'Help from FreeHandWave dialog' ); 

      DLG_HELP_WIND: 
         ShowMessage( 'Help from Wind dialog' ); 

      DLG_HELP_POLAR: 
         ShowMessage( 'Help from Polar dialog' ); 

      DLG_HELP_ZOOMWAVE: 
         ShowMessage( 'Help from ZoomWave dialog' ); 

      DLG_HELP_RADIALWAVE: 
         ShowMessage( 'Help from RadialWave dialog' ); 

      DLG_HELP_SWIRL: 
         ShowMessage( 'Help from Swirl dialog' ); 

      DLG_HELP_WAVE: 
         ShowMessage( 'Help from Wave dialog' ); 

      DLG_HELP_FREEHANDSHEAR: 
         ShowMessage( 'Help from FreeHandShear dialog' ); 

      DLG_HELP_PUNCH: 
         ShowMessage( 'Help from Punch dialog' ); 

      DLG_HELP_RIPPLE: 
         ShowMessage( 'Help from Ripple dialog' ); 

      DLG_HELP_BENDING: 
         ShowMessage( 'Help from Bending dialog' ); 

      DLG_HELP_CYLINDRICAL: 
         ShowMessage( 'Help from Cylindrical dialog' ); 

      DLG_HELP_SPHERIZE: 
         ShowMessage( 'Help from Spherize dialog' ); 

      DLG_HELP_IMPRESSIONIST: 
         ShowMessage( 'Help from Impressionist dialog' ); 

      DLG_HELP_PIXELATE: 
         ShowMessage( 'Help from Pixelate dialog' ); 

      DLG_HELP_EDGEDETECTOR: 
         ShowMessage( 'Help from EdgeDetector dialog' ); 

      DLG_HELP_UNDERLAY: 
         ShowMessage( 'Help from Underlay dialog' ); 

      DLG_HELP_PICTURIZE: 
         ShowMessage( 'Help from Picturize dialog' ); 
   end; 
end;