comp • gb.qt4 • paint • trimtext

Paint.TrimText (gb.qt4)

Static Function TrimText ( Text As String, W As Float [ , H As Float ] ) As String

Retorna uma versão reduzida do texto especificado para que ele caiba no retângulo solicitado.

Se o texto se encaixa ao retângulo solicitado, ele é retornado como é. Caso contrário, ele é cortado e seguido por um caractere reticências para que ele se encaixe.

  • Text é o texto para ajustar.

  • 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.TrimText("Este é um Texto", 100)
  Paint.Text(TRT, 20, 20)
  Paint.Fill()
End