0

如何在窗口底部创建状态行？非活动条目看起来不太好。还有哪些其他选择？

是否可以集成仅按需可见的进度条？

（我在 R 中使用 tk 和 ttk。）

编辑：现在这是我的第二个版本，对我来说效果很好，但我想只按需显示整个状态栏（类似于 Chrome 浏览器中的状态栏）。我怎样才能做到这一点？调用 tklower(f) 没有帮助......

library(tcltk)
library(tcltk2)
tkdestroy(root)
root <- tktoplevel()
status <- tclVar("")
progress <- tclVar("0")
b <- tk2button(root, text="fake doing something!")
tkpack(b, padx=40, pady=10)
o <- tk2checkbutton(root, text="show progress", variable=progress)
tkpack(o, pady=10)

f <- tk2frame(root, relief="sunken")
l <- tk2label(f, textvariable=status)
tkpack(l, side="left", pady=2, padx=5, expand=0, fill="x")
tkpack(f, side="left", expand=1, fill="x", anchor="s")

sg <- ttksizegrip(root)
tkpack(sg, side="left", expand=0, anchor="se")

doit <- function() {
    tclvalue(status) <- "working (hard) ..."
    tcl("update")
    do.pb <- tclvalue(progress)=="1"
    if(do.pb) {
        pb <- tk2progress(f, length=60, mode="determinate")
        tkpack(pb, side="right", expand=0, padx=3, pady=2)        
        tkconfigure(pb, maximum=100, value=0)
    }
    for(i in 1:100) {
        if(do.pb) {
            tkconfigure(pb, value=i)
            tcl("update")
        }
        Sys.sleep(0.03)
    }
    if(do.pb) tkdestroy(pb)
    tclvalue(status) <- "Ready."
}
tkconfigure(b, command=doit)

tclvalue(status) <- "Ready."
4

2 回答 2

2

我使用ttk::frame小部件。在那里，我将放置一个或多ttk::label个小部件，并ttk::sizegrip在最右侧放置一个小部件。

至于进度条——像往常一样添加它。如果您使用网格，您可以使用grid remove它从状态栏中删除它，但网格会记住它的设置，以便您可以立即添加它。或者，您可以使用lower并raise从视图中删除它并再次将其恢复。

您关于 sizegrip 小部件的问题尚不清楚。它在 Windows 上不适合你怎么办？

于 2010-08-26T10:56:51.327 回答
1

状态行是指大多数浏览器窗口底部的状态栏吗？如果是这样，我通常使用一个标签，它的文本变量链接到一个包含状态字符串的变量。

于 2010-08-26T03:23:34.630 回答