调整表格列表的大小

发布于 2024-12-11 11:24:14 字数 228 浏览 0 评论 0原文

我可以在不重新创建小部件的情况下调整表格列表的大小吗？

我有两个表格列表小部件（每个小部件都位于一个网格中）。一个始终显示，另一个隐藏，直到您按下按钮。当第二个表列表也显示时，我想将第一个表列表的大小调整为行数的一半（出于屏幕可读性的原因）。然后，如果您关闭第二个表列表，我会将第一个表列表返回到其原始高度（初始行数）。我怎样才能做到这一点？（注意：问题主要是关于是否可以动态调整 nemethi 的表列表的大小。）

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

橪书 2024-12-18 11:24:14

所有 Tk 小部件都有它们想要的大小，但可以处理小于该大小的大小。所以我们需要利用这一点。

您有一个容器（顶层或可能是框架），它将包含两个表列表小部件（或者当只显示一个时仅包含其中一个）。当添加第二个表列表时，我们希望保持整个容器的大小相同。最简单的方法是使用 place 几何管理器 - 在本例中，尤其是其相对位置和大小调整控件 - 因为这可以让您更精确地控制小部件大小。（缺点是您必须自己做一些工作才能获得正确的初始小部件尺寸。）

在下面的代码中，我假设容器小部件称为 .container< /code>，主小部件称为 .container.main，额外的小部件称为 .container.extra。设置方法：

place .container.main
bind .container.main <Configure> {initMainSize %W %w %h}
proc initMainSize {widget width height} {
    # Set up the container preferred size
    [winfo parent $widget] configure -width $width -height $height
    # Install the real placement rules for the main widget
    place configure $widget -relx 0 -rely 0 -relwidth 1 -relheight 1
    # Run this only once, so remove the binding here
    bind $widget <Configure> {}
}

如何添加 .container.extra：

# Extra widget to take bottom half of container; main relegated to top half
place .container.extra -relx 0 -rely 0.5 -relheight 0.5 -relwidth 1
place configure .container.main -relheight 0.5

如何删除 .container.extra：

# Extra widget dropped (but still logically exists); main back to full size
place forget .container.extra
place configure .container.main -relheight 1

另请注意，由于使用 place 会增加复杂性，你最好将它用于尽可能少的小部件；在框架上使用它，然后将其打包/grid到 GUI 的其余部分（用于切换第二个表格列表显示的按钮等）

All Tk widgets have a size that they'd prefer to be, but can cope with less than that. So we need to take advantage of this.

You've got a container (a toplevel or possibly a frame) that will contain the two tablelist widgets (or just one of them when only one is meant to be displayed). When the second tablelist is added, we want to keep the size of the overall container the same. The simplest method of doing this is with the place geometry manager — in this case, especially its relative placement and sizing controls — since that lets you control widget sizing more precisely. (The down-side is that you have to do some work yourself to get initial widget sizes right.)

In the code below, I'm assuming that the container widget is called .container, the main widget is called .container.main and the extra is called .container.extra. To set things up:

place .container.main
bind .container.main <Configure> {initMainSize %W %w %h}
proc initMainSize {widget width height} {
    # Set up the container preferred size
    [winfo parent $widget] configure -width $width -height $height
    # Install the real placement rules for the main widget
    place configure $widget -relx 0 -rely 0 -relwidth 1 -relheight 1
    # Run this only once, so remove the binding here
    bind $widget <Configure> {}
}

How to add .container.extra:

# Extra widget to take bottom half of container; main relegated to top half
place .container.extra -relx 0 -rely 0.5 -relheight 0.5 -relwidth 1
place configure .container.main -relheight 0.5

How to remove .container.extra:

# Extra widget dropped (but still logically exists); main back to full size
place forget .container.extra
place configure .container.main -relheight 1

Also note that because of the general increased trickiness of using place, you're better off using it for as few widgets as possible; use it on a frame that you then pack/grid into the rest of your GUI (your button for togggling display of the second tablelist, etc.)

回复收藏 0 原文

~没有更多了~