Il serait bien de pouvoir définir une barre de défilement pour la zone d'édition de texte directement sans la solution de contournement avec Scroll Box().
teb = text edit box("",set width(200),set nlines(15));
teb << Set Scrollers( h, v );Ainsi, lorsque vous saisissez plus de 15 éléments, vous pouvez faire défiler vers le bas.
Je pense toujours que cela devrait être mis en œuvre.
Il est parfois nécessaire de limiter N lignes dans la zone d'édition de texte, puis l'édition du texte est très difficile car il n'y a pas de barre de défilement (le texte saute également BEAUCOUP lorsque vous comparez le texte dans la zone d'édition de texte lorsqu'il n'est pas sélectionné et lorsqu'il est sélectionné, ce qui le rend encore plus difficile). Vous pouvez utiliser Scroll Box, cela ne fonctionnera pas bien lorsque vous souhaitez modifier du texte et je pense que vous devez calculer la hauteur en fonction de la police (et de la taille de la police):
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);
