Tkinter画布滚动/拖动通知

Question

我想在视图改变时重新绘制画布(自定义滚动大图)。

目前我钩到几个函数来实现这一点:xview_moveto, yview_moveto, scan_dragto

是否有一个事件可以用来做这个清理?或者另一种方法?

当前代码看起来像:

class CustomCanvas(Tkinter.Canvas):
    def xview(self, *args):
        r = Tkinter.Canvas.xview(self, *args)
        if args:
            self.event_generate("<<ScrollEvent>>")
        return r
    def yview(self, *args):
        r = Tkinter.Canvas.yview(self, *args)
        if args:
            self.event_generate("<<ScrollEvent>>")
        return r    
    def xview_moveto(self, *args):
        Tkinter.Canvas.xview_moveto(self, *args)
        self.event_generate("<<ScrollEvent>>")
    def yview_moveto(self, *args):
        Tkinter.Canvas.yview_moveto(self, *args)
        self.event_generate("<<ScrollEvent>>")
    def scan_dragto(self, *args):
        Tkinter.Canvas.scan_dragto(self, *args)
        self.event_generate("<<ScrollEvent>>")

Answer 1

如果您不反对一些开箱即用的想法，您可以使用一些自定义Tcl代码来解决这个问题。我写这个不是因为它是最好的解决方案本身，而是因为它是一个有趣的解决方案。

解决方案是这样的:当您滚动时，最终调用的是底层tk小部件的子命令，以实际执行滚动。例如，self.canvas.xview_moveto(...)产生的tcl命令类似于.123455.234123 xview moveto ...。这个奇怪的数字和圆点序列是小部件的内部名称。它也是实现滚动行为的命令的名称。"xview"在TCL命名法中被称为子命令，尽管它可以被认为是小部件对象上的一个方法。

现在，使用Tcl很酷的一点是，您可以重命名任何命令并用不同的东西替换它。因为发生在这个小部件上的所有事情都调用这个命令，所以我们可以创建一个代理，通过它发送所有命令。

在您的示例中，您希望在滚动画布时触发一个事件。我们知道，当小部件命令与"xview"或"yview"子命令一起调用时，它就会滚动。因此，通过用代理替换widget命令，并让代理查找这些子命令，我们就可以完成这个任务了。

下面是一个使用python 2.7的工作示例:

# use 'tkinter' instead of 'Tkinter' if using python 3.x
import Tkinter as tk 
class CustomCanvas(tk.Canvas):
    def __init__(self, *args, **kwargs):
        '''A custom canvas that generates <<ScrollEvent>> events whenever
           the canvas scrolls by any means (scrollbar, key bindings, etc)
        '''
        tk.Canvas.__init__(self, *args, **kwargs)
        # replace the underlying tcl object with our own function
        # so we can generate virtual events when the object scrolls
        tcl='''
            proc widget_proxy {actual_widget args} {
                set result [$actual_widget {*}$args]
                set command [lindex $args 0]
                set subcommand [lindex $args 1]
                if {$command in {xview yview} && $subcommand in {scroll moveto}} {
                    # widget has been scrolled; generate an event
                    event generate {widget} <<ScrollEvent>>
                }
                return $result
            }
            rename {widget} _{widget}
            interp alias {} ::{widget} {} widget_proxy _{widget}
        '''.replace("{widget}", str(self))
        self.tk.eval(tcl)
class Example(tk.Frame):
    def __init__(self, *args, **kwargs):
        tk.Frame.__init__(self, *args, **kwargs)
        # create an instance of the custom canvas. Make sure it
        # has a largeish scroll region, for demonstration purposes
        self.canvas = CustomCanvas(self, width=400, height=400, 
                                   borderwidth=0, scrollregion=(0,0,1000,1000))
        self.vsb = tk.Scrollbar(self, orient="vertical", command=self.canvas.yview)
        self.hsb = tk.Scrollbar(self, orient="horizontal", command=self.canvas.xview)
        self.canvas.configure(xscrollcommand=self.hsb.set, yscrollcommand=self.vsb.set)
        self.canvas.grid(row=0, column=0, sticky="nsew")
        self.vsb.grid(row=0, column=1, sticky="ns")
        self.hsb.grid(row=1, column=0, sticky="ew")
        self.grid_rowconfigure(0, weight=1)
        self.grid_columnconfigure(0, weight=1)
        # this binds to the virtual event that is sent by the proxy
        self.canvas.bind("<<ScrollEvent>>", self.on_scroll)
        # some data, just so that we can see that the canvas
        # really is scrolling
        for y in range(0, 1000, 100):
            for x in range(0, 1000, 100):
                self.canvas.create_text(x, y, text="%s/%s" % (x,y), anchor="nw")
    def on_scroll(self, event):
        print "widget scrolled..."
if __name__ == "__main__":
    root = tk.Tk()
    view = Example(root)
    view.pack(side="top", fill="both", expand=True)
    root.mainloop()

注意:这只会在你滚动区域时起作用，尽管它应该工作，即使你用键盘滚动(例如:页面向上，页面向下等)。如果您调整窗口的大小，该事件将不会触发。您可以通过绑定到<Configure>来处理这种情况。此外，为了简洁起见，我省略了错误检查，尽管它应该相当健壮。最后，您只能在程序中使用这个特定的实现一次，因为我硬编码了"widget_proxy"，而不是使它更独特。这是留给读者的练习。