279136_zh-CN

liliconcom

设置文本编辑框的滚动条

如果能够直接为文本编辑框设置滚动条，而不用使用 Scroll Box() 来解决，那就太好了。

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

因此，当您输入超过 15 个项目时，您可以向下滚动。

自动化和脚本回复：为文本编辑框设置滚动条 - 状态更改为：已存档我们正在归档此请求。 如果这仍然很重要，请发表评论并提供更多详细信息，我们将重新开放。 谢谢！Re: 为文本编辑框设置滚动条

我仍然认为这应该实施。

有时需要在文本编辑框中限制 N 行，然后编辑文本变得非常困难，因为没有滚动条（当您比较文本编辑框中未选中的文本时，文本也会跳动很多，并且当它被选中时，这使得它变得更加困难）。 您可以使用 Scroll Box 它在您想要编辑文本时效果不佳，我认为您必须根据字体（和字体大小）计算高度：

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);