ListIconGadget Get and Set GadgetitemData[done]

idle · **Posted:** Wed Feb 29, 2012 2:01 am

The ListIconGadget Get & Set GadgetitemData routines
don't appear to be working 4.61b ubuntu 11.10

Code:

list=1
Procedure addimg(pos)
  Protected timg
    
  timg= CreateImage(#PB_Any,64,64)
  StartDrawing(ImageOutput(timg))
    r =Random(127)+127
    g=Random(127)+127
    b=Random(127)+127
    Box(0,0,64,64,RGB(R,g,b))
  StopDrawing()
  
  AddGadgetItem(#list,pos,Str(pos),ImageID(timg))
  SetGadgetItemData(#list,pos,pos)
  ;Debug GetGadgetItemData(#list,pos)
    
  ProcedureReturn img 
EndProcedure 

OpenWindow(0,0,0,200,500,"")
ListIconGadget(1,5,5,190,490,"",190)
For a = 1 To 10 
  addimg(a)
Next 

Repeat 
  EV = WaitWindowEvent()
  Select EV 
    Case #PB_Event_Gadget 
      Select EventGadget()
        Case #list
          Select EventType()
            Case #PB_EventType_Change 
                item = GetGadgetState(#list)
                Debug GetGadgetItemData(#list,item)
            EndSelect     
        EndSelect
   EndSelect
Until EV = #PB_Event_CloseWindow 

IdeasVacuum · **Posted:** Wed Feb 29, 2012 7:58 am

The test snippet does not work on WinXP 32 either, data is returned as zero.

ts-soft · **Posted:** Wed Feb 29, 2012 8:19 am

First item is 0 and not 1 :wink:

Code:

OpenWindow(0,0,0,200,500,"")
ListIconGadget(1,5,5,190,490,"",190)
For a = 0 To 9
  addimg(a)
Next

idle · **Posted:** Wed Feb 29, 2012 7:30 pm

ts-soft wrote:

First item is 0 and not 1 :wink:

Code:

OpenWindow(0,0,0,200,500,"")
ListIconGadget(1,5,5,190,490,"",190)
For a = 0 To 9
  addimg(a)
Next

PureBasic Forum

ListIconGadget Get and Set GadgetitemData[done]

Who is online