Bug con la propiedad lParentFont en TDBBrowse

[Shadax]

Buenos dí­as y antes de nada, Feliz Navidad!!
He encontrado un problema bastante incómodo con la propiedad "lParentFont" aplicada al objeto oRecSel de un TDBBrowse.
El problema radica en que si deseo aplicar una fuente especí­fica para el oRecSel, la establezco sin problema alguno ( ... pongamos una Arial 6pt ) pero claro, al establecer la fuente la propiedad "lParentFont" se establece a .F. como es lógico y es cuando todo se va al aire: Al cargar el formulario revienta la ejecución.
El error:
-- Información detallada del error --
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Message not found
Operación: TBRWRECSEL:OFORM
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TBRWRECSEL:GETFONT (462)
TBRWRECSEL:SETFONT (439)
(b)XBRWRECSEL:XBRWRECSEL (33)
TBRWRECSEL:_LPARENTFONT (0)
TFRMTABLA:CREATEFORM (238)
TFRMTABLA:NEW (196)
TMAINFORMFRM:TREEVIEWDBLCLICK (548)
TTREEVIEW:ONDBLCLICK (0)
(b)XCONTROL:XCONTROL (173)
TTREEVIEW:WMLBUTTONDBLCLK (0)
RUNFORM (0)
TAPPLICATION:RUN (49)
MAIN (18)
Gracias de antemano por la ayuda y por el buen trabajo que hacéis.
Un saludo y feliz fin del mundo 2012.

[ignacio]

Shadax escribió el vie, 30 diciembre 2011 09:36Buenos dí­as y antes de nada, Feliz Navidad!!
He encontrado un problema bastante incómodo con la propiedad "lParentFont" aplicada al objeto oRecSel de un TDBBrowse.
El problema radica en que si deseo aplicar una fuente especí­fica para el oRecSel, la establezco sin problema alguno ( ... pongamos una Arial 6pt ) pero claro, al establecer la fuente la propiedad "lParentFont" se establece a .F. como es lógico y es cuando todo se va al aire: Al cargar el formulario revienta la ejecución.
El error:
-- Información detallada del error --
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Message not found
Operación: TBRWRECSEL:OFORM
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TBRWRECSEL:GETFONT (462)
TBRWRECSEL:SETFONT (439)
(b)XBRWRECSEL:XBRWRECSEL (33)
TBRWRECSEL:_LPARENTFONT (0)
TFRMTABLA:CREATEFORM (238)
TFRMTABLA:NEW (196)
TMAINFORMFRM:TREEVIEWDBLCLICK (548)
TTREEVIEW:ONDBLCLICK (0)
(b)XCONTROL:XCONTROL (173)
TTREEVIEW:WMLBUTTONDBLCLK (0)
RUNFORM (0)
TAPPLICATION:RUN (49)
MAIN (18)
Gracias de antemano por la ayuda y por el buen trabajo que hacéis.
Un saludo y feliz fin del mundo 2012.
Corregido. Muchas gracias. Estará disponible en la próxima actualización. Si desea corregirlo usted mismo incorporé esta lí­nea en el área PUBLIC de la clase XBrewRecSel en el fichero BrwRecSel.prg:
PROPERTY oForm READONLY READ INLINE ::oParent:oForm
Saludos