IWxShape.Cursor

Fore Syntax

Cursor: WxCursor;

Fore.NET Syntax

Cursor: Prognoz.Platform.Interop.Andy.WxWorkspace;

Description

The Cursor property determines the appearance of cursor when over an object.

Fore Example

Executing the example requires a form with the Button and UiWorkspaceObject components with the Button1 and UiWorkspaceObject1 identifiers respectively. A corresponding repository object must be connected to UiWorkspaceObject.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Ws: IWxWorkspace;
    Shape: IWxShape;
Begin
    Ws := UiWorkspaceObject1.Instance As IWxWorkspace;
    Ws.BeginUpdate;
    Shape := Ws.Shapes.Item(0);
    Shape.Cursor := WxCursor.Cross;
    Ws.EndUpdate;
End Sub Button1OnClick;

After executing the example the mouse cursor looks as a cross on clicking the Button1 component over the defined shape of the UiWorkspaceObject1 component.

Fore.NET Example

Executing the example requires the a form with the Button and UiWorkspaceObjectNet components with the Button1 and UiWorkspaceObjectNet1 identifiers respectively. A corresponding repository object must be connected to UiWorkspaceObjectNet.

Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Workspace;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    Ws: IWxWorkspace;
    Shape: IWxShape;
Begin
    Ws := UiWorkspaceObjectNet1.WorkspaceObjectUi.Instance As IWxWorkspace;
    Ws.BeginUpdate();
    Shape := Ws.Shapes.Item[0];
    Shape.Cursor := WxCursor.wcrCross;
    Ws.EndUpdate();
End Sub;

After executing the example the mouse cursor looks as a cross on clicking the Button1 component over the defined shape of the UiWorkspaceObjectNet1 component.

See also:

IWxShape