FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour bGotFocus three beeps
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
bGotFocus three beeps
Posted: Thu Nov 24, 2011 10:57 AM
If I enter in the combo using mouse I hear the sound once.
If I enter using keyboard (TAB) I hear three times instead
Do you know why?

King regards

marco


Code (fw): Select all Collapse
#include "fivewin.ch"

#DEFINE EM_SETSEL   177
#DEFINE VK_CTRL_Z    26

REQUEST HB_GT_GUI_DEFAULT


FUNCTION main()

   LOCAL oDlg
   LOCAl oGet1  , cGet1  := PADR( "Marco Boschi"                , 100 )
   LOCAL oCombo , cCombo := "BERSANI MARCO          "

   LOCAL aItem := { "Antonio"             , ;
                    "Enrico"              , ;
                    "Marco"               , ;
                    "James"  }

   DEFINE DIALOG oDlg FROM 1 , 1 TO 20 , 100

   @ 1,1 GET oGet1 VAR cGet1 of oDlg update
   oGet1:bGotFocus  := { || tone( 800,4)  }

   @ 4 , 1 COMBOBOX oCombo VAR cCombo OF oDlg  ITEMS aItem  STYLE CBS_DROPDOWN    SIZE 300 , 300
   oCombo:oGet:bGotFocus  := { || tone(1000,4)  }
//    oCombo:bGotFocus  := { || tone(1000,4)  }


   ACTIVATE DIALOG oDlg CENTER

return nil
Marco Boschi
info@marcoboschi.it
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: bGotFocus three beeps
Posted: Thu Nov 24, 2011 12:49 PM
Marco,

Please test this EXE built with FWH 11.11:

http://code.google.com/p/fivewin-contributions/downloads/detail?name=marco.zop&can=2&q=

Here it sounds just once each one :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
Re: bGotFocus three beeps
Posted: Sun Nov 27, 2011 09:01 AM

Antonio,
It's time to upgrade
Many thanks
marco

Marco Boschi
info@marcoboschi.it

Continue the discussion