Por que desaparecen los controles como los gets y botones cuando coloreo el fondo del grupo en ejecucion
Adjunto pantallas
Antes de pintar
Despues de ordenar el pintado de color amarillo ... como se puede apreciar hay controles que desaperecen
Codigo fuente
- Code: Select all Expand view
DEFINE DIALOG oDlgDet RESOURCE "DLG_CABGuia" TITLE "Nota de Pedido" FONT oFontS
REDEFINE GROUP oGrupo ID 4001 OF oDlgDet TRANSPARENT
REDEFINE GET oGet VAR oDbf:Fecha ID 100 OF oDlgDet
REDEFINE GET oGet VAR nNumero ID 104 OF oDlgDet UPDATE
oGet:Disable()
REDEFINE GET oGet VAR oDbf:Ruc ID 109 OF oDlgDet UPDATE;
VALID valCodCli(oDlgDet, oDbf) COLOR CLR_BLACK,CLR_HCYAN
REDEFINE BUTTON oBtn ID 300 OF oDlgDet ;
ACTION ( aDatos := BrwProveedores("C", 2, .F.) ;
,oDbf:Ruc := IIF(aDatos[1]==nil, space(11), Left(aDatos[1],11));
,oDbf:CodUbi:= Right(aDatos[1],3) ;
,cNomCli:= aDatos[2] ;
,cDirecc:= aDatos[3] ;
,iif(mcodi->de="*",colorear(oGrupo, oDlgDet), descolorear(oGrupo,nC1,nC2) ) ; //condicion para llamar a la funcion colorear
,oDlgDet:UPDATE() ;
,oGet4:SetFocus() )
REDEFINE SAY oSay PROMPT cNomCli ID 110 OF oDlgDet UPDATE TRANSPARENT
REDEFINE SAY oSay PROMPT cDirecc ID 102 OF oDlgDet UPDATE
REDEFINE GET oGet4 VAR oDbf:CodVen ID 122 OF oDlgDet UPDATE ;
VALID valCodVen(oDlgDet, oDbf)
REDEFINE BUTTON oBtn ID 303 OF oDlgDet ;
ACTION ( aDatos := BrwPersona("V", 2, .F.) ;
,oDbf:CodVen:= IIF(aDatos[1]==nil, space(3), aDatos[1]);
,cVende := aDatos[2] ;
,oDlgDet:UPDATE() ;
,oGet5:SetFocus() )
REDEFINE SAY oSay PROMPT cVende ID 118 OF oDlgDet UPDATE
oGet:Disable()
REDEFINE GET oGet5 VAR cMnda ID 111 PICTURE '!' OF oDlgDet UPDATE ;
VALID (cMnda=='S' .OR. cMnda=='D')
IIF( lModo, oGet5:Enable(), oGet5:Disable() )
REDEFINE GET oGet2 VAR nCambio ID 101 OF oDlgDet UPDATE PICTURE '9.999' ;
valid Valcambio(cmnda, ncambio, lmodo)
ACTIVATE DIALOG oDlgDet CENTERED
Static function colorear(oGroup, oDlg)
bBLQ:={||aColor:={oGroup:nClrPane,oGroup:nClrText},;
aSize :={oGroup:nWidth ,oGroup:nHeight },;
oGroup:nWidth:=0,oGroup:nHeight:=0,;
oGroup:Refresh(),;
oGroup:SETCOLOR(CLR_RED, CLR_YELLOW),;
oGroup:SETSIZE(aSIZE[1],aSIZE[2]),;
oGroup:Refresh()}
oDlg:Update()
EVAL(bBLQ)
Return nil