probleme avec un editorgadget

[djfeeler2]

bonjour tout le monde !

J'aimerais savoir comment faire pour détecter lorsqu'on clique dans editorgadget ???

merci d'avance ^^

[Mytic]

Voilà :

Code : Tout sélectionner

OpenWindow(0,0,0,500,500,"teste")
CreateGadgetList(WindowID(0)) 
EditorGadget(0,100,100,200,200)

Repeat 
Event = WaitWindowEvent()
Select Event
 Case #PB_Event_Gadget
  Select EventGadget()
      Case 0  
MessageRequester("info","Clique")

  EndSelect
  
 Case #PB_Event_CloseWindow
  End 
EndSelect    
      
ForEver
   

[/code]

[djfeeler2]

merci cela marche nickel

[djfeeler2]

J'aimerais aussi savoir comment faire pour ecrire a une certaine position dans l'editorgadget ?

merci d'avance

[Mytic]

Voilà voilà...

Code : Tout sélectionner

Procedure EditorGadgetLocate(Gadget,x,y) 
  ; Set cursor position 
  REG = GadgetID(Gadget) 
  CharIdx = SendMessage_(REG,#EM_LINEINDEX,y-1,0) 
  LLength = SendMessage_(REG,#EM_LINELENGTH,CharIdx,0) 
  If LLength >= x-1 
    CharIdx + x-1 
  EndIf 
  Range.CHARRANGE 
  Range\cpMin = CharIdx 
  Range\cpMax = CharIdx 
  SendMessage_(REG,#EM_EXSETSEL,0,Range) 
EndProcedure 

OpenWindow(0,0,0,500,500,"teste")
CreateGadgetList(WindowID(0))
EditorGadget(0,100,100,200,200)
AddGadgetItem(0,-1,"aaaaaaaaaaaaaaaaaaa")
AddGadgetItem(0,-1,"bbbbbbbbbbbbbbbbbbb")
AddGadgetItem(0,-1,"ccccccccccccccccccc")


Repeat

Event = WaitWindowEvent()
EditorGadgetLocate(0,10,2) ;____Pour choisir la position

     
Until  Event = #PB_Event_CloseWindow
End

[djfeeler2]

merci merci

[Mytic]

Pas de problèmes !
Si t’as d’autres questions n’hésite surtout pas.

[djfeeler2]

merci je n'hésiterais pas