Xailer & OZ Software

Hola,
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
Pues resulta que lVScroll y lHScroll no tienen ningún efecto sobre el
TBrowse y siempre me aparece solo la Horizontal.
En cambio desde el Prg donde defino el Browse, si que se establecen bien las
dos.
Sólo es por poder personalizar una clase a nuestro antojo.
Otras...
¿Se puede bloquear el que se modifique tamaños de las columnas en tiempo de
ejecución???
¿Se puede bloquear el cambio de orden de columnas??
¿Se puede eliminar el MenuContextual del Header???
Gracias.
Un saludo,
Xevi.

Data lColDividerComplet Init .F.
Esta tampoco tiene ningun efecto cuando lo añado al derivar de xBrowse
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje
news:[email=42a0d823@ozsrvnegro.ozlan.local...]42a0d823@ozsrvnegro.ozlan.local...[/email]
> Hola,
>
> 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
>
> Pues resulta que lVScroll y lHScroll no tienen ningún efecto sobre el
> TBrowse y siempre me aparece solo la Horizontal.
> En cambio desde el Prg donde defino el Browse, si que se establecen bien
> las dos.
> Sólo es por poder personalizar una clase a nuestro antojo.
>
> Otras...
> ¿Se puede bloquear el que se modifique tamaños de las columnas en tiempo
> de ejecución???
> ¿Se puede bloquear el cambio de orden de columnas??
> ¿Se puede eliminar el MenuContextual del Header???
>
> Gracias.
>
> Un saludo,
> Xevi.
>
>
>

Me respondo a mi mismo... creo que antes de preguntar voy a tener que leer
mas... jejeje
¿Se puede bloquear el que se modifique tamaños de las columnas en tiempo de
ejecución???
lAllowColSizing := .F.
¿Se puede bloquear el cambio de orden de columnas??
lAllowColSwapping := .F.
Un saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje
news:[email=42a0d823@ozsrvnegro.ozlan.local...]42a0d823@ozsrvnegro.ozlan.local...[/email]
> Hola,
>
> 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
>
> Pues resulta que lVScroll y lHScroll no tienen ningún efecto sobre el
> TBrowse y siempre me aparece solo la Horizontal.
> En cambio desde el Prg donde defino el Browse, si que se establecen bien
> las dos.
> Sólo es por poder personalizar una clase a nuestro antojo.
>
> Otras...
> ¿Se puede bloquear el que se modifique tamaños de las columnas en tiempo
> de ejecución???
> ¿Se puede bloquear el cambio de orden de columnas??
> ¿Se puede eliminar el MenuContextual del Header???
>
> Gracias.
>
> Un saludo,
> Xevi.
>
>
>

Me olvidaba...
¿Se puede eliminar el MenuContextual del Header???
lAllowColHiding := .F.
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje
news:[email=42a0d823@ozsrvnegro.ozlan.local...]42a0d823@ozsrvnegro.ozlan.local...[/email]
> Hola,
>
> 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
>
> Pues resulta que lVScroll y lHScroll no tienen ningún efecto sobre el
> TBrowse y siempre me aparece solo la Horizontal.
> En cambio desde el Prg donde defino el Browse, si que se establecen bien
> las dos.
> Sólo es por poder personalizar una clase a nuestro antojo.
>
> Otras...
> ¿Se puede bloquear el que se modifique tamaños de las columnas en tiempo
> de ejecución???
> ¿Se puede bloquear el cambio de orden de columnas??
> ¿Se puede eliminar el MenuContextual del Header???
>
> Gracias.
>
> Un saludo,
> Xevi.
>
>
>

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.
> Otras...
> ¿Se puede bloquear el que se modifique tamaños de las columnas en tiempo
> de ejecución???
> ¿Se puede bloquear el cambio de orden de columnas??
> ¿Se puede eliminar el MenuContextual del Header???
Veo que ya te has respondido tú mismo
--
Un saludo,
José F. Giménez