OpenEuphoria

Re: win32lib: ListView with checkboxes

• Posted by Rad <radhx at rediffmail.com> Jan 19, 2006
• 505 views

Thanks Larry, Jonas.

The following code worked well for ListView.

procedure readonlyLVTV (integer self, integer event, sequence params)--params is
()
	returnValue(w32True)
end procedure

global procedure setLVTV(integer CtlId, integer CtlMode) -- CtlMode = 0:ReadOnly
1:Editable
sequence Lists, className
	Lists = {"SysListView32", "SysTreeView32"}
	className = getClassName(CtlId)
	if find(className, Lists) then
		setEnable(CtlId, w32True)
		if CtlMode then
			removeHandler(CtlId, w32HMouse, routine_id("readonlyLVTV"))
			addStyle(CtlId, WS_TABSTOP)
		else
			setHandler(CtlId, w32HMouse, routine_id("readonlyLVTV"))
			removeStyle(CtlId, WS_TABSTOP)
		end if
	else
		setEnable(CtlId, CtlMode)
	end if
end procedure

But looks like it does not have any effect on a TreeView, as TreeView is
still accessible after setting the handler.

Regards,
Rad.