Auto Width of any controls

[jbrit2020]

So, after spending days scratching my head on how to make a label width adjustable, and extremely unhappy with the formula:

20*Len(Label1.Text)

That increases the size, but doesn't really match THE size of the text (the label can end up being 4 or 5 times the size of the text)

I started fiddling with Point conversions and came up with this formula. You don't need to change the 0.352777777778 value as that is the average point value in millimetres of font size systems:

Max(25,((Label1.Size+(0.35277777777778*Label1.Size))*Len(Label1.Text))-((0.35277777777778*Len(Label1.Text))*(Len(Label1.Text))))

Doesn't look pretty, and probably have one too many () in there, but it seems to work wonders for me as it matches NEARLY perfectly the width of the TEXT.

I'm just posting it here because it seems to be a common question and thought someone could make use of this or hopefully even, improve the formula to be slicker.

Please do test and let me know if it works for you as well.

[TimRG]

I tried it, and if I use your formula and add Label1.Size to the result, it works pretty well for Segoe UI at 12 point font.  Other fonts and other sizes scale the width too much or too little, and doesn't account for padding.  

With much testing, I've had the best success with this formula in the Width property:

Len(Self.Text)*(Self.Size*.60)+Self.PaddingLeft+Self.PaddingRight+Self.Size

I tested and this works well for a variety of font sizes and fonts, BUT you need to use a different coefficient based on your font selection. Replace the orange number above with the appropriate value for your selected font:

Font:
OpenSans: .65
Segoe UI: .6
Arial: .6

Courier New: .8

Lato Blank: .62

Verdana: .7

I hope someone finds this useful!