comp • gb.qt4 • paint • textextents

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