setWidth and setHeight of a rounded rectangle?

[zuken86]

I can't seem to be able to change the width and height of a rounded rectangle through vectorscript. Am I doing something wrong?

PROCEDURE test;

VAR

h:HANDLE;

BEGIN

RRect(0,0,200,100,20,20);

h:=LNewObj;

SetWidth(h,300);

SetHeight(h,200);

END;

RUN(test);

Thanks,

[Pat Stanford]

Rectangles, Rounded Rects, Ovals, Worksheets, Bitmaps are controlled by their bounding boxes.

Check out the GetBBox and SetBBox commands to change the size of your Rounded Rects.

[MullinRJ]

Or try:

scaleX := NewXValue/ OldXValue;

scaleY := NewYValue/ OldYValue;

HScale2D(h: HANDLE; centerX, centerY, scaleX, scaleY: REAL; scaleText: BOOLEAN);

where (centerX, centerY) is your XY anchor point.

In the case of a RRect, the corner radii will scale, too. You'll have to reset them with:

GetRRDiam(H, XDiam, YDiam);

and

SetRRDiam(H, XDiam, YDiam);

Raymond

[zuken86]

Hi,

Thanks all for your feedbacks. I ended up extrude the 2D object first then use Set3DInfo to change with width, height and depth of the rounded rectangle. It works!