0
package require Tk
package require Tablelist


tablelist::addOakleyCombobox 
    ::tablelist::tablelist .tbl \
            -columns "0 A center 0 B center 0 C center" \
            -stretch all \
            -showseparators 1 

pack .tbl -side top -fill both -expand yes

.tbl insert end ""

proc createWindow {tbl row col w} {
    button $w -text OK
}

.tbl cellconfigure 0,1 -window createWindow

如何在确定按钮周围制作红色边框。我希望它在整个细胞中扩展。像这样的东西 在此处输入图像描述

按钮不是必需的。需要红色边框来突出单元格中的错误。

4

1 回答 1

0

最简单的方法是将按钮(或您想要的任何包含的小部件)放在frame贴在单元格墙壁上的小部件中。然后,通过将框架配置为 have 来使框架显示红色边框-highlightthickness 1 -highlightbackground red -highlightcolor red,这将在框架上放置一个 1 像素宽的实心红色边框(框架默认具有不可见的焦点高亮环,但我们在这里重新调整了它的用途;你可以t 使用-relief solid标准边框,因为它们使用固定颜色)。您可能还需要调整包含的小部件上的填充。

认为您可以通过将小部件指定-stretchwindow 1为选项的选项来在其表格列表单元格中扩展小部件cellconfigure,但我没有尝试过。(文档以一种奇怪的详细方式对此略有不具体;如果您在使其工作时遇到问题,您可能需要询问 tablelist 的作者。)

于 2012-09-06T19:51:42.213 回答