FoxPro/Visual FoxPro - Problema con combobox

   
Vista:

Problema con combobox

Publicado por CARLOS ALBERTO (39 intervenciones) el 09/11/2007 22:01:31
Buenas tardes

Alguien me podria hacer el favor de ayudar con el siguiente problema

Tengo un combobox que al desplegarlo me muestra los clientes, como hago para que no
se pueda escribir sobre este combobox, he intentado con
.combo.readoOnly = .t. pero este no me funciona porque me pone al combo como si estuviera ihnabilitado.

Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema con combobox

Publicado por Plinio (7771 intervenciones) el 09/11/2007 22:30:08
Cambia el valor de la propiedad "Style" en el combo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con combobox

Publicado por Hector R. De los Santos (270 intervenciones) el 09/11/2007 22:30:51
Busca la Propiedad Style de ComboBox, cambiala a: 2 - Lista Deplegable (List)
Con esa propiedad el combo es puesto como Lista de Seleccion, osea que no se prodra editar.
Recueda colocar la propiedad REANDONLY en .F.

Suerte!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con combobox

Publicado por DALSOM (609 intervenciones) el 04/05/2008 17:38:13
GRACIAS, MUY ESPECIFICO.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con combobox

Publicado por Ernesto Hernandez (4632 intervenciones) el 11/11/2007 01:57:12
prueba esto

PUBLIC miForm
miForm = CREATEOBJECT("FormularioPruebas")
miForm.SHOW
RETURN

DEFINE CLASS FormularioPruebas AS FORM
ADD OBJECT ComboNombre AS ComboFiltroCerrado WITH ;
LEFT = 10, TOP = 10, NAME = "ComboNombre", ;
MAXLENGTH = 30, WIDTH = 340
ADD OBJECT ComboNombre2 AS ComboFiltroAbierto WITH ;
LEFT = 10, TOP = 50, NAME = "ComboNombre2", ;
MAXLENGTH = 30, WIDTH = 340

PROCEDURE ComboNombre.INIT
DODEFAULT()
THIS.SetAliasControl('Customer')
THIS.SetCampoFiltro('Customer.Contact_Name')
ENDPROC

PROCEDURE INIT
DODEFAULT()
IF NOT USED ('Customer')
USE (HOME(2) + "Tastrade\Data\Customer.dbf") IN 0 SHARED
ENDIF
THIS.ComboNombre.ROWSOURCE = 'Customer.Contact_Name'
THIS.ComboNombre2.ROWSOURCE = 'Customer.Contact_Name'
ENDPROC
ENDDEFINE

DEFINE CLASS ComboFiltroCerrado AS COMBOBOX
INCREMENTALSEARCH = .F.
ROWSOURCETYPE = 2
SELECTEDITEMFORECOLOR = RGB(255,255,255)
SELECTEDITEMBACKCOLOR = RGB(200,200,180)
SELECTEDFORECOLOR = RGB(240,0,0)&&RGB(50,030,240)
SELECTEDBACKCOLOR = RGB(200,200,180)
STYLE = 0
SORTED = .T.

PROTECTED cadenaIntroducida AS STRING
PROTECTED inicioSeleccion AS INTEGER
PROTECTED finalSeleccion AS INTEGER

PROTECTED aliasControl AS STRING
PROTECTED campoFiltro AS STRING
PROTECTED conFiltro AS Boolean

PROCEDURE INIT
DODEFAULT()
THIS.cadenaIntroducida = ''
THIS.aliasControl = ''
THIS.campoFiltro = ''
THIS.conFiltro = .F.
ENDPROC

PROCEDURE INTERACTIVECHANGE
LOCAL codigoCaracter AS INTEGER
LOCAL tamañoCadena AS INTEGER

codigoCaracter = LASTKEY()
IF codigoCaracter = 127
tamañoCadena = LEN(THIS.cadenaIntroducida)
IF tamañoCadena > 1
THIS.cadenaIntroducida = LEFT(THIS.cadenaIntroducida, ;
LEN(THIS.cadenaIntroducida)-1)
THIS.BuscaRegistros(codigoCaracter)
ELSE
THIS.cadenaIntroducida = ''
THIS.VALUE = ''
THIS.SELSTART = 0
THIS.SELLENGTH = 0
THIS.QuitaFiltroRegistros()
ENDIF
ELSE
IF BETWEEN(codigoCaracter,32,255)
THIS.cadenaIntroducida = THIS.cadenaIntroducida + CHR(codigoCaracter)
THIS.BuscaRegistros(codigoCaracter)
ENDIF
ENDIF
ENDPROC

PROCEDURE BuscaRegistros(_CodigoCaracter AS INTEGER)
THIS.QuitaFiltroRegistros()
FOR i = 1 TO THIS.LISTCOUNT
IF UPPER(LEFT(THIS.LIST[i],LEN(THIS.cadenaIntroducida))) == ;
ALLTRIM(UPPER(THIS.cadenaIntroducida))
THIS.DISPLAYVALUE = THIS.LIST(i)
THIS.SELSTART = ATC(UPPER(THIS.cadenaIntroducida), ;
UPPER(THIS.LIST[i]), 1)-1
THIS.SELLENGTH = LEN(THIS.cadenaIntroducida)
THIS.FiltraRegistros()
RETURN
ENDIF
ENDFOR
FOR i = 1 TO THIS.LISTCOUNT
IF UPPER(THIS.cadenaIntroducida) $ UPPER(THIS.LIST(i))
THIS.DISPLAYVALUE = THIS.LIST(i)
THIS.SELSTART = ATC(UPPER(THIS.cadenaIntroducida), ;
UPPER(THIS.LIST[i]), 1)-1
THIS.SELLENGTH = LEN(THIS.cadenaIntroducida)
THIS.FiltraRegistros()
RETURN
ENDIF
ENDFOR
THIS.cadenaIntroducida= CHR(_CodigoCaracter)
THIS.VALUE = CHR(_CodigoCaracter)
THIS.DISPLAYVALUE = THIS.VALUE
THIS.SELSTART = 0
THIS.SELLENGTH = 1
ENDPROC

PROCEDURE QuitaFiltroRegistros()
LOCAL aliasTabla
IF THIS.conFiltro
aliasTabla =THIS.aliasControl
SET FILTER TO IN &aliasTabla
THIS.REQUERY
ENDIF
ENDPROC

HIDDEN PROCEDURE FiltraRegistros()
LOCAL campo
LOCAL aliasTabla
PUBLIC textoSeleccionadoFiltro AS STRING
IF THIS.conFiltro
campo = THIS.campoFiltro
aliasTabla = THIS.aliasControl
textoSeleccionadoFiltro = THIS.SELTEXT
SET FILTER TO (textoSeleccionadoFiltro $ &campo) IN &aliasTabla
THIS.REQUERY
ENDIF
ENDPROC

PROCEDURE SetAliasControl(_Alias AS STRING)
THIS.aliasControl = _Alias
ENDPROC

PROCEDURE SetCampoFiltro(_Campo AS STRING)
THIS.conFiltro = .T.
THIS.campoFiltro = _Campo
ENDPROC
ENDDEFINE

DEFINE CLASS ComboFiltroAbierto AS COMBOBOX
INCREMENTALSEARCH = .F.
ROWSOURCETYPE = 2
SELECTEDITEMFORECOLOR = RGB(255,255,255)
SELECTEDITEMBACKCOLOR = RGB(200,200,180)
SELECTEDFORECOLOR = RGB(50,030,240)
SELECTEDBACKCOLOR = RGB(200,200,180)
STYLE = 0
SORTED = .T.

PROCEDURE INTERACTIVECHANGE
LOCAL codigoCaracter AS INTEGER
LOCAL valorDisplay AS STRING
LOCAL valorNuevoDisplay AS STRING
LOCAL lnUltimaSeleccion AS INTEGER
LOCAL lnSeleccionados AS INTEGER
codigoCaracter = LASTKEY()
valorNuevoDisplay = ""
lnUltimaSeleccion = 0
lnSeleccionados = 0
IF (codigoCaracter >= 32 AND codigoCaracter <= 126)
valorDisplay = SUBSTR(THIS.DISPLAYVALUE,1,THIS.SELSTART-1)+(CHR(codigoCaracter))
valorNuevoDisplay = THIS.DISPLAYVALUE
FOR i = 1 TO THIS.LISTCOUNT
IF UPPER(valorDisplay) $ UPPER(SUBSTR(THIS.LIST(i),1,LEN(valorDisplay)))
THIS.DISPLAYVALUE = THIS.LIST(i)
THIS.SELSTART = LEN(valorDisplay)
IF LEN(ALLT(THIS.DISPLAYVALUE)) > LEN(valorDisplay)
THIS.SELLENGTH = LEN(ALLT(THIS.DISPLAYVALUE))-LEN(valorDisplay)
ELSE
THIS.SELLENGTH = 0
ENDIF
valorNuevoDisplay = THIS.DISPLAYVALUE
lnUltimaSeleccion = THIS.SELSTART
lnSeleccionados = THIS.SELLENGTH
RETURN
ENDIF
ENDFOR
THIS.DISPLAYVALUE = valorNuevoDisplay
THIS.SELSTART = IIF(lnUltimaSeleccion > 0, lnUltimaSeleccion, LEN(valorDisplay))
THIS.SELLENGTH = lnSeleccionados
ENDIF
ENDPROC
ENDDEFINE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con combobox

Publicado por Plinio (7771 intervenciones) el 11/11/2007 02:04:40
Por que hacerle la vida imposible?. Con Style, ya todo esta resuelto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problema con combobox

Publicado por Ernesto Hernandez (4632 intervenciones) el 11/11/2007 02:19:00
bueno eso si
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar