comp • gb.qt4 • paint • richtextsize

Paint.RichTextSize (gb.qt4)

Static Function RichTextSize ( Text As String [ , Width As Float ] ) As RectF

Retorne a caixa delimitadora necessária para uma string rich text.

Ao contrário do RichTextExtents, 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