Memory Issue... List Gadgets <_<

[Sparkie]

Here's a quick and dirty virtual ListIconGadget...

Code: Select all

;... Use 1000000 items 
#ItemCount = 1000000 

#LVSICF_NOINVALIDATEALL = 1 
#LVN_ODCACHEHINT = #LVN_FIRST - 13


;... Array to hold data 
Global Dim myItems.s(#ItemCount,1) 

Procedure WinCallback(hwnd, msg, wParam, lParam) 
  result = #PB_ProcessPureBasicEvents 
  Select msg 
    Case #WM_NOTIFY 
      *pnmh.NMHDR = lParam 
      Select *pnmh\code 
        Case #LVN_ODCACHEHINT 
          result = 0  
        Case #LVN_GETDISPINFO 
          *pnmlvdi.NMLVDISPINFO = lParam 
          If *pnmlvdi\item\mask & #LVIF_TEXT 
            ;... Item text is being requested 
            *pnmlvdi\item\pszText = @myItems(*pnmlvdi\item\iItem,*pnmlvdi\item\iSubItem) 
          EndIf 
          
      EndSelect 
  EndSelect 
  ProcedureReturn result 
EndProcedure 

If OpenWindow(0, 0, 0, 640, 300, "ListIconGadgets", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0)) 
  SetWindowCallback(@WinCallback()) 
  ; left column 
  list=ListIconGadget(#PB_Any,10,10,620,280,"ID",50,#LVS_OWNERDATA) 
  ;... Set desired number of ListIconGdaget items 
  SendMessage_(GadgetID(list), #LVM_SETITEMCOUNT, #ItemCount, #LVSICF_NOINVALIDATEALL) 
  AddGadgetColumn(list,2,"Name",100) 
  For i=0 To #ItemCount
    myItems(i,0) = Str(i)
    myItems(i,1) = "Name"+Str(i)
  Next i 
  ; Here we change the ListIcon display to large icons and show an image 
  
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow 
EndIf 

[srod]

I don't understand why you need the SetGadgetItemText()s Sparks?

Surely the whole point of a virtual control is that the callback supplies the text?

[Sparkie]

You're absolutely correct srod. That was the dirty of quick and dirty.

I've edited the original code and I thank you sir for your keen eye.

[srod]

You're absolutely correct srod. That was the dirty of quick and dirty.

I've edited the original code and I thank you sir for your keen eye.

Aye, I am forever on the lookout for quick and dirty....... uhm, not sure that sounds right somehow?

[Sparkie]

Sounds about right for you my friend.

[srod]

Sounds about right for you my friend.

I agree!

[blueznl]

Aye, I am forever on the lookout for quick and dirty....... uhm, not sure that sounds right somehow?

Well, I dunno... sounds kinda' right to me

[pdwyer]

Thanks sparkie, I've been wondering about a virtual listview in PB. This reminded me and demo'd it all at once

An interesting article about virtual listview controls
http://blogs.msdn.com/cumgranosalis/arc ... Usage.aspx

[rsts]

Very interesting. I had also seen your other post on virtual lists (Sparkie) and am considering using them in an app I have which needs to refresh a list of potententially many thousand items, which can be a little sluggish.

What are the downsides to virtual lists?

cheers