[OK] #EM_GETSELTEXT pour du stringgadget ?
Publié : jeu. 15/avr./2010 10:41
...Hello world

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.
ça fonctionne pour un EditorGadget car le texte reste sélectionné lorsqu'on clique sur le bouton mais sur un StringGadget, Nib.
Vous auriez la méthode pour le StringGadget ?

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 ?