Графика.РисоватьЗакругленныйПрямоугольник (Graphics.DrawRoundRect) Метод

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

Перем Ф, Форма1, Картинка1;

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

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

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

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

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

Перем Ф, Форма1, Картинка1, Графика1;

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

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

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

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

Сообщить(?(
Графика1 <> Неопределено
, "", "!!! ") + "Графика.РисоватьЗакругленныйПрямоугольник (Graphics.DrawRoundRect) Метод" + " " + ТекущаяДата());