FiveTech Support Forums

Raymundo,
le tienes especificado el tipo de font al browse?
pudieras poner algo de codigo para verlo?
yo tengo un browse que tome del ejemplo que tiene el browse y no me cambia el tipo de letra

salu2
paco

raymundo,
si le defino la font lo hago asi:
oLbx:SetFont(oFont)
oLbx:bFont:={|nRow,nCol,nStyleLine| ;
IF(nStyleLine==3,oFont:hFont,0) }
y asi me respeta el tipo de letra en la edicion
salu2
paco

Hola Paco

Gracias por contestar, fijate que cambie como lo indicas y me sigue haciendo lo mismo, anexo un poco de codigo :

Este es el codigo "Original", normalmente asi declaro todos mis Browses :

REDEFINE LISTBOX lbCapDcs ;
FIELDS DtoC( CAPDOCS->CFEC ), ;
Str( CAPDOCS->CAGT, 3 ), ;
CAPDOCS->CFOL, ;
TransForm( CAPDOCS->CIMP, "999,999.99" ), ;
TransForm( CAPDOCS->CDSC1, "99.99" ), ;
TransForm( CAPDOCS->CDSC2, "99.99" ), ;
TransForm( CAPDOCS->CDSC3, "99.99" ), ;
TransForm( CAPDOCS->CDSC4, "99.99" ), ;
TransForm( CAPDOCS->CDSC5, "99.99" ), ;
Str( CAPDOCS->CDYS, 2 ), ;
TransForm( CAPDOCS->CTOTAL, "999,999.99" ) ;
HEAD "FECHA","AGT","FOLIO","IMPORTE","DCT1", ;
"DCT2","DCT3","DCT4","DCT5","DIAS","TOTAL" ;
FIELDSIZES 85,30,90,100,60,60,60,60,60,60,100 ;
ALIAS "CAPDOCS" ;
FONT oFntBrw ;
ID 103 ;
OF oFldOprs:aDialogs[1]

lbCapDcs:nLineStyle  := 2
lbCapDcs:nLineHeight := 18
lbCapDcs:lDrawFocusRect := .F.
lbCapDcs:nClrLine    := CLR_WHITE
lbCapDcs:bKeyDown  := { | nKey | CAPDOCSKEY( nKey ) }
lbCapDcs:AJUSTIFY  := { .F.,.T.,.F.,.T.,.T.,.T.,.T.,.T.,.T.,.T. }
lbCapDcs:nClrPane  := { || IIF( CAPDOCS->(OrdKeyNo() )%2 = 0, CLR_A, CLR_B ) }

Despues, le quite la declaracion del font : FONT oFntBrw y le agregue lo que indicas :
lbCapDcs:SetFont( oFntBrw )
lbCapDcs:bFont := { |nRow,nCol,nStyleLine| IF( nStyleLine == 2,; oFntBrw:hFont, 0 ) }

Pero, desafortunadamente sigue mostrando una font mas pequeña al editar.

Gracias y Saludos

Raymundo como estas que pena meterme en tu conversión, pero seria posible que me indicaras como haces el folder?, me parace genial el diseño.

Hola,

Disculpen por meterme, pero una pregunta para poder ayudar, ¿ Como estas editando el browse, con el bloque bedit y una funcion tuya o con los bloques por defecto de wbrowse ??.

Si estas editando con los bloques por defecto del wbrowse debes ir al metodo leditcol y ahí empezar a picar, ya que si te fijas para la edicion el wbrowse crea un dialogo con un get, al que tendrias que agregarle el font que deseas.

Atte,
Lautaro

Raymundo Islas M. wrote:Hola a todos

Al momento de estar editando una celda en el Browse, el font se muestra mas pequeño que los demas, aparte de lo "feito" que se ve, no se aprecia el dato correctamente al momento de introducirlo, hay alguna manera de corregirlo ?




Estuve viendo el codigo de la clase, pero no le encuentro el lugar exacto para tal correccion.

Alguien que lo haya hecho, le agradeceria mucho la ayuda


Gracias por anticipado

Raymundo Islas M. wrote:Goos :

Cuando defines tu Browse :

Code: Select all Collapse

lbCapVta:bKeyDown   := { | nKey | CAPVTSKEY( nKey ) }

En la Funcion CAPVTSKEY(), procesas las teclas presionadas :

Code: Select all Collapse

IF nKey == VK_RETURN
     EdAllColVta()
ENDIF

Y en la funcion asignada :

Code: Select all Collapse

Static Function EdAllColVta()
LOCAL nQ, xVal, aPicArr := { "9","@!","99,999.99","999.99","99.99","999.99", ;
	"99,999.99", "99,999.99", "@!" }
LOCAL aEleAr := { 4,5,6,7 }, aColAr := {3,4,5,6}
FOR nQ := 1 TO Len( aEleAr )
	xVal := aCapVta[pCV,aEleAr[nQ]]
	IF lbCapVta:lEditCol( aColAr[nQ], @xVal, aPicArr[aEleAr[nQ]], , CLR_YELLOW, CLR_CYAN )
		IF nQ == 2
			// Tus validaciones segun la columna
		ENDIF
	ENDIF
NEXT
lbCapVta:REFRESH()
Return NIL
*-----*

Asi es como lo manejo, espero te sirva.

Saludos

Raymundo y Goosfancito,
ya modifique la wbrowse para que no pase eso de la font en la edicion, por aqui publique la clase y unas imagenes
salu2
paco

Francisco Horta wrote:Raymundo y Goosfancito,
ya modifique la wbrowse para que no pase eso de la font en la edicion, por aqui publique la clase y unas imagenes
salu2
paco

que onda hugoooo!!

aqui te dejo el link y ahi esta de donde descargarlo y una imagen de ejemplo ...

http://fivetechsoft.com/forums/viewtopic.php?t=7517

gusto en volverte a saludar, existen los milagros!!!

salu2
paco

Francisco he tratado de bajar la clase pero el link no me funciona, sera que alguien tendra un ejemplo basico de edicion de columnas con el browse o xbrowse o el que sea, lo necesito para un sistema de facturacion, gracias de antemano.

disculpas a todos,

no la habia subido, aqui esta a su disposicion la wbrowse de HDC con las adaptaciones que hice, yo la uso con harbour, no la he probado con xharbour.

http://www.savefile.com/files/904332

salu2
paco