Процедура Реквизит1ПриИзменении(Элемент)
ШелСкрипт=Новый COMОбъект("WScript.Shell");
ШелСкрипт.RegWrite("HKLM\SOFTWARE\Classes\Licenses\4D553650-6ABE-11cf-8ADB-00AA00C00905\","gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj");
Диалог=Новый COMОбъект("MSComDlg.CommonDialog");
Диалог.ShowColor();
Скрипт=Новый COMОбъект("MSScriptControl.ScriptControl");
Скрипт.language="javascript";
Скрипт.AddObject("Диалог",Диалог);
Цвет = РазложитьRGB(Скрипт.Eval("Диалог.Color"));
КонецПроцедуры
Функция РазложитьRGB(ЗначениеЧислом)
ЦветRGB = ЗначениеЧислом;
R = ЦветRGB%256;
G = (Цел(ЦветRGB/256))%256;
B = (Цел(ЦветRGB/(256 * 256)))%256;
Возврат Новый Цвет(R,G,B);
КонецФункции
i | Ознакомьтесь с правилами форума! |
Процедура ВыбратьЦветНажатие(Элемент)
Диалог = Новый ДиалогВыбораЦвета;
Если Диалог.Выбрать() Тогда
ВыбранныйЦвет = Диалог.Цвет;
Константы.ЦветПечати.Установить(значениевстрокувнутр(ВыбранныйЦвет));
КонецЕсли;
КонецПроцедуры
Процедура ПриОткрытии()
Попытка
ВыбранныйЦвет = ЗначениеИзСтрокиВнутр(Константы.ЦветПечати.Получить());
ЭлементыФормы.ПримерТекста.ЦветТекста = ВыбранныйЦвет;
Исключение
КонецПопытки;
КонецПроцедуры