Displaying Editor With Vertical Scrollbar Enabled

KMoody

Member
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
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.
 
Top