Использование пера

Свойство Реn позволяет устанавливать атрибуты пера, которым производится рисование линий и точек, а также других геометрических фигур.

Перо имеет четыре собственных свойства, которые вы можете изменять:

• Color — цвет пера;
• Width - ширина пера;
• Style — стиль пера;
• Mode — режим пера.
  

Значения данных свойств определяют способ, которым будут отображаться точки линий. По умолчанию установлен черный цвет пера и его ширина равна одному пикселу, стиль — сплошной, режим рисования поверх текущего изображения канвы.

Рассмотрим последовательно использование этих четырех свойств.

Цвет пера

Вы можете устанавливать цвет пера по своему усмотрению с помощью свойства Color во время исполнения приложения. Для этого нужно лишь присвоить соответствующее значение цвета свойству Color пера Реn.

В листинге 13.3 мы устанавливаем красный цвет пера (значение clRed) по нажатии кнопки Button1.

Листинг 13.3. Установка значения цвета пера

procedure TForm1.Button1Click(Sender: TObject); 
begin
      Canvas.Pen.Color := PenColor.ForegroundColor; 
end;

Ширина пера

Ширина пера определяет толщину линий, которыми будут начерчены геометрические фигуры.

Примечание

Если вы создаете кросс-платформенное приложение, которое может функционировать как под Linux, так и под Windows 9x, и ширина пера более одного пиксела, то имейте в виду, что Windows будет всегда рисовать сплошные линии, независимо от значения свойства Style пера.

Для смены ширины пера достаточно присвоить необходимое числовое значение свойству Width пера (листинг 13.4).

Листинг 13.4.Установка ширины пера

procedure TForm1.Button1Click(Sender: TObject); 
begin
      Canvas.Pen.Width := 5; 
end;

Стиль пера

Свойство Style позволяет вам устанавливать различные стили начертания линий. Это могут быть сплошные линии, пунктирные, точечные и др.

В листинге 13.5 стиль пера меняет последовательно все возможные значения.

Листинг 13.5. Смена стилей пера

procedure TForm1.Button1Click(Sender: TObject); 
begin
      with Canvas.Pen do 
      begin
             Style = psSolid
             Style = psDash 
             Style = psDot 
             Style = psDashDot 
             Style = psDashDotDot 
             Style = psClear; 
       end; 
end;

Режим пера

Свойство пера Mode позволяет вам устанавливать различные режимы комбинирования цвета пера с цветом, расположенным на канве. Например, режим постоянного цвета пера, режим инверсии цвета пера или фона канвы пр.

Установка и определение позиции пера

Текущая позиция рисования, с которой начинается рисование линий, называется позицией пера. Как вы уже знаете, объект канвы хранит текущую позицию пера в свойстве PenPos. Позиция пера нужна только для рисования линий. Для рисования геометрических фигур и вывода текста на канву вы указываете необходимые координаты при вызове соответствующих методов. Для установки нужной позиции пера вызывайте метод MoveTo:

Image1.Canvas.MoveTo(0, 0);


Данный код установит перо в левый верхний угол канвы.

Примечание

Черчение линий с помощью метода LineTo также устанавливает текущую позицию, пера, равную конечной точке линии.