comp • gb.qt4 • paint • textsize

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