comp • gb.qt4 • paint • trimrichtext

Paint.TrimRichText (gb.qt4)

Static Function TrimRichText ( RichText As String, W As Float [ , H As Float ] ) As String

Retorna uma versão reduzida do rich text especifico para que ele se encaixa no retângulo solicitado.

Se o texto já está nas dimensões apropriadas para se encaixar no retângulo solicitado, ele é retornado com a forma original. Caso contrário, ele é cortado e seguido por um caractere reticências para que ele se encaixe.

  • RichText é o rich text para aparar.

  • W é a largura do retângulo.

  • H é a altura do retângulo. Se omitido, então presume-se ser a altura da fonte. Em outras palavras, o texto supostamente deve caber em uma única linha.

Exemplo

Public Sub DrawingArea1_Draw()
Dim TRT As String
  TRT = Paint.TrimRichText("Este é um Texto", 200)
  Paint.RichText(TRT, 20, 20)
  Paint.Fill()
End