Saludos.
Que debo hacer para que mi combobox salga de el al teclear TAB o ENTER
no entiendo porque no lo hace?
Gracias.
REDEFINE COMBOBOX oCombo VAR XESTCIVIL PICTURE "@K!" ;
ITEMS cEstCivil ;
ID 31 OF oFld:aDialogs[ 4 ] ;
UPDATE ;
COLORS CLR_HRED, CLR_HCYAN ;
VALID IF( GetASyncKey( VK_RETURN ) .OR. ;
GetASyncKey( VK_DOWN ), ;
( oCombo:oJump := oCbxSit, ;
xFocus( oCbxSit ), .T. ), .T. )
oCombo:cToolTip := "<Click-Me> Para Selecionar o Estado Civil do Cliente"
REDEFINE COMBOBOX oCbxSit VAR XATIVO PICTURE "@K!" ;
ITEMS cSituacao ;
ID 32 OF oFld:aDialogs[ 4 ] ;
UPDATE ;
COLORS CLR_HRED, CLR_HCYAN ;
VALID IF( GetASyncKey( VK_RETURN ) .OR. ;
GetASyncKey( VK_DOWN ), ;
( oCbxSit:oJump := aGet[070], ;
oFld:SetOption(5), oFld:SetFocus(), ;
oFld:Refresh(), xFocus( aGet[070] ), .T. ), .T. )
oCbxSit:cToolTip := ( "<Click-Me> Para Selecionar" )Este es mi simple codigo que debo cambiar:
// pide periodo
while .t.
bPanAnt:=AbreVent(08,30,12,60,'Selecci¢n de periodo')
@ 1, 2 say 'Periodo de trabajo' of bPanAnt
@ 1,18 COMBOBOX oCbx VAR cPer PICTURE '9999' STYLE CBS_DROPDOWN ITEMS aPer ON CHANGE oCbx:SetText(cPer)
if !ADialogo(NIL,.t.,NIL,NIL,.t.)
loop
endif
if file('POL'+cPer+DBFEXT)
exit
endif
end
Porque while .t. ??
Muestra el codigo completo porfa...
Mira los ejemplos del \samples...
salu2
local aPer:={'0113','0213','0313','0413','0513','0613','0713','0813','0913','1013','1113','1213'}
local cPer:='0913',oCbx
while .t.
bPanAnt:=AbreVent(08,30,12,60,'Selecci¢n de periodo') // crea EL DIALOGO
@ 1, 2 say 'Periodo de trabajo' of bPanAnt
@ 1,18 COMBOBOX oCbx VAR cPer PICTURE '9999' STYLE CBS_DROPDOWN ITEMS aPer ON CHANGE oCbx:SetText(cPer)
if !ADialogo(NIL,.t.,NIL,NIL,.t.) // activa el dialogo y pone botton aceptar
loop
endif
if file('POL'+cPer+DBFEXT)
exit
endif
end
con la version 8.11 de fwn funcionaba.
#include "FiveWin.ch"
function Main()
local oDlg, oCbx,oCbx1
local cText := "TWO"
local cText1 := "TWO"
LOCAL nKey := VK_ESCAPE
DEFINE DIALOG oDlg FROM 10, 10 TO 20, 50 ;
TITLE "DropDown ComboBox Test"
@ 0.5, 1 COMBOBOX oCbx VAR cText STYLE CBS_DROPDOWN ;
ITEMS { "ONE", "TWO", "THREE" } UPDATE
oCbx:bChange:={ || CAMBIA_FOCO( oCbx, oCbx1, nKey ) }
oCbx:bKeyDown:={ | nKey | IIF( nKey = VK_RETURN, CAMBIA_FOCO( oCbx, oCbx1, nKey ), ) }
@ 2, 1 COMBOBOX oCbx1 VAR cText1 STYLE CBS_DROPDOWN ;
ITEMS { "ONE", "TWO", "THREE" } UPDATE ;
ON CHANGE oDlg:SetText( cText1 ) //when .f.
ACTIVATE DIALOG oDlg CENTERED
return nil
STATIC FUNCTION CAMBIA_FOCO( oCbx, oCbx1, nKey )
IF GETASYNCKEY( VK_RETURN )
xFocus( oCbx1 )
ELSE
RETURN( .F. )
ENDIF
RETURN( .T. )
FUNCTION xSetFocus( oObj )
LOCAL _oWnd := oObj:oWnd, _oTempo := ""
DEFINE Timer _oTempo Interval 10 of _oWnd ;
Action ( oObj:SetFocus(), _oTempo:End() )
ACTIVATE Timer _oTempo
RETURN .T.
//-------------------------------------------------------------------------//
FUNCTION xFocus( oObj )
xSetFocus( oObj )
xSetFocus( oObj )
RETURN .T.mi solucion
oGET[x]:oGet:bKeyChar:={|nKey|oGET[x]:GetKeyChar(nKey)}