Modifier la police d'un ListViewGadget

[Philippe_GEORGES]

Bonjour

Je souhaite changer la police d'un ListViewGadget. Visiblement, le code suivant ne marche pas....

Code : Tout sélectionner

 LoadFont (0, "Arial", 10) ;Load Courrier Font, Size 1
  SetGadgetFont(#Resultats,FontID(0))

#Resultat est une constante se rapportant au gadget ListViewGadget destiné à recevoir du texte ....

Pourquoi ce code ne fonctionne pas, alors qu'appliquer à un editorgadget ça marche ?

J'utilise la version 5.20 de purebasic sous Windows 8.

Merci d'avance de votre aide....

Phil

[falsam]

Même version de Pure Basic et ça fonctionne

Code : Tout sélectionner

Enumeration 
  #Font
  #MainForm
  #Resultat
EndEnumeration

LoadFont (#Font, "Arial", 12)

If OpenWindow(#MainForm,0, 0, 300, 150, "ListViewGadget",#PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
  ListViewGadget(#Resultat, 10, 10, 280, 130)
  SetGadgetFont(#Resultat, FontID(#Font))
  For a=1 To 12
    AddGadgetItem (#Resultat,-1,"Elément "+Str(a)+" de la boîte à liste")   ; défini le contenu de la boîte de liste
  Next
  
  Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf

Test sous Windows 7 et 8

[falsam]

Petite astuce : Si tous les gadgets de ta fenêtre sont concernés par cette police, tu peux placer

Code : Tout sélectionner

SetGadgetFont(#PB_Default, FontID(#Font))

avant l'ouverture de ta fenêtre. Ca évite de faire un SetGadgetFont() pour chacun des gadgets de la fenêtre.

[Philippe_GEORGES]

Merci, là ça marche !!

En fait, le gadget ID doit être préalablement déclaré sous forme de constante....

Bien compris !! Un très grand merci !

Phil