Page 1 of 1

Centered text with large (128x128) list view icons

Posted: Sat Oct 23, 2004 6:41 am
by halo
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.

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

Posted: Sat Oct 23, 2004 6:54 am
by halo
Here we go.

Is it possible to have DIFFERENT sizes of images in a listicongadget?

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,"",0)
i=LoadImage(1,"brick_road.jpg")
imagelist=ImageList_Create_(128,128,#ILC_MASK|#ILC_COLOR32, 0, 30)
SendMessage_(browser,#LVM_SETIMAGELIST,#LVSIL_NORMAL,imagelist)

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