Problema inicializacion oFont en TDbRichEdit
Publicado: Mié May 13, 2020 9:28 am
Tenemos este código que funciona perfectamente en los objetos tRichEdit pero que al cambiar algunos de ellos por TdbRichEdit ya no funcionan
En un Objecto TRichEdit ( oDescripcion ) y en su método create leemos con una función ( GetConfiguracion ) una fuente inicial grabada por nombre ( fontnombreart ), creamos una fuente ( oFontNombreArt ) y se la asignamos al control RichEdit.
Esto no funciona en un objeto tDBRichEdit.
METHOD DescripcionCreate( oSender ) CLASS TFrmreferencias
local cFontNomArt:="",oFontNombreArt
//--- Fuente Nombre Articulo ------------------------------------------------
cFontNomArt := GetConfiguracion("fontnombreart") //Leer la funte grabada
if !empty(cFontNomArt)
WITH OBJECT oFontNombreArt := tFont():New() //Crear fuente
:RestoreFromText(cFontNomArt)
END WITH
::oDescripcion:oFont := oFontNombreArt //Asignacion fuente (no funciona)
oFontNombreArt:Destroy()
Endif
Return NIl
En un Objecto TRichEdit ( oDescripcion ) y en su método create leemos con una función ( GetConfiguracion ) una fuente inicial grabada por nombre ( fontnombreart ), creamos una fuente ( oFontNombreArt ) y se la asignamos al control RichEdit.
Esto no funciona en un objeto tDBRichEdit.
METHOD DescripcionCreate( oSender ) CLASS TFrmreferencias
local cFontNomArt:="",oFontNombreArt
//--- Fuente Nombre Articulo ------------------------------------------------
cFontNomArt := GetConfiguracion("fontnombreart") //Leer la funte grabada
if !empty(cFontNomArt)
WITH OBJECT oFontNombreArt := tFont():New() //Crear fuente
:RestoreFromText(cFontNomArt)
END WITH
::oDescripcion:oFont := oFontNombreArt //Asignacion fuente (no funciona)
oFontNombreArt:Destroy()
Endif
Return NIl