FiveTech Software tech support forums

... % 2 == 0, { CLR_BLACK, RGB( 198, 255, 198 ) }, { CLR_BLACK, RGB( 232, 255, 232 ) } ) } END AEval( oBrw:aCols, {|o| o:nHeadStrAlign := AL_CENTER, o:oDataFont := aFont[1]} ) oBrw:CreateFromCode() oWnd:oClient := oBrw BrwBtnBar( oBrw ) WaitOff( @oWait ) ACTIVATE WINDOW oWnd Return //------------------------------------------------------------------------------ ...

You can assign a codeblock to oCol:oDataFont

... campo donde esta el 99 + "/" agregas la barra + campo donde esta el 16 + "-" + campo baldes oCol:nDataStrAlign:= AL_LEFT oCol:oDataFont:= oFont3 oCol:oHeaderFont := oFont4 oCol:oFooterFont := oFont4 oCol:nWidth:= 240 Saludos Ruben Dario Fernandez Unless you are using a very ...

... campo donde esta el 99 + "/" agregas la barra + campo donde esta el 16 + "-" + campo baldes oCol:nDataStrAlign:= AL_LEFT oCol:oDataFont:= oFont3 oCol:oHeaderFont := oFont4 oCol:oFooterFont := oFont4 oCol:nWidth:= 240 Saludos Ruben Dario Fernandez

... := {|| SetOrden(oBrw:aCols[04],"razsoc ASC",oQry )} AEval( oBrw:aCols, { | o | o:nHeadStrAlign := AL_CENTER,o:oDataFont := aFont[1] } ) oBrw:CreateFromCode() oWnVta:oClient := oBrw y para refrescar la consulta uso asi Static Procedure MyRefresh() local oWait ...

... , { n, NUMTOHEX( n ), HB_UTF8CHR( n ) } ) AAdd( aData2 , { n, NUMTOHEX( n ), HB_UTF8CHR( n ) } ) xBrowse knows the font to be used :aCols[ 3 ]:oDataFont := oFont1 :!: How to define that BTNBMP must use "Segoe UI Symbol" with the same HEX like "Segoe MDL2 Assets" --------- ...

Why do you not want to use oDataFont?
That is the correct way.

WITH OBJECT oCol
DataFont := <yourfont>
END

Hola Gente
Se puede definir distintos Font, en distintas columnas de un xBrowse?
oDataFont no es lo que necesito
Necesito algo así:

Code: Select all  Expand view

  WITH OBJECT oBrw:MtoDeuda
      ...= FontEstaColumna
  END

gracias

... := "Dia" oCol:oHeaderFont := oSistema():oFonte4 oCol:nHeadStrAlign := AL_CENTER oCol:bStrData := { || oOcorrencia:dia_ocorrencia } oCol:oDataFont := oSistema():oFonte3 oCol:nDataStrAlign := AL_CENTER oCol:cFooter := "Registros:" oCol:nFootStrAlign := AL_CENTER oCol:= oBrowse:AddCol() ...

http://www.eoeo.it/wp-content/uploads/2016/06/ccc.jpg why I cannot show the Wingdings characters on a xbrowse ? I tried with oBrw:odatafont := oFont I tried also with FOR i := 1 TO LEN(oBrowChars:aCols) oCol := oBrowChars:aCols[ i ] oCol:oDataFont:= CreateFontGrid(aArrayFont[nFontname]) ...

... "CUSTOMER" ;      COLUMNS "First", "City", "Salary" ;      CELL LINES NOBORDER   oBrw:aCols[ 1 ]:oDataFont := oBold   oBrw:CreateFromCode()   oWnd:oClient := oBrw   ACTIVATE WINDOW oWnd CENTERED   RELEASE FONT oFont,oBoldreturn nil  Build ...

En el xbrowse seteo la font de una columna DEFINE FONT oFont NAME 'ARIAL' SIZE 0,10 BOLD la uso como letra de la columna 1 oBrw:aCols[1]:oDataFont := oFont y pasa esto, las celdas se van pintando con la letra a medida que el cursor pasa por encima de ellas, no las muestra al inicio inicio ...

Cristobal,

Thank You very much.
it seems to be OK

as well it doesn' happen using

oCol:oDataFont := oSysfont1
oCol:oHeaderFont := oSysfont1

best regards
Uwe

Por otro lado una pregunta mas Francisco como puedo leer el valor de este oBrw1:aCols[n]:oDataFont := {|| IF( !EMPTY(oBrw1:aCols[2]:Value), IF( !substr(oBrw1:aCols[2]:Value,1,3) = " ", oFont, oWnd:oFont) ,) } ya que al final al llegar a la cuenta 2020-000-000-000 ...

Por otro lado una pregunta mas Francisco como puedo leer el valor de este oBrw1:aCols[n]:oDataFont := {|| IF( !EMPTY(oBrw1:aCols[2]:Value), IF( !substr(oBrw1:aCols[2]:Value,1,3) = " ", oFont, oWnd:oFont) ,) } ya que al final al llegar a la cuenta 2020-000-000-000 ...