IWxStyle.TextFontStyleUnderline

Синтаксис

TextFontStyleUnderline: Boolean;

Описание

Свойство TextFontStyleUnderline определяет использование подчеркнутого начертания шрифта. Если значение True, то используется подчеркнутое начертание, при значении False - нет.

По умолчанию значение свойства False.

Пример

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

Sub UserProc;

Var

ws: IWxWorkspace;

Shape: IWxShape;

Style: IWxStyle;

Begin

ws.BeginUpdate;

Shape := ws.Shapes.Item(1);

Shape.Text := "Текст";

Style := Shape.Style;

Style.TextFontSize := 12;

Style.TextFontBrushColor := GxColor.FromName("Red");

Style.TextFontStyleUnderline := True;

ws.EndUpdate;

End Sub UserProc;

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

См. также:

IWxStyle