Question

我正在使用R和tcl / tk包来制作R GUI应用程序。现在我遇到了一个问题，无法弄明白。寻找hlep ......

我想在按钮上放置箭头图像。然而，图像的大小太大，我想要一个小按钮。如何调整图像大小并适合按钮大小？

tt <- tktoplevel()  
image1 <- tclVar()  
tcl("image","create","photo",image1,file="toRight.gif")  
imgAsButton <- tkbutton(tt,image=image1,bg="white")  
tkpack(imgAsButton)

由于

Answer 1

使用图形转换器将是最佳选择，但如果你不能这样做，这里有一个使用gif文件的解决方案

iconFile <- "http://barre.nom.fr/vtk/images/logo-tcl-tk.gif"
tmp <- tempfile()
download.file(iconFile, tmp)

iconName <- "::tcl::logo"
largerIconName <- "::tcl::larger_logo"
i1 <- tkimage.create("photo", iconName, file = tmp)
i2 <- tkimage.create("photo", largerIconName)
## enlarge by factor of 2
tcl(i2, "copy", i1, zoom=2)
## shrink by factor of 2
## tcl(i2, "copy", i1, subsample=2)

w <- tktoplevel()
l_full <- ttklabel(w, image=iconName) ## or ttkbutton if you want
l_twice <- ttklabel(w, image=largerIconName)
sapply(list(l_full, l_twice), tkpack)

将图像大小调整为小按钮

1 个答案: