No puedo darle colores distintos a las columnas, utilizo el twbrowse,, alguna sugerencia??
Salu2
COlor en las columnas con twbrowse
- Willi Quintana
- Posts: 1025
- Joined: Sun Oct 09, 2005 10:41 pm
- Location: Cusco - Perú
- Contact:
- Willi Quintana
- Posts: 1025
- Joined: Sun Oct 09, 2005 10:41 pm
- Location: Cusco - Perú
- Contact:
Solucionado.,. sorry..
oLbxR:bTextColor := { |nRow,nCol|ColorRegComVen(nCol))}
Function ColorRegComVen(nCol)
DO CASE
CASE nCol = 1 .OR. nCol = 4 .OR. nCol = 9 // fecha y ruc
Return CLR_GREEN
CASE nCol = 2 // valores
Return CLR_HBLUE
CASE nCol = 3 // valores
Return CLR_BLUE
CASE nCol = 5 .OR. nCol = 6 .OR. nCol = 7 .OR. nCol = 8 // valores
Return CLR_HBLUE
ENDCASE
Return CLR_BLACK
oLbxR:bTextColor := { |nRow,nCol|ColorRegComVen(nCol))}
Function ColorRegComVen(nCol)
DO CASE
CASE nCol = 1 .OR. nCol = 4 .OR. nCol = 9 // fecha y ruc
Return CLR_GREEN
CASE nCol = 2 // valores
Return CLR_HBLUE
CASE nCol = 3 // valores
Return CLR_BLUE
CASE nCol = 5 .OR. nCol = 6 .OR. nCol = 7 .OR. nCol = 8 // valores
Return CLR_HBLUE
ENDCASE
Return CLR_BLACK