TComboBox:bCloseUp doesn't work

[Enrico Maria Giordano]

This is the sample. I hear no beep when the dropdownlist is closed. Am I missing something?

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oCbx, cVar := SPACE( 20 )

    DEFINE DIALOG oDlg

    @ 1, 1 COMBOBOX oCbx VAR cVar;
           ITEMS { "First", "Second", "Third" };
           STYLE CBS_DROPDOWN

    oCbx:bCloseUp = { || Tone( 440, 1 ) }

    @ 3, 1 BUTTON "&Close" ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[Enrico Maria Giordano]

And I can't close the DIALOG using ESC key when the focus is on the combobox.

EMG

[Antonio Linares]

Enrico,

This fix solves the ESC close bug:

Code: Select all  Expand view  RUN

METHOD KeyChar( nKey, nFlags ) CLASS TComboBox

   if nKey == VK_RETURN
      return ::oWnd:GoNextCtrl( ::hWnd )
   endif
   
return Super:KeyChar( nKey, nFlags )


[Enrico Maria Giordano]

Thank you. And what about the bCloseUp problem?

EMG

[Antonio Linares]

Enrico,

These changes are required for the CloseUp event fix:

In dialog.prg:

Code: Select all  Expand view  RUN

#define CBN_CLOSEUP        8
...
METHOD Command( nWParam, nLParam ) CLASS TDialog
   ...
              case nNotifyCode == CBN_SELCHANGE
                   SendMessage( hWndCtl, FM_CHANGE, 0, 0 )

              case nNotifyCode == CBN_CLOSEUP // New!
                   SendMessage( hWndCtl, FM_CLOSEUP, 0, 0 )


In combobox.prg:

Code: Select all  Expand view  RUN

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TComboBox

   if nMsg == FM_CLOSEUP
      return ::CloseUp()
   endif
   
return Super:HandleEvent( nMsg, nWParam, nLParam )     


In your sample change this:

Code: Select all  Expand view  RUN

    oCbx:bCloseUp = { || MsgInfo( "CloseUp Event" ) }


[Enrico Maria Giordano]

Thank you!

EMG