OpenEuphoria

Re: Win32LibEx bugs

• Posted by Matthew Lewis <MatthewL at KAPCOUSA.COM> Aug 29, 2000
• 467 views

©koda wrote:

>RaBars addToBand(control,band):
>Band should be able to hold more controls, like 3 comboboxes, but it can
only have one. Is that >originally that way? Maybe it is.

Rebarbands can only have one child window.  This is a windows thing, not
win32lib.  You can get around this by putting a toolbar in as the child, and
adding children to the toolbar.  You can then put as many combo's as you
want into the toolbar.

>ComboBoxEx:
>eraseItems(id) has bug:
>change this:
>elsif find(window_type[id], {ListView, TreeView})  then

>to this:
>elsif find(window_type[id], {ListView, TreeView,ComboBoxEx})  then

Actually, I don't think this will work properly.  Here's how it should look:

global procedure eraseItems( atom id )

    -- clear a list

    integer msg

    -- get the message, based on control type
    if      window_class[ id ] = LISTBOX then msg = LB_RESETCONTENT
    elsif   window_class[ id ] = COMBO
    or window_type[id] = ComboBoxEx  then msg = CB_RESETCONTENT
    -- Begin Matt Lewis
    elsif find(window_type[id], {ListView, TreeView})  then
        ok = deleteItem( id, -1 )
        return
    -- End Matt Lewis
    end if

    ok = sendMessage( id, msg, 0, 0 )


end procedure

I stuck treeview and listview together, since the command to delete all of
their items is the same (deleteItem(id, -1)), but a comboboxex is really a
souped up combo, and mostly works the same.

Matt