IWxStyle.TextFontStyleStrikeout

Syntax

TextFontStyleStrikeout: Boolean;

Description

The TextFontStyleStrikeout property determines whether to use strikethrough font.

Comments

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 that repository contains a workspace with the IWSTYLE identifier containing shape.

Add links to the Andy, Drawing, Metabase system assemblies.

Sub UserProc;
Var
    mb: IMetabase;
    ws: IWxWorkspace;
    Shape: IWxShape;
    Style: IWxStyle;
Begin
    // Get workspace for editing
    mb := MetabaseClass.Active;
    ws := mb.ItemById("IWSTYLE").Edit As IWxWorkspace;
    ws.BeginUpdate;
    Shape := ws.Shapes.Item(0);
    Shape.Text := "Text";
    Style := Shape.Style;
    Style.TextFontSize := 12;
    Style.TextFontBrushColor := GxColor.FromName("Red");
    Style.TextFontStyleStrikeout:= True;
    ws.EndUpdate;
    (ws As IMetabaseObject).Save;
End Sub UserProc;

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

See also:

IWxStyle