color del header de un browse en lInvert

Board index FiveWin para Harbour/xHarbour color del header de un browse en lInvert

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

color del header de un browse en lInvert
Posted: Wed Jan 11, 2012 10:53 AM

Estoy intentando cambiar el color del texto del header de un browse al estar clickado .
Se puede asignar cambiando el metodo PaintHeader de las columnas pero lo deseable seria que la data ::bClrHeader pudiera admitir un parametro linvert como se hace con ::bClrGrad .
saludos.

mastintin

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: color del header de un browse en lInvert
Posted: Wed Jan 11, 2012 11:49 AM

He realizado los cambios oportunos en xbrowse . Por si a alguien le valen los pongo aqui :

Code (fw): Select all Collapse

// --------------- en new() de txbrowse

 ::bClrHeader   :=  {|linvert| IF( linvert,;
                        { If( ::l2007, CLR_BLACK, CLR_WHITE ), CLR_BLUE } ,;
                        { GetSysColor( COLOR_BTNTEXT ), If( ::l2007, nRGB( 231, 242, 255 ), GetSysColor( COLOR_BTNFACE ) ), ;
                           nRGB( 125, 165, 224 ), nRGB( 203, 225, 252 ) } ) }   // inicializado con los mismos valores anteriores 

//------------ en adjust() de txbrowse

 if ::nRecSelColor == nil
      ::nRecSelColor := If( ::l2007, nRGB( 231, 242, 255 ), Eval( ::bClrHeader,.f. )[ 2 ] ) //añadido .f. 
   endif

//-------------- en paintHeader de txbrowse 

  nBrwWidth   := ::BrwWidth()
   aColors     := Eval( ::bClrHeader, .f. )   // añadido  .f.

// ----------- en paintheader de xbrwcolumn 

 aColors := Eval( ::bClrHeader , lInvert ) // añadido
  /*     ------------------ sustituido 
   if ! lInvert
      aColors := Eval( ::bClrHeader )
   else
     aColors := { If( ::l2007, CLR_BLACK, CLR_WHITE ), CLR_BLUE }
   endif
   */

//----------- en Createbuttons de xbrwcolumn
 if ::oBrw:lCreated
      aColors := Eval( ::bClrHeader ,.f. )  // añadido  .f.

Saludos a todos.

mastintin

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: color del header de un browse en lInvert
Posted: Wed Jan 11, 2012 03:37 PM

He añadido tambien la DATA l2010 para hacer que el menu que se despliega al pulsar el boton derecho pueda mostrarse con estilo omenu:l2010

Code (fw): Select all Collapse

DATA l2010   // añadida 
//-------------en NEW

::l2010:= .f.

//----------  en SetColumns() 

 MENU oMenu POPUP
   IF ::l2010
      oMenu:l2010    := ::l2010
   else
      oMenu:l2007    := ::l2007
   endif

Saludos.

FiveTech Support Forums

Continue the discussion