xBrowse
Publicado: Mar Jun 06, 2006 4:54 am
Halle este mensaje de hace unas lunas,
Xevi,
> Derivo de la Clase TBrowse, para no tener que añadir todo este código en
> cada Form que hago de la aplicación...
> pues los Browses que voy a utilizar TODOS, o casi todos, van a ser de este
> estilo...
>
> CLASS TBrowse FROM xBrowse
> Data lRecordSelector Init .F.
> Data nColDividerStyle Init blLIGHTGRAY
> Data nRowDividerStyle Init blLIGHTGRAY
> Data nHeaderHeight Init 17
> Data nRowHeight Init 17
> Data nMarqueeStyle Init bmHIGHLROW
> Data nClrSelFocusPane Init clActiveCaption
> Data lVScroll Init .T.
> Data lHScroll Init .F.
> END CLASS
No uses DATA, usa PROPERTY. Son muy parecidos, pero no son iguales.
El asunto es que lo estoy inplantando pero me marca error, donde tengo que poner dicho codigo?
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Scope Violation <HIDDEN>
Operación: HROWPEN
Argumentos:
Pila de llamadas:
TDBBROWSE:_NROWDIVIDERSTYLE (3005)
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/
--
Xevi,
> Derivo de la Clase TBrowse, para no tener que añadir todo este código en
> cada Form que hago de la aplicación...
> pues los Browses que voy a utilizar TODOS, o casi todos, van a ser de este
> estilo...
>
> CLASS TBrowse FROM xBrowse
> Data lRecordSelector Init .F.
> Data nColDividerStyle Init blLIGHTGRAY
> Data nRowDividerStyle Init blLIGHTGRAY
> Data nHeaderHeight Init 17
> Data nRowHeight Init 17
> Data nMarqueeStyle Init bmHIGHLROW
> Data nClrSelFocusPane Init clActiveCaption
> Data lVScroll Init .T.
> Data lHScroll Init .F.
> END CLASS
No uses DATA, usa PROPERTY. Son muy parecidos, pero no son iguales.
El asunto es que lo estoy inplantando pero me marca error, donde tengo que poner dicho codigo?
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Scope Violation <HIDDEN>
Operación: HROWPEN
Argumentos:
Pila de llamadas:
TDBBROWSE:_NROWDIVIDERSTYLE (3005)
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/
--