RingEffect example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   uXorg: L_UINT;
   uYorg: L_UINT;
   uRadius: L_UINT;
begin
   { Load the bitmap, keeping the bits per pixel of the file }
   LEADImage1.Load('e:\\image1.cmp', 0, 1, 1 );

   uXorg:= Trunc(LEADImage1.BitmapWidth/2);
   uYorg:= Trunc(LEADImage1.BitmapHeight/2);
   uRadius:= uXorg;

   { Apply a ring effect to this bitmap with origin (uXorg, uYorg).
   The maximum ring radius is equal to half of the bitmap? width. Draw 10 rings,
   fill the undefined areas with the Black color and the shift angle is equal
   to 1 degrees. Note that you will have undefined areas only if the bitmap width
   is greater than the bitmap height. }
   LEADImage1.RingEffect( uXorg, uYorg, uRadius, 10, 0, RGB(0,0,0), 100, RING_COLOR + RING_FIXEDANGLE + RING_MAXRADIUS );
end;