FONTS FROM ETALON — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «= Смотрите также = Функции Delphi Полезные функции») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| + | [[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]] | [[Функции Delphi]] | ||
[[Полезные функции]] | [[Полезные функции]] | ||
Версия 15:32, 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
