LSShortenPathName

function LSShortenPathName(

  const ARect: TRect;

  ACanvas: TCanvas;

  const AFileName: TFileName

):TFileName;

function LSShortenPathName(

  const ARect: TRect;

  const AFont: TFont;

  const AFileName: TFileName

):TFileName;