tBrowse Zebrado

[edutek]

Boa Noite

Como faço um browse zebrado ?

uso tbrowse com gtwvw



Eduardo mendes

[angeiras]

Olá,

Sendo oB o objeto TBrowse e nTop, nLeft, nRight, nBottom as coordenadas do browse :

Código: Selecionar todos

WVW_SetPen(0,0,RGB( 192,192,192))
WVW_DrawBoxRecessed(nWin,oB:nTop,oB:nLeft,oB:nBottom, oB:nRight)
WVW_DrawGridHorz(nWin,oB:nTop+3,oB:nLeft,oB:nRight,oB:nBottom-oB:nTop-2)
WVW_DrawGridVert(nWin,oB:nTop,oB:nBottom,oB:aColumnsSep, len(oB:aColumnsSep)) 

e RGB um define :

Código: Selecionar todos

#define RGB(nR,nG,nB)  ( nR + ( nG * 256 ) + ( nB * 256 * 256 ) )

Adaptei o codigo a partir do exemplo WVWTEST9.PRG do diretorio SAMPLES da GTWVW.

[]s
Manoel Angeiras

[edutek]

Manoel,

Errei a pergunta, isso eu já tenho, queria colocar na verdade cores na minha linha do browse.

ex: Titulos vencidos Coloco Vermelho, a vencer verde, vencendo no dia amarelo.

isso é só um exemplo.


Ok, Obrigado

[angeiras]

Olá,

Eu estou tentando usar o método :ColoRect mas ainda não estou conseguindo ( talvéz nem seja esse o caminho... )

[]s
Manoel Angeiras