topic-41959

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

XBROWSE y color
Posted: Tue Jul 12, 2022 12:28 PM

Hola a todos,

Tengo un XBROWSE definido a código.

El caso es que cuando la row que tenía el foco pierde el foco, toma el color negro de texto y de fondo. ¿Cómo lo puedo cambiar?

Muchas gracias

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: XBROWSE y color
Posted: Tue Jul 12, 2022 01:33 PM

Prueba asi:

Code (fw): Select all Collapse

     oBrw:bClrStd := { || If( oBrw:KeyNo() % 2 == 0, { CLR_BLACK, RGB(193,221,255)},  { CLR_BLACK, RGB(221,245,255)} ) }      //Efecto pijama
     oBrw:bClrSel := {|| { nRGB(  0,  0,  0), nRGB(248,195, 34) } } // Celda Seleccionada
     oBrw:lColDividerComplete  := .t.                    
     oBrw:nColDividerStyle     := LINESTYLE_INSET
     oBrw:nRowDividerStyle     := LINESTYLE_INSET
     oBrw:bClrSelFocus  := {|| { nRGB(  0,  0,  0), nRGB(248,195, 34) } }  // para barra de linea selecc cuando el control tiene el foco
     oBrw:nMarqueeStyle    := MARQSTYLE_HIGHLCELL  //solo ilumina la celda actual

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: XBROWSE y color
Posted: Tue Jul 12, 2022 01:59 PM

Buenm dia.

Code (fw): Select all Collapse

// Cores na xBrowse
static function BrwColors( oBrw, lFoot )

   local cClrBack
   DEFAULT lFoot          := .F.

   oBrw:l2007             := .F.
   oBrw:nRowHeight        := 24
   oBrw:nHeaderHeight     := 24 
   oBrw:lFooter               := lFoot
   
   //oBrw:lRecordSelector     := .F.
   //oBrw:lColDividerComplete := .F.
   //oBrw:lRowDividerComplete := .F.
   
   oBrw:lFlatStyle        := .T.
   oBrw:bClrHeader        := { || { CLR_BLACK, CLR_WHITE, CLR_WHITE } } //RGB( 232, 255, 232 ), RGB( 232, 255, 232 ) }}
   oBrw:lFullGrid         := .F.
   oBrw:nRowDividerStyle  := LINESTYLE_NOLINES //DARKGRAY  //LINESTYLE_LIGHTGRAY      //
   oBrw:nColDividerStyle  := LINESTYLE_NOLINES //LIGHTGRAY // LINESTYLE_NOLINES

   oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
   oBrw:bClrStd = { || If( oBrw:KeyNo() % 2 == 0, ;
                         { If( ( oBrw:cAlias )->( Deleted() ), CLR_HRED, CLR_BLUE ),;
                           RGB( 198, 255, 198 ) }, ;
                         { If( ( oBrw:cAlias )->( Deleted() ), CLR_HRED, CLR_BLUE ),;
                           RGB( 232, 255, 232 ) } ) }
   oBrw:bClrSel = { || { If( ( oBrw:cAlias )->( Deleted() ), CLR_HRED, CLR_WHITE ),;
                           RGB( 34, 177, 76 ) } } //RGB( 0x33, 0x66, 0xCC ) } }
   
   cClrBack = Eval( oBrw:bClrSelFocus )[ 2 ]
   oBrw:bClrSelFocus  := { || { If( ( oBrw:cAlias )->( Deleted() ), CLR_HRED, CLR_WHITE ),;
                              cClrBack } }
   oBrw:SetColor( CLR_BLUE, RGB( 232, 255, 232 ) )

   oBrw:SetFont( oFont1 )

return nil

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: XBROWSE y color
Posted: Tue Jul 12, 2022 04:05 PM

Muchas gracias a ambos, lo pruebo.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveTech Support Forums

Continue the discussion