PureBasic

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 : 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