Graphics.DrawLine Method

Синтаксис

РисоватьЛинию(<Перо>, <X1>, <Y1>, <X2>, <Y2>)

Параметры

Перо (обязательный): Тип: Перо (Pen).; Объект Перо (Pen), который определяет цвет, толщину и стиль линии.
X1 (обязательный): Тип: Число.; x координата первой точки.
Y1 (обязательный): Тип: Число.; y координата первой точки.
X2 (обязательный): Тип: Число.; x координата второй точки.
Y2 (обязательный): Тип: Число.; y координата второй точки.

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

Описание

Проводит линию, соединяющую две точки, задаваемые парами координат.

Примечание

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

Пример

Графика1 = Форма1.СоздатьГрафику();
Перо1 = Ф.Перо(Ф.Цвет().Красный, 5);
Графика1.РисоватьЛинию(Перо1, 20, 100, 120, 100);

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

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

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

Процедура Форма1_ПриПерерисовке() Экспорт
	Графика1 = Форма1.СоздатьГрафику();
	Перо1 = Ф.Перо(Ф.Цвет().Красный, 5);
	Графика1.РисоватьЛинию(Перо1, 20, 100, 120, 100);
КонецПроцедуры

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

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

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

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

Тестовый код

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

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

Процедура Форма1_ПриПерерисовке() Экспорт
	Графика1 = Форма1.СоздатьГрафику();
	Перо1 = Ф.Перо(Ф.Цвет().Красный, 5);
	Графика1.РисоватьЛинию(Перо1, 20, 100, 120, 100);
	Форма1.Закрыть();
КонецПроцедуры

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

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

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

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