OpenEuphoria

RE: Single line RichEdit

• Posted by Derek Parnell <ddparnell at bigpond.com> Mar 04, 2004
• 632 views

Isaac Raway wrote:
> 
> 
> Heya all,
> 
> Is there a way to make a RichEdit single line only? Basically, I want to 
> 
> turn off the windows flag "want return" and get rid of that stupid tiny 
> little scroll bar (I've always thought that Windows should hid a scroll 
> bar unless it needs it, but they've just never fixed that.)
> 
> Any thoughts?
> 
> ~Isaac
> 
> 

Is this okay ...

----------------
without warning
include win32lib.ew
integer MainWin
integer RE

MainWin = create(Window, "Single Line RichEdit", 0, 100, 100, 300, 300, 
0)
RE = create(RichEdit, "This is a single line richedit control.", 
MainWin, 5, 5, 250, 40, 
                    { WS_CLIPPINGCHILD,
	    	          WS_VISIBLE,
	    	          WS_HSCROLL,
	    	          ES_AUTOHSCROLL,
	    	          WS_TABSTOP,
	    	          ES_SAVESEL,
	    	          WS_BORDER }
                    )

WinMain({MainWin,RE}, Normal)
---------------
Derek