OpenEuphoria

2. Re: listview bug in win32lib

• Posted by Martin Stachon <martin.stachon at worldonline.cz> Oct 17, 2001
• 555 views

>   I'm almost on the home stretch making a Windows program for viewing
> email text files.  Ran into a problem with listview.  It is not fixed
> in the latest version of win32lib. Or previous versions.
>   I gotta git this problem solved in order to finish the program.
> 
> < BEGIN CODE >
> 
> procedure onChange_lsvHeaders()
> sequence s
> 
>   s = getIndex(lsvHeaders)
>   debug(s[1])  -- shows a msg box
> 
>   -- The first time I click on the listview, it works correctly.
>   -- Second time, out of bounds error, s = { }
> 
> end procedure
> onChange[ lsvHeaders ] = routine_id("onChange_lsvHeaders")

if s ={}, this mean no item is selected. Just change it like this :

procedure onChange_lsvHeaders()
sequence s

  s = getIndex(lsvHeaders)
  if length(s) then
    debug(s[1])  -- shows a msg box
  end if

  -- The first time I click on the listview, it works correctly.
  -- Second time, out of bounds error, s = { }

end procedure
onChange[ lsvHeaders ] = routine_id("onChange_lsvHeaders")