TDeskewTransform
================

*** description ***

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

The skew is the little inclination who usually haves a scanned or faxed page.

To deskew an image means to estimate and fix this imperfection.

Correcting the skew allows to:

* Have lower file size using CCITT-G3, CCITT-G4, Rle and PackBits compression algo 
* Improve results using OCR and ICR products 
* Obtain a perfect image at first shot, with no need to re-scan o re-fax the original 


The component is fast and accurate: on a PIII 600Mhz detect the skew of a 300 DPI A4 size
image in less then one second with a 0.1 degree accuracy !

You can download a complete demo application (350 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 skew angle informations.

The full version is priced at 39 USD and is registrable on-line from
ShareIt! (Product Id #137061) 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 DeskewTransform unit to your project units: USES DeskewTransform;
 Make sure the DeskewTransform.dcu is in your project path.


*** methods ***

 function DetectSkew( const Source : TDibGraphic):Double;
 --------------------------------------------------------
 Estimate the skew angle on the source image. The result is the angle in degree.


 procedure ApplyOnDest( const Source : TDibGraphic; const Dest   : TDibGraphic );
 ----------------------------------------------------------------------------------------
 Deskew the image. The deskewd image is copied in Dest and the Source still remain skewed.


 procedure Apply( const Source : TDibGraphic);
 ----------------------------------------------------------------------------------------
 Deskew the Source image. 


*** properties ***

 MaxSkewAngle:Double
 -------------------
 The max angle to investigate expressed in degree. Default is 5 (= from -5 to +5 degrees)


*** usage sample ***


procedure TForm1.Deskew1Click(Sender: TObject);
 Var Deskew:TDeskewTransform;
begin
 // Set the cursor
 Screen.Cursor:=crHourGlass;
 try
  // Create a deskew component
  Deskew:=TDeskewTransform.Create;
  try
   // Apply the deskew transform to the image component
   Deskew.Apply(ImageScrollBox1.Graphic);
   // Redraw the deskewed image
   ImageScrollBox1.Redraw(True);
  finally
   //Destroy the deskew component 
   Deskew.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.

