GetFontList

#INCLUDE "TOTVS.CH"
 
// Lista as fontes disponíveis na máquina executando o Protheus Remote      
USER FUNCTION ShowFontInfos()
	Local i
	Local aFonts:= GetFontList()
	Local aSizes

	For i:=1 to Len(aFonts)
		QOut(aFonts[i])
	Next
	
	if Len(aFonts)==0
		return
	endif
	
	// Obtém o tamanho dos characteres CHR(1) a CHR(254) da 1a Fonte
	// listada pela função GetFontList() no tamanho 8
	
	aSizes:= GetFontPixWidths(aFonts[1],8)
	
	// Exibe o tamanho em pixels da letra 'A' para a fonte aFonts[1]
	
	ShowCharWidth('A',aSizes,aFonts[1])
	
	// Exibe o tamanho em pixels da letra 'X'
	ShowCharWidth('X',aSizes,aFonts[1])
	
	// Exibe o tamanho em pixels da letra 'i'
	ShowCharWidth('i',aSizes,aFonts[1])
	
	// Exibe o tamanho em pixels da letra 'g'
	ShowCharWidth('g',aSizes,aFonts[1])
RETURN

STATIC FUNCTION ShowCharWidth(c,aSizes,cFontName)
	Local cMsg
	Local nOrd:= ASC(c)
	cMsg:= 'Largura do "'+c+'" = '+AllTrim(Str(aSizes[nOrd]))+' pixels na Fonte '+cFontName+' tamanho 8'
	
	QOut( cMsg )
RETURN