ФормыДляОдноСкрипта.ПрямоугольнаяКисть (OneScriptForms.HatchBrush) Метод

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

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

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

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

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

Сообщить(?(
Графика1 <> Неопределено
, "", "!!! ") + "ФормыДляОдноСкрипта.ПрямоугольнаяКисть (OneScriptForms.HatchBrush) Метод" + " " + ТекущаяДата());