0

我想在视图更改时重绘画布（自定义滚动大图像）。

目前我使用了几个函数来实现这一点：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>>")
4

1 回答 1

1

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

解决方案是这样工作的：当您滚动时，最终调用的是底层 tk 小部件的子命令，以实际执行滚动。例如，self.canvas.xview_moveto(...)导致 tcl 命令看起来像.123455.234123 xview moveto .... 奇怪的数字和点系列是小部件的内部名称。它也是实现滚动行为的命令的名称。“xview”在 tcl 命名法中被称为子命令，尽管它可以被认为是小部件对象上的一个方法。

现在，Tcl 最酷的地方在于，您可以重命名任何命令并将其替换为不同的名称。由于此小部件发生的所有事情都调用此命令，因此我们可以创建一个代理，通过该代理发送所有命令。

在您的情况下，您希望在滚动画布时触发一个事件。我们知道，只要使用“xview”或“yview”子命令调用小部件命令，它就会滚动。因此，通过用代理替换小部件命令，并让代理查找这些子命令，我们就可以完成这件事。

这是一个使用 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”，而不是让它变得更独特。这是留给读者的练习。

于 2013-03-04T23:16:38.207 回答