;Autor: ts-soft

EnableExplicit

Define EventID
Define hIcon

LoadImage(1, #PB_Compiler_Home + "Examples\Sources\Data\CdPlayer.ico")

Procedure GetListIconIcon(ID, item)
  Protected LVITEM.LV_ITEM
  Protected index, hIML, hIcon
 
  LVITEM\Mask   = #LVIF_IMAGE
  LVITEM\iItem  = item
 
  SendMessage_(GadgetID(ID), #LVM_GETITEM, 0, @LVITEM)
 
  index         = LVITEM\iImage
  hIML          = SendMessage_(GadgetID(ID), #LVM_GETIMAGELIST, #LVSIL_SMALL, 0)
  hIcon         = ImageList_GetIcon_(hIML, index, #ILD_TRANSPARENT)
 
  ProcedureReturn hIcon
EndProcedure

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ListIconGadget(1,10,30,WindowWidth(0)-20,WindowHeight(0)-40,"Spalte",200,0)
  AddGadgetItem(1,-1,"Eintrag mit Icon",ImageID(1),0)
  hIcon = GetListIconIcon(1, 0)
  ImageGadget(2,10,10,0,0,hIcon,0)
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

DestroyIcon_(hIcon)