Reprise du focus

[Le_Soldat_Inconnu]

Pour savoir si une fenêtre reprend le focus

Code : Tout sélectionner

Procedure LoWord(value)
  ProcedureReturn value & $FFFF
EndProcedure

Procedure HiWord(value)
  ProcedureReturn value >> 16 & $FFFF
EndProcedure



Procedure WindowCallBack(Window, Message, wParam, lParam)
  ReturnValue = #PB_ProcessPureBasicEvents
  
  Select Message
      
      ; =========================================================================
      ; =========================================================================
    Case #WM_ACTIVATE ; détecte si on a bascule d'une fenêtre vers la fenêtre principale
      If ((LoWord(Wparam) = #WA_ACTIVE ) Or (LoWord(Wparam) = #WA_CLICKACTIVE)) And Window = WindowID(0)
        FontText.l = LoadFont(2, "Arial", 14, #PB_Font_HighQuality)
        SetGadgetText(1, "Alors le texte a changé ?")
        SetGadgetFont(1, FontText)
        ReturnValue = 0 ; doit retourner 0 si on répond au message
      EndIf
      ; =========================================================================
      ; =========================================================================
  EndSelect
  
  ProcedureReturn ReturnValue
  
EndProcedure




If OpenWindow(0, 200, 200, 400, 400, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "WM_ACTIVATE")
  CreateGadgetList(WindowID())
  TextGadget(1, 50, 50, 220, 80, "Texte avant")
EndIf

SetWindowCallback(@WindowCallBack())



Repeat
Until WaitWindowEvent() = #PB_EventCloseWindow



End

[Le Soldat Inconnu]

Au fait, je ne prend aucune responsabilité vis à vis de cette usine à gaz, elle est de Denis

[Anonyme2]

Sauf Loword et Hiword qui doivent être de Danilo

[Chris]

Va falloir mettre un label rouge sur les codes, maintenant. Comme sur les poulets

Appellation d'Origine Contrôlée

Chris

[Le Soldat Inconnu]

oui, un anneau dans le nez, un coup de tampon sur le front et hop

[comtois]

Euh c'est normal qu'en face du code ci-dessus je puisse lire ça ?

Le_Soldat_Inconnu
Invité

C'est bien ton code Régis ? ou il a été modifié ?

[cederavic]

c'est bien le sien