PureBasic

j'vais regardé ca par contre les valeurs 274 et 61472 où peut on a voir ces valeurs ? il y a t'il une liste ?

je dois dire que j'ai toujours utilisé pure en 2D / jeux et jamais en appli lol

merci en tout cas.

C'est des valeurs de windows mais comme j'ai pas la version complète je ne peux pas mettre les constantes..
274 correspond à #WM_SYSCOMMAND et 61472 à #SC_MAXIMIZE

la liste de ces constantes doit bien se trouver quelque part

en tout cas merci j'vais tester.

Je pense que ces constantes sont dans le fichier win32.hlp, il y a des liens sur le forum.
http://purebasic.hmt-forum.com/viewtopic.php?t=1498

J'avais fait ça, il y a un moment.

Code : Tout sélectionner

;/Constantes Window
Enumeration
  #Window_0
EndEnumeration

;/Constantes Gadget
Enumeration
  #Btn_Quit
EndEnumeration

Procedure CallBack(Hnd,msg,wParam,lParam)
  Resultat = #PB_ProcessPureBasicEvents
  Select msg
    Case #WM_SIZE
      Select wParam
        Case #SIZE_MAXIMIZED : Debug "Fenêtre Maximisée"
        Case #SIZE_MINIMIZED : Debug "Fenêtre Minimisée"
        Case #SIZE_RESTORED  : Debug "Fenêtre Restaurée"
      EndSelect
      
    Case #WM_SYSCOMMAND
      Select wParam
        Case #SC_MAXIMIZE : Debug "Clic sur Maximiser"
        Case #SC_MINIMIZE : Debug "Clic sur Minimiser"
      EndSelect
      
  EndSelect
  ProcedureReturn Resultat 
EndProcedure 



If OpenWindow(#Window_0, 300, 300, 300, 200, #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget, "Fenêtre 1",0)
  SetWindowCallback(@CallBack())
  
  If CreateGadgetList(WindowID(#Window_0))
    ButtonGadget(#Btn_Quit, 100, 170, 100, 25, "Quitter")
  EndIf
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_EventGadget
        Select EventGadgetID()
          
          Case #Btn_Quit : quit = 1
        EndSelect
        
      Case #PB_EventCloseWindow : quit = 1
    EndSelect
  Until quit = 1
  End
EndIf

vais regarder ca

PureBasic

petit bug génant - flick et clignotement