Page 1 of 1

Bug en TGroup ?

Posted: Wed Feb 24, 2021 10:45 pm
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.

Re: Bug en TGroup ?

Posted: Thu Feb 25, 2021 12:02 pm
by Antonio Linares
Carlos,

Has probado haciendo oGroup:Refresh( .F. ) ?

Re: Bug en TGroup ?

Posted: Sun Feb 28, 2021 5:47 pm
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.