FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Avoid sound in xbrowse
Posts: 332
Joined: Thu Nov 17, 2005 09:11 PM
Avoid sound in xbrowse
Posted: Fri Jul 14, 2017 02:29 PM

Hi everybody!

How I can avoid a sound if a press space bar in xbrowse, I use space to check and uncheck the first col.

Thanks in advance

Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: Avoid sound in xbrowse
Posted: Fri Jul 14, 2017 07:28 PM
You can try with any key :

oBrw:bKeyDown := { | nKey | ( nRPos := RECNO(), ; // record-pos if needed
nCPos := oBrw1:SelectedCol():nCreationOrder, ; // selected col
IIF( nCPos = 1 .and. nKey == 13, ; // Sound on EDIT only on column 1
SndPlaySound( c_Path1 + "Alert.wav", 0 ), NIL ) ) }


regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 332
Joined: Thu Nov 17, 2005 09:11 PM
Re: Avoid sound in xbrowse
Posted: Fri Jul 14, 2017 09:23 PM
ukoenig wrote:You can try with any key :

oBrw:bKeyDown := { | nKey | ( nRPos := RECNO(), ; // record-pos if needed
nCPos := oBrw1:SelectedCol():nCreationOrder, ; // selected col
IIF( nCPos = 1 .and. nKey == 13, ; // Sound on EDIT only on column 1
SndPlaySound( c_Path1 + "Alert.wav", 0 ), NIL ) ) }


regards
Uwe :-)


Thank you but I dont want to play a sound if a check or unckeck the first col. In normal way if i press space to check i receive a windows beep like I'm done something wrong.
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Avoid sound in xbrowse
Posted: Sat Jul 15, 2017 02:03 PM

On my system, I can not hear MsgBeep(). So I am unable to check where the sound is coming from.

In any case if you SET BELL OFF initially, I guess you may not hear any MsgBeep()s. Can you please try that?

Regards



G. N. Rao.

Hyderabad, India
Posts: 1387
Joined: Fri May 23, 2008 01:33 PM
Re: Avoid sound in xbrowse
Posted: Wed Oct 23, 2019 12:32 PM

Hi,

My request is avoid beep sound in Msgxxxx functions.

I have tried SET BELL OFF. But no success.

Any comment?

Thanks.

Regards,



Hakan ONEMLI



Harbour & MSVC 2022 & FWH 23.06

Continue the discussion