Avoid sound in xbrowse

Avoid sound in xbrowse

Postby Wanderson » Fri Jul 14, 2017 2: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
Wanderson
 
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm

Re: Avoid sound in xbrowse

Postby ukoenig » Fri Jul 14, 2017 7: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 :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.
User avatar
ukoenig
 
Posts: 4043
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany

Re: Avoid sound in xbrowse

Postby Wanderson » Fri Jul 14, 2017 9: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 :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.
Wanderson
 
Posts: 332
Joined: Thu Nov 17, 2005 9:11 pm

Re: Avoid sound in xbrowse

Postby nageswaragunupudi » Sat Jul 15, 2017 2: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
User avatar
nageswaragunupudi
 
Posts: 10660
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Avoid sound in xbrowse

Postby Horizon » 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.04
Horizon
 
Posts: 1322
Joined: Fri May 23, 2008 1:33 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 56 guests