TAutoOrientTransform
====================

*** description ***

It's an addon component for Envision Image Library. The component allows to
auto detect and correct the orientation of an image.

The orientation of a page can be landscape or portrait. To auto-orient an
image means to estimate if a landscape page is in portrait mode or viceversa. 

Using this capabilities in scanning application you can acquire both portrait
and landscape pages in portrait mode and the component will auto rotate the
page when necessary !

You can download a complete demo application (400 Kb) or the shareware component
(20 Kb) from http://web.tiscalinet.it/delphipage

But remember: to use the component you need to have the Envision Image Library.

The shareware version haves the same functionality of the full version but at
every usage show a message dialog box with timing and orientation angle
informations.

The full version is priced at 39 USD and is registrable on-line from
ShareIt! (Product Id #137164) www.shareit.com

You can use the component with Borland Delphi 5.x on Windows 95/98/NT platforms.

No external DLL are required.

Applications built using this components are royalties free, but if you need
to create a development tool (as DCU, DLL, OCX etc..) integrating this functionality
you need to obtain a special license.

For questions or comments you can contact the component author at this
address: mc3548@mclink.it

*** usage ***

 Add the AutoOrientTransform.dcu unit to your project units: USES AutoOrientTransform;
 Make sure the AutoOrientTransform.dcu is in your project path.


*** methods ***

 function DetectRotationAngle( const Source : TDibGraphic):Integer;
 --------------------------------------------------------
 Estimate the angle to rotate the image for correct orientation.
 The result is the angle in degree (0, 90, 180, 270)


 procedure ApplyOnDest( const Source : TDibGraphic; const Dest   : TDibGraphic );
 ----------------------------------------------------------------------------------------
 Auto orient the image. The oriented image is copied in Dest and the Source
 still remain unmodified.


 procedure Apply( const Source : TDibGraphic);
 ----------------------------------------------------------------------------------------
 Auto orient the source image.


*** properties ***


*** usage sample ***

procedure TForm1.AutoOrient1Click(Sender: TObject);
 Var Orient:TAutoOrientTransform;
begin
 // Set the cursor
 Screen.Cursor:=crHourGlass;
 try
  // Create a orient component
  Orient:=TAutoOrientTransform.Create;
  try
   // Apply the auto-orient transform to the image component
   Orient.Apply(ImageScrollBox1.Graphic);
   // Redraw the oriented image
   ImageScrollBox1.Redraw(True);
  finally
   //Destroy the orient component 
   Orient.Free;
  end;
 finally
  Screen.Cursor:=crDefault;
 end;
end;


*** license ***

This component is shareware: you can try it for unlimited time before to register it.

You can use this component at your risk.

You can use this component in every Delphi .exe application with no royalties.

If you want to create components, DLL, OCX and other development tool,
you need a separate license.

You have to insert this phrase "Portion copyright by Francesco Pucino" in your 
application "About" dialogs or application documentation.

