IWxView.Paste

Syntax

Paste(BasePoint: IGxPointF);

Paste(BasePoint: Prognoz.Platform.Interop.Drawing.IGxPointF);

Parameters

BasePoint. Top left coordinate of the position, to which an object is pasted (in view coordinates).

Description

The Paste method pastes objects from clipboard.

Example

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;
    Shape: IWxShape;
    arrow: IWxArrow;
    ellipse: IWxEllipse;
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(1010);
    Arrow.LastPoint := 
New GxPointF.Create(319);
    ellipse := ws.CreateEllipse;
    view.ActiveShape := ellipse;
    view.CopySelectedShapes;
    PointF := 
New GxPointF.Create(105);
    view.Paste(PointF);
End Sub Button1OnClick;
Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Workspace;
Imports Prognoz.Platform.Interop.Drawing;

 
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    ws: IWxWorkspace;
    view: IWxView;

    arrow: IWxArrow;
    ellipse: IWxEllipse;
    PinPoint, PointF: GxPointF = 
New GxPointFClass();
Begin
    
// Get workspace for editing
    ws := uiWorkspaceNet1.WxWorkspace;
    view := ws.CreateView();
    view := ws.Views.Item[
0];
    arrow := ws.CreateArrow();
    PinPoint.Create(
1010);
    Arrow.FirstPoint := PinPoint;
    PinPoint.Create(
319);
    Arrow.LastPoint := PinPoint;
    ellipse := ws.CreateEllipse();
    view.ActiveShape := ellipse;
    view.CopySelectedShapes();
    PointF.Create(
105);
    view.Paste(PointF);

End Sub;

After executing the example the selected objects are copied and pasted.

See also:

IWxView