j'ai essayer librairie MoreGadgetColor crée par DENIS avec la version 3.92
le probleme c'est que ça marche mais quand je quitte ma fenetre j'ai une message d'erreur :
PUREBASIC1484111 a causé une défaillance de page dans
le module PUREBASIC1484111.EXE à 0167:004016eb.
Registres :
EAX=81d37714 CS=0167 EIP=004016eb EFLGS=00010293
EBX=0074f38c SS=016f ESP=0063fde0 EBP=0063fdf0
ECX=c1b25410 DS=016f ESI=0074f38c FS=4677
EDX=00750000 ES=016f EDI=c1b25414 GS=0000
Octets à CS : EIP :
83 3c 03 00 74 12 8b 07 ff 34 03 6a 00 ff 35 3c
État de la pile :
c1b25410 00000000 0074f38c 00404a68 0063ff78 004061a8 0074f38c c1b25410 00404a68 81d374bc 0040611a 00000000 004060fa 00000001 00401ae9 00401262 message d'erreur du syle qu'une erreur a ete causer dans
voici le code :
Code : Tout sélectionner
Enumeration
#string_0
EndEnumeration
Global FontID1
FontID1 = LoadFont(1, "Arial", 12, #PB_Font_Bold)
If OpenWindow(0,0,0,400,250,#pb_window_systemmenu|#pb_window_minimizegadget|#pb_window_maximizegadget|#pb_window_screencentered,"Fenetre zero")
If CreateMenu(0,WindowID())
MenuTitle("Fichier")
MenuItem(1,"Open" + Chr(9)+"ctrl+o")
MenuItem(2,"Save" + Chr(9)+"ctrl+s")
MenuItem(3,"Close"+ Chr(9)+"ctrl+c")
EndIf
If CreateGadgetList(WindowID())
StringGadget(#string_0,15,150,140,30,"")
SetGadgetFont(#string_0, FontID1)
SetGadgetColor(#String_0, #white, #Black)
EndIf
Repeat
EventID.l = WaitWindowEvent()
Select EventID
Case #PB_EventMenu
Select EventMenuID()
Case 3
Quit=1
EndSelect
Case #WM_CLOSE
Quit=1
EndSelect
Until Quit =1
EndIf