Paint.TextExtents (gb.qt4)
Static Function TextExtents ( Text As String ) As PaintExtents
Obtém as dimensões de uma string.
As dimensões descrevem um retângulo de espaço do usuário que envolve a "pintura" da parte do texto, uma vez que seriam desenhados por
Paint.Text e
Paint.Fill sem a matriz de transformação.
Esta função é equivalente a:
Dim hTextExtents as PaintExtents
Dim sText as String
Paint.NewPath
Paint.Reset
Paint.Text(sText)
hTextExtents = Paint.PathExtents
Exemplo
Public Sub DrawingArea1_Draw()
Dim TE As PaintExtents
TE = Paint.TextExtents("Este é o Texto")
Paint.Text("Este é o Texto", 10, 20)
Paint.Fill()
Paint.Rectangle(10, 10, TE.Width, TE.Height)
Paint.Stroke()
End
Veja também