FiveTech Software tech support forums

... and I press Escape dialog closes. I expect that only combo closes Any ideas Thanks marco #include "Fivewin.ch" FUNCTION MAIN() LOCAL oDlg LOCAL oCombo LOCAL cVariab := SPACE( 10 ) DEFINE DIALOG oDlg @ 1, 1 COMBOBOX oCombo VAR cVariab ITEMS { "AAAAAA", "BBBBBB", "CCCCCC", "DDDDDD", "EEEEEE" } ...

Hola a todos En una pequeña aplicacion, en su ventana de captura de datos, tengo dos combobox, el primero definido directamente Local oCombo := {"Si","No"} Funciona bien, me toma sus datos, segun esten en la tabla. El segundo combo, es un array que se rellena con los registros de otra tabla, ...

... aItems1:={" ","1","2","3","4","5","6"} IF EMPTY(cNombrelib) .OR. ; ASCAN(aItems,cNombrelib) == 0 cNombrelib:= aItems[1] ENDIF REDEFINE COMBOBOX oCombo VAR cNombrelib ITEMS aItems ID 4001 OF oDlg IF EMPTY(cCapitulo) .OR. ; ASCAN(aItems1,cCapitulo) == 0 cCapitulo:= aItems1[1] ENDIF REDEFINE COMBOBOX ...

... ve, si le saco la clausula transparent si se ve. Estare haciendo algo mal? Saludos y gracias. Ruben Fernandez. Este es el codigo REDEFINE DBCOMBO oCombo VAR cFact ID 110 OF oDlgTodo ; Alias DBFAC ; ItemField "Numfac" ; ListField "Numfac" ; Update

Hola Blessed:

Has probado lo siguiente?

oCombo:Hide()
aquí haces los cambios
oCombo:Show()

Saludos

Manuel Mercado

... es decir si el elemento seleccionado del primer combo cambiara automaticamente el de los siguientes. Estan bajo la clausula REDEFINE COMBOBOX oCombo VAR cModelos ITEMS aModelos ID 170 OF oDTipoV UPDATE Los combobox los vacio con oCombo:SetItems( {} ) y procedo a rellenarlos con oCombo:ADD( ...

Me contesto yo mismo: Ahora solo me falta que al pulsar <INTRO> o un BOTON pueda saltar a una funcion definida por mi. Con esto esta hecho oCombo:bKeyDown:={|nK|iif(nK==VK_RETURN,MiFuncion(),)} Por otro lado, y dentro del get, me gustaria que pulsando flecha arriba/abajo en el get me apareciesen ...

... que abandonas. Aquí tienes un ejemplo que muda de un botón a un combobox que no es el siguiente en el orden de definicion: oBoton[1]:oJump:=oCombo[1], oCombo[1]:SetFocus() Espero te ayude.

... la estructura y ya no se cuelga la aplicación pero ahora no he podido con : 1.- Saltar en el dialogo oDlg el listbox (oLbx), tengo primero el oCombo luego un oGet y al final el listbox que es el que necesito saltar, lo he intentado con : oLbx:oJump:=oCombo oCombo:SETFOCUS() oDlg:aControls[ ...

... que abandonas. Aquí tienes un ejemplo que muda de un botón a un combobox que no es el siguiente en el orden de definicion: oBoton[1]:oJump:=oCombo[1], oCombo[1]:SetFocus() Espero te ayude.

... sencillo? Se que hay un objeto ::oInspector = oIDE:oInspector y la propiedad ::lDesign := .t. y despues FUNCTION ADD(oControl) ::oInspector:oCombo:Add( oControl:cVarName + " as " + ; oControl:ClassName() ) RETURN y para poner las lineas punteadas RectDotted( ::hWnd, ::nBoxTop,; ::nBoxLeft, ...

Julio,

Prueba con:

#define CB_SETDROPPEDWIDTH 0x0160

oCombo:SendMsg( CB_SETDROPPEDWIDTH, nWidth )

Mike,

Por favor, prueba tu código original con sólo este cambio:

redefine combobox oCombo var vCombo items aCombo id 801 of oDlg STYLE CBS_DROPDOWN ON CHANGE (ocheck1:refresh(),ocheck2:refresh()) VALID ( oDlg:AEvalWhen(), .T. )

... en el que cada elemento debe ser un campo de una tabla, pero me da error.... Yo lo estoy usando de la siguiente manera: .... redefine combobox oCombo var cItems ITEMS alltrim(almacenes->nombre) id 200 of odlg30 .... Pero al intentar ejecutarlo me da un error que pone: Argument error AEVAL ...

Marco,

oCombo:oGet:cTooltip = ...