nombres centrados Stylo IAO

Function Text_Width(Texto As String, ByVal font_index As Integer) As Integer
On Error Resume Next
Dim a As Integer, b As Integer, d As Integer, e As Integer, F As Integer
Dim graf As Grh
 
    For a = 1 To Len(Texto)
        b = Asc(mid(Texto, a, 1))
        graf.grhindex = font_types(1).ascii_code(b)
        If (b <> 32) And (b <> 5) And (b <> 129) And (b <> 9) And (b <> 4) And (b <> 255) And (b <> 2) And graf.grhindex <> 0 Then
            Text_Width = Text_Width + GrhData(GrhData(graf.grhindex).Frames(1)).pixelWidth '+ 1
        Else
            If b = 16 Then
                Text_Width = Text_Width + 16
            Else
                Text_Width = Text_Width + 4
            End If
        End If
    Next a
End Function
 

'Nick

'Nick
                            line = Left$(.Nombre, Pos - 2)
                            Call Text_Render(line, PixelOffsetX - Len(line), PixelOffsetY + 30, color)
                            'Clan
                            line = mid$(.Nombre, Pos)
                            Call Text_Render(line, PixelOffsetX - Len(line) * 2.25, PixelOffsetY + 42, color)