IWxSelectionStyle.RotationPointVisible

Syntax

RotationPointVisible: Boolean;

RotationPointVisible: boolean;

Description

The RotationPointVisible property determines whether the rotation point for the selected object is displayed. If the property is set to True, the rotation point is displayed, if the it is set to False, it the rotation point is not displayed.

The default property value is True.

Example

Executing the example requires that repository contains a workspace with the WSP identifier.

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

Sub UserProc;
Var
    MB: IMetabase;
    ws: IWxWorkspace;
    view: IWxView;
    SStyle: IWxSelectionStyle;
Begin
    MB := MetabaseClass.Active;
    // Get workspace
    ws := MB.ItemById("WSP").Edit As IWxWorkspace;
    view := ws.CreateView;
    SStyle := view.SelectionStyle;
    SStyle.RotationPointVisible := True;
    SStyle.ActiveRotationPointColor := New GxColor.CreateRGB(0, 128, 255);
    // Save changes
    (ws As IMetabaseObject).Save;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Workspace;
 
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    ws: IWxWorkspace;
    view: IWxView;
    SStyle: IWxSelectionStyle;
    vGxColor: GxColorClass_2 = New GxColorClass_2();
Begin
    MB := Params.Metabase;
    // Get workspace
    ws := MB.ItemById["WSP"].Edit() As IWxWorkspace;
    view := ws.CreateView();
    SStyle := view.SelectionStyle;
    SStyle.RotationPointVisible := True;
    vGxColor.CreateRGB(0, 128, 255);
    SStyle.ActiveRotationPointColor := vGxColor;
    // Save changes
    (ws As IMetabaseObject).Save();
End Sub;

After executing the example the rotation point for the selected object is shown, and the color of an active rotation point is set.

See also:

IWxSelectionStyle