RichEdit Lib 1.6: GetSelectedText()
Posted: Tue Mar 28, 2006 11:18 am
... triggers an "invalid memory access" in PB4.xx
Could you please have a look, El_Choni?
Could you please have a look, El_Choni?
http://www.purebasic.com
https://www.purebasic.fr/english/
Code: Select all
Procedure.s GetSelectedTextA()
If (SendMessage_(RichTxtID, #EM_GETSEL, @sspos.l, @sepos.l) > 0)
ststr$ = Space(sepos-sspos)
SendMessage_(RichTxtID, #EM_GETSELTEXT, 0, @ststr$)
Else
ststr$ = ""
EndIf
ProcedureReturn ststr$
EndProcedure