Page 1 sur 1
Trouver la police par défaut et la modifier
Publié : dim. 14/sept./2008 20:26
par Le Soldat Inconnu
Salut,
Un petit code tout simple :
il permet de récupérer la police utiliser par défaut dans les fenêtres et gadgets et de la modifier
En gros, je récupère la police normale et je lui ajoute du gras ou du surlignage ou de l'italique.
Le code :
Code : Tout sélectionner
Procedure.l LoadWindowFont(Bold = -1, Italic = -1, UnderLine = -1)
Protected ncm.NONCLIENTMETRICS
ncm\cbSize = SizeOf(NONCLIENTMETRICS)
SystemParametersInfo_(#SPI_GETNONCLIENTMETRICS, SizeOf(NONCLIENTMETRICS), @ncm, 0)
If Bold = 0
ncm\lfMessageFont\lfWeight = 0
ElseIf Bold = 1
ncm\lfMessageFont\lfWeight = 700
EndIf
If Italic = 0
ncm\lfMessageFont\lfItalic = 0
ElseIf Italic = 1
ncm\lfMessageFont\lfItalic = 1
EndIf
If UnderLine = 0
ncm\lfMessageFont\lfUnderline = 0
ElseIf UnderLine = 1
ncm\lfMessageFont\lfUnderline = 1
EndIf
ProcedureReturn CreateFontIndirect_(@ncm\lfMessageFont)
EndProcedure
; Création de la fenêtre et de la GadgetList
If OpenWindow(0, 0, 0, 300, 300, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget) = 0 Or CreateGadgetList(WindowID(0)) = 0
End
EndIf
TextGadget(#PB_Any, 5, 5, 290, 20, "Police utilisée par windows")
FontID_0 = LoadWindowFont()
If FontID_0
TextGadget(0, 5, 25, 290, 20, "Police normale")
SetGadgetFont(0, FontID_0)
EndIf
FontID_1 = LoadWindowFont(1, -1, -1)
If FontID_1
TextGadget(1, 5, 45, 290, 20, "Police en gras")
SetGadgetFont(1, FontID_1)
EndIf
FontID_2 = LoadWindowFont(-1, 1,1)
If FontID_2
TextGadget(2, 5, 65, 290, 20, "Police en italique soulignée")
SetGadgetFont(2, FontID_2)
EndIf
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Menu
Select EventMenu() ; Menus
EndSelect
Case #PB_Event_Gadget
Select EventGadget() ; Gadgets
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
; On supprime les polices chargées
If FontID_0
DeleteObject_(FontID_0)
EndIf
If FontID_1
DeleteObject_(FontID_1)
EndIf
If FontID_2
DeleteObject_(FontID_2)
EndIf
End
Re: Trouver la police par défaut et la modifier
Publié : ven. 10/févr./2012 11:27
par Le Soldat Inconnu
De même pour la police de la barre de titre
Code : Tout sélectionner
Procedure.l LoadCaptionFont(Bold = -1, Italic = -1, UnderLine = -1)
Protected ncm.NONCLIENTMETRICS
ncm\cbSize = SizeOf(NONCLIENTMETRICS)
SystemParametersInfo_(#SPI_GETNONCLIENTMETRICS, SizeOf(NONCLIENTMETRICS), @ncm, 0)
If Bold = 0
ncm\lfCaptionFont\lfWeight = 0
ElseIf Bold = 1
ncm\lfCaptionFont\lfWeight = 700
EndIf
If Italic = 0
ncm\lfCaptionFont\lfItalic = 0
ElseIf Italic = 1
ncm\lfCaptionFont\lfItalic = 1
EndIf
If UnderLine = 0
ncm\lfCaptionFont\lfUnderline = 0
ElseIf UnderLine = 1
ncm\lfCaptionFont\lfUnderline = 1
EndIf
ProcedureReturn CreateFontIndirect_(@ncm\lfCaptionFont)
EndProcedure
; Création de la fenêtre et de la GadgetList
If OpenWindow(0, 0, 0, 300, 300, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget) = 0 Or CreateGadgetList(WindowID(0)) = 0
End
EndIf
FontID_0 = LoadCaptionFont()
If FontID_0
TextGadget(0, 5, 5, 290, 20, "Police de la barre de titre")
SetGadgetFont(0, FontID_0)
EndIf
FontID_1 = LoadCaptionFont(0, -1, -1)
If FontID_1
TextGadget(1, 5, 25, 290, 20, "Police de la barre de titre sans gras")
SetGadgetFont(1, FontID_1)
EndIf
FontID_2 = LoadCaptionFont(-1, 1, -1)
If FontID_2
TextGadget(2, 5, 45, 290, 20, "Police de la barre de titre en italique")
SetGadgetFont(2, FontID_2)
EndIf
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Menu
Select EventMenu() ; Menus
EndSelect
Case #PB_Event_Gadget
Select EventGadget() ; Gadgets
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
; On supprime les polices chargées
If FontID_0
DeleteObject_(FontID_0)
EndIf
If FontID_1
DeleteObject_(FontID_1)
EndIf
If FontID_2
DeleteObject_(FontID_2)
EndIf
End
Re: Trouver la police par défaut et la modifier
Publié : ven. 10/févr./2012 12:59
par Ar-S
J'ai testé en vitesse les 2 codes, ils donnent le même résultat.
la barre des titres ne change pas, y'a pas de setwindowtitle() .
Re: Trouver la police par défaut et la modifier
Publié : ven. 10/févr./2012 15:10
par Le Soldat Inconnu
9a ne change le texte de la barre de titre, ça récupère la FONT de la barre de titre et ça permet de la personnaliser
Re: Trouver la police par défaut et la modifier
Publié : ven. 10/févr./2012 16:34
par Mesa
J'aimerais savoir pourquoi "Police utilisée par windows" et "Police normale" (dans le 1er post) ne sont pas les mêmes ?
Mesa.
Re: Trouver la police par défaut et la modifier
Publié : ven. 10/févr./2012 18:17
par Le Soldat Inconnu
tiens oui, sous 7, ça ne fonctionne pas correctement
je zieute
Re: Trouver la police par défaut et la modifier
Publié : mer. 15/févr./2012 12:06
par Mesa
C'est à Fred de répondre, je pense, non ?
Mesa.
Re: Trouver la police par défaut et la modifier
Publié : mer. 15/févr./2012 19:45
par Le Soldat Inconnu
Non, ça retourne un nom de police bizarre sous 7, je ne comprends pas pourquoi