Muy buenas foro, ¿alguien me podria decir si podemos en nuestro XBrowse poner en la misma columna pero en diferentes filas, unas con Checkbox, otras con Button, etc...?
Un saludo y mil gracias.
Board index FiveWin para Harbour/xHarbour XBrowse con Controles diferentes en la misma Columna
Colega
oCol:nEditType :=1
oCol:nEditType := EDIT_GET
define EDIT_NONE 0
define EDIT_GET 1
define EDIT_LISTBOX 2
define EDIT_BUTTON 3
define EDIT_GET_LISTBOX 4
define EDIT_GET_BUTTON 5
Para cambiar el control segun (Condicion) debes cambiar el tipo en la columna,
define EDIT_NONE 0
define EDIT_GET 1
define EDIT_LISTBOX 2
define EDIT_BUTTON 3
define EDIT_GET_LISTBOX 4
define EDIT_GET_BUTTON 5
FUNCTION CAMBIAREDITOR()
LOCAL oCol:=oBrw:aCols[MICOLUMNA]
IF lCondicion1
oCol:nEditType:=EDIT_GET
ENDIF
IF lCondicion2
oCol:nEditType:=EDIT_BUTTON
ENDIF
Recuerda los bloques de codigo para :
oCol:bOnPostEdit :={|oCol,uValue|FUNCION(oCol,uValue)}
softruz wrote:Muy buenas foro, ¿alguien me podria decir si podemos en nuestro XBrowse poner en la misma columna pero en diferentes filas, unas con Checkbox, otras con Button, etc...?
Un saludo y mil gracias.
Saludos, pareciera un poco complicado lo que quieres, ya que creo cuando se evalua una condicion para los objetos se toma en cuenta la COL y no las filas, lo que pides es un arroz con mangoo como decimos aca en Venezuela, porque seria algo como FILA 1, COL 2, un CHECK, FILA 3, COL 2, un GET, etc, etc, segun la condicion de alguna VAR o del valor de otra CELDA en otra COL, habria que ver que intentas hacer, pero bueno, nose si lo vistes en algun sistema o es solo algo que se te vino a la mente, considero que en el xbrowse la ultima palabra la tiene Daniel, saludos...
Dios no está muerto...
Gracias a mi Dios ante todo!
Gracias a mi Dios ante todo!
Jose Luis
Soy Juan Navas de AdaptaPro, necesito contactarte, mi correo es jnavas@datapronet.com y mi tel 0414-3000518 - 0414-2931707
softruz
Utiliza el bloque de codigo bChange
oBrw:={|| SETCONTROL()}
FUNCTION SETCONTROL()
LOCAL oCol:=oBrw:aCols[MICOLUMNA]
IF lCondicion1
oCol:nEditType:=EDIT_GET
ENDIF
IF lCondicion2
oCol:nEditType:=EDIT_BUTTON
ENDIF
oCol:Edit()
RETURN
Utiliza el bloque de codigo bChange
oBrw:={|| SETCONTROL()}
FUNCTION SETCONTROL()
LOCAL oCol:=oBrw:aCols[MICOLUMNA]
IF lCondicion1
oCol:nEditType:=EDIT_GET
ENDIF
IF lCondicion2
oCol:nEditType:=EDIT_BUTTON
ENDIF
oCol:Edit()
RETURN
jnavas wrote:Para cambiar el control segun (Condicion) debes cambiar el tipo en la columna,
#define EDIT_NONE 0
#define EDIT_GET 1
#define EDIT_LISTBOX 2
#define EDIT_BUTTON 3
#define EDIT_GET_LISTBOX 4
#define EDIT_GET_BUTTON 5
FUNCTION CAMBIAREDITOR()
LOCAL oCol:=oBrw:aCols[MICOLUMNA]
IF lCondicion1
oCol:nEditType:=EDIT_GET
ENDIF
IF lCondicion2
oCol:nEditType:=EDIT_BUTTON
ENDIF
Recuerda los bloques de codigo para :
oCol:bOnPostEdit :={|oCol,uValue|FUNCION(oCol,uValue)}