Bug en TGroup ?

Bug en TGroup ?

Postby FiveWiDi » Wed Feb 24, 2021 10:45 pm

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 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
FiveWiDi
 
Posts: 1190
Joined: Mon Oct 10, 2005 2:38 pm

Re: Bug en TGroup ?

Postby Antonio Linares » Thu Feb 25, 2021 12:02 pm

Carlos,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42127
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Bug en TGroup ?

Postby FiveWiDi » Sun Feb 28, 2021 5:47 pm

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 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
FiveWiDi
 
Posts: 1190
Joined: Mon Oct 10, 2005 2:38 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 58 guests