Sarebbe bello poter impostare una barra di scorrimento per la casella di modifica del testo direttamente, senza ricorrere alla soluzione alternativa con Scroll Box().
teb = text edit box("",set width(200),set nlines(15));
teb << Set Scrollers( h, v );Quindi, se inserisci più di 15 elementi, puoi scorrere verso il basso.
Penso ancora che questo dovrebbe essere implementato.
A volte è necessario limitare N righe nella casella di modifica del testo e quindi modificare il testo diventa molto difficile perché non c'è la barra di scorrimento (anche il testo salta MOLTO quando si confronta il testo nella casella di modifica del testo quando non è selezionato e quando è selezionato, il che lo rende ancora più difficile). Puoi usare la casella di scorrimento, non funzionerà bene quando vuoi modificare il testo e penso che devi calcolare l'altezza in base al carattere (e alla dimensione del carattere):
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);