Voici un exemple avec birdchat :
Ça c'est le menu normal, sans aucun problème. Maintenant, si je vais sur un élément, les ennuis commencent :
la police est agrandie bizarrement, je ne l'ai pourtant pas demandé. En si on desélectionne le menu (qu'on enlève la souris quoi !) :
Quoi moi devoir faire ?
De plus, lors de l'essai de l'exemple j'ai cliqué sur le bouton présent dans la fenêtre, toutes les polices d'écriture se sont agrandies.
Au fait, voici le code que j'utilise (Menu & SubMenu & PopupMenu) :
Code : Tout sélectionner
Global Var.ItemParams
Var\TextColor = GetSysColor_(7)
Var\IconAreaBkGndColor = GetSysColor_(15)
Var\TextAreaBkGndColor = GetSysColor_(4)
If OSVersion() <> #PB_OS_Windows_95 And OSVersion() <> #PB_OS_Windows_NT_4 And OSVersion() <> #PB_OS_Windows_NT3_51
Var\SelectedTextColor = GetSysColor_(7)
Var\SelectedBkGndColor = GetSysColor_(28)
Var\SelectedFrameColor = GetSysColor_(2)
Var\MouseOverMenuTitleTextColor = GetSysColor_(7)
Var\MouseOverMenuTitleBkGndColor = GetSysColor_(28)
Var\MouseOverMenuTitleFrameColor = GetSysColor_(2)
Else
Var\SelectedTextColor = GetSysColor_(14)
Var\SelectedBkGndColor = GetSysColor_(13)
Var\SelectedFrameColor = GetSysColor_(16)
Var\MouseOverMenuTitleTextColor = GetSysColor_(14)
Var\MouseOverMenuTitleBkGndColor = GetSysColor_(13)
Var\MouseOverMenuTitleFrameColor = GetSysColor_(16)
EndIf
Var\MenuBarColor = GetSysColor_(#COLOR_GRAYTEXT)
.