Перейти на главную   
  helloworld.ru - документация и книги по программированию  
helloworld.ru - документация и книги по программированию
    главная     хостинг     контакты
Поиск по сайту:  
Смотрите также

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

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


Функция MinimizeName ( const FileName: TFileName; Canvas: TCanvas; MaxLen: Integer ): TFileName;
== Данная функция не поддерживается в Delphi 5 ==

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


[ Оглавление ]









helloworld.ru © 2001-2021
Все права защищены