se puede cambiar el color de la columna del record selector del xbrowse?
como?
Gracias
xbrowse record selector column
-
- Posts: 845
- Joined: Sun Oct 09, 2005 5:36 pm
- Location: la laguna, mexico.
xbrowse record selector column
____________________
Paco
Paco
- FranciscoA
- Posts: 1964
- Joined: Fri Jul 18, 2008 1:24 am
- Location: Chinandega, Nicaragua, C.A.
Re: xbrowse record selector column
Paco, intenta con:
Code: Select all
oBrw:nRecSelColor := 16777215
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh1204-MySql-TMySql
Chinandega, Nicaragua.
Fwxh1204-MySql-TMySql
-
- Posts: 845
- Joined: Sun Oct 09, 2005 5:36 pm
- Location: la laguna, mexico.
Re: xbrowse record selector column
Bien !! en toda la columna de los registros,
pero sabes, la cabecera del record selector no cambia de color, esa como se cambia de color?
Gracias
Saludos
pero sabes, la cabecera del record selector no cambia de color, esa como se cambia de color?
Gracias
Saludos
____________________
Paco
Paco
- FranciscoA
- Posts: 1964
- Joined: Fri Jul 18, 2008 1:24 am
- Location: Chinandega, Nicaragua, C.A.
Re: xbrowse record selector column
Paco, asi lo hago, cuando cambio todos los colores del browse. Espero sirva de guia para tu implementacion.
Code: Select all
//------------------------------
Function Color_oBrw(oBrw,cColor)
local aGradBarSelFocus := {{0.65,RGB(212,146,69),RGB(218,215,117)},{0.35,RGB(218,215,117),RGB(159,140,154)}}
local aGradBarSel:= {{1, RGB(108,125,184), RGB(241,222,088)}}
DEFAULT cColor := NIL
IF !cColor = NIL
if cColor = "PLATA"
oBrw:bClrGrad := { | lInvert | If( ! lInvert, ;
{ { 0.30,12961221,16777215 },;
{ 0.30,16777215,12961221 } },;
{ { 0.10,9363707,16777215 },;
{ 0.10,16777215,9363707 } } ) }
oBrw:nRecSelColor := 16777215 //aqui le pongo el color de fondo del header.
oBrw:bClrHeader := {|| { nRGB(0,0,0), 16777215, } } //aqui
oBrw:bClrFooter := {|| { 0,16777215 } }
elseif cColor = "XXXXX"
...
endif
ENDIF
Return nil
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh1204-MySql-TMySql
Chinandega, Nicaragua.
Fwxh1204-MySql-TMySql
-
- Posts: 845
- Joined: Sun Oct 09, 2005 5:36 pm
- Location: la laguna, mexico.