FiveTech Software tech support forums

Hello Antonio, c:\FWH\samples\keybsim.prg REDEFINE BUTTON oBtn1 ID 101 OF oDlg ACTION (MsgBeep(),; oGet1:SetFocus( oGet1:hWnd ),; oGet1:KeyChar(ASC("1"))) I tried this way but with no success. Do I need 11.9 version of FiveWin? Best regards, Otto

... of Fivewin this does not work any more. Please test keybsim.prg. Thanks in advance and best regards, REDEFINE BUTTON oBtn1 ID 101 OF oDlg ACTION (MsgBeep(),; oGet1:SetFocus(.t.),; oGet1:KeyChar(ASC("1"))) Mag. Otto Atzwanger

... directly on the get of the dialog as it make with osk of windows ( the osk not have a get but run on every get) for each buttons I use ACTION (MsgBeep(), oGetTexto:SetFocus(), oGetTexto:KeyChar(ASC("Q")) ) where oGetTexto is the get of virtual keyboard how I can to make it ?

... instead I want it must insert the key I pressed directly on the get of the dialog as it make with osk of windows for each buttons I use ACTION (MsgBeep(), oGetTexto:SetFocus(), oGetTexto:KeyChar(ASC("Q")) ) where oGetTexto is the get of virtual keyboard how I can to make it ?

... oRad VAR nValue ; ITEMS "&One", "&Two", "T&hree" _3D SIZE 150, 25 ; HELPID 100, 101, 102 ; ON CHANGE MsgBeep() // adding an extra radio item at a different location @ 5, 25 RADIOITEM "Fo&ur" RADIOMENU oRad OF oWnd SIZE 150, 25 I 'm seeing ...

... ;       ITEMS "&One", "&Two", "T&hree" _3D SIZE 150, 25 ;       HELPID 100, 101, 102 ;       ON CHANGE MsgBeep() YOUR POST @ 3, 2 RADIO oRad VAR nValue ; ITEMS "&One", "&Two", "T&hree" _3D SIZE 150, 25 ; HELPID ...

... ;      ITEMS "&One", "&Two", "T&hree" _3D SIZE 150, 25 ;      HELPID 100, 101, 102 ;      ON CHANGE MsgBeep() your code... (one item by time) @ 10, 50    RADIO aGet[1] VAR nRutipo PROMPT "&Utente registrato" PIXEL SIZE ...

... oRad VAR nValue ; ITEMS "&One", "&Two", "T&hree" _3D SIZE 150, 25 ; HELPID 100, 101, 102 ; ON CHANGE MsgBeep() // adding an extra radio item at a different location @ 5, 25 RADIOITEM "Fo&ur" RADIOMENU oRad OF oWnd SIZE 150, 25 ACTIVATE ...

James Bott wrote:oCombo:bChange:=msgbeep()

It should be

Code: Select all  Expand view

oCombo:bChange:={ || msgbeep() }

EMG

Don,

If you do this do you hear a beep?

oCombo:bChange:=msgbeep()
oCombo:SetItems(aMyNewArray)
oCombo:bChange:=nil

James

... PIXEL oSay3:SetColor( nTColor2, ) oSay3:lTransparent := .T. REDEFINE RADIO oRadio3 VAR nRadio3 OF oFld:aDialogs[1] ID 120, 121 ; ON CHANGE MsgBeep() ; COLOR nTColor2 oRadio3:SetFont( oTextFont ) AEval( oRadio3:aItems, { | oRad | oRad:lTransparent := .T. } ) REDEFINE CHECKBOX oCheck3 VAR ...

... cCODant) STATIC FUNCTION CHKBANCO( COD, cCODant) LOCAL nRegAnt := BANCO->(RECNO()) BANCO->( GOTOP( ) ) IF BANCO->(DBSEEK( COD )) MsgBeep() MsgStop("El Código del Banco ya se encuentra Registrado" + CHR(13)+; "Código: "+BANCO->BCO_CODIGO,"Inclusión Inválida ...

... .T.) Y aca la funcion STATIC FUNCTION CHKBANCO( COD,LVAN ) LOCAL nRegAnt := BANCO->(RECNO()) IF BANCO->(DBSEEK( COD )) MsgBeep() MsgStop("El Código del Banco ya se encuentra Registrado" + CHR(13)+; "Código: "+BANCO->BCO_CODIGO,"Inclusión Inválida ...

Hola a todos:

Hay alguna manera de sacarle el sonido (un Msgbeep(),creo) a los rbbuton cuando
se usan las teclas aceleradoras, no sucede con el click del raton, a la clase trbutton ya le saque el MsgBeep que tiene
pero sigue haciendo el sonido con las teclas aceleradoras..

Gracias

... PIXEL ; ITEMS ALLTRIM(cTEXTFONT2), ALLTRIM(cTEXTFONT2), ALLTRIM(cTEXTFONT2) _3D ; SIZE 60, 15 COLOR BT_COLOR ; HELPID 100, 101, 102 ; ON CHANGE MsgBeep() oRadio1:SetFont( oTextFont ) @ 170, 240 CHECKBOX oChk1 VAR lChk1 PIXEL PROMPT ALLTRIM(cTEXTFONT2) ; SIZE 60, 20 OF oDlg1 ; ON CHANGE oChk1:SetText( ...