IWxStyle.LinePenColor

Синтаксис

LinePenColor: IGxColor;

Описание

Свойство LinePenColor определяет цвет линии.

Пример

В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.

Sub UserProc;

Var

ws: IWxWorkspace;

Link: IWxLink;

Style: IWxStyle;

Begin

ws.BeginUpdate;

Link := ws.Shapes.Item(3) As IWxLink;

Style := Link.Style;

Style.LinePenBeginWxCap := WxLineCap.Arrow45DegreeFilled;

Style.LinePenCapSize := 5;

Style.LinePenColor := GxColor.FromName("Green");

Style.LinePenEndWxCap:= WxLineCap.ArrowRoundedEmpty;

ws.EndUpdate;

End Sub UserProc;

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

См. также:

IWxStyle