GetShapeByPt(Position: IGxPointF): IWxShape;
Position. View point.
The GetShapeByPt method gets an object by the defined coordinate.
Executing the example requires a form with the Button1 button, the WorkspaceBox component named WorkspaceBox1 and a data source for the WorkspaceBox1.
Add links to the Andy, Drawing, Workspace system assemblies.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
ws: IWxWorkspace;
view: IWxView;
PointF: IGxPointF;
arrow: IWxArrow;
ellipse: IWxEllipse;
Shape: IWxShape;
Begin
// Get workspace for editing
ws := UiWorkspace1.WxWorkspace;
view := ws.CreateView;
view := ws.Views.Item(0);
ellipse := ws.CreateEllipse;
arrow := ws.CreateArrow;
Arrow.FirstPoint := New GxPointF.Create(10, 10);
Arrow.LastPoint := New GxPointF.Create(3, 19);
ellipse := ws.CreateEllipse;
PointF := New GxPointF.Create(10, 10);
Shape := view.GetShapeByPt(PointF);
view.ActiveShape := Shape;
End Sub Button1OnClick;
After executing the example, the object which is in this view point is selected.
See also: