FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Bug en TGroup ?
Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM
Bug en TGroup ?
Posted: 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 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Bug en TGroup ?
Posted: Thu Feb 25, 2021 12:02 PM

Carlos,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM
Re: Bug en TGroup ?
Posted: Sun Feb 28, 2021 05: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 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Continue the discussion