{*************************************************************}
{            Ellipsis Component for Delphi 32                 }
{ Version:   1.0                                              }
{ E-Mail:    tom.vanengeland@ping.be                          }
{ Home Page: http://www.ping.be/tomve                         }
{ Created:   May 8, 2000                                      }
{ Modified:  May 8, 2000                                      }
{ Legal:     Tom van Engeland (C)                             }
{-------------------------------------------------------------}
{ This component is FREEWARE. Enjoy it and modify it as       }
{ pleased. So, if you have found a way to to improve the      }
{ TEllipsis - I will be grateful if you sent me your          }
{ listings.                                                   }
{*************************************************************}
{ DESCRIPTION:                                                }
{ This component adds ellipsis (...) in a string that's too   }
{ long to fit on a canvas.  This behavior is often needed     }
{ with long filenames as you see in most application's.       }
{*************************************************************}
{ PROPERTIES:                                                 }
{ 1. Alignment - To set the Horizontal and Vertical alignment }
{                of the string in the canvas                  }
{ 2. Style     - To set the style of the ellipsis             }
{                esNone, esEnd, esPath                        }
{ 3. Text      - The text wich is used to create the Ellipsis }
{ METOD:
{ 1. SetEllipsis(Canvas: TCanvas)                             }
{              - Sets the Text-propertie with it's proper     }
{                ellipsis on a choisen canvas                 }
{*************************************************************}