bb.donnay-software.com

hello Roger
How do I change the color to dcbrowse, where is the cursor


@ 2.5,0.5 DCBROWSE oBrowPVCAM01 DATA oPVCAM01 SIZE 64.0+nWidth,22.0 ;
HEADLINES 1 ;
PRESENTATION DC_BrowPres( 32,"11.Arial" ) ;
NOHSCROLL ;
SUBCLASS 'DC_XbpOwnerDrawBrowseGeneric()' ;
USEVISUALSTYLE ;
SORTSCOLOR GRA_CLR_RED ;
SORTUCOLOR GRA_CLR_DARKBLUE ;
SCROLLBARHEIGHT 30 ; && ITEMMARKED {|| cOpcion := 1, CargaDatosDeCliente( aApp, GetList ), NuevoDocumento( aApp, GetList ), KeyTone() } ITEMMARKED {|| cOpcion := 1, CargaDatosDeCliente( aApp, GetList ), KeyTone() } ; &&& CURSORMODE XBPBRW_CURSOR_ROW ;
ZEBRA {|l| SQLBrowseZebra(l,IIF(SQLFieldGet( oPVCAM01,"bce_Cap")>0,GRA_CLR_RED,GRA_CLR_BLACK)) } ;
PARENT oMyGroup1

DCBROWSECOL DATA {|| CellArray( aApp, oPVCAM01, oBrowPVCAM01, "1" ) } HEADER "LISTA DE CLIENTES" PARENT oBrowPVCAM01 WIDTH 27+nWidth OWNERDRAW CARGO "01-01"


FUNCTION DC_BrowPres( xRowHeight, nFont )
DEFAULT xRowHeight := 19, nFont := "9.Arial"
xRowHeight += 5
return { { XBP_PP_COL_HA_FGCLR , GRA_CLR_DARKBLUE }, ; // Header FG color
{ XBP_PP_COL_HA_BGCLR , GRA_CLR_WHITE }, ; // Header BG color
{ XBP_PP_COL_HA_COMPOUNDNAME , nFont+" Bold" }, ;
{ XBP_PP_COL_DA_ROWHEIGHT , xRowHeight }, ; // rows are 48 pixels high
{ XBP_PP_COL_DA_CELLHEIGHT , xRowHeight }, ; // rows are 48 pixels high
{ XBP_PP_COL_DA_HILITE_BGCLR , DCPBL }, ; &&& DCPBL
{ XBP_PP_COL_DA_HILITE_FGCLR , GRA_CLR_WHITE }, ;
{ XBP_PP_COL_DA_FGCLR , GRA_CLR_BLACK } , ;
{ XBP_PP_COL_DA_COMPOUNDNAME , nFont }, ;
{ XBP_PP_COL_DA_BGCLR , GRA_CLR_WHITE },;
{ XBP_PP_HILITE_FGCLR , GRA_CLR_BLACK },;
{ XBP_PP_COL_FA_FGCLR, GRA_CLR_BLACK }, /* Footer FG Color */ ;
{ XBP_PP_COL_FA_BGCLR, GRA_CLR_DARKGRAY }, /* Footer BG Color */ ;
{ XBP_PP_COL_FA_HEIGHT, 10 } , /* Footer Height */ ;
{ XBP_PP_COL_FA_COMPOUNDNAME , nFont+" Bold" }, ;
{ XBP_PP_COL_DA_COLSEPARATOR , XBPCOL_SEP_LINE},; && Linea = (XBP_PP_COL_DA_BASE+XBPCOL_DA_COLSEPARATOR)
{ XBP_PP_COL_DA_ROWSEPARATOR , XBPCOL_SEP_LINE},;
{ XBP_PP_COL_DA_HILITEFRAMELAYOUT, (XBP_PP_COL_DA_BASE+XBPCOL_DA_HILITEFRAMELAYOUT)},;
{ XBP_PP_COL_DA_CHARWIDTH , (XBP_PP_COL_DA_BASE+XBPCOL_DA_CHARWIDTH)},;
{ XBP_PP_HILITE_BGCLR , DCPBL };
}

The foreground color cannot be changed with the presentation parameters array.

That color is determined by the owner-drawing code.

You would have to rewrite DC_XbpOwnerDrawBrowseGeneric().

Thanks Roger
For your Answer

rdonnay wrote:The foreground color cannot be changed with the presentation parameters array.

That color is determined by the owner-drawing code.

You would have to rewrite DC_XbpOwnerDrawBrowseGeneric().