IWxStyle.TextFontStyleStrikeout

Syntax

TextFontStyleStrikeout: Boolean;

Description

The TextFontStyleStrikeout property determines whether to use strikethrough font. If the value is True, strikeout font is used, if the value is False, it is not used.

The default property value is False.

Example

Executing the example requires an existing ws object of the IWxWorkspace type.

Sub UserProc;

Var

ws: IWxWorkspace;

Shape: IWxShape;

Style: IWxStyle;

Begin

ws.BeginUpdate;

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

Shape.Text := "Text";

Style := Shape.Style;

Style.TextFontSize := 12;

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

Style.TextFontStyleStrikeout := True;

ws.EndUpdate;

End Sub UserProc;

After executing the example the object contains text of the defined color, size and of italic font.