cs_PHILOUVB
Messages postés141Date d'inscriptionmardi 18 mars 2003StatutMembreDernière intervention 3 octobre 2010
-
22 févr. 2005 à 18:53
cs_PHILOUVB
Messages postés141Date d'inscriptionmardi 18 mars 2003StatutMembreDernière intervention 3 octobre 2010
-
22 févr. 2005 à 20:20
Bonjour à tous, je vous explique mon problème :
Je suis en train d'étudier la structure des thèmes de bureau. Et en particulier la
partie correspondant à l'IconMetrics.
Dans cette partie on trouve le nom de la police utilisée pour écrire sous les
icones du Bureau
Mon problème est le suivant : si je traduis le nom de la police, je trouve par ex :
System0 T Conseded Light
Or si j'utilise les API de type EnumFontFamilies qui me permettent de trouver le
nom entier de la police, je ne retrouve pas la même chose.
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 22 févr. 2005 à 19:32
'In a module
Public
Const NTM_REGULAR = &H40&
Public
Const NTM_BOLD = &H20&
Public
Const NTM_ITALIC = &H1&
Public
Const TMPF_FIXED_PITCH = &H1
Public
Const TMPF_VECTOR = &H2
Public
Const TMPF_DEVICE = &H8
Public
Const TMPF_TRUETYPE = &H4
Public
Const ELF_VERSION = 0
Public
Const ELF_CULTURE_LATIN = 0
Public
Const RASTER_FONTTYPE = &H1
Public
Const DEVICE_FONTTYPE = &H2
Public
Const TRUETYPE_FONTTYPE = &H4
Public
Const LF_FACESIZE = 32
Public
Const LF_FULLFACESIZE = 64
Type LOGFONT
lfHeight
As
Long
lfWidth
As
Long
lfEscapement
As
Long
lfOrientation
As
Long
lfWeight
As
Long
lfItalic
As
Byte
lfUnderline
As
Byte
lfStrikeOut
As
Byte
lfCharSet
As
Byte
lfOutPrecision
As
Byte
lfClipPrecision
As
Byte
lfQuality
As
Byte
lfPitchAndFamily
As
Byte
lfFaceName(LF_FACESIZE)
As
Byte
End
Type
Type NEWTEXTMETRIC
tmHeight
As
Long
tmAscent
As
Long
tmDescent
As
Long
tmInternalLeading
As
Long
tmExternalLeading
As
Long
tmAveCharWidth
As
Long
tmMaxCharWidth
As
Long
tmWeight
As
Long
tmOverhang
As
Long
tmDigitizedAspectX
As
Long
tmDigitizedAspectY
As
Long
tmFirstChar
As
Byte
tmLastChar
As
Byte
tmDefaultChar
As
Byte
tmBreakChar
As
Byte
tmItalic
As
Byte
tmUnderlined
As
Byte
tmStruckOut
As
Byte
tmPitchAndFamily
As
Byte
tmCharSet
As
Byte
ntmFlags
As
Long
ntmSizeEM
As
Long
ntmCellHeight
As
Long
ntmAveWidth
As
Long
End
Type
Declare
Function EnumFontFamilies
Lib
"gdi32"
Alias
"EnumFontFamiliesA" (
ByVal hDC
As
Long,
ByVal lpszFamily
As
String,
ByVal lpEnumFontFamProc
As
Long, LParam
As
Any)
As
Long
Function EnumFontFamProc(lpNLF
As LOGFONT, lpNTM
As NEWTEXTMETRIC,
ByVal FontType
As
Long, LParam
As
Long)
As
Long
cs_PHILOUVB
Messages postés141Date d'inscriptionmardi 18 mars 2003StatutMembreDernière intervention 3 octobre 2010 22 févr. 2005 à 20:20
J'ai effectivement essayer cette fonction API. Mais elle ne me permet pas de
répondre à mon problème car elle donne uniquement le nom de la police de
caractère mais pas comme dans mon exemple :