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