Spanish [SOLUCIONADO] Tamaño de la fuente en un botón.

botonx.TextSize = ExtraeAltoLetra("Prueba")


Sub ExtraeAltoLetra (TextoIn As String) As Int

  Dim AltoOut, AltoIn As Int

  AltoIn = TextoIn.Length
  AltoOut = 22 ' o la que tengas por defecto

  If AltoIn < 10 Then AltoOut = 30
  If AltoIn > 10 AND AltoIn < 20 Then AltoOut = 18
  If AltoIn > 20 Then AltoOut = 12
  ' ...................... y todas las que se te ocurran
  
   Return AltoOut

End Sub

Sub CambiarAltoLabel (Objeto As Label)
  Dim StrUtil As StringUtils
  Dim ht As Float
  Dim Texto As String
  Texto = Objeto.text
  ht = StrUtil.MeasureMultilineTextHeight(Objeto, Texto)
  Objeto.height = ht
End Sub

Sub SetLabelTextSize(lbl As Label, txt As String, MaxFontSize As Float, MinFontSize As Float)
Try
    Dim FontSize = MaxFontSize As Float
    Dim Height As Int
    Dim stu As StringUtils
   
    lbl.TextSize = FontSize
    Height = stu.MeasureMultilineTextHeight(lbl, txt)
    Do While Height > lbl.Height AND FontSize > MinFontSize
        FontSize = FontSize - 1
        lbl.TextSize = FontSize
        Height = stu.MeasureMultilineTextHeight( lbl, txt)
    Loop
Catch
    Log("SetLabelTextSize " & LastException.Message  )
End Try   
End Sub

lblMenu1.Text =GetString("Addition")
SetLabelTextSize(lblMenu1, lblMenu1.Text,35,20)