CreateRoundedRectangle: IWxRoundedRectangle;
The CreateRoundedRectangle method creates a rounded rectangle.
Executing the example requires that repository contains a workspace with the WSP identifier.
Add links to the Andy, Drawing, Metabase system assemblies.
Sub Userproc;
Var
mb: IMetabase;
wsp: IWxWorkspace;
Rec: IWxRoundedRectangle;
Begin
// Get workspace
mb := MetabaseClass.Active;
wsp := mb.ItemById("WSP").Edit As IWxWorkspace;
// Get shape
Rec := wsp.CreateRoundedRectangle;
Rec.Id := "Rectangle1";
Rec.PinPosition := New GxPointF.Create(12.3,-2);
Rec.RoundingOffset := 9;
Rec.Text := "Shape";
//Save changes
(Wsp As IMetabaseObject).Save;
End Sub Userproc;
After executing the example a rounded rectangle is created.
See also: