OpenEuphoria

Re: strange win32lib problem

• Posted by Guillermo Bonvehi <gbonvehi at gmail.com> May 30, 2007
• 642 views

Weird, maybe you've some old version, I really don't know, the following code
works fine here:

include Win32Lib.ew

constant Window1 = createEx( Window, "", 0, Default, Default, 190, 220, 0, 0 )
constant FILE={"afile.dat","bFile.dat","cFile.dat"}
constant ListView15 = createEx( ListView, {"ListView15",""}, Window1, 1, 1, 160,
200,
 w32or_all({LVS_REPORT,LVS_SHOWSELALWAYS}), 0 )
atom lvMask 
integer lvOk 
lvMask = w32or_all({LVS_EX_CHECKBOXES})
lvOk = sendMessage(ListView15,LVM_SETEXTENDEDLISTVIEWSTYLE,lvMask,lvMask)

procedure load_controls()

  for x=1 to length(FILE) do
        VOID=addLVItem(ListView15,0,FILE[x])
       
      end for


setCheck({{ListView15,3}},w32True)
end procedure

load_controls()

WinMain( Window1,Normal )

setCheck just calls setLVChecked, so I guess you can still continue without
problems.

Cheers,
    Guillermo Bonvehí