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.
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Derivando de TBrowse
Derivando de TBrowse
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.
>
>
>
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.
>
>
>
Derivando de TBrowse
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.
>
>
>
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.
>
>
>
Derivando de TBrowse
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.
>
>
>
¿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.
>
>
>
Derivando de TBrowse
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
> 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