petit bug génant - flick et clignotement

[Crystal Noir]

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.

[AWEAR]

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

[Crystal Noir]

la liste de ces constantes doit bien se trouver quelque part

en tout cas merci j'vais tester.

[AWEAR]

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

[Chris]

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

[Backup]

..

[Crystal Noir]

vais regarder ca