Sorry, I am still battling it. Getting there slowly, there is lots to absorb.
Found the width
PositionsAppearance.TopSize := ScalePaintValue(200);