DuncanTemple Lang
Dept. of Statistics, UC Davis
Using the wxImageList.
In this article we aim to show how to use the wxImageList in
combination with some of the widgets such as wxListCtrl.
The result is
![]()
We start by initializing the R session for
use with RwxWidgets.
library(RwxWidgets)
wxInit()
wxNullBitmap = getWxNullBitmap()
Next, we load several images.
We use the three icons of the same size in the R distribution.
imageNames = list.files(paste(Sys.getenv("R_HOME"), "doc", "html", sep = .Platform$file.sep),
"(left|right|up)\\.jpg$", full.names = TRUE)
imageType = wxBITMAP_TYPE_JPEG
imageNames = list.files("~/pal2", full.names = TRUE)[1:3] #XXX
imageType = wxBITMAP_TYPE_PNG
Now, we create the image list and load these images and insert them into the list.
images = wxImageList()
sapply(imageNames, function(filename) images$Add(wxBitmap(filename, imageType)))
imageNames = c(imageNames, "down")
tmp = as(images[[3]], "wxImage")$Rotate(pi, c(20, 20))
tmp = tmp$Rescale(images[[3]]$GetWidth(), images[[3]]$GetHeight())
down = as(tmp, "wxBitmap")
images$Add(down)
At this point, we can use the images in a GUI.
So we create a top-level window and a wxListCtrl
and then associate the wxImageList
with this widget. Note that we use SetImageList
and so we continue to own and manage the image list.
f = RFrame("wxImageList Example", size = c(600, 300))
sz = wxBoxSizer(wxHORIZONTAL)
sz$SetSizeHints(f)
f$SetSizer(sz)
li = wxListCtrl(f) # , size = c(200, 300))
book = wxNotebook(f, size = c(400, 300))
sz$Add(li, 0, wxALL)
sz$Add(book, 1, wxEXPAND)
win = wxSplitterWindow(f, wxID_ANY)
li = wxListCtrl(win)
book = wxNotebook(win, size = c(400, 300))
win$SplitVertically(li, book)
And now we add entries to the wxListCtrl.
We put the name of each image and associate it with that image.
li$SetImageList(images, wxIMAGE_LIST_NORMAL)
sapply(seq(along = imageNames),
function(i) {
li$InsertItem(i - 1, basename(imageNames[i]), i-1)
})
book$SetImageList(images)
sapply(seq(along = imageNames),
function(i) {
book$AddPage(wxPanel(book), basename(imageNames[i]), FALSE, i-1)
})
And finally we display the top-level window and run the event loop.
f$Show()
eloop = wxEventLoop()
wxEventLoop_Run(eloop)