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