РисованиеАрг.ПрямоугольникДляРисования (PaintEventArgs.ClipRectangle) Свойство

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

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

Процедура Форма1_ПриПерерисовке() Экспорт
	Графика1 = Форма1.СоздатьГрафику();
	Цвет3 = Ф.Цвет().Зеленый;
	Перо2 = Ф.Перо(Цвет3);
	Графика1.РисоватьПрямоугольник(Перо2, 20, 20, 100, 100);
	
	Аргументы = Ф.РисованиеАрг();
	Сообщить("Аргументы.Графика = " + Аргументы.Графика);
	Сообщить("Аргументы.ПрямоугольникДляРисования = " + Аргументы.ПрямоугольникДляРисования);
	Сообщить("========================== " + ТекущаяУниверсальнаяДатаВМиллисекундах());
КонецПроцедуры

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

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

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

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

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

Перем Ф, Форма1, ШиринаПрямоугольника;

Процедура Форма1_ПриПерерисовке() Экспорт
	Графика1 = Форма1.СоздатьГрафику();
	Цвет3 = Ф.Цвет().Зеленый;
	Перо2 = Ф.Перо(Цвет3);
	Графика1.РисоватьПрямоугольник(Перо2, 20, 20, 100, 100);
	
	Аргументы = Ф.РисованиеАрг();
	// Сообщить("Аргументы.Графика = " + Аргументы.Графика);
	// Сообщить("Аргументы.ПрямоугольникДляРисования = " + Аргументы.ПрямоугольникДляРисования);
	// Сообщить("========================== " + ТекущаяУниверсальнаяДатаВМиллисекундах());
	ШиринаПрямоугольника = Аргументы.ПрямоугольникДляРисования.Ширина;
	
	Форма1.Закрыть();
КонецПроцедуры

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

Форма1.Обновить();

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

Сообщить(?(
ШиринаПрямоугольника > 0
, "", "!!! ") + "РисованиеАрг.ПрямоугольникДляРисования (PaintEventArgs.ClipRectangle) Свойство" + " " + ТекущаяДата());