{ Ellipsis Component for Delphi 32 }

{*************************************************************}
{ Ellipsis Component for Delphi 32 }
{ Version: 1.0 }
{ E-Mail: [email protected] }
{ 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 }
{*************************************************************}