Size(Sizing: WxShapesSizing);
Sizing. Resizing type.
The Size method resizes shapes based on the selected resizing type.
Executing the example requires a form with the Button1 button, the WorkspaceBox component and the UiWorkspace component named UiWorkspace1, which is a data source for WorkspaceBox.
Add links to the Andy, Drawing, Workspace system assemblies.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
ws: IWxWorkspace;
Rect: IWxRectangle;
Ellipse: IWxEllipse;
pos: IGxPointF;
Size: IGxSizeF;
SelectS: IWxSelectedShapes;
Begin
ws := UiWorkspace1.WxWorkspace;
ws.BeginUpdate;
Rect := ws.CreateRectangle;
Pos := New GxPointF.Create(20, 10);
Size := New GxSizeF.Create(10, 7);
Rect.PinPosition := Pos;
Rect.Size := Size;
Ellipse := ws.CreateEllipse;
Pos := New GxPointF.Create(40, 50);
Size := New GxSizeF.Create(40, 15);
Ellipse.PinPosition := Pos;
Ellipse.Size := Size;
SelectS := ws.Views.Item(0).SelectedShapes;
SelectS.Add(Rect);
SelectS.Add(Ellipse);
SelectS.Size(WxShapesSizing.MaxWidth);
ws.EndUpdate;
End Sub Button1OnClick;
After executing the example the width of shapes is changed for the width of the broadest shape.
See also: