
Je suis en train de faire une compile de Libs (pour windows) regroupant certaines commandes dont je me sert souvent.
Je coince cependant sur le renvoie de texte en surbrillance dans un StringGadget.
Code : Tout sélectionner
Procedure.s GetSelectEditorText(i_Gadget.i)
Protected l_marked.CHARRANGE
Protected l_txt.s
SendMessage_(GadgetID(i_Gadget), #EM_EXGETSEL , 0, @l_marked )
l_txt = Space (1 + l_marked\cpMax - l_marked\cpMin)
SendMessage_(GadgetID(i_Gadget), #EM_GETSELTEXT, 0, @l_txt)
ProcedureReturn l_txt
EndProcedure
Vous auriez la méthode pour le StringGadget ?