wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
// あ
#define ctype LOWORD(%1) (%1 & 0xFFFF)
#define EM_GETSEL 0xB0
#define EM_SETSEL 0xB1
sdim text, 0xFFFF
mesbox text, 640, 480
hEdit = objinfo_hwnd(stat)
onkey gosub *key
stop
*key
if (iParam == 'X') { // x
await 1
sendmsg hEdit, EM_GETSEL, 0, 0
count = LOWORD(stat)
repeat
if (count <= 0) : break
if (peek(text, count) == '\n') : break
count--
loop
sendmsg hEdit, EM_SETSEL, count, count
}
return