Problème avec GadgetTooltip

[MLD]

Bonjour a tous

J'ai une fenêtre toujours au premier plan avec StikyWindow(id,1).
j'ai un bouton éloigné du bord de la fenêtre. le tooltip est sur le bouton.
Dans ce cas l'étiquette du tooltip se retrouve sous la fenêtre.
Quelqu'un connait'il la solution, pour que l'étiquette aparaisse au dessus de la fenêtre, ou bien est-ce un Bug?
Merci
Michel

[Ar-S]

ça doit être un bug de ton système car pour moi pas de soucis.
Essaye ce code.

Code : Tout sélectionner

Enumeration
  #Window_0
  #Button_0
EndEnumeration
Global Button_0_Tooltip
;}
; Create tooltip
Procedure GadgetBalloonToolTip(WindowNumber.l, GadgetNumber.l, Text.s)
  Protected Tooltip.l, Balloon.TOOLINFO
  Tooltip = CreateWindowEx_(0, "ToolTips_Class32", "", #WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON, 0, 0, 0, 0, WindowID(WindowNumber), 0, GetModuleHandle_(0), 0)
  SendMessage_(Tooltip, #TTM_SETTIPTEXTCOLOR, GetSysColor_(#COLOR_INFOTEXT), 0)
  SendMessage_(Tooltip, #TTM_SETTIPBKCOLOR, GetSysColor_(#COLOR_INFOBK), 0)
  SendMessage_(Tooltip, #TTM_SETMAXTIPWIDTH, 0, 180)
  Balloon\cbSize = SizeOf(TOOLINFO)
  Balloon\uFlags = #TTF_IDISHWND | #TTF_SUBCLASS
  If IsGadget(GadgetNumber)
    Balloon\hwnd = GadgetID(GadgetNumber)
    Balloon\uId = GadgetID(GadgetNumber)
  Else
    Balloon\hwnd = GadgetNumber
    Balloon\uId = GadgetNumber
  EndIf
  Balloon\lpszText = @Text
  SendMessage_(Tooltip, #TTM_ADDTOOL, 0, @Balloon)
  ProcedureReturn Tooltip
EndProcedure
; Change tooltip text
Procedure ChangeGadgetBalloonToolTip(Tooltip.l, GadgetNumber.l, Text.s)
  Protected Balloon.TOOLINFO
  Balloon\cbSize = SizeOf(TOOLINFO)
  Balloon\uFlags = #TTF_IDISHWND | #TTF_SUBCLASS
  If IsGadget(GadgetNumber)
    Balloon\hwnd = GadgetID(GadgetNumber)
    Balloon\uId = GadgetID(GadgetNumber)
  Else
    Balloon\hwnd = GadgetNumber
    Balloon\uId = GadgetNumber
  EndIf
  Balloon\lpszText = @Text
  SendMessage_(Tooltip, #TTM_ADDTOOL, 0, @Balloon)
EndProcedure
; Free tooltip
Procedure FreeBalloonTooltip(Tooltip.l)
  DestroyWindow_(Tooltip.l)
EndProcedure 

Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 450, 200, 400, 400, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    StickyWindow(#Window_0,1)
    ButtonGadget(#Button_0, 90, 135, 210, 90, "Gadget_0")
    Button_0_Tooltip = GadgetBalloonToolTip(#Window_0, #Button_0, "Suis-je derriere ou devant, telle est la question.")
  EndIf
EndProcedure

OpenWindow_Window_0()

;{- Event loop
Repeat
  Select WaitWindowEvent()
      ; ///////////////////
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Button_0
      EndSelect
      ; ////////////////////////
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #Window_0
          CloseWindow(#Window_0)
          Break
      EndSelect
  EndSelect
ForEver

[Le Soldat Inconnu]

ça arrive parfois, c'est plus un bug de Windows que de PB je pense

[MLD]

Merci a Ar-S et au soldat

Ar-S ton code est OK

ça arrive parfois, c'est plus un bug de Windows que de PB je pense

Humm, un tooltip est une fenêtre. Si StikyWindow a été oublier dans la lib PB, le problème est reproduit

[Le Soldat Inconnu]

Moi, j'ai le souci sur mon XP avec des appli non PB et les tooltips qui reste en arrière plan, par exemple, derrière la barre des taches pour les tooltip du systray. C'est pour ça que je pense à un prob de windows

[Ar-S]

C'est clair, les tooltips de la barre des taches qui s'affichent derrière est un soucis récurent. Le pire est que ça ne le fait pas tout le temps.

[PAPIPP]

Bonjour à tous
Chez moi ça fonctionne bien
Pour obtenir le tooltip après avoir cliqué le bouton gadget_0 j'ai modifié le Prg

Code : Tout sélectionner

Enumeration
  #Window_0
  #Button_0
EndEnumeration
Global Button_0_Tooltip
;}
; Create tooltip
Procedure GadgetBalloonToolTip(WindowNumber.l,GadgetNumber.l,Text.s)
  Protected Tooltip.l,Balloon.TOOLINFO
  Tooltip=CreateWindowEx_(0,"ToolTips_Class32","",#WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON,0,0,0,0,WindowID(WindowNumber),0,GetModuleHandle_(0),0)
  SendMessage_(Tooltip,#TTM_SETTIPTEXTCOLOR,GetSysColor_(#COLOR_INFOTEXT),0)
  SendMessage_(Tooltip,#TTM_SETTIPBKCOLOR,GetSysColor_(#COLOR_INFOBK),0)
  SendMessage_(Tooltip,#TTM_SETMAXTIPWIDTH,0,180)
  Balloon\cbSize=SizeOf(TOOLINFO)
  Balloon\uFlags=#TTF_IDISHWND | #TTF_SUBCLASS
  If IsGadget(GadgetNumber)
    Balloon\hwnd=GadgetID(GadgetNumber)
    Balloon\uId=GadgetID(GadgetNumber)
  Else
    Balloon\hwnd=GadgetNumber
    Balloon\uId=GadgetNumber
  EndIf
  Balloon\lpszText=@Text
  SendMessage_(Tooltip,#TTM_ADDTOOL,0,@Balloon)
  ProcedureReturn Tooltip
EndProcedure
; Change tooltip text
Procedure ChangeGadgetBalloonToolTip(Tooltip.l,GadgetNumber.l,Text.s)
  Protected Balloon.TOOLINFO
  Balloon\cbSize=SizeOf(TOOLINFO)
  Balloon\uFlags=#TTF_IDISHWND | #TTF_SUBCLASS
  If IsGadget(GadgetNumber)
    Balloon\hwnd=GadgetID(GadgetNumber)
    Balloon\uId=GadgetID(GadgetNumber)
  Else
    Balloon\hwnd=GadgetNumber
    Balloon\uId=GadgetNumber
  EndIf
  Balloon\lpszText=@Text
  SendMessage_(Tooltip,#TTM_ADDTOOL,0,@Balloon)
EndProcedure
; Free tooltip
Procedure FreeBalloonTooltip(Tooltip.l)
  DestroyWindow_(Tooltip.l)
EndProcedure
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0,450,200,400,400,"Window_0",#PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_MinimizeGadget | #PB_Window_TitleBar)
    StickyWindow(#Window_0,1)
    ButtonGadget(#Button_0,90,135,210,90,"Gadget_0")
    Button_0_Tooltip=GadgetBalloonToolTip(#Window_0,#Button_0,"Suis-je derriere ou devant, telle est la question.")
  EndIf
EndProcedure
OpenWindow_Window_0()
;{- Event loop
Repeat
  Select WaitWindowEvent()
      ; ///////////////////
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Button_0
          Button_0_Tooltip=GadgetBalloonToolTip(#Window_0,#Button_0,"Suis-je derriere ou devant, telle est la question.") ; MODIF
      EndSelect
      ; ////////////////////////
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #Window_0
          CloseWindow(#Window_0)
          Break
      EndSelect
  EndSelect
ForEver

A+
PP

[MLD]

Bonjour PAPPIP

Oui ce code fonctionne bien. C'est le tooltip d'origine qui a un problème.

Merci a toi
Michel