FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour quitar color a columna xbrowse
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
quitar color a columna xbrowse
Posted: Sat Jan 14, 2017 12:25 AM
Amigos
cuando abro el xbrowse la primera col sale de color celeste
quiero que al dar click a la 2da columna lo pinte de celeste (eso esta resuelto)
pero mi duda es quitarle el color a la primera col?


Code (fw): Select all Collapse
   REDEFINE XBROWSE oBrw                                           ;
      FIELDS ARTICULO->Cod                                         ;
            ,ARTICULO->DesG                                        ;
            ,Transform(ARTICULO->Pv, "999.9999")                   ;
            ," "                                                   ;
      FIELDSIZES 70, 250,120, 90, 10                               ;
      HEADERS OemToAnsi("C¢digo")                                  ;
            ,OemToAnsi("Descripci¢n")                              ;
            ,"Precio S/."                                          ;
            ," "                                                   ;
      ID 4001 OF oDlg                                              ;
      UPDATE                                                       


    oBrw:aCols[1]:bLClickHeader := {|| ChTag("ARTICULO", 1, oBrw) } 
    oBrw:aCols[1]:bClrStd := { || { 0, 16054371 } }  //==>al mostrarse el browse sale la 1era col de color celeste en el fondo
   oBrw:aCols[2]:bLClickHeader := {|| ChTag("ARTICULO", 2, oBrw), oBrw:aCols[2]:bClrStd := { || { 0, 16054371 } } //hago que la 2da col se pinte de fondo celeste y como seria para quitarle el fondo a la primera col?

Gracias
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: quitar color a columna xbrowse
Posted: Sat Jan 14, 2017 01:09 AM
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 400
Joined: Fri May 11, 2007 08:20 PM
Re: quitar color a columna xbrowse
Posted: Mon Jan 16, 2017 09:31 PM
Gracias JoseLuis por responder, pero lo resolvi asi:
Code (fw): Select all Collapse
    oBrw:aCols[1]:bLClickHeader := {|| ChTag("ARTICULO", 1, oBrw), oBrw:aCols[1]:bClrStd := { || { 0, 16054371 } }, oBrw:aCols[2]:bClrStd := { || {CLR_BLACK, CLR_WHITE} }}

    oBrw:aCols[1]:bClrStd := { || { 0, 16054371 } }  // ==> por default pinta de celeste la primera columna

    oBrw:aCols[2]:bLClickHeader := {|| ChTag("ARTICULO", 2, oBrw), oBrw:aCols[2]:bClrStd := { || { 0, 16054371 } }, oBrw:aCols[1]:bClrStd := { || {CLR_BLACK, CLR_WHITE} }}
fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

Continue the discussion