RoundRectShape with negative size

General
1

Dealing with Object2D objects, I’ve found a weird behaviour only about RoundRectShape shapes (how I’m repeating the words in this sentence…); other shapes don’t exhibit this issue. No mention of this in the forum nor in Feedback.
The workaround is simple, though.

So, if the a RoundRectShape is drawn:
• with a negative width, the top and bottom borders are 2 straight lines from both corners to a point of half-width and out of the shape (above or below, respectively):
image
• with a negative height, it’s the logical opposite:
image
• with a negative width and height, this is the mix of the 2:
image

The workaround is simple: make sure x and y are always lower than “x2” and “y2”.

On the other hand, this is a great way to draw diamonds (or the other 2 hexagons); not sure I’d want this to be fixed (and file a bug report).
Unless… is this “expected”? (I mean: does the framework/OS draw that way to provide more shapes out of the box?).

2

Could you show the code that produces this effect?

3

That’s nothing complex, actually. Here’s a black version quickly made:

(add a property to the window: TheObject as Object2D)

Open event:

dim orr As new RoundRectShape

orr.Height=-100
orr.Width=-100
orr.CornerHeight=20
orr.CornerWidth=20
orr.X=150
orr.Y=150
TheObject =orr

Paint event:

g.DrawObject TheObject

You get a 45° rotated square.