Graphics.DrawRectangle Method

Синтаксис

РисоватьПрямоугольник(<Перо>, <X>, <Y>, <Ширина>, <Высота>)

Параметры

Перо (обязательный): Тип: Перо (Pen).; Объект Перо (Pen), определяющий цвет, ширину и стиль контура прямоугольника.
X (обязательный): Тип: Число.; x координата верхнего левого угла нарисованного прямоугольника.
Y (обязательный): Тип: Число.; y координата верхнего левого угла нарисованного прямоугольника.
Ширина (обязательный): Тип: Число.; Ширина нарисованного прямоугольника.
Высота (обязательный): Тип: Число.; Высота нарисованного прямоугольника.

Возвращаемое значение

Описание

Рисует прямоугольник, заданный парой координат, а также высотой и шириной.

Примечание

При создании объекта Графика (Graphics) с помощью метода СоздатьГрафику (CreateGraphics) какого либо элемента управления, код рисования графики необходимо поместить в процедуру, указанную в свойстве ПриПерерисовке (Paint) этого элемента управления.

Пример

Графика1 = Форма1.СоздатьГрафику();
Цвет1 = Ф.Цвет().Зеленый;
Перо1 = Ф.Перо(Цвет1);
Графика1.РисоватьПрямоугольник(Перо1, 20, 20, 100, 100);

Полный пример кода

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

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

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

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

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

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

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