[Lazarus] Donate function ShortenStringEx to LCL

[Werner Pamler]

Am 06.12.2018 um 11:40 schrieb AlexeyT via lazarus:
> I want to donate this func. it can truncate text on canvas with 3 
> modes: dots at begin/ at middle of text/ at end of text. Tested in 
> ATTabs demo. Code--
>
> https://github.com/Alexey-T/ATTabs/blob/master/attabs/attabs.pas#L894
>
> char $2026 is ellipsis. Can also use '...' or '..'


Except for more flexible positioning of the '...', this is already 
available as MinimizeName in FileCtrl, or painting text with 
TCanvas.TextRect having its TextStyle.EndEllipsis = true.