IWxView.ConvertPtToView

Синтаксис

ConvertPtToView(Pt: IGxPoint): IGxPointF;

ConvertPtToView(Pt: Prognoz.Platform.Interop.Drawing.IGxPoint): Prognoz.Platform.Interop.Drawing.IGxPointF;

Параметры

Pt. Точка в пикселях.

Описание

Метод ConvertPtToView преобразует заданную точку в пикселях в точку в миллиметрах.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней компоненты WorkspaceBox с наименованием «WorkspaceBox1» и какого-либо источника данных для «WorkspaceBox1».

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

Sub WorkspaceBox1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    WS: IWxWorkspace;
    View: IWxView;
    Point: IGxPointF;
    Ellipse: IWxEllipse;
Begin
    WS := UiWorkspace1.WxWorkspace;
    View := WS.Views.Item(0);
    View.Id := "MyView";
    View.Scale := 0.5;
    View.Size := New GxSizeF.Create(100.55,100.66);
    Point := View.ConvertPtToView(New GxPoint.Create(Args.pPoint.X, Args.pPoint.Y));
    Ellipse := WS.CreateEllipse;
    Ellipse.PinPosition := View.ViewToWorkspace(Point);
    //Координаты
    Debug.WriteLine(Args.pPoint.X.ToString + " " + Args.pPoint.Y.ToString);
    Debug.WriteLine(Point.X.ToString + " " + Point.Y.ToString);
    Debug.WriteLine(Ellipse.PinPosition.X.ToString + " " + Ellipse.PinPosition.Y.ToString);
End Sub WorkspaceBox1OnClick;
Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Workspace;
 
Private Sub workspaceBoxNet1_Click(sender: System.Object; e: System.EventArgs);
Var
    WS: IWxWorkspace;
    View: IWxView;
    pPoint: Point;
    gxPoint: GxPointF;
    Ellipse: IWxEllipse;
    OutSize: GxSizeF = New GxSizeFClass();
    OutPoint: GxPoint = New GxPointClass();
Begin
    WS := uiWorkspaceNet1.WxWorkspace;
    View := WS.Views.Item[0];
    View.Id := "MyView";
    View.Scale := 0.5;
    OutSize.Create(100.55,100.66);
    View.Size := OutSize;
    pPoint := WorkspaceBoxNet1.PointToClient(Cursor.Position);
    OutPoint.Create(pPoint.X, pPoint.Y);
    gxPoint := View.ConvertPtToView(OutPoint);
    Ellipse := WS.CreateEllipse();
    Ellipse.PinPosition := View.ViewToWorkspace(gxPoint);
    //Координаты
    System.Diagnostics.Debug.WriteLine(pPoint.X.ToString() + " " + pPoint.Y.ToString());
    System.Diagnostics.Debug.WriteLine(gxPoint.X.ToString() + " " + gxPoint.Y.ToString());
    System.Diagnostics.Debug.WriteLine(Ellipse.PinPosition.X.ToString() + " " + Ellipse.PinPosition.Y.ToString());
End Sub;

После выполнения примера будет создано отображение рабочего пространства и заданы параметры, также при нажатии на рабочее пространство будет отображаться эллипс.

См. также:

IWxView