ListIcongadget item click

[BackupUser]

Restored from previous forum. Originally posted by cor.

The following code always return 0 if I click on a ListIconGadget

What am I doing wrong?

Using Version 3.10 with latest updates.

Code: Select all

#mainwin=0
mainwinoptions=#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget

ImageID.l = LoadImage(0,"wordpad.ico")

Procedure SizeCallback(WindowID, Message, wParam, lParam)
  If Message = #WM_SIZE 
    UpdateStatusBar(0)
    ProcedureReturn -1 
  EndIf
EndProcedure



If OpenWindow(mainwin, 100, 100, 400, 400,mainwinoptions , "PureBasic Window")

If CreateStatusBar(0, WindowID()) 
AddStatusBarField(100) 
EndIf
  
If CreateGadgetList(WindowID()) 
  ListIconGadget(0, 10, 10, 300, 200,"Title", 100) 
EndIf

AddGadgetItem(0, 0, "Example", UseImage(0)) 
AddGadgetItem(0, 1, "Example", UseImage(0)) 


SetWindowCallback(@SizeCallback())

  Repeat
    EventID.l = WaitWindowEvent()
    
     If EventID = #PB_EventGadget
      Select EventGadgetID()
            Case 0
              result.l = GetGadgetItemState(0,0)
              StatusBarText(0, 0, Str(result), 0) 
      EndSelect
     EndIf
     
  Until EventID = #PB_EventCloseWindow   
EndIf

End 
  

 
 

Using Windows 98 SE
Registered PB version : 3.1 (Windows)
--------------------------
C. de Visser
Author of Super Guitar Chord Finder
http://www.ready4music.com

[BackupUser]

Restored from previous forum. Originally posted by Paul.

Hi Cor...
You have to do it this way:

result.l = GetGadgetState(0)
text.s=GetGadgetItemText(0,result,0)
StatusBarText(0, 0, Str(result)+":"+text, 0)

This gets the position you clicked on, then retrieves the text from that position in column 0.

[BackupUser]

Restored from previous forum. Originally posted by cor.

Thanks Paul,

It works

Using Windows 98 SE
Registered PB version : 3.1 (Windows)
--------------------------
C. de Visser
Author of Super Guitar Chord Finder
http://www.ready4music.com