Problema de repintado con los TABS

[Loren]

Compañeros:

Tengo un TABS en un Dialogs, pero lo curioso es que cuando entro en el Dialog por primera vez, pinta perfectamente el TABS, pero cuando entro a la segunda o siguientes, el pintado del TABS lo hace incorrectamente:



Utilizo FWH 8.07 y xHarbour.
¿Os pasa lo mismo?

Mil gracias
LORENZO

[Antonio Linares]

Lorenzo,

Ese error posiblemente se produzca porque el brush usado como fondo se ha destruido un número excesivo (incorrecto) de veces.

Puedes mostrarnos el código que usas para crear el diálogo y los tabs ?

[Loren]

Antonio, gracias por contestar.
No utilizo ningún Brush y el código para crear el Dialog y el Tabs es simple:

Code: Select all  Expand view

define dialog Odlg1 resource 'ticket' title 'GESTIÓN DE FACTURAS'
 redefine listbox lisfa fields ...
 ...
 lisfa:bSeek      := {|| lisfa:DbfSeek(.T.) }
 redefine TABS otabs PROMPT "   Ordenar por Números   ","   Ordenar según IAE   ","    Ordenar según CNAE   " OF odlg1 id 500 ACTION (ordencli(),lisfa:refresh(),lisfa:SetFocus())
 oTabs:nOption = 2
activate dialog odlg1 center on init (lisfa:gobottom(),vertimer())
 

A la espera de respuestas, saluda
LORENZO

[Antonio Linares]

Lorenzo,

> No utilizo ningún Brush

La Clase TTabs lo usa

Por favor, prueba FWH\samples\TestTab3.prg y comprueba si puedes reproducir el error, gracias

[Antonio Linares]

Lorenzo,

En algún momento haces oTabs:End() ? (no hay que hacerlo)

[Antonio Linares]

Lorenzo,

Prueba a hacer esto:

oTabs:oBrush:nCount += 5

[Loren]

Antonio:

1.- al probar "oTabs:oBrush:nCount += 5" me genera error la segunda vez que entro en el Dialogs:

Code: Select all  Expand view

  Error description: Error BASE/1004  Class: 'NIL' has no exported method: NCOUNT
   Args:
     [   1] = U

2.- Al probar "FWH\samples\TestTab3.prg" me genera el mismo efecto visual:


3.- En ningún momento hago "oTabs:End()"

A la espera de respuestas y dando gracias por anticipado por tantas molestias, saluda

LORENZO

[Antonio Linares]

Lorenzo,

Esa imagen que has puesto no usa los Tabs estandard de FWH.

Cuales usas ? Quizás ahi este la diferencia