Paint.RichTextExtents (gb.qt4)
Static Function RichTextExtents ( Text As String [ , Width As Float ] ) As PaintExtents
Fournit l’étendue d’une chaîne de rich text.
L’étendue décrit un rectangle de l’espace utilisateur qui circonscrit la portion de texte "encrée", comme il serait tracé par
Paint.RichText et
Paint.Fill sans matrice de transformation.
Cette fonction est un équivalent de :
Dim hTextExtents as PaintExtents
Dim sText as String
Paint.NewPath
Paint.Reset
Paint.RichText(sText)
hTextExtents = Paint.PathExtents
Comme seul un chemin est créé, les couleurs définies par les balises <font> ne sont pas prises en compte.