xbrowse. definir color pero en HEXADECIMAL (solucionado)

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

xbrowse. definir color pero en HEXADECIMAL (solucionado)
Posted: Mon Nov 22, 2010 12:42 PM

hola.

como le digo al xbrowse que una celda debe ser pintada pero con este valor: #FFFFFF
gracias.

Hoy dia me cuesta pensar... aca la solucion.

Code (fw): Select all Collapse

FUNCTION hextoRGB(sCadenaHex)
   LOCAL aRGB:= { hextodec(SubStr(sCadenaHex,2,2)),;
                  hextodec(SubStr(sCadenaHex,4,2)),;
                  hextodec(SubStr(sCadenaHex,6,2))}

   RETURN (RGB(aRgb[1],aRgb[2],aRgb[3]))

Esto lo necesito porque tengo una tabla en donde acumulo en una columna el color que deseo que se muestre en la celda, y como el formato es mas facil para mi hacerlo asi: #00CCFF#000000 (vaya a uno saberlo porque...) es que necesitaba esa funcion para utilizarla aca:

Code (fw): Select all Collapse

  WITH OBJECT oBrw[2]:aCols[4]
            :cHeader:= "Item"
            :nWidth:= 150
            :bClrStd:= {|| { hextoRGB("#000000"), hextoRGB("#00CCFF")}}
         END

(ahi puse los valores, pero en realidad va un oRs:fields(0)...)

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums

Continue the discussion