CHR$ (backspace)

[rosslcs]

I am trying to insert some text within a rich edit control and move the text cursor back one space using the CHR$( function as the following example shows ...

CONTROLCMD w1, 1, @RTSETSELCOLOR, SYblue
text = "123" + chr$(
handle = GlobalAlloc(@GHND,255)
lock = GlobalLock(handle)
RtlMoveMemory(lock,text,len(text)+1)
GlobalUnlock(handle)
OpenClipboard(w1)
EmptyClipboard()
SetClipboardData(@CFTEXT,handle)
CloseClipboard()
CONTROLCMD w1,1,@RTPASTE

However the CHR$( backspace function doesn't seem to work.

Is there an equivalent CHR$ (backspace) character using Creative Basic?

[Larry McCaughn]

try this:

Code: [Select]

DEF c1,c2:int
 text = "123"
 ...
CONTROLCMD w1,1,@RTPASTE
CONTROLCMD w1, 1, @RTGETSELECTION, c1, c2
CONTROLCMD w1, 1, @RTSETSELECTION, c1-1, c2-1

[rosslcs]

Thanks for the code example for the backspace function - it worked fine.

Do you know of a similar function that would place the text cursor at the end of a line of text?

[Larry McCaughn]

use
CONTROLCMD window | dialog,   ID, @RTGETSELECTION, varStart, varEnd
to get the location of the carat
use
line = CONTROLCMD ( window |   dialog, ID, @RTLINEFROMCHAR, varEnd)
with the carat location from above to find the line the carat is on
use
length = CONTROLCMD (   window | dialog, ID, @RTGETLINELENGTH,line)
to get the length of the line the carat is on
use
char_index = CONTROLCMD ( window | dialog,   ID, @RTCHARFROMLINE, linenum)
to find the location of the first character on the line
NOTE: I'm not sure if this one exists in CBasic. If not you'll have to use
CONST EM_LINEINDEX = 0xBB
char_index = SendMessage(window | dialog, EM_LINEINDEX, linenum, 0, ID)
use
x=char_index+length
CONTROLCMD window | dialog,   ID, @RTSETSELECTION, x, x

the help file is your friend