[Lazarus] Donate function ShortenStringEx to LCL

[Juha Manninen]

On Thu, Dec 6, 2018 at 12:40 PM AlexeyT via lazarus
<lazarus at lists.lazarus-ide.org> wrote:
> 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

Why is there :
  S:= UTF8Decode(Text);
  ...
  Result:= UTF8Encode(S);

Please also look at function ShortDisplayFilename() in unit IDEProcs.
It should be moved to LazFileUtils.

Juha