Rectangle bug?

[runflacruiser]

Hi.
I'm getting unexpected results with this. I can't seem to get the corners to set how I want them. Can anyone confirm this as a bug in X5?

Sub Test2222()
    ActiveDocument.Unit = cdrMillimeter
    ActiveLayer.CreateRectangle2 0, 0, 40, 40
    With ActiveShape.Rectangle
        .SetRadius 12
    End With
End Sub

~John

Try this:

Sub TestRectangle_SetRadius()
  Dim xUnit As cdrUnit
  Dim oShape As Shape
  
  xUnit = ActiveDocument.Unit
  If xUnit <> cdrMillimeter Then ActiveDocument.Unit = cdrUnit.cdrMillimeter
  
  Set oShape = ActiveLayer.CreateRectangle2(0, 0, 36, 36)
  With oShape.Rectangle
    .RadiusLowerLeft = 12
    .RadiusLowerRight = 12
    .RadiusUpperLeft = 12
    .RadiusUpperRight = 12
  End With
  
  ActiveLayer.CreateRectangle2 40, 0, 36, 36, 12, 12, 12, 12
  
  If xUnit <> cdrMillimeter Then ActiveDocument.Unit = xUnit
End Sub

It seems that .SetRadius does not work!

cu,
guido

[runflacruiser]

Hi.
At least not with MM...

~John