ЭлементУправления.УстановитьСтиль (Control.SetStyle) Метод

Копировать     Выделить всё

Перем Ф, Форма1;

Процедура Форма1_ПриПерерисовке() Экспорт
	Графика1 = Форма1.СоздатьГрафику();
	Графика1.Очистить(Ф.Цвет().Белый);
	Цвет1 = Ф.Цвет().Синий;
	СплошнаяКисть1 = Ф.СплошнаяКисть(Цвет1);
	Графика1.ЗаполнитьПрямоугольник(СплошнаяКисть1, 10, 10, 100, 100);
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.ПриПерерисовке = "Форма1_ПриПерерисовке()";
Форма1.Отображать = Истина;

Ф.РазрешитьСобытия = Истина;

Форма1.УстановитьСтиль(Ф.СтильЭлементаУправления.ПользовательскаяОтрисовка, Ложь);
Форма1.ОбновитьСтили();

Форма1.Показать();
Форма1.Активизировать();

Сообщить("" + Форма1.ПолучитьСтиль(Ф.СтильЭлементаУправления.ПользовательскаяОтрисовка));

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Форма1.УстановитьСтиль(Ф.СтильЭлементаУправления.ПользовательскаяОтрисовка, Ложь);
Форма1.ОбновитьСтили();
ПользовательскаяОтрисовка = Форма1.ПолучитьСтиль(Ф.СтильЭлементаУправления.ПользовательскаяОтрисовка);

Сообщить(?(
Не ПользовательскаяОтрисовка
, "", "!!! ") + "ЭлементУправления.УстановитьСтиль (Control.SetStyle) Метод" + " " + ТекущаяДата());