Plane example for Delphi

procedure TForm1.PlaneClick(Sender: TObject);
var
   ptCenter: TPoint;
begin
   ptCenter.x:= Trunc( LEADImage1.BitmapWidth /2 );
   ptCenter.y:= Trunc( LEADImage1.BitmapHeight /2 );

   LEADImage1.Plane( ptCenter, 0, Trunc(LEADImage1.BitmapHeight), Trunc(LEADImage1.BitmapWidth/2), -1, 0, 25, 0, 0, 50, RGB(255,0,255), RGB(0,0,0), PLANE_RIGHT Or PLANE_LEFT Or PLANE_FILL_CLR );
end;