TListBox:IsMultipleSel() refinement

[Enrico Maria Giordano]

The following sample shows .F. when the button is clicked. But an extended selection listbox is a multi-selection listbox as well.

Code: Select all  Expand view

#include "Fivewin.ch"


#define LBS_EXTENDEDSEL     2048


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oLbx

    LOCAL cVar := ""

    DEFINE DIALOG oDlg

    @ 1, 1 LISTBOX oLbx VAR cVar ITEMS { "Bert", "Carl", "William" }

    oLbx:nStyle += LBS_EXTENDEDSEL

    @ 3, 1 BUTTON "&Test" ACTION MSGINFO( oLbx:IsMultipleSel() )

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

This is a possible fix:

Code: Select all  Expand view

METHOD IsMultipleSel() INLINE lAnd( GetWindowLong( ::hWnd, GWL_STYLE ),;
                                       nOr( LBS_MULTIPLESEL, LBS_EXTENDEDSEL ) )

EMG