OpenEuphoria

Re: [WIN] richedit: how to programmatically select text?

• Posted by Mario Steele <eumario at tuscanchat.com> Aug 17, 2004
• 571 views

You can either do that, or you can use this method of selecting text.

include win32lib.ew
constant mywin = create(Window,"RichEdit Text",0,Default,Default,300,200,0),
                riched = create(RichEdit,"",mywin,0,0,300,200,0),
                mFile = create(Menu,"&File",mywin,0,0,0,0,0),
                mSelTex = create(MenuItem,"&Select Text",mFile,0,0,0,0,0),
                mSep1 = create(MenuItem,"-",mFile,0,0,0,0,0),
                mExit = create(MenuItem,"E&xit",mFile,0,0,0,0,0)

procedure onResize_mywin(integer id, integer event, sequence param)
    param = getClientRect(mywin)
    setRect(riched,0,0,param[3],param[4],1)
end procedure
setHandler(mywin,w32HResize,routine_id("onResize_mywin"))

procedure onOpen_mywin(integer id, integer event, sequence param)
    setText(riched,"Hello World, this is a Select Text demo")
end procedure
setHandler(mywin,w32HOpen,routine_id("onOpen_mywin"))

procedure onClick_mSelText(integer id, integer event, sequence param)
    object void
    void = sendMessage(riched,WM_SETSEL,0,15)
end procedure
setHandler(mSelText,w32HClick,routine_id("onClick_mSelText"))

procedure onClick_mExit(integer id, integer event, sequence param)
    closeWindow(mywin)
end procedure
setHandler(mExit,w32HClick,routine_id("onClick_mExit"))

WinMain(mywin,Normal)

This code is untested, seeing as I'm now on Linux, and no longer have 
access to a Windows Computer.  But if I'm right, this should work, minus 
the fact, that it might be another Window Message Constant, but it 
should be something similar to that.

EuMario