Buenas tardes,
Tengo un Browse en el cual defino un color de fondo en un array as铆:
y luego lo utilizo como fondo para destacar una l铆nea o l铆neas que cumplan determinada condici贸n as铆:
Esto queda lindo a la vista:
Pero esto da un error al intentar editar un campo cuando la l铆nea que lo contiene tiene el color de fondo dado por el array (en el resto no hay problemas).
Lo solucion茅 modificando la clase xBrowse en el METHOD Edit( nKey ) CLASS TXBrwColumn
Cambi茅 las l铆neas:
Por:
Y problema resuelto.
Rolando
Tengo un Browse en el cual defino un color de fondo en un array as铆:
local aVerde:={ { .50,65280,16777215},{ .50,16777215,65280 } }y luego lo utilizo como fondo para destacar una l铆nea o l铆neas que cumplan determinada condici贸n as铆:
WITH OBJECT oBrw
聽 :nEditTypes 聽 聽 聽 := EDIT_GET
聽 :bClrStd:={|| if(!lEncontrado, ;
聽 聽 聽 聽 ;
聽 聽 聽 聽 (if(len(alltrim(oDbf:BUSCADO))>0 ,;
聽 聽 聽 聽 ({CLR_BLACK, aVerde} ),;
聽 聽 聽 聽 ({nrgb(0,0,0),nClrFondo}) )) , ;
聽 聽 聽 聽 ;
聽 聽 聽 聽 ({nrgb(0,0,0),nClrFondo}) ) }
EndEsto queda lindo a la vista:
Pero esto da un error al intentar editar un campo cuando la l铆nea que lo contiene tiene el color de fondo dado por el array (en el resto no hay problemas).
Lo solucion茅 modificando la clase xBrowse en el METHOD Edit( nKey ) CLASS TXBrwColumn
Cambi茅 las l铆neas:
聽 聽 聽 聽 ::oEditGet := TGet():New( 0,0,{ | u | If(PCount()==0,uValue,uValue:= u ) },;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ::oBrw,0,0,cPic,,aColors[ 1 ],aColors[ 2 ];
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ,oFont,.F.,,.F.,,.F.,,lCenter,lRight,,.F.,.f.,.T.,,.F.,,,,) // oFont ADDEDPor:
聽 聽 聽 聽 ::oEditGet := TGet():New( 0,0,{ | u | If(PCount()==0,uValue,uValue:= u ) },;
聽 聽 聽 聽 聽 聽 聽 ::oBrw,0,0,cPic,,aColors[ 1 ],(if(valtype(aColors[2])=='N',aColors[ 2 ], 16770271 ));
聽 聽 聽 聽 聽 聽 聽 ,oFont,.F.,,.F.,,.F.,,lCenter,lRight,,.F.,.f.,.T.,,.F.,,,,) // oFont ADDEDY problema resuelto.
Rolando
