FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Ajustar font en edicion con TWBROWSE de Hernan

Post a reply

Ajustar font en edicion con TWBROWSE de Hernan

Postby 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 ?

Image


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
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO
Top

Postby 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
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.
Top

Postby 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
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.
Top

Postby 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
FWH 10.6 + xHarbour + Borland 582
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO
Top

Amigo como haces ese folder?

Postby 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:
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1482
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Top

Postby 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
User avatar
Lautaro
 
Posts: 322
Joined: Fri Oct 07, 2005 2:44 pm
Location: Osorno, Chile
Top

Postby 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
FWH 10.6 + xHarbour + Borland 582
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO
Top

Re: Ajustar font en edicion con TWBROWSE de Hernan

Postby 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 ?

Image


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
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm
Top

Postby Raymundo Islas M. » Thu Jun 07, 2007 11:00 pm

Goos :

Cuando defines tu Browse :
Code: Select all  Expand view
lbCapVta:bKeyDown   := { | nKey | CAPVTSKEY( nKey ) }


En la Funcion CAPVTSKEY(), procesas las teclas presionadas :
Code: Select all  Expand view
IF nKey == VK_RETURN
     EdAllColVta()
ENDIF


Y en la funcion asignada :
Code: Select all  Expand view
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
FWH 10.6 + xHarbour + Borland 582
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO
Top

Postby goosfancito » Thu Jun 07, 2007 11:34 pm

Muchísimas gracias.


Raymundo Islas M. wrote:Goos :

Cuando defines tu Browse :
Code: Select all  Expand view
lbCapVta:bKeyDown   := { | nKey | CAPVTSKEY( nKey ) }


En la Funcion CAPVTSKEY(), procesas las teclas presionadas :
Code: Select all  Expand view
IF nKey == VK_RETURN
     EdAllColVta()
ENDIF


Y en la funcion asignada :
Code: Select all  Expand view
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
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm
Top

Postby 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
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.
Top

Postby 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
jhugono
 
Posts: 24
Joined: Sat Dec 10, 2005 7:42 am
Location: Tepatitlan, Mexico.
Top

Postby 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
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.
Top

Postby 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.
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela
Top

Postby 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
Francisco Horta
 
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.
Top
Next
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 27 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group