{$A+,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O-,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
unit U_Constants;

interface

const
  // Макс масштаб для CAD
  cntCADMaxScale = 10000; //16.12.2011 3000;

  // Типы сетей
  cComputer_nt = $10;
  cTelephon_nt = $08;
  cTelevision_nt = $04;
  cGas_nt = $02;
  cElectric_nt = $01;

  // Для печати
  cCadTextModHeight = 2; // высота текста
  cCadTextModWidth = 1;  // ширина текста

  // Названия классов
  cTOrthoLine = 'TOrthoLine';
  cTConnectorObject = 'TConnectorObject';
  cTTextMod = 'TTextMod';
  cTFigureGrpMod = 'TFigureGrpMod';
  cTFigureGrpNotMod = 'TFigureGrpNotMod';
  cTFrame = 'TFrame';
  cTSCSHDimLine = 'TSCSHDimLine';
  cTSCSVDimLine = 'TSCSVDimLine';
  cTRichTextMod = 'TRichTextMod';
  cTCabinet = 'TCabinet';
  cTCabinetExt = 'TCabinetExt';
  cTCabinetNumber = 'TCabinetNumber';
  cTPlanObject = 'TPlanObject';
  cTPlanConnector = 'TPlanConnector';
  cTPlanTrace = 'TPlanTrace';
  cTCadNorms = 'TCadNorms';
  cTSCSFigureGrp = 'TSCSFigureGrp';
  cTHouse = 'THouse';
  cTApproach = 'TApproach';

  // Индексы классов
  ciTOrthoLine = 01;
  ciTConnectorObject = 02;
  ciTTextMod = 03;
  ciTFigureGrpMod = 04;
  ciTFigureGrpNotMod = 05;
  ciTFrame = 06;
  ciTSCSHDimLine = 07;
  ciTSCSVDimLine = 08;
  ciTRichTextMod = 09;
  ciTCabinet = 10;
  ciTCabinetExt = 11;
  ciTCabinetNumber = 12;
  ciTPlanObject = 13;
  ciTPlanConnector = 14;
  ciTPlanTrace = 15;
  ciTCadNorms = 16;
  ciTSCSFigureGrp = 17;
  ciTHouse = 18;
  ciTApproach = 19;
  ciTNet = 20;


{$IF DEFINED(SCS_PE)}
  {$I U_ConstantsPE}
{$ELSEIF DEFINED(SCS_SPA)}
  {$I U_ConstantsSPA}
{$ELSEIF DEFINED(SCS_UKR)}
  {$I U_ConstantsUKR}
{$ELSE}
  // макса для FormatFloat
  ffMask = '0.00';

  // *** Система измерений
  cMetric_mm = 'мм';
  cMetric_sm = 'см';
  cMetric_m = 'м';
  cWhitworth_in = '"';
  cWhitworth_ft = '''';
  // ***

  cActionNoRealized = 'Данная команда в этой версии не реализована!';

  cPrnScaleToPaper = 'Под размер бумаги';

  // Логи ошибок
  cActiveListNotExistMessage = 'Не удается выполнить операцию, так как' + #13#10 + 'отсутствует активный лист';
  CPowerCadMessage = 'Ошибка в модуле PowerCad: ';
  // U_Progress
  cProgress_Mes1 = 'Пожалуйста подождите ...';
  cProgress_Mes2 = 'Пожалуйста подождите ...';

  // U_InterfacesAutoTrace
  cInterfacesAutoTrace_Mes1 = 'Конечный объект не содержит интерфейсов. ' + #13#10 +
                              'Для автотрассировки воспользуйтесь контекстным меню - "Автотрассировать", ' + #13#10 +
                              'в нормативной базе на нужном кабеле. ';
  cInterfacesAutoTrace_Mes2 = 'У конечного объекта нет разъемных интерфейсов. ' + #13#10 +
                              'Автотрассировка проведена не будет';

  // U_EndPoints
  cEndPoints_Mes1 = 'Объект "';
  cEndPoints_Mes2 = '" выбран в качестве конечного объекта';
  cEndPoints_Mes3 = '" убран в качестве конечного объекта';

  // U_SizePos
  cSizePos_Mes1 = 'Введенные данные не являются числом';
  cSizePos_Mes2 = 'Неверно введены данные';

  // U_BlockEditor
  cBlockEditor_Mes1 = 'Ошибка при вставке из буфера обмена';
  cBlockEditor_Mes2 = 'Папка для создания условных обозначений ...';
  cBlockEditor_Mes3 = 'OK';
  cBlockEditor_Mes4 = 'Отмена';
  cBlockEditor_Mes5 = 'Ошибка при загрузке из файла';

  // U_Layers
  cLayers_Mes1 = 'Переключить на слой подложки';
  {$if Defined(ES_GRAPH_SC)}
    cLayers_Mes2 = 'Переключить на основной слой';
  {$else}
    cLayers_Mes2 = 'Переключить на основной слой СКС';
  {$ifend}
  cLayers_Mes3 = 'Переключить на слой подписей к линейным обьектам';
  cLayers_Mes4 = 'Переключить на слой подписей к точечным обьектам';
  cLayers_Mes5 = 'Переключить на слой выносок к линейным обьектам';
  cLayers_Mes6 = 'Переключить на слой выносок к точечным обьектам';
  cLayers_Mes7 = 'Переключить на слой рамки листа';
  cLayers_Mes8 = 'Переключить на слой архитектурного проектирования';
  cLayers_Mes9 = 'Отображать/Не отображать';
  cLayers_Mes10 = 'Как обычный/Как подложка';
  cLayers_Mes11 = 'Переключить на слой кабинетов';
  cLayers_Mes12 = 'Слой с таким названием уже существует!';

  // U_ChooseComponType
  cChooseComponType_Mes1 = 'Схема проекта';

  // U_CadNormsList
  cCadNormsList_Mes1 = 'Нет';
  cCadNormsList_Mes2 = 'Убрать пометку для объединения';
  cCadNormsList_Mes3 = 'Отметить для объединения';  

  // U_ComponDesignWizard
  cComponDesignWizard_Mes1 = 'Необходимо задать изображение';
  cComponDesignWizard_Mes2 = 'Произошла ошибка при загрузке условного обозначения!';

  // U_MasterNewList
  cMasterNewList_Mes1 = 'Лист ';
  cMasterNewList_Mes2 = 'Создание проекта';
  cMasterNewList_Mes3 = 'Свойства проекта';
  cMasterNewList_Mes4 = 'Создание листа';
  cMasterNewList_Mes5 = 'Свойства листа';
  cMasterNewList_Mes6 = 'Лист';
  cMasterNewList_Mes7_1 = 'Применять текущие настройки для новых проектов'; //'Применять текущие настройки для новых проектов/листов';
  cMasterNewList_Mes7_2 = 'Применять текущие настройки листа для новых проектов'; //'Применять текущие настройки для новых листов';
  cMasterNewList_Mes8_1 = 'Восстановить настройки по умолчанию для новых проектов'; //'Восстановить настройки по умолчанию для новых проектов/листов';
  cMasterNewList_Mes8_2 = 'Восстановить настройки листа по умолчанию для новых проектов'; //'Восстановить настройки по умолчанию для новых листов';
  cMasterNewList_Mes9_1 = 'Сохранить текущие настройки проекта в файл';
  cMasterNewList_Mes9_2 = 'Загрузить настройки проекта из файла';
  cMasterNewList_Mes9_3 = 'Сохранить текущие настройки листа в существующий файл настроек проекта';
  cMasterNewList_Mes9_4 = 'Загрузить настройки листа из файла настроек проекта';
  cMasterNewList_Mes10_1 = 'Сохранение настроек...';
  cMasterNewList_Mes10_2 = 'Открытие настроек...';

// 21.01.2008
  cMasterNewList_Mes11 = 'Для продолжения выберите пожалуйста тип проектируемой СКС';
  cMasterNewList_Mes12 = 'Шаг сетки (от 0.1 до 5)';
  cMasterNewList_Mes13 = 'Шаг сетки (от 0.1 до 1)';
// **********
  //16.05.2008
  cMasterNewList_Mes14 = 'Предупреждение';
  cMasterNewList_Mes15 = 'В связи со сменой способа индексации точечных компонентов, будет выполнена принудительная переиндексация всех точечных компонентов с 1';
  cMasterNewList_Mes16 = 'В связи со сменой режима маркировки компонент, будет выполнена принудительная перемаркировка всех компонентов';
  cMasterNewList_Mes17 = 'Продолжить';
  cMasterNewList_Mes18 = 'Границы от края листа';

  // U_SCSObjectProp
  cSCSObjectProp_Mes1 = 'Указанная высота совпадает с высотой объекта на основании от этого спуска-подъема' +#13#10 +
                        'Спуск-подъем будет удален!';
  cSCSObjectProp_Mes2 = 'Удалить спуск-подъем?';

  // U_TrunkSCS
  {$IF Defined (SCS_RF)}
    cTrunkSCS_Mes1 = '№№';
    cTrunkSCS_Mes2 = 'маг.';
    cTrunkSCS_Mes3 = 'ёмк.';
    cTrunkSCS_Mes4 = 'каб.';
    cTrunkSCS_Mes5 = 'мар.';
    cTrunkSCS_Mes6 = 'каб.';
    cTrunkSCS_Mes7 = 'диам.';
    cTrunkSCS_Mes8 = 'жил';
  {$ELSE}
    cTrunkSCS_Mes1 = '№№';
    cTrunkSCS_Mes2 = 'маг.';
    cTrunkSCS_Mes3 = 'емн.';
    cTrunkSCS_Mes4 = 'каб.';
    cTrunkSCS_Mes5 = 'мар.';
    cTrunkSCS_Mes6 = 'каб.';
    cTrunkSCS_Mes7 = 'діам.';
    cTrunkSCS_Mes8 = 'жил';
  {$IFEND}

// 21.01.2008
  {$IF Defined (SCS_RF)}
    cCadNormsProp_Mes1 = '"№№ пп"';
    cCadNormsProp_Mes2 = '"Наименование работ"';
    cCadNormsProp_Mes3 = '"Единица измерения"';
    cCadNormsProp_Mes4 = '"Количество"';
    cCadNormsProp_Mes5 = '"Количество единиц"';
  {$ELSE}
    cCadNormsProp_Mes1 = '"№№ пп"';
    cCadNormsProp_Mes2 = '"Найменування робіт"';
    cCadNormsProp_Mes3 = '"Одиниця виміру"';
    cCadNormsProp_Mes4 = '"Кількість"';
    cCadNormsProp_Mes5 = '"Кількість одиниць"';
  {$IFEND}
  cCadNormsProp_Mes6 = 'Ширина поля ';
// **********

  cTrunkSCS_Mes9 = 'Соединитель';

  // U_ESCadClasess
  cCadClasses_Mes1 = 'Трасса проложена на высоте ';
  cCadClasses_Mes2 = ' над уровнем пола';
  cCadClasses_Mes3 = '0 градусов';
  cCadClasses_Mes4 = 'Длина: ';
  cCadClasses_Mes5 = '  Общая длина: ';
  cCadClasses_Mes6 = ' см';
  cCadClasses_Mes7 = ' м';
  cCadClasses_Mes8 = ' градусов';
  cCadClasses_Mes9 = 'Невозможно переместить трассу, так как трасса подсоединена к объекту.' +
                     'Отключите опцию "Запретить перемещение подсоединенной трассы" на нижней панели';
  cCadClasses_Mes10 = 'Нельзя переместить РТ, так как к РТ подсоединены трассы и ' +
                      'установлен флаг "Не перемещать подсоединенную РТ", снимите этот флаг, ' +
                      'если хотите получить возможность перемещать подсоединенные РТ';
  cCadClasses_Mes11 = 'Нельзя присоединить объект, так как у него есть подъем-спуск';
  // Tolik --22/03/2018 --
  cCadClasses_Mes11_1 = ' и не включена опция '+''''+'Использовать вертикальные трассы' +'''';
  cCadClasses_Mes11_2 = 'Нельзя cоединить объекты, так как у одного из них есть подъем-спуск';
  cCadClasses_Mes11_3 = 'Нельзя cоединить объекты, так как у обоих из них есть подъемы-спуски или вертикальные трассы';
  cCadClasses_Mes11_4 = 'Нельзя соединять объект с объектом !!!';
  cCadClasses_Mes11_5 = 'Нельзя соединить коннекторы, так как у обоих из них есть подъемы-спуски или вертикальные трассы';
  cCadClasses_Mes11_6 = 'Нельзя соединять трассы обеими сторонами!';
  cCadClasses_Mes11_7 = 'Нельзя присоединить объект к вертикали, так как у него есть присоединенный спуск-подъем или вертикальные трассы';
  cCadClasses_Mes11_8 = 'Нельзя соединять соединенные объекты!';
  //
  cCadClasses_Mes12 = 'Соединитель';
  cCadClasses_Mes13 = 'Объект ';
  cCadClasses_Mes14 = ' был поднят некорректно! Пожалуйста перепроверьте его!';
  cCadClasses_Mes15 = 'Масштабирование по горизонтали';
  cCadClasses_Mes16 = 'Укажите размер по горизонтали:';
  cCadClasses_Mes17 = 'Масштабирование по вертикали';
  cCadClasses_Mes18 = 'Укажите размер по вертикали:';
  cCadClasses_Mes19 = 'Редактирование RTF текста ...';
  cCadClasses_Mes20 = 'Трасса';
  cCadClasses_Mes21 = 'РТ';
  cCadClasses_Mes22 = 'Ведомость норм не будет построена, так как она пустая!';
  {$IF Defined (SCS_RF)}
    cCadClasses_Mes23 = 'Количество единиц';
  {$ELSE}
    cCadClasses_Mes23 = 'Кількість одиниць';
  {$IFEND}  
  cCadClasses_Mes24 = 'Вершина спуска-подъема';
  cCadClasses_Mes25 = 'Спуск-подъем';
  cCadClasses_Mes26 = 'Вершина м-э перехода';
  cCadClasses_Mes27 = 'м-э спуск-подъем';
  cCadClasses_Mes28 = 'Редактирование высоты';
  cCadClasses_Mes29 = 'Введите высоту над уровнем пола';
  cCadClasses_Mes30 = 'Вершина магистрального перехода';
  cCadClasses_Mes31 = 'Магистральный спуск-подъем';
  cCadClasses_Mes32 = 'Вертикальная трасса';
  cCadClasses_Mes33 = 'Радиус';
  cCadClasses_Mes34 = 'Расст.';

  cCadClasses_Mes35_1 = 'Создание межэтажного перехода';
  cCadClasses_Mes35_1_1 = 'Создание межэтажного перехода';
  cCadClasses_Mes35_2 = 'Выберите объект для соединения с межэтажным переходом';

  // U_CAD
  cCad_Mes1 = 'Подложка';
  {$IF Defined(ES_GRAPH_SC)}
    cCad_Mes2 = 'Дополнительные объекты';
  {$else}
    cCad_Mes2 = 'СКС основной';
  {$ifend}
  cCad_Mes3 = 'Подписи к линиям';
  cCad_Mes4 = 'Подписи к объектам';
  cCad_Mes5 = 'Выноски к линиям';
  cCad_Mes6 = 'Выноски к объектам';
  cCad_Mes7 = 'Рамка листа';
  cCad_Mes8 = 'Архитектурное проектирование';
  cCad_Mes9 = 'Не удалось сохранить лист ';
  cCad_Mes10 = ' в базу';
  cCad_Mes11 = 'Вы уверены, что хотите удалить выделенные объекты?';
  cCad_Mes11_1 = 'Удалить только неиспользуемые спуски/подъемы?';
  cCad_Mes12 = 'Удаление объектов';
  cCad_Mes13 = 'Высота спуска-подъема: ';
  cCad_Mes14 = 'Длина отрезка трассы: ';
  cCad_Mes14_1 = 'Длина выбранных трасс: ';
  cCad_Mes15 = 'Длина до конечной точки: ';
  cCad_Mes16 = 'Нет выбранного объекта в базе.';
  cCad_Mes17 = ' - Слой: ';
  cCad_Mes18 = 'Вы сейчас находитесь на базовом слое, на этом слое доступны ' +
               'все объекты';
  cCad_Mes19 = 'Вы сейчас находитесь на слое "подложка", на этом слое можно создавать и ' +
               'редактировать макеты помещений';
  cCad_Mes20 = 'Вы сейчас находитесь на слое "СКС", на этом слое можно создавать и ' +
               'редактировать схемы сети';
  cCad_Mes21 = 'Вы перешли на слой подписей к линиям, на этом слое можно ' +
               'редактировать подписи линейных объектов';
  cCad_Mes22 = 'Вы перешли на слой подписей к коннекторам, на этом слое можно ' +
               'редактировать подписи точечных объектов';
  cCad_Mes23 = 'Вы перешли на слой выносок к линиям, на этом слое можно ' +
               'редактировать выноски линейных объектов';
  cCad_Mes24 = 'Вы перешли на слой выносок к коннекторам, на этом слое можно ' +
               'редактировать выноски точечных объектов';
  cCad_Mes25 = 'Вы перешли на слой рамки листа, на этом слое можно ' +
               'редактировать рамку листа';
  cCad_Mes26 = 'Вы перешли на слой архитектурного проектирования, на этом слое можно ' +
               'нарисовать архитектурный план листа';
  cCad_Mes27 = 'Не выбран конечный объект! Кабель/каб.канал не был проложен! Выберите конечный объект в контекстном меню, пункт "Как конечный объект"';
  cCad_Mes28 = 'Переместить на высоту ';
  cCad_Mes29 = 'Кабинеты';
  cCad_Mes30 = 'Вы перешли на слой кабинетов, на этом слое можно создавать и ' +
               'редактировать кабинеты';
// 21.01.2008
  cCad_Mes31 = 'Номер магистрали: ';
  cCad_Mes32 = 'Нельзя закрыть лист, так как существует связь этого листа с другими листами';  
// **********  

  // USCS_Main
  cMain_Mes1 = 'Сообщение об ошибке';
  cMain_Mes2 = ' (версия ';
  cMain_Mes3 = ' от ';
  cMain_Mes4 = 'Загрузить подложку ...';
  {$IF Defined(ES_GRAPH_SC)}
    cMain_Mes5 = 'Подложки (план) (*.scb)|*.scb';
  {$else}
    cMain_Mes5 = 'Подложки СКС (*.scb)|*.scb';
  {$ifend}
  cMain_Mes5_1 = ''; 
  cMain_Mes6 = 'Ошибка при загрузке из файла';
  cMain_Mes7 = 'Сохранить подложку как ...';
  cMain_Mes8 = 'Ошибка при сохранении в файл';
  cMain_Mes9 = 'Недоступно в Trial версии!';
  cMain_Mes10 = 'Нормативная база отсутствует!';
  cMain_Mes11 = 'Менеджер проектов отсутствует';
  cMain_Mes12 = 'Свойства объектов';
  cMain_Mes13 = 'Нельзя сгруппировать эти фигуры';
  cMain_Mes13_1 = 'Нельзя расгруппировать эти фигуры';
  cMain_Mes14 = 'Не удается показать масштаб, так как' + #13#10 +
                'установлен страничный режим линейки!';
  cMain_Mes15 = 'Ошибка';
  cMain_Mes16 = 'Файл презентации не найден!';
  cMain_Mes17 = 'Нельзя удалить базовый слой!';
  cMain_Mes18 = 'Нельзя удалить основной слой подложки!';
  {$IF Defined(ES_GRAPH_SC)}
    cMain_Mes19 = 'Нельзя удалить слой!';
    cMain_Mes19_1 = 'Нельзя удалить слой!'; // Tolik 30/08/2019 -- 
    cMain_Mes20 = 'Нельзя удалить слой подписей!';
    cMain_Mes21 = 'Нельзя удалить слой подписей!';
    cMain_Mes22 = 'Нельзя удалить слой выносок!';
    cMain_Mes23 = 'Нельзя удалить слой выносок!';
  {$else}
    cMain_Mes19 = 'Нельзя удалить основной слой СКС!';
    cMain_Mes19_1 = 'Нельзя удалить слой!'; // Tolik 30/08/2019 -- 
    cMain_Mes20 = 'Нельзя удалить слой подписей к линейным обьектам СКС!';
    cMain_Mes21 = 'Нельзя удалить слой подписей к точечным обьектам СКС!';
    cMain_Mes22 = 'Нельзя удалить слой выносок к линейным обьектам СКС!';
    cMain_Mes23 = 'Нельзя удалить слой выносок к точечным обьектам СКС!';
  {$ifend}
  cMain_Mes24 = 'Нельзя удалить слой рамки листа!';
  cMain_Mes25 = 'Нельзя удалить слой архитектурного проектирования!';
  cMain_Mes26 = 'Нельзя удалить соединитель, так как к нему присоединено больше или меньше 2-х трасс' +#13#10 +
                'или же соединитель является вершиной с-п, или объектом, на котором находится с-п';
  cMain_Mes27 = 'Внимание!' + #13#10 +
                'Конечная точка по умолчанию не выбрана' + #13#10 +
                'Чтобы выбрать ее, выберите в контекстном меню на объекте' + #13#10 +
                '"Как конечный объект" ';
  cMain_Mes28 = 'Высота подъема-спуска';
  cMain_Mes29 = 'Укажите высоту подъема-спуска';
  cMain_Mes30 = 'Нельзя создать подъем-спуск, так как высота объекта' +
                ' и высота подъем-спуска совпадает';
  cMain_Mes31 = 'Нельзя создать подъем-спуск, так как отсутствуют трассы подсоединенные к нему. ' +
                'Проведите хотя бы одну трассу';
  cMain_Mes32 = 'Высота трассы';
  cMain_Mes33 = 'Укажите высоту трассы';
  cMain_Mes34 = 'Будет произведена прокладка и подключение кабеля со всех рабочих мест' + #13#10 +
                'до конечной точки ';
  cMain_Mes35 = 'Будет проведен контроль наличия свободных портов между подключаемыми объектами,' + #13#10 +
                'их совместимость и возможность подключения';
  cMain_Mes36 = 'Автотрассировка';
  cMain_Mes37 = 'Вы уверены, что хотите удалить выделенный сегмент?';
  cMain_Mes38 = 'Удаление сегмента';
  cMain_Mes39 = 'Вы уверены, что хотите удалить текущий план?';
  cMain_Mes40 = 'Удаление плана';
  cMain_Mes41 = 'Вы уверены, что хотите удалить окно/дверь?';
  cMain_Mes42 = 'Удаление окна/двери';
  cMain_Mes43 = 'Вы уверены, что хотите удалить выделенную колонну?';
  cMain_Mes44 = 'Удаление колонны';
  cMain_Mes45 = 'Невозможно создать межэтажный подъем, так как не существует этажа выше данного.' + #13#10 +
                'Создайте дополнительный лист/этаж';
  cMain_Mes46 = 'Невозможно создать межэтажный подъем, так как' + #13#10 +
                'этаж выше этого не является обычным' + #13#10 +
                'и он не подходит для создания межэтажного подъема';
  cMain_Mes47 = 'Невозможно создать межэтажный спуск, так как не существует этажа ниже данного.' + #13#10 +
                'Создайте дополнительный лист/этаж.';
  cMain_Mes48 = 'Невозможно создать межэтажный спуск, так как' + #13#10 +
                'этаж ниже этого не является обычным' + #13#10 +
                'и он не подходит для создания межэтажного спуска';
  // Tolik 13/05/2017 --
  cMain_Mes48_1 = 'Удалить все компоненты?';
  cMain_Mes48_2 = 'Удаление компонент';
  //
  {$IF Defined(ES_GRAPH_SC)}
    cMain_Mes49 = 'Вы действительно хотите закрыть модуль?';
  {$ELSE}
    cMain_Mes49 = 'Вы действительно хотите выйти из программы';
  {$IFEND}
  cMain_Mes50 = 'Выход из программы';
  cMain_Mes51 = 'Вставить условное обозначение ...';
  {$IF Defined(ES_GRAPH_SC)}
    cMain_Mes52 = 'Условные обозначения (*.blk)|*.blk';
  {$else}
    cMain_Mes52 = 'Условные обозначения СКС (*.blk)|*.blk';
  {$ifend}
  cMain_Mes53 = 'Имя файла не найдено.';
  cMain_Mes54 = 'Неизвестно';
  cMain_Mes55 = 'Этот точечный объект ни к чему не присоединен!';
  cMain_Mes56 = 'Сохранить лист как BMP ...';
  cMain_Mes57 = 'Рисунок (*.bmp)|*.bmp';
  cMain_Mes58 = 'Файл Истории изменений не найден!';
  cMain_Mes59 = 'Ширина сегмента';
  cMain_Mes60 = 'Установите ширину сегмента ';
  cMain_Mes61 = 'Ширина сегментов';
  cMain_Mes62 = 'Установите ширину для всех сегментов ';
  cMain_Mes63 = 'Размер окна/двери';
  cMain_Mes64 = 'Установите размер окна/двери ';
  cMain_Mes65 = 'Угол колонны';
  cMain_Mes66 = 'Установите угол колонны в градусах';
  cMain_Mes67 = 'Высота колонны';
  cMain_Mes68 = 'Установите высоту колонны ';
  cMain_Mes69 = 'Ширина колонны';
  cMain_Mes70 = 'Установите ширину колонны ';
  cMain_Mes71 = 'Ширина линий сегмента';
  cMain_Mes72 = 'Установите ширину линий сегмента (1-7):';
  cMain_Mes73 = 'Ширина линий должна быть в пределах 1-7!';
  cMain_Mes74 = 'Неправильный формат данных!';
  cMain_Mes75 = 'При ширине линий больше 1 установить другой стиль трассы' + #13#10 +
                'кроме сплошной - нельзя!';
  cMain_Mes76 = 'Установите стиль линий сегмента (0-5):' + #13#10 +
                '0 - сплошная' + #13#10 +
                '1 - штрих' + #13#10 +
                '2 - пунктирная' + #13#10 +
                '3 - штрихпунктирная' + #13#10 +
                '4 - штрих двойная пунктирная' + #13#10 +
                '5 - прозрачная';
  cMain_Mes77 = 'Стиль линий сегмента';
  cMain_Mes78 = 'Стиль линий должен быть в пределах 0-5!';
  cMain_Mes79 = 'Ширина линий всех сегментов';
  cMain_Mes80 = 'Установите ширину линий всех сегментов (1-7):';
  cMain_Mes81 = 'Загрузить рамку листа ...';
  {$IF Defined(ES_GRAPH_SC)}
    cMain_Mes82 = 'Рамки листа (*.sch)|*.sch';
  {$else}
    cMain_Mes82 = 'Рамки листа СКС (*.sch)|*.sch';
  {$ifend}
  cMain_Mes83 = 'Сохранить рамку листа как ...';
  cMain_Mes84 = 'Сохранить архитектурный план как ...';
  {$IF Defined(ES_GRAPH_SC)}
    cMain_Mes85 = 'Архитектурные планы (*.sca)|*.sca';
  {$else}
    cMain_Mes85 = 'Архитектурные планы СКС (*.sca)|*.sca';
  {$ifend}
  cMain_Mes86 = 'Загрузить архитектурный план ...';
  cMain_Mes87 = 'Файл руководства не найден!';
  cMain_Mes88 = 'Высота подписи';
  cMain_Mes89 = 'Установите высоту подписи в пикселях';
  cMain_Mes90 = 'Ширина подписи';
  cMain_Mes91 = 'Установите ширину подписи в пикселях';
  cMain_Mes92 = 'Сохранить условное обозначение ...';
  cMain_Mes93 = 'Установите высоту спуска-подъема ';
  cMain_Mes94 = 'Указанная высота совпадает с высотой межэтажного спуска-подъема' +#13#10 +
                'Межэтажный спуск-подъем будет удален!';
  cMain_Mes95 = 'Удалить межэтажный спуск-подъем?';
  cMain_Mes96 = 'Лист со схемой проекта уже существует!';
  cMain_Mes97 = 'Сохранить лист как WMF ...';
  cMain_Mes98 = 'Рисунок (*.wmf)|*.wmf';
  cMain_Mes99 = 'Отметить для трассировки';
  cMain_Mes100 = 'Убрать отметку для трассировки';
  cMain_Mes101 = 'Невозможно создать межэтажный подъем, так как' + #13#10 +
                 'этаж выше имеет другой тип сети' + #13#10 +
                 'и он не подходит для создания межэтажного подъема';
  cMain_Mes102 = 'Невозможно создать межэтажный спуск, так как' + #13#10 +
                 'этаж ниже этого имеет другой тип сети' + #13#10 +
                 'и он не подходит для создания межэтажного спуска';
  cMain_Mes103 = 'Нельзя удалить слой кабинетов!';

  cMain_Mes104 = 'Гор. масштаб';
  cMain_Mes105 = 'Верт. масштаб';

  cMain_Mes106 = 'Кабинет';
  //Tolik 18/02/2022 --
  //cMain_Mes107 = 'Арх. план';
  //cMain_Mes108 = 'Сегмент';
  cMain_Mes107 = 'Комната';
  cMain_Mes108 = 'Стена';
  //

  cMain_Mes109 = 'Трасса п/у';
  cMain_Mes110 = 'Трасса';
  cMain_Mes111 = 'Во весь экран';
  cMain_Mes112 = 'Отметить для запрета трассировки';
  cMain_Mes113 = 'Убрать отметку для запрета трассировки';
  cMain_Mes114 = 'Дом';
  cMain_Mes115 = 'Вы уверены, что хотите удалить дом?';
  cMain_Mes116 = 'Удаление дома';
  cMain_Mes117 = 'Кабинет с/ф';
  cMain_Mes118 = 'Пан.';

  cMain_Mes120 = 'Открыть векторное изображение ...';
  cMain_Mes121 = 'Открыть растровое изображение ...';
  cMain_Mes122 = 'Сохранить как векторное изображение ...';
  cMain_Mes123 = 'Сохранить как растровое изображение ...';

  cMain_Mes124 = 'Векторные изображения |*.dxf; *.dwg; *.svg; *.prn; *.plt; *.wmf;|' +
                 'Файлы DXF |*.dxf|' +
                 'Файлы DWG |*.dwg|' +
                 'Файлы SVG |*.svg|' +
                 'Файлы PRN |*.prn|' +
                 'Файлы PLT |*.plt|' +
                 'Файлы WMF |*.wmf';
  cMain_Mes124_2 = 'Файлы DXF |*.dxf|' +
                 'Файлы DWG |*.dwg|' +
                 'Файлы WMF |*.wmf';
//  cMain_Mes124_2 = 'Файлы DXF |*.dxf|' +
//                 'Файлы DWG |*.dwg|';

  cMain_Mes125 = 'Растровые изображения |*.bmp; *.jpg; *.jpeg;|' +
                 'Файлы BMP |*.bmp|' +
                 'Файлы JPG |*.jpg|' +
                 'Файлы JPEG |*.jpeg';
   //Tolik 10/08/2021 -- + PNG
   cMain_Mes125_ = 'Растровые изображения |*.bmp; *.jpg; *.jpeg; *.png;|' +
                 'Файлы BMP |*.bmp|' +
                 'Файлы JPG |*.jpg|' +
                 'Файлы JPEG |*.jpeg|' +
                 'Файлы PNG |*.png';
 //
  cMain_Mes126 = 'Высота вертикальной трассы';
  cMain_Mes127 = 'Укажите высоту вертикальной трассы';
  cMain_Mes128 = 'Нельзя создать вертикальную трассу, так как высота объекта' +
                ' и высота вертикальной трассы совпадает';
  cMain_Mes129 = 'Введите количество углов';
  cMain_Mes130 = 'Введите угол';
  cMain_Mes131 = 'уже существует. Продолжить сохранение с заменой этого файла?';
  cMain_Mes132 = 'Нет выделенных линий, для создания трасс';
  cMain_Mes133 = 'Удалить исходные линии? ';
  cMain_Mes134 = 'После выполнения действия, отмена предыдущих действий будет невозможна. Продолжать?';
  cMain_Mes135 = 'Ниши с внешней стороны не будут учтены на расчете площади фасада';
  cMain_Mes136 = 'Выбор листа документа для подложки...';
  cMain_Mes137 = 'Интерактивное обучение - кнопки управления!'; //'Интерактивное обучение - кнопка Далее!';
  cMain_Mes137_2 = 'после нажмите кнопку Далее!';
  cMain_Mes138 = 'Установить как конечный объект?';
  cMain_Mes139 = 'Cоздать межэтажный спуcк-подъем?';
  cMain_Mes140 = 'Продолжить дальше размещать данный объект в 1 клик?';


  // U_Common
  cCommon_Mes1 = '" был присоединен к объекту "';
  cCommon_Mes2 = 'Произошла автотрассировка с "';
  cCommon_Mes3 = '" к конечной точке "';
  cCommon_Mes4 = 'C объекта "';
  cCommon_Mes5 = '" до конечного объекта автотрассировка не произведена!';
  cCommon_Mes6 = 'Возможные причины: ' + #13#10 +
                 '1. Несоответствие интерфейсов, или отсутcтвие необходимых интерфейсов' + #13#10 +
                 '2. Отсутствие трассы между данными объектами';
  cCommon_Mes7 = ' - Слой: ';
  cCommon_Mes8 = 'Нельзя создать лист, сперва нужно создать проект!';
  cCommon_Mes9 = 'Ошибка при открытии листа ';
  cCommon_Mes10 = ' проекта';
  cCommon_Mes11 = 'Не введено одно из полей!';
  cCommon_Mes12 = 'Ошибка при загрузке изображения';
  cCommon_Mes13 = 'AV при обновлении листа!';
  cCommon_Mes14 = 'Внимание! На перемещаемых листах есть межэтажные спуски-подъемы.' + #13#10 +
                  'Перемещение этих листов повлечет за собой удаление всех м-э с-п на этих листах' + #13#10 +
                  'Переместить листы?';
  cCommon_Mes14_2 = 'Внимание! На перемещаемых листах есть межэтажные спуски-подъемы.' + #13#10 +
                  'Переместить листы c удалением всех м-э с-п?';
  cCommon_Mes15 = 'Перемещение листов';
  cCommon_Mes16 = 'Проложить ';
  cCommon_Mes17 = ' кабелей?';
  cCommon_Mes18 = 'Нет - проложить только один кабель.';
  cCommon_Mes19 = 'Соединение кабелей';
  cCommon_Mes20 = 'Прокладывать через спуски-подъемы?';
  cCommon_Mes21 = 'Прокладка кабелей!';
  cCommon_Mes22 = 'Сгруппированные объекты нельзя дублировать!';
  cCommon_Mes23 = 'Высота фальш-потолка кабинета';
  cCommon_Mes24 = 'Введите высоту фальш-потолка:';

  cCommon_Mes25 = 'Схема размещения оборудования в коммутационном шкафу';
  cCommon_Mes25_ukr = 'Схема розміщення обладнання в комутаційній шафі';
  cCommon_Mes26 = 'Схема размещения объектов проекта';
  cCommon_Mes26_ukr = 'Схема розміщення об''єктів проекту';

  cCommon_Mes27_1 = 'Выберите способ прокладка трасс';
  //cCommon_Mes27_2 = 'Последовательная прокладка трасс (на подобие топологии дерево)';
  //cCommon_Mes27_3 = 'Параллельная прокладка трасс (на подобие топологии звезда)';
  cCommon_Mes27_2 = 'Соединять объекты подряд';
  cCommon_Mes27_3 = 'Соединять каждый объект своей трассой';
  cCommon_Mes27_4 = 'Прокладка трасс к магистрали (основной трассе)';

  cCommon_Mes28_1 = 'кабелей к РМ';
  cCommon_Mes28_2 = 'кабелей между Боксом и Шкафом';
  // Tolik -- 15/04/2016 --
  cCommon_Mes29   = 'Внимание!';
  cCommon_Mes30   = 'Вы находитесь на слое '+ ''''+'Подложка!'+''''+#13#10+'Свойства шрифта будут применены ко всем текстовым объектам подложки.'+
                    #13#10+'Отменить изменение свойств шрифта на подложке будет невозможно !' + //Tolik 16/10/2020 --
                    #13#10+'Выполнить применение свойств листа?';

  cCommon_Mes31 = '!!! Некорректные данные в менеджере проектов, пытаемся восстановить данные';
  cCommon_Mes32 = '!!!!!! Не удалось восстановить все данные. Обратитесь к разработчику!';
  cCommon_Mes33 = 'Данные в менеджере проектов успешно восстановлены.';
  cCommon_Mes34 = 'Внимание! Не возможно восстановить некорректные данные в менеджере проектов. Обратитесь к разработчику!';
  // Tolik 10/05/2018 --
  cCommon_Mes35 = 'Кабель не был подключен, по причине отсутствия свободных портов  ' +
                  #13#10 + 'в розетках, боксах или патч-панелях в шкафах ' +
                  #13#10 + 'Добавьте Розетки/Боксы/Патч-панели' +
                  #13#10 + #13#10 + 'Автотрассировать снова?';
  //
  cImport_Mes1 = 'Невозможно открыть файл ';
  cImport_Mes2 = 'Масштабирование изображения';
  cImport_Mes3 = 'Произвести масштабирование относительно листа?';

// 21.01.2008
  cImport_Mes4 = 'Импорт файлов DXF';
//  cImport_Mes5 = 'Файлы DXF, DWG, SVG, PRN, PLT (*.dxf, *.dwg, *.svg, *.prn, *.plt)|*.dxf; *.dwg; *.svg; *.prn; *.plt;';
  cImport_Mes5 = 'Все совместимые форматы |*.dxf; *.dwg; *.svg; *.prn; *.plt;|' +
                 'Файлы DXF |*.dxf|' +
                 'Файлы DWG |*.dwg|' +
                 'Файлы SVG |*.svg|' +
                 'Файлы PRN |*.prn|' +
                 'Файлы PLT |*.plt';

  cImport_Mes6 = 'Секция HEADER не вычитана';
  cImport_Mes7 = 'Секция CLASSES не вычитана';
  cImport_Mes8 = 'Секция TABLES не вычитана';
  cImport_Mes9 = 'Секция BLOCKS не вычитана';
  cImport_Mes10 = 'Секция ENTITIES не вычитана';
  cImport_Mes11 = 'Секция OBJECTS не вычитана';
  cImport_Mes12 = 'Файлы DXF (*.dxf)|*.dxf';
  cImport_Mes12_2 = 'Файлы DWG (*.dwg)|*.dwg';
  cImport_Mes13 = 'При импорте не найдены графические объекты, проверьте их наличие в модели исходного файла';
  //Tolik
  cImport_Mes14_1 = 'Импорт изображения ';
  cImport_Mes14 = 'Внимание! Слишком большое количество графических примитивов. ' + #13#10'Преобразовать в растровый чертеж?';
  cImport_Mes15 = 'Выберите масштаб изображения';
  CImport_Mes16 = 'Внимание! Нет возможности корректно загрузить все графические примитивы.' + #13#10'Преобразовать в растровый чертеж?';

  //
  cExport_Mes1 = 'Экспорт файлов DXF';
  cExport_Mes2 = 'Экспорт файлов DWG';
  cDXFEngineSCS_Msg1 = 'Без названия';

  cPrevForm_Mes1 = 'Выбранный принтер: ';

  cDrawObjects_Mes1 = 'Радиус окружности';
  cDrawObjects_Mes2 = 'Введите радиус окружности:';
  cDrawObjects_Mes3 = 'Введенные данные не являються числом!';
  cDrawObjects_Mes4 = 'Измерительная линия';
  cDrawObjects_Mes5 = 'Введите новый текст:';
  cDrawObjects_Mes6 = 'Ввод текста';
  cDrawObjects_Mes7 = 'Текст';
  cDrawObjects_Mes8 = 'Редактирование RTF текста ...';
  cDrawObjects_Mes9 = 'Математический график';
  cDrawObjects_Mes10 = 'Введите функцию:';
  cDrawObjects_Mes11 = 'Текстовая панель';
  cDrawObjects_Mes12 = 'Введите текст:';
  cDrawObjects_Mes13_1 = 'Линия';
  cDrawObjects_Mes13_2 = 'Введите длину линии';
  cDrawObjects_Mes14 = 'Размеры прямоугольника';
  cDrawObjects_Mes15_1 = 'Радиус дуги';
  cDrawObjects_Mes15_2 = 'Введите радиус дуги:';
  //Tolik 14/07/2017 --
  cDrawObjects_Mes16 = 'Параметры сектора '; 
  //

  cLoadColor_Mes1 = 'Нет';
  cLoadColor_Mes2 = 'По умолчанию';
  cLoadColor_Mes3 = 'Другие цвета';
// **********
  cDpr_Mes1 = 'Не возможно скопировать библиотеку внешних функций!';
  cDpr_Mes2 = 'Невозможно изменить формат даты. Обратитесь к разработчику';
  cDpr_Mes3 = '\ExpertCAD Триал.lnk';
  cDpr_Mes4 = '\Programs\ExpertCAD\ExpertCAD-Триал.lnk';
  cDpr_Mes5 = '\Программы\ExpertCAD\ExpertCAD-Триал.lnk';

  cExportDXF_Mes1 = 'Экспорт в DXF';
  cExportDXF_Mes2 = 'Учитывать Z координату при экспорте в DXF';

  cForm3D_Mes1 = 'Сохранить 3D ...';
  cForm3D_Mes2 = 'Внимание! Сохранение в перспективном виде будет некорректным. ' +#13#10 + 'Переключитесь в ортогональный вид!';
  cForm3D_Mes3 = 'Текущий вид: Перспективный';
  cForm3D_Mes4 = 'Текущий вид: Ортогональный';
  cForm3D_Mes5 = 'Текущий вид: От первого лица';
  cForm3D_Mes6_1 = 'Сохранить модель?';
  cForm3D_Mes6_2 = 'Сохранение модели';
  cForm3D_Mes6_3 = 'Применить разрезку?';
  cForm3D_Mes7_1 = 'Стены';
  cForm3D_Mes7_2 = 'Двери'; // 2
  cForm3D_Mes7_3 = 'Окна'; // 3
  cForm3D_Mes7_4 = 'Балконы'; // 4
  cForm3D_Mes7_5 = 'Откосы'; // 5
  cForm3D_Mes7_6 = 'Арки'; // 6
  cForm3D_Mes7_7 = 'Ниши'; // 7
  cForm3D_Mes7_8 = 'Полы'; // 8
  cForm3D_Mes7_9 = 'Потолки'; // 9
  cForm3D_Mes7_10 = 'Внутренние грани'; // 10
  cForm3D_Mes7_11 = 'Внешние грани'; // 11
  cForm3D_Mes7_12 = '3ds объекты'; // 12
  cForm3D_Mes8_1 = 'Объекты';
  cForm3D_Mes8_2 = 'Трассы';
  cForm3D_Mes8_3 = 'Спуски-подъемы';
  cForm3D_Mes8_4 = 'М-э спуски-подъемы';
  //cForm3D_Mes9 = '3D модель';
  // Tolik --10/09/2018 --
  cForm3D_Mes10 = 'Все подложки';
  cForm3D_Mes11 = 'Подложки';
  cForm3D_Mes12 = 'Прозрачность подложек';
  cForm3D_Mes13 = 'Масштабы на листах различаются! Нужно установить одинаковый масштаб.' + #13#10 +
                  'Но, в любом случае, вы можете открыть 3Д модель одного листа (этажа).';
  //
  cModel = '3D Модель';
  cRoom = 'Комната ';
  cWall = 'Стена ';
  cDoor = 'Дверной проем ';
  cWindow = 'Оконный проем ';
  cBalcon = 'Балконный проем ';
  cNiche = 'Ниша ';
  cArc = 'Арка ';
  cInnerSlope = 'Откос';
  cOuterSlope = 'Внешний откос';
  cSide = 'Грань ';
  cFloor = 'Пол';
  cCeiling = 'Потолок';
  cSubSide = 'Подгрань ';

  cHouse_Mes1 = 'Подъезд находится не в границах дома!';
  cHouse_Mes2 = 'Подъезд';

  cMasterNewListLite_Mes1 = 'Далее >>';
  cMasterNewListLite_Mes2 = 'Готово';
  cMasterNewListLite_Mes3 = 'Загрузить на лист ...';
  cMasterNewListLite_Mes4 = 'Все форматы |*.dxf; *.dwg; *.svg; *.prn; *.plt; *.wmf; *.bmp; *.jpg; *.jpeg; *.scb; *.sca|' +
                            'Файлы DXF |*.dxf|' +
                            'Файлы DWG |*.dwg|' +
                            'Файлы SVG |*.svg|' +
                            'Файлы PRN |*.prn|' +
                            'Файлы PLT |*.plt|' +
                            'Файлы WMF |*.wmf|' +
                            'Файлы BMP |*.bmp|' +
                            'Файлы JPG |*.jpg|' +
                            'Файлы JPEG |*.jpeg|' +
                            'Файлы SCB |*.scb|' +
                            'Файлы SCA |*.sca';

  cMasterNewListLite_Mes5 = 'Мастер создания проекта';
  cMasterNewListLite_Mes6 = 'Мастер создания листа';
  cMasterNewListLite_Mes7 = 'Задать валюту можно в расширенном режиме. Перейти на него?';

  cPCDrawing_Msg1 = '';

  cPDFView_Msg1 = 'Активировать';
  cPDFView_Msg2 = 'Деактивировать';
  cPDFView_Msg3 = 'Открытие PDF документа';
  cPDFView_Msg4_1 = 'Неверный пароль'; //'Wrong Password!'
  cPDFView_Msg4_2 = 'Введите пароль еще раз.'; //'Enter the password again.':
  cPDFView_Msg4_3 = 'Пожалуйста, откройте документ еще раз'; //'Please open the document again.'
  cPDFView_Msg4_4 = 'Введите пароль'; // Enter Password
  cPDFView_Msg4_5 = 'Этот файл защищен паролем. Пожалуйста, введите пароль:'; // This is a Password protected file. Please enter the password:

  cMain_Mes141 = 'Введите маркировку';
  cMain_MesAllFormats = 'Все поддерживаемые форматы|*.jpg;*.jpeg;*.bmp;*.pdf;*.dxf;*.dwg;*.plt;*.svg;*.wmf;*.prn;*.scb;*.png;';
  cCadClasses_Mes35_3 = 'Выберите объект для создания на новом листе и соединения с межэтажным переходом';
  //Tolik 23/09/2021 --
  //cCadClasses_Mes36 = 'Трасса не была подсоединена';
  cCadClasses_Mes36 = 'Трасса пока не подключена ни к одному объекту (розетка, шкаф, щит...)';
  //

  cMain_Mes142 = 'Необходимо обновить шаблон отчета!';
  cMain_Mes143_c = 'Экспорт в формат PDF';
  cMain_Mes143 = 'Учитывать масштаб на листах при экспорте?';
  //Tolik 04/05/2018 --
  cMain_Mes144 = 'Текущий лист будет расположен на ' + #13#10 +
                 '        нулевом уровне';
  //
  cMain_Mes145 = 'Пожалуйста, кликните в месте создания межэтажного перехода';

  // Tolik 10/05/2018 --
  cPresentation_err1 = 'Ошибка загрузки модуля презентации';
  cWarningMess = 'Внимание';
  cDescriptionMess = 'Описание';
  cImageMess = 'Изображение';
  cCadMess1 = 'Нет возможности соединить объекты, потому что нельзя преобразовывать межэтажный спуск-подъем в вертикаль';
  cCadMess2 = 'Нет возможности соединить объекты, потому что нельзя преобразовывать магистраль в вертикаль';
  //
  // Tolik 03/08/2018 --
  CantConnMess1 = 'Трасса между ';
  CantConnMess2 = ' и ';
  CantConnMess3 = ' не была проложена, потому что они уже соединены другими трассами!';
  CantConnMess4 = ' не была проложена, потому что выключена опция использования вертикальных трасс в настройках программы!';
  //
  // Tolik 03/09/2018 -- for 3D
  _3DRoomName = 'Комната ';
  _3DWallName = 'Стена ';
  _3DSlopeName = 'Откос ';
  _3DCornerName = 'Угол для ';
  _3DWindowName = 'Окно ';
  _3DDoorName = 'Дверь ';
  _3DPmMenuName4 = 'Скрыть/Показать';
  SetAngleHMsg = 'Установите высоту угла';
  IncorrInpVal = 'Некорректный ввод данных';
  SetWndH = 'Установите высоту окна';
  SetDoorH = 'Установите высоту двери';
  SetWndHPMsg = 'Установите высоту размещения окна';
  SetWinPLHMsg = 'Задайте высоту установки окна';
  SetDoorPLHMsg = 'Задайте высоту установки двери';

  SetListWndH = 'Установите высоту окон';
  SetListDoorH = 'Установите высоту дверей';
  SetListWinPLHMsg = 'Задайте высоту установки окон';
  SetListDoorPLHMsg = 'Задайте высоту установки дверей';
  //
  //Tolik 03/10/2018 --
  Sel3dModFile = 'Укажите файл 3Д-модели объекта';
  //
  _3DNotSetSideSection = 'Не задано сечение или наружный  диаметр для  ';
  // Tolik 10/02/2021 --
  c_ELMes1 = 'Схема электрическая однолинейная';
  c_ELMes2 = 'Схема электрощита монтажная';
  //
  //Tolik 21/01/2022 --
   // *** Система измерений строчные значения
  fMetric_mm = 'мм.';
  fMetric_sm = 'см.';
  fMetric_m = 'м';
  fWhitworth_in = 'дюйм.';
  fWhitworth_ft = 'фут.';
  //
{$IFEND}

implementation

end.
