quitar color a columna xbrowse

quitar color a columna xbrowse

Postby artu01 » 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: Select all  Expand view
  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
artu01
 
Posts: 400
Joined: Fri May 11, 2007 8:20 pm
Location: Lima

Re: quitar color a columna xbrowse

Postby joseluisysturiz » Sat Jan 14, 2017 1:09 am

Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: quitar color a columna xbrowse

Postby artu01 » Mon Jan 16, 2017 9:31 pm

Gracias JoseLuis por responder, pero lo resolvi asi:
Code: Select all  Expand view

    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
artu01
 
Posts: 400
Joined: Fri May 11, 2007 8:20 pm
Location: Lima


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Adolfredo Martinez, Google [Bot] and 68 guests