Модуль: FileCtrl

type TFileName = type string;

Описание
Функция проверяет, умещается ли имя файла FileName в размер MaxLen холста Canvas при выводе на экран. Если имя файла при выводе на холст не умещается в заданный размер, то функция заменяет часть пути многоточием.

Пример
var
   S: string;
begin
   with Image1 do

     begin
     Width:= 140;
     Height:=100;
     S:= 'С:\DIR1\DIR2\DIR3\DIR4\DIR5\DIR6\myfile.zzz';
     S:= MinimizeName(S, Canvas, Width);  
// S:= 'С\...\DIR5\DIR6\myfile.zzz'
     Canvas.TextOut(0, 0, S);
     end;
end;