Sería bueno poder configurar una barra de desplazamiento para el cuadro de edición de texto directamente sin la solución alternativa con Scroll Box().
teb = text edit box("",set width(200),set nlines(15));
teb << Set Scrollers( h, v );Entonces, cuando ingrese más de 15 elementos, podrá desplazarse hacia abajo.
Sigo pensando que esto debería implementarse.
A veces es necesario limitar N líneas en el cuadro de edición de texto y luego editar el texto es muy difícil porque no hay una barra de desplazamiento (también el texto salta MUCHO cuando compara el texto en el cuadro de edición de texto cuando no está seleccionado y cuando se selecciona, lo que lo hace aún más difícil). Puede usar Scroll Box, no funcionará bien cuando desee editar texto y creo que debe calcular la altura en función de la fuente (y el tamaño de fuente):
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);
