Olá!
Este método está em \source\winapi\drawidg.prg
*
Returns an array with font properties (for creating a copy of a font entry)
Copy sample
apffrarr := oFont1:Props2Arr()
oFont2 := HFont():Add( apffrarr[1], apffrarr[2], apffrarr[3], apffrarr[4], apffrarr[5], ;
apffrarr[6], apffrarr[7], apffrarr[8] )
*/
METHOD Props2Arr() CLASS HFont
// fontName, nWidth, nHeight , fnWeight, fdwCharSet, fdwItalic, fdwUnderline, fdwStrikeOut
// 1 2 3 4 5 6 7 8
LOCAL fontName , nWidth , nHeight , fnWeight , fdwCharSet , fdwItalic , fdwUnderline , fdwStrikeOut
LOCAL aFontprops := {}
fontName := iif( ::name == NIL , "<Empty>", ::name )
nWidth := iif( ::width == Nil, - 9999 , ::width )
nHeight := iif( ::height == NIL , - 9999 , ::height )
fnWeight := iif( ::weight == Nil, - 9999 , ::weight )
fdwCharSet := iif( ::CharSet == Nil, - 9999 , ::CharSet )
fdwItalic := iif( ::Italic == Nil, - 9999 , ::Italic )
fdwUnderline := iif( ::Underline == Nil, - 9999 , ::Underline )
fdwStrikeOut := iif( ::StrikeOut == Nil, - 9999 , ::StrikeOut )
AADD (aFontprops, fontName) && C
AADD (aFontprops, nWidth) && all other of type N
AADD (aFontprops, nHeight)
AADD (aFontprops, fnWeight)
AADD (aFontprops, fdwCharSet)
AADD (aFontprops, fdwItalic)
AADD (aFontprops, fdwUnderline)
AADD (aFontprops, fdwStrikeOut)
RETURN aFontprops
Portanto deve-se ativar esse método para ser visto ai na classe ARRAY... Não sei fazer... E não tenho certeza se é isso. Mas é o que estou entendendo.
Saudações,
Itamar M. Lins Jr.