• This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn more.

Displaying Editor With Vertical Scrollbar Enabled

#1
Code:
DEFINE VARIABLE y AS CHARACTER FORMAT "X(1)".
FORM
     y VIEW-AS EDITOR size 60 by 11 SCROLLBAR-VERTICAL AT 10 SKIP(1)
     HEADER "Title" AT 25 SKIP(1)
     WITH NO-LABELS NO-UNDERLINE NO-BOX DOWN FRAME work2.

y = "This is a lot of text~n~n~n~n~n~n This is a lot of text.".
DISPLAY y WITH FRAME work2.
I want to allow the user to scroll through the contents of y without allowing them to type in the editor box. Is that possible? Do I need to use a dynamic editor object instead?
 

Osborne

Active Member
#2
Set the editor to read only and enable it:
Code:
...

ASSIGN y:READ-ONLY = TRUE.
DISPLAY y WITH FRAME work2.
ENABLE y WITH FRAME work2.