Перо (Pen) Конструктор

Синтаксис

Перо(<Цвет>, <Ширина>)

Параметры

Цвет (обязательный)
Тип: Цвет (Color).
Ширина (необязательный)
Тип: Число.
Ширина нового объекта Перо (Pen). По умолчанию используется значение 1.

Описание

Создаёт новый экземпляр класса Перо (Pen).

Примечание

Пример

Перо1 = Ф.Перо(Ф.Цвет().Красный, 5);
Полный пример кода 

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


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

Процедура Форма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 = "КлПеро"
, "", "!!! ") + "Перо (Pen) Конструктор" + " " + ТекущаяДата());

Смотрите также

Перо (Pen) Класс | Библиотека OneScriptForms