German wie die CheckBox-Breite an Textbreite anpassen?

spunky1a

Member
Hallo,

der Text einer CheckBox ändert sich dynamisch, somit auch die Textbreite/-länge, die CheckBox wird zentriert auf dem Layout dargestellt, da der Test aber mal länger und kürzer ist und die CheckBox eine feste Breite hat, ist die Darstellung nicht mehr zentriert.

Wie kann man die Breite einer CheckBox an die Textbreite/-länge anpassen?
 

spunky1a

Member
ok, hab es geschafft, geht für meine Zwecke:

SetCheckBoxSize:
Sub SetCheckBoxSize(cb As CheckBox)
    Private bmp As Bitmap
    bmp.InitializeMutable(2dip, 2dip)
    Private cvs As Canvas
    cvs.Initialize2(bmp)
    Private tw As Int = cvs.MeasureStringWidth(cb.Text, cb.Typeface, cb.TextSize)
'    Log(tw & " / " & cb.Width)
    cb.Width = tw + 50dip
End Sub
 
Top