Centered text with large (128x128) list view icons
Posted: Sat Oct 23, 2004 6:41 am
I got 128x128 listview icons working, but I would like the text to be centered at the bottom of the image.
I also want to remove the top bar in the gadget.
Please help.
I also want to remove the top bar in the gadget.
Please help.
Code: Select all
UseJPEGImageDecoder()
#ListIconGadget1=1
OpenWindow(0,0,0,400,300,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"")
CreateGadgetList(WindowID())
browser=ListIconGadget(1,0,0,400,300,"",396)
i=LoadImage(1,"brick_road.jpg")
imagelist=ImageList_Create_(128,128,#ILC_MASK|#ILC_COLOR32, 0, 30)
SendMessage_(browser,#LVM_SETIMAGELIST,#LVSIL_SMALL,imagelist)
IndexImage=ImageList_Add_(imagelist,i,0)
AddGadgetItem(1,0,"Item klfslkdjflskdjdflskdjfsdlksjflk",IndexImage)
IndexImage=ImageList_Add_(imagelist,i,0)
AddGadgetItem(1,0,"Item",IndexImage)
IndexImage=ImageList_Add_(imagelist,i,0)
AddGadgetItem(1,0,"Item",IndexImage)
IndexImage=ImageList_Add_(imagelist,i,0)
AddGadgetItem(1,0,"Item",IndexImage)
;ChangeListIconGadgetDisplay(1,0)
FreeImage(1)
Repeat
Select WaitWindowEvent()
Case #PB_EventCloseWindow
ImageList_Destroy_(imagelist)
End
EndSelect
forever