Версия 15:39, 28 декабря 2016

FONTS_FROM_ETALON - это функция из справочника R266

Перенос профилей настроек шрифтов из эталона

FONTS_FROM_ETALON()

Текст

local sql

if YesNo("Перенести профили ( размеры и наименования ) шрифтов из эталона?",true)

  // чистим
  SimpleSql([Delete From R457 Where KOD>0],ReflisPath)
  SimpleSql([Delete From R204 Where PROFILEKOD>0],ReflisPath)
  
  // копируем
  sql:=[Select * From "]+Nice_UNC_Path(EtalonPath)+[[[R457]]" r457 Where KOD>0]
  SimpleSql([Insert into R457 ]+sql,ReflisPath)
  
  //IsNull(BOLD,0),IsNull(ITALIC,0),IsNull(UNDERLINE,0),IsNull(STRIKEOUT,0)
  sql:=[Select IsNull(TASK,""),IsNull(USERCODE,0),IsNull(KOD,0),IsNull(IDNAME,""),IsNull(NAME,""),;
    IsNull(SIZE,0),IsNull(SCRIPT,0),IsNull(FONTCOLOR,""),IsNull(SITTINGNUM,""),IsNull(PROFILEKOD,0) ;
    From "]+Nice_UNC_Path(EtalonPath)+[R204" r204 Where PROFILEKOD>0]
  // ,BOLD,ITALIC,UNDERLINE,STRIKEOUT
  SimpleSql([Insert into R204(TASK,USERCODE,KOD,IDNAME,NAME,SIZE,;
    SCRIPT,FONTCOLOR,SITTINGNUM,PROFILEKOD) ]+sql,ReflisPath)
  
  Message("Профили успешно перенесены. Для выбора профиля используйте пункт "+Chr(10)+Chr(13)+";
    Сервис - Настройки - Цвета и шрифты - Все пользователи и все модули - 'Выбрать профиль'")

endif

Смотрите также

Функции Delphi

Полезные функции