OpenEuphoria

Re: COMING REAL SOON !

• Posted by euman at bellsouth.net Jul 21, 2001
• 353 views

Someone asked will ListView loading be faster than Win32libs
Certainly, approximately 50 to 80% faster!!!

look at the code!


cString = allocate(256)
mem_set(cString, 0, 256)

poke4(lvitem + lvitem_mask, LVIF_TEXT )

poke4(lvitem + lvitem_pszText, cString)

data_len = length(data)

for ix = data_len to 1 by -1 do
    poke4( lvitem + lvitem_iItem, item)
    item += 1
    subitem = 0

    for xi = 1 to length(data[ix]) do
        subdata = data[ix][xi]
        sub_len = length(subdata)
        poke4(lvitem + lvitem_iSubItem, subitem)
        poke (cString, subdata)
        poke (cString + sub_len , 0)
        poke4(lvitem + lvitem_cchTextMax, sub_len )
        subitem += 1
        if subitem = 1 then
           junk = c_func(SendMessage,{id, LVM_INSERTITEM, 0, lvitem })
        else
           junk = c_func(SendMessage,{id, LVM_SETITEM, item-1, lvitem })
        end if
   end for

end for

free(cString)

junk =
c_func(SendMessage,{id,WM_SETFONT,c_func(GetStockObject,{DEFAULT_GUI_FONT}),0})

junk = c_func(SendMessage,{id,WM_SETREDRAW,1,0})

end procedure


I really have to thank Derek Parnell for giving me the idea though I did find
how to do this in MASM32 or was that Icezlion's tutes hummm oh well,
either way, its bunches faster.


Question is, is anyone interested in my project>?

Euman
euman at bellsouth.net