Es wäre schön, wenn man eine Bildlaufleiste für das Textbearbeitungsfeld direkt festlegen könnte, ohne den Workaround mit der Bildlaufbox().
teb = text edit box("",set width(200),set nlines(15));
teb << Set Scrollers( h, v );Wenn Sie also mehr als 15 Elemente eingeben, können Sie nach unten scrollen.
Ich denke immer noch, dass dies umgesetzt werden sollte.
Manchmal ist es erforderlich, N Zeilen im Textbearbeitungsfeld zu begrenzen, und dann ist das Bearbeiten des Textes sehr schwierig, da es keine Bildlaufleiste gibt (auch springt der Text VIEL herum, wenn Sie den Text im Textbearbeitungsfeld vergleichen, wenn es nicht ausgewählt ist und wenn es ausgewählt ist, was es noch schwieriger macht). Sie können Scroll Box verwenden, es funktioniert nicht gut, wenn Sie Text bearbeiten möchten, und ich denke, Sie müssen die Höhe basierend auf der Schriftart (und Schriftgröße) berechnen:
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);
