Paint.TextSize (gb.qt4)
Static Function TextSize ( Text As String ) As RectF
Retorne a caixa delimitadora necessário para uma string de texto.
Ao contrário de
TextExtents, a altura da fonte é usada, e não a real "pintura" do texto.
-
Text é o texto a ser analisado.
-
Width largura da caixa delimitadora.
Exemplo
Public Sub DrawingArea1_Draw()
Dim RTE As RectF
Paint.Font = Font["40"]
RTE = Paint.RichTextSize("Este é um Rich Text")
Paint.Rectangle(10, 10, RTE.Width, RTE.Height)
Paint.RichText("Este é um Rich Text", 10, 10, RTE.Width, RTE.Height)
Paint.Stroke()
End