GadgetToolTip

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Jeanmarc
Messages : 46
Inscription : ven. 10/juin/2016 16:11

GadgetToolTip

Message par Jeanmarc »

Re Bonjour,

Le TexteGadget est l'un des seuls à ne pas profiter de GadgetToolTip.

C'est dommage, je voulais expliquer différents Textes

JM
Avatar de l’utilisateur
Noos88
Messages : 59
Inscription : lun. 14/juin/2010 19:16
Localisation : Belrupt (Vosges)

Re: GadgetToolTip

Message par Noos88 »

Pouquoi ne pas utilisé un StringGadget a la place d'un TextGadget
exemple:

Code : Tout sélectionner

If OpenWindow(0,0,0,270,160,"TextGadget",#PB_Window_SystemMenu | #PB_Window_ScreenCentered) 

    StringGadget(1, 10, 40,250,20,"Gadget texte",#PB_String_ReadOnly|#PB_String_BorderLess)
    GadgetToolTip(1,"coucou")

    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
  EndIf
Christophe
Messages : 43
Inscription : lun. 22/oct./2018 19:34
Localisation : Haisnes (62)

Re: GadgetToolTip

Message par Christophe »

Bonjour,
effectivement un StringGadget ou simplement un ContainerGadget

Code : Tout sélectionner

OpenWindow(0, 0, 0, 322, 150, "ToolTip sur Ligne de Texte", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

ContainerGadget(0, 10, 10, 50, 20) 
TextGadget(1, 0, 5, 40, 20, "le texte") 
GadgetToolTip(0,"ToolTip") 
CloseGadgetList() 

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 
Jeanmarc
Messages : 46
Inscription : ven. 10/juin/2016 16:11

Re: GadgetToolTip

Message par Jeanmarc »

Merci de répondre,

Non le StringGadget affiche le curseur et même si l'on met ReadOnly. L'affichage est plus grand. Ingérable.

Container ok mais quelle quantité de code pour afficher un simple texte.

Tampis je vais faire autrement

merci quand meme,

JM
Christophe
Messages : 43
Inscription : lun. 22/oct./2018 19:34
Localisation : Haisnes (62)

Re: GadgetToolTip

Message par Christophe »

Si tu as beaucoup de TextGadget, pourquoi ne pas faire une procedure ?

Code : Tout sélectionner

Procedure TextGadgetTip(Gadget, x, y, width, height, Text$, ToolTip$)
  
  Gad = ContainerGadget(#PB_Any, x, y, width, height)
  TextGadget(Gadget, 0, 0, width, height, Text$)
  GadgetToolTip(Gad, ToolTip$)
  CloseGadgetList()
  
EndProcedure


OpenWindow(0, 0, 0, 300, 200, "Text ToolTip", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

TextGadgetTip(1, 50, 30, 40, 20,"Texte 1","ToolTip 1")
TextGadgetTip(2, 50, 50, 40, 20,"Texte 2","ToolTip 2")
TextGadgetTip(3, 50, 70, 40, 20,"Texte 3","ToolTip 3")

Repeat
  Until WaitWindowEvent() = #PB_Event_CloseWindow
Jeanmarc
Messages : 46
Inscription : ven. 10/juin/2016 16:11

Re: GadgetToolTip

Message par Jeanmarc »

Christophe,

Ton code fonctionne très bien.

J'ai fais une interface dont je suis satisfait, présentation et fonctionnement.
Je me suis dit, je vais associer des Tool tip aux TexGadjet, car naïvement cela me semblait évident.

En fait quand j'ajoute un Gadget, je ne connais pas le code qu'il y a derrière et si le fonctionnement ne vas pas être ralenti.
J'ajoute 50 containers.

Je retiens ton idée
Merci,

JM
Christophe
Messages : 43
Inscription : lun. 22/oct./2018 19:34
Localisation : Haisnes (62)

Re: GadgetToolTip

Message par Christophe »

JM

Je ne comprends pas trop ce que tu veux dire par "je ne connais pas le code qu'il y a derrière"

Je pense que tu veux dire "Numéro de Gadget", tu as peut être peur qu'un Container rentre en conflit
avec un de tes Gadgets ? J'ai fais un essai et le premier numéro de mon Container s'elevait à plus de 31000000
donc il y a peu de risque.

En ce qui concerne le ralentissement, je ne pense pas qu'un ToolTip prends beaucoup de ressource.
Jeanmarc
Messages : 46
Inscription : ven. 10/juin/2016 16:11

Re: GadgetToolTip

Message par Jeanmarc »

Oui, c'est cela qui m'inquiétais le problème de ressource.

50 container rien que pour des Tool tip. Bon ok, si cela fonctionne.

C'est mon défaut, je veux faire le plus simple possible. Mais il faut quand meme un minimum de code.

Merci encore,

JM
Avatar de l’utilisateur
Micoute
Messages : 2522
Inscription : dim. 02/oct./2011 16:17
Localisation : 35520 La Mézière

Re: GadgetToolTip

Message par Micoute »

Je ne comprends pas pourquoi tant de container ?
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
zaphod_b
Messages : 76
Inscription : mar. 09/déc./2014 20:02

Re: GadgetToolTip

Message par zaphod_b »

Salut,

pour le tooltip sur textgadget (ou le click) il faut le #SS_NOTIFY :

Code : Tout sélectionner

Enumeration
  #Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #Text_0 
EndEnumeration
;}
Define.l Event
;}

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)
    TextGadget(#Text_0, 40, 40, 130, 30, "Gadget_0",#SS_NOTIFY)
    GadgetToolTip(#Text_0,"essai tooltip")
  EndIf
EndProcedure

OpenWindow_Window_0()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Text_0
          Debug "ici"
      EndSelect
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #Window_0
          CloseWindow(#Window_0)
          Break
      EndSelect
  EndSelect
ForEver
Avatar de l’utilisateur
MLD
Messages : 1097
Inscription : jeu. 05/févr./2009 17:58
Localisation : Bretagne

Re: GadgetToolTip

Message par MLD »

@zaphod_b

Merci. Je savais pour le click mais pas pour le tooltip
Répondre