FONTS FROM ETALON — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «= Смотрите также = Функции Delphi Полезные функции») |
Hisava (обсуждение | вклад) м |
||
| (не показано 6 промежуточных версий этого же участника) | |||
| Строка 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)+[R[[457]]" r[[457]] 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)+[R[[204]]" r[[204]] 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]] | ||
Текущая версия на 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
