Página 1 de 1

tBrowseMod con SupraHeader

Publicado: Jue Oct 06, 2022 12:08 am
por xhermita
Estoy intentado utilizar las SupraHeader en un browser tBrowseMod;

Segun la ayuda he de utilizar :AddSupraCol y tener en cuenta de cumplir la condición indicada en la ayuda.
Es importante llamar a este método antes de que se muestre el Browse
El tema es que no acabo de entender en evento he de utilizar :AddSupraCol, lo he intentado en OnCreate, OnBeforeCreate, OnShow y en alguna más.

En unos casos no hace nada y en otros me da un error en plan
Descripción: No existe el método *** El objeto es NIL o no existe ***
Operación: ADDITEM
Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: C Valor: Test
No se por donde seguir, he buscado entre los samples que tengo de tBrowseMod y en ninguno se utiliza el SupraHeader.

Re: tBrowseMod con SupraHeader

Publicado: Jue Oct 06, 2022 5:24 pm
por ignacio
Buenas,

Hay un error en la inicialización del alto del header que ya está corregido. No obstante, se puede establecer a mano y debería funcionar:

Código: Seleccionar todo

METHOD FormInitialize( oSender ) CLASS TForm1

   WITH OBJECT ::oDbBrowseMod1
      :oSupra:nHeight := 30
      :AddSupraCol( "test", 2 )
      :lSupraHeader := .t.
   END WITH

RETURN Nil
Saludos

Re: tBrowseMod con SupraHeader

Publicado: Jue Oct 06, 2022 8:00 pm
por xhermita
Perfecto, ya tengo SupraHeader.
Imagen

Re: tBrowseMod con SupraHeader

Publicado: Vie Oct 07, 2022 11:10 am
por mcastabaron
Muy Chulo!