The
image
initarg for an image-pinboard-object
should either be an external-image or any other object accepted by load-image. The image displayed in the object can be changed dynamically using the writer function
(setf image-pinboard-object-image)
(cd (example-file "capi/"))
(setf image
(capi:contain
(make-instance
'capi:image-pinboard-object
:image "applications/images/info.bmp")))
(capi:apply-in-pane-process
(capi:element-parent image)
#'(setf capi:image-pinboard-object-image)
"graphics/Setup.bmp" image)
(capi:apply-in-pane-process
(capi:element-parent image)
#'(setf capi:image-pinboard-object-image)
"applications/images/info.bmp" image)
(capi:contain
(make-instance
'capi:image-pinboard-object
:image "graphics/Setup.bmp"
:title "LispWorks Splashscreen"
:title-adjust :right
:title-position :bottom))
CAPI User Guide and Reference Manual (Windows version) - 3 Aug 2017