Mirage Source

Public Function getSize(ByVal DC As Long, ByVal Text As String) As textSize
    Dim lngReturn As Long
    Dim typSize As textSize
   
    lngReturn = GetTextExtentPoint32(DC, Text, Len(Text), typSize)
   
    getSize = typSize
End Function

Public Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As textSize) As Long

Public Type textSize
    width As Long
    Height As Long
End Type

TextX = ((GetPlayerX(Index) * PIC_X + Player(Index).XOffset) + 16) - (getSize(frmMirage.hdc, GetPlayerName(Index)).width / 2)