cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
Choose Language Hide Translation Bar
0 Kudos

set scroll bar for text edit box

It would be nice to be able to set a scroll bar for text edit box directly without the workaround with the Scroll Box().

teb = text edit box("",set width(200),set nlines(15));
teb << Set Scrollers( h, v );

So when you enter more then  15 items you can scroll down.

 

2 Comments
Ryan_Gilmore
Community Manager
Status changed to: Archived
We are archiving this request. If this is still important please comment with additional details and we will reopen. Thank you!
jthi
Super User

I still think this should be implemented.

It is sometimes required to limit N Lines in Text Edit Box and then editing the text comes very difficult because there is no scroll bar (also the text jumps around a LOT when you compare the text in Text Edit Box when it isn't selected and when it is selected, which makes it even more difficult). You can use Scroll Box it it won't work nicely when you want to edit text and I think you have to calculate height based on the font (and font size):

Names Default To Here(1);

nw = New Window("",
	V List Box(
		H List Box(
			window:teb1 = Text Edit Box("", << Set Width(300), << Set N Lines(5), << Set Wrap(250)),
			V Scroll Box(
				Size(85), // should be calculated based on font size
				window:teb2 = Text Edit Box("", << Set Width(300), << Set Wrap(250)),
			)
		),
		Button Box("Close",
			nw << Close Window;
		)
	)
);

txt = "At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia deserunt mollitia animi, id est laborum et dolorum fuga. Et harum quidem rerum facilis est et expedita distinctio. Nam libero tempore, cum soluta nobis est eligendi optio cumque nihil impedit quo minus id quod maxime placeat facere possimus, omnis voluptas assumenda est, omnis dolor repellendus. Temporibus autem quibusdam et aut officiis debitis aut rerum necessitatibus saepe eveniet ut et voluptates repudiandae sint et molestiae non recusandae. Itaque earum rerum hic tenetur a sapiente delectus, ut aut reiciendis voluptatibus maiores alias consequatur aut perferendis doloribus asperiores repellat.";
wait(1);
nw:teb1 << Set Text(txt);
wait(1);
nw:teb2 << Set Text(txt);