FONTS FROM ETALON — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м
 
Строка 1: Строка 1:
 
[[FONTS_FROM_ETALON]] - это функция из справочника [[R266]]
 
[[FONTS_FROM_ETALON]] - это функция из справочника [[R266]]
 
+
Перенос профилей настроек шрифтов из эталона
Перенос профилей настроек шрифтов из эталона
+
[[FONTS_FROM_ETALON]]()
 
+
FONTS_FROM_ETALON()
+
 
+
 
= Текст =
 
= Текст =
 
 
  local sql
 
  local sql
 
   
 
   
Строка 31: Строка 27:
 
   
 
   
 
  endif
 
  endif
 +
= Смотрите также =
 +
[[Полезные функции]]
  
= Смотрите также =
 
 
[[Функции Delphi]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

Текущая версия на 09:07, 21 июля 2017

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