Ajustar font en edicion con TWBROWSE de Hernan

[Raymundo Islas M.]

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

[Francisco Horta]

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

[Francisco Horta]

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

[Raymundo Islas M.]

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

[leandro]

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.

[Lautaro]

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.]

Que tal Leandro, realmente todos son controles "normales" y nativos de FWH, el StarDock es el que se encarga de darle la "manita de gato" a las pantallas.

Hola Lautaro, en efecto, uso una funcion que se llama desde el metodo :
lbCapDcs:bKeyDown := { | nKey | CAPDOCSKEY( nKey ) }
y despues aplico el lEditCol por cada celda :

xVal := IIF( Empty( aDetPay[pDP,nQ] ), 0, ChgStr2Num( aDetPay[pDP,nQ] ) )
IF lbDetPay:lEditCol( nQ, @xVal, aPicArr[nQ], , CLR_YELLOW, CLR_CYAN )
aDetPay[pDP,nQ] := TransForm( xVal, "999,999.99" )
ENDIF


Saludos y Gracias

[goosfancito]

Gente.
No puedo hacer editar bien la wbrowse, Raimundo veo que tenes uno, podrias indicarme como hacer para editar una wbrowse, que tengo con 5 columnas.

Gracias.

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.]

Goos :

Cuando defines tu Browse :

Code: Select all

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

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

Code: Select all

IF nKey == VK_RETURN
     EdAllColVta()
ENDIF

Y en la funcion asignada :

Code: Select all

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

[goosfancito]

Muchísimas gracias.

Goos :

Cuando defines tu Browse :

Code: Select all

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

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

Code: Select all

IF nKey == VK_RETURN
     EdAllColVta()
ENDIF

Y en la funcion asignada :

Code: Select all

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

[Francisco Horta]

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

[jhugono]

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

Hola Paco

En donde publicaste la wbrowse y como acceso, para bajar la wbrowse.

Saludos y Gracias ...
Hugo Navarro

[Francisco Horta]

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

[joseluisysturiz]

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.

[Francisco Horta]

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