Avoid sound in xbrowse

Post Reply
Wanderson
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm

Avoid sound in xbrowse

Post by Wanderson »

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
User avatar
ukoenig
Posts: 3981
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany
Contact:

Re: Avoid sound in xbrowse

Post by ukoenig »

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 :D
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.
Wanderson
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm

Re: Avoid sound in xbrowse

Post by Wanderson »

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 :D
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.
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: Avoid sound in xbrowse

Post by nageswaragunupudi »

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
Horizon
Posts: 997
Joined: Fri May 23, 2008 1:33 pm

Re: Avoid sound in xbrowse

Post by Horizon »

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 & VS 2019 & FWH 20.12
Post Reply