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.
Bug en TGroup ?
- Antonio Linares
- Site Admin
- Posts: 42597
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Has thanked: 40 times
- Been thanked: 86 times
- Contact:
Re: Bug en TGroup ?
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
Carlos G.
FiveWin 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10