Ajustar font en edicion con TWBROWSE de Hernan

Raymundo Islas M. · Post by **Raymundo Islas M.** » Sat Apr 08, 2006 1:19 am

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 · Post by **Francisco Horta** » Sat Apr 08, 2006 11:53 pm

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 · Post by **Francisco Horta** » Sun Apr 09, 2006 12:27 am

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. · Post by **Raymundo Islas M.** » Mon Apr 10, 2006 4:07 pm

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. :cry:

Gracias y Saludos

Post by **leandro** » Mon Apr 10, 2006 7:01 pm

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. :lol:

Lautaro · Post by **Lautaro** » Mon Apr 10, 2006 8:31 pm

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. · Post by **Raymundo Islas M.** » Mon Apr 10, 2006 8:47 pm

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 · Post by **goosfancito** » Thu Jun 07, 2007 10:36 pm

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.

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. · Post by **Raymundo Islas M.** » Thu Jun 07, 2007 11:00 pm

Goos :

Cuando defines tu Browse :

Code: Select all | Expand

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

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

Code: Select all | Expand

IF nKey == VK_RETURN
     EdAllColVta()
ENDIF

Y en la funcion asignada :

Code: Select all | Expand

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 · Post by **goosfancito** » Thu Jun 07, 2007 11:34 pm

Muchísimas gracias.

Raymundo Islas M. wrote:Goos :

Cuando defines tu Browse :

Code: Select all | Expand

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

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

Code: Select all | Expand

IF nKey == VK_RETURN
     EdAllColVta()
ENDIF

Y en la funcion asignada :

Code: Select all | Expand

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 · Post by **Francisco Horta** » Fri Jul 13, 2007 6:34 pm

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 · Post by **jhugono** » Thu Jul 19, 2007 2:39 am

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

Hola Paco

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

Saludos y Gracias ...
Hugo Navarro

Francisco Horta · Post by **Francisco Horta** » Thu Jul 19, 2007 3:34 pm

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 · Post by **joseluisysturiz** » Fri Jul 20, 2007 4:16 am

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 · Post by **Francisco Horta** » Fri Jul 20, 2007 8:54 pm

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

FiveTech Software tech support forums

Ajustar font en edicion con TWBROWSE de Hernan

Ajustar font en edicion con TWBROWSE de Hernan

Amigo como haces ese folder?

Re: Ajustar font en edicion con TWBROWSE de Hernan