ConvertPtToView(Pt: IGxPoint): IGxPointF;
Pt - экранные координаты точки, по которым необходимо получить координаты в рабочем пространстве.
Метод ConvertPtToView позволяет получить координаты точки в рабочем пространстве по экранным координатам точки.
Для выполнения примера предполагается наличие формы, расположенного на ней компонента WorkspaceBox с наименованием WorkspaceBox1 и компонента UiWorkspaceObject, либо UiWorkspace, являющегося источником данных для WorkspaceBox1.
Sub WorkspaceBox1OnMouseDown(Sender: Object; Args: IMouseClickEventArgs);
Var
Pt: IGxPoint;
PtF: IGxPointF;
x, y: Double;
Begin
Pt := Args.pPoint As IGxPoint;
PtF := WorkspaceBox1.ConvertPtToView(Pt);
x := PtF.X;
y := PtF.Y;
End Sub WorkspaceBox1OnMouseDown;
После выполнения примера, при наведении курсора на рабочее пространство и нажатии кнопки мыши, в переменных "x" и "y" будут содержаться координаты рабочего пространства, полученные с помощью преобразования экранных координат курсора мыши.
См. также: