Bug en TGroup ?

Post Reply
FiveWiDi
Posts: 910
Joined: Mon Oct 10, 2005 2:38 pm

Bug en TGroup ?

Post by FiveWiDi »

Veran, tengo una MDICHILD en la cual defino un TGROUP.

@ 5,5 GROUP oGRDomici TO 247,792 PROMPT GetTrad( "Dades DOMICILIACIÓ" ) OF oDomici10 ;
COLOR CLR_HBLUE,J02CLRWND PIXEL FONT J02FONTSAY //FIVEWIDI

segun la lógica del programa en un lugar concreto realizo:

oGRDomici:SetText( GetTrad( "Domiciliació: " ) + AllTrim(oTDbfDomici:nomDomi) + " - " + AllTrim(oTDbfDomici:TITUCOMP ) )

Veran que estoy cambiando el texto del TGroup.

Pués bien, al ser un texto más largo que el 'original' con el cual se definió el TGroup, no todo el texto se ve de color CLR_HBLUE, sino sólo una parte inicial.

Si la MDICHILD pierde el foco, cuando lo recupera sí que se ve todo el texto de color CLR_HBLUE.

¿Que debería hacer para que después de "oGRDomici:SetText( ..." el texto se pintara 'correctamente?

Si hago un Refresh() parpadea todo el TGroup y no me gusta.

Saludos y gracias.
Un Saludo
Carlos G.

FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: Bug en TGroup ?

Post by Antonio Linares »

Carlos,

Has probado haciendo oGroup:Refresh( .F. ) ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
FiveWiDi
Posts: 910
Joined: Mon Oct 10, 2005 2:38 pm

Re: Bug en TGroup ?

Post by FiveWiDi »

Antonio Linares wrote:Carlos,

Has probado haciendo oGroup:Refresh( .F. ) ?
Gracias Antonio,

No me ha servido pero posiblemente sea por que en el área del TGroup tengo controles que 'cuelgan' de la MDICHILD no del TGroup.

Le estoy dando vueltas.

Jugaré con WndBoxClr( ::hDC, nTop, nLeft, nBottom, nRight, hPen ) y un SAY. Son 4 pantallas. Un poco bruto pero con menos riesgo que empezar a modificar controles.

Gracias de nuevo.
Un Saludo
Carlos G.

FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
Post Reply