Tcl/Tk：如何创建一个带有状态文本的进度条？

Question

我想使用 Tcl/Tk >= 8.5 创建一个进度条，它不仅以图形方式显示进度，而且还以进度条内的数字（居中）显示进度百分比（例如“12 %”）。

我正在考虑透明地覆盖进度条和标签，或者将一个标签设为另一个小部件的父级，但我无法找到解决方案。

有什么想法吗？

这是一个简单的程序框架：

proc Counter {} {
  for {set i 0} {$i < 100} {incr i} {
    puts "$i"
    after 25
    .pb configure -value $i
    update idletask
  }
}

ttk::progressbar .pb -orient horizontal -maximum 100 -length 400 -value 0
button .bt -text "Start counter" -command Counter
pack .pb
pack .bt

Answer 1

通常情况下，您不会。进度条的标准平台渲染不支持这样的标签。

但是， 你可以用frames 和labels 破解一些东西（以及巧妙地使用place）。我很久以前写过this page，其中包含指向执行此操作的代码的链接。它应该仍然有效，但看起来可能不是您真正想要的：这些年来，这些东西应该是什么样子的标准已经发生了很大变化。

^{我讨厌自我推销，但我不知道有任何其他代码可以做到这一点。}