It's showing about 2 inches across and an inch and a half down?
Code: Select all
; Set a background image in a ListIconGadget - RASHAD
CoInitialize_(0)
; Constants
Enumeration
#LVBKIF_SOURCE_NONE
#LVBKIF_SOURCE_HBITMAP
#LVBKIF_SOURCE_URL
#LVBKIF_SOURCE_MASK
EndEnumeration
#LVBKIF_STYLE_TILE = 16
#LVBKIF_FLAG_TILEOFFSET = 256
#LVBKIF_TYPE_WATERMARK = $10000000
#LVBKIF_STYLE_NORMAL = 0
#LVS_EX_DOUBLEBUFFER = $10000
; Structures
Structure LVBKIMAGE
ulFlags.l
hbm.l
pszImage.l
cchImageMax.l
xOffsetPercent.l
yOffsetPercent.l
EndStructure
Global _lvBkImage.LVBKIMAGE ;
Procedure ListViewSetBackgroundImage(iGadget.i, handleImage.i)
With lvbki.LVBKIMAGE
\ulFlags = #LVBKIF_TYPE_WATERMARK
\hbm = handleImage.i
\yOffsetPercent = 10
\xOffsetPercent = 10
EndWith
SendMessage_(iGadget.i, #LVM_SETBKIMAGE, 0, lvbki)
SendMessage_(iGadget.i, #LVM_SETTEXTBKCOLOR, 0, #CLR_NONE)
SendMessage_(iGadget.i, #LVM_SETEXTENDEDLISTVIEWSTYLE, #LVS_EX_DOUBLEBUFFER, #LVS_EX_DOUBLEBUFFER)
EndProcedure