III. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ФАЙЛАМИ

4. Функции и процедуры для работы с именем файла

Функция MinimizeName (
const FileName: TFileName;
Canvas: TCanvas;
MaxLen: Integer ): TFileName;

Данная функция поддерживается только в Delphi 4

Модуль: 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;

[Вернуться к содержанию]