IWxShape.Cursor

Синтаксис

Cursor: WxCursor;

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

Описание

Свойство Cursor определяет вид курсора над объектом.

Пример

В рассматриваемом примере предполагается наличие формы с размещёнными на ней компонентами Button и UiWorkspaceObject с идентификаторами «Button1» и «iWorkspaceObject1» соответственно. К UiWorkspaceObject должен быть подключен соответствующий объект репозитория.

Добавьте ссылки на системные сборки: Andy, Metabase, Workspace.

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;

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;

После выполнения примера при нажатии на компонент «Button1» над указанной фигурой компонента «UiWorkspaceObject1» курсор мыши будет принимать вид креста.

См. также:

IWxShape