Saber si uso XBrowse o un browse antiguo

[Andrés González]

Existe alguna forma de identificar el browse que estoy utilizando. Todos mis browses los configuro desde ficheros externos. Tengo programas con browses antiguos (TCBROWSE) y otros con XBROWSE (TXBROWSE). Con tcbrowse no puedo incrementar el alto de las filas (RowHeight) y con xBrowse sí. Mi intención para evitar que el error se produzca con los programas antiguos y me gustaria poner una condición dependiendo del browse para poder incrementar la altura de las filas. Si pongo directamente la opción en el fichero de configuración (oBrw:nRowHeight := 60), me la ejecuta perfectamente con xBrwose y en aquellas bases de datos donde la incluyo me aumenta la altura, pero si lo hago desde los antiguos TCBROWSE no funciona, me da un error. Mi intención es que solo se ejecute ante el xBrowse, por eso si existe alguna forma de identificarlo.


Gracias.


FW12.01 y BCC582.

[Andrés González]

#ifndef __XBROWSE_CH

Mi intención es poner una sentencia de una sola linea tipo: iif( __XBROWSE_CH, ( oBrw:nRowHeight := 60 ) , nil)


pero no me funciona alguien sabe como se define la varaible internamente, de qué tipo es. O cómo hay que hacerlo desde fivewin para saber si esta definida esa variable. No existe un IfDef()?

[rolando]

Andrés,

Entiendo que lo que consultas quizás no tenga que ver pero te comento mi experiencia.

Venía usando la clase de Hernán Ceccarelli (TWBrowse) y conjuntamente varios xBrowses. Para evitar conflictos decidí pasar TODO a xBrowse.

Para identificar todos los TWBrowse de Hernán y así pasarlos a xBrowse, lo que hice fue buscar dentro de los archivos la cadena "oLbx" que siempre utilicé para definir el objeto en la clase de Hernán y luego sólo fue cuestión de realizar _ y ahora tengo todo (más de 80) pasados a xBrowses.

Saludos.

Rolando

[TecniSoftware]

Lo que quieres saber es que tipo de browse estas usando o que version?

Si necesitas saber que clase estas usando en determinado browse:

DO CASE

CASE oBrw:ClassName() == "TXBROWSE"
....

CASE oBrw:ClassName() == "TWBROWSE"
...

etc.

Saludos

[lucasdebeltran]

Hola,

Puedes probar, por ejemplo if ::oWnd:IsKindOf( "TDIALOG" )[...]

[xmanuel]

Code: Select all

if upper( oBrw:ClassName() ) == "TXBROWSE"
      oBrw:nRowHeight := 60
endif
 

[Andrés González]

Sí funciona gracias, solucionado.