xbrowse cambia el font cuando temino de editar

[goosfancito]

hola.

Estoy editando sobre un array en xbrowse, cuando tipeo en la celda me muestra con la fuente y tamaño que deseo,
pero cuando termino de editar me cambia el tipo de fuente y tamaño, me muestra con una fuente estarndar.

Que hago mal?

gracias.

[joseluisysturiz]

Buen dia, colocando algo de codigo, creo seria mas facil tratar de ayudarte, saludos...

[goosfancito]

Code: Select all  Expand view

METHOD pantalla()
   LOCAL oMetro, c_Path, c_Path1, oFontLarge, oFontBig, oFontSmall, oWnd, oBrw

   DEFINE FONT oFontBig NAME "Arial" SIZE 0, - 80 BOLD ITALIC
   DEFINE FONT oFontLarge NAME "Arial" SIZE 0, - 50 BOLD ITALIC
   DEFINE FONT oFontSmall NAME "Arial" SIZE 0, - 20 BOLD

  DEFINE WINDOW oWnd STYLE nOr( WS_MAXIMIZE ) ;
  COLOR CLR_BLACK, CLR_BLUE

   @ 0, 0 XBROWSE oBrw ;
   Array ::aOpciones ;
   SIZE oWnd:nWidth, oWnd:nHeight - 267 PIXEL OF oWnd ;
   CELL FASTEDIT AUTOCOLS

   WITH OBJECT oBrw
      :bClrHeader    := {|| { nRGB(140,  0,  0), nRGB(229,0,0) } }
      :bClrSelFocus = { || { 16777215, 15512898 } }
      :nMarqueeStyle       := 2
      :ltransparent:= .T.

      :lRecordSelector     := .F.

      :lColDividerComplete := .F.
      :nRowDividerStyle    := 4
  //    :nStretchCol         := STRETCHCOL_LAST
      :nColDividerStyle    := 4
      :nHeaderHeight       := 230
      :nRowHeight          := 230
      :lHScroll:=.F.
      :lvscroll:=.F.
   END WITH

   WITH OBJECT oBrw:aCols[1]

      :nWidth := oWnd:nWidth
      :nHeadStrAlign := AL_CENTER
      :cHeader:="Entrada"

      :odatafont     := oWnd:oFont
      :nDataStrAlign:= AL_CENTER

      :cEditPicture:= '99999999'

      :bOnPostEdit = { | oCol, xVal, nKey | ::aOpciones[ oBrw:nArrayAt,1] := xVal, oBrw:refresh(), oBrw:selectcol(1)}

   END WITH

   WITH OBJECT oBrw:aCols[2]
      :nWidth := oWnd:nWidth
      :nHeadStrAlign := AL_CENTER
      :cHeader:="Salida"

      :odatafont     := oFontLarge
      :nDataStrAlign:= AL_CENTER
   END WITH

   AEval( oBrw:aCols, { | oCol | oCol:nEditType   := EDIT_GET } )
   AEval(oBrw:aCols,{|o| o:bRClickHeader := {|| NIL } })

   AEval( oBrw:aCols, { |o| o:oHeaderFont := oFontlarge} )
   AEval( oBrw:aCols, { |o| o:oEditFont := oFontBig} )

   oBrw:CreateFromCode()
//   oWnd:oClient := oBrw
   oWnd:Maximize()

   ACTIVATE WINDOW oWnd MAXIMIZED
//   ON INIT BUILDMETRO( oWnd, oFontLarge, oFontSmall, c_Path1 )

   oFontSmall:END()
   oFontLarge:END()
   RETURN ( NIL )

[joseluisysturiz]

Code: Select all  Expand view

METHOD pantalla()
   LOCAL oMetro, c_Path, c_Path1, oFontLarge, oFontBig, oFontSmall, oWnd, oBrw

   DEFINE FONT oFontBig NAME "Arial" SIZE 0, - 80 BOLD ITALIC
   DEFINE FONT oFontLarge NAME "Arial" SIZE 0, - 50 BOLD ITALIC
   DEFINE FONT oFontSmall NAME "Arial" SIZE 0, - 20 BOLD

  DEFINE WINDOW oWnd STYLE nOr( WS_MAXIMIZE ) ;
  COLOR CLR_BLACK, CLR_BLUE

   @ 0, 0 XBROWSE oBrw ;
   Array ::aOpciones ;
   SIZE oWnd:nWidth, oWnd:nHeight - 267 PIXEL OF oWnd ;
   CELL FASTEDIT AUTOCOLS

   WITH OBJECT oBrw
      :bClrHeader    := {|| { nRGB(140,  0,  0), nRGB(229,0,0) } }
      :bClrSelFocus = { || { 16777215, 15512898 } }
      :nMarqueeStyle       := 2
      :ltransparent:= .T.

      :lRecordSelector     := .F.

      :lColDividerComplete := .F.
      :nRowDividerStyle    := 4
  //    :nStretchCol         := STRETCHCOL_LAST
      :nColDividerStyle    := 4
      :nHeaderHeight       := 230
      :nRowHeight          := 230
      :lHScroll:=.F.
      :lvscroll:=.F.
   END WITH

   WITH OBJECT oBrw:aCols[1]

      :nWidth := oWnd:nWidth
      :nHeadStrAlign := AL_CENTER
      :cHeader:="Entrada"

      :odatafont     := oWnd:oFont
      :nDataStrAlign:= AL_CENTER

      :cEditPicture:= '99999999'

      :bOnPostEdit = { | oCol, xVal, nKey | ::aOpciones[ oBrw:nArrayAt,1] := xVal, oBrw:refresh(), oBrw:selectcol(1)}

   END WITH

   WITH OBJECT oBrw:aCols[2]
      :nWidth := oWnd:nWidth
      :nHeadStrAlign := AL_CENTER
      :cHeader:="Salida"

      :odatafont     := oFontLarge
      :nDataStrAlign:= AL_CENTER
   END WITH

   AEval( oBrw:aCols, { | oCol | oCol:nEditType   := EDIT_GET } )
   AEval(oBrw:aCols,{|o| o:bRClickHeader := {|| NIL } })

   AEval( oBrw:aCols, { |o| o:oHeaderFont := oFontlarge} )
   AEval( oBrw:aCols, { |o| o:oEditFont := oFontBig} )

   oBrw:CreateFromCode()
//   oWnd:oClient := oBrw
   oWnd:Maximize()

   ACTIVATE WINDOW oWnd MAXIMIZED
//   ON INIT BUILDMETRO( oWnd, oFontLarge, oFontSmall, c_Path1 )

   oFontSmall:END()
   oFontLarge:END()
   RETURN ( NIL )

Revisa columna 1,

datafont := oWnd:oFont