Cores na Linha do ListBox

[lenasi]

Como colorir uma linha do listbox:

Cor sim(por exemplo amarelo), cor não(branco)...

[karinha]

#Include "FiveWin.Ch"

// Defina as Cores como abaixo:

#Define CLR_GRIS2 12632256 // Legal

#Define CLR_VERDEAGUA nRGB( 0, 128, 128 )

#Define CLR_SHADOW nRGB( 102, 51, 0 )

#Define CORBK nRGB( 143, 168, 127 )

#Define CLR_LGREEN nRGB( 190, 215, 190 )

#Define CLR_LIGHT nRGB( 192, 192, 56 )

#Define CLR_AZULXP nRGB( 225, 225, 240 ) //--> Azul XP

#Define CLR_LGRAY nRGB( 230, 230, 230 )

#Define CLR_CHOCOLATE nRGB( 238, 118, 33 )

#Define CLR_VERMELHO nRGB( 255, 000, 000 ) //--> Vermelho Para a Letra

#Define CLR_AMARELO nRGB( 255, 255, 000 ) //--> Amarelo Para o Fundo

#Define CLR_LYELLOW nRGB( 255, 255, 128 ) //--> Amarelo Claro

#Define CLR_GETS nRGB( 255, 255, 220 )

#Define CLR_CREME nRGB( 255, 255, 235 ) //--> Cream color

#Define CLR_LWHITE nRGB( 255, 255, 254 ) //--> 16777215

#Define CLR_HYEL nRGB( 240, 226, 159 )

#Define CLR_LYEL nRGB( 243, 243, 156 )

#Define CLR_BROW nRGB( 235, 202, 171 )

#Define CLR_BFOOT nRGB( 26, 120, 160 )

#Define CLR_RONLY nRGB( 0, 232, 225 )

Embaixo da ListBox() Browse() Como Abaixo:

//---------------------------------------------------------------------

oLbx:nClrBackHead := CLR_LGREEN // Cor do Fundo do Cabeçalho

oLbx:nClrBackFocus := CLR_HRED // Cor do Cursor Em Cima do Ãtem

oLbx:nClrForeFocus := CLR_AMARELO // cor da letra da barra ativa

oLbx:nClrForeHead := CLR_HRED // Cor nos Headers - Cabeçalhos

// Cor no Pano de Fundo da Browse() Listbox-Legal - abaixo o comando

oLbx:nClrPane := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ;

CLR_LGREEN, CLR_LGRAY ) } // Verde e Branco Ok ?

oLbx:nColAct := 2 // Onde o Cursor Vai Iniciar qual coluna?

oLbx:nLineStyle := 3 // Estilo das linhas nos dados da Browse

oLbx:lCellStyle := .T. // Só Pinta a celula que o cursor está

// Justifica As Colunas dos Campos Esq. .T. = Centro

oLbx:aJustify := { .F., .F., .F., .F., .F., .F., .F., .F., .F. }

oLbx:lMChange := .F. // Desabilita Mousemove

oLbx:SetFocus() // Refocus on The Browse

oLbx:Refresh() // Estabiliza o Browse/Listbox

// ( Pinta os Dados Novamente )

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

[lenasi]

Mias uma vez,

obrigado.

Valeu !!!

[lenasi]

Opá!!!

João(Karinha), me deparei com um erro, assim, sem mais nem menos.

Efetuei uma alteração no ListBox, incluindo um campo a mais, e logo após que compilei começou aparecer o erro abaixo:

Estava funcionando legal.

As vezes as linhas em sequência ficavam da mesma cor. Percebi que eram registros excluídos.

Teria como resolver?

----------------------------------

Arq.: error.log

Application

===========

Path and name: C:\CONTROL\INDEX.EXE

Size: 434,304 bytes

Max files handles permited: ( SetHandleCount() ) 200

Error ocurred at: 29/05/2004, 09:01:00

Error description: Error BASE/1449 Syntax error: &

Args:

[ 1] = C { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, nRGB( 225, 225, 240 ), nRGB( 255, 255, 254 ) ) }

Stack Calls

===========

Called from LOCKERRHAN(0)

Called from (b)INITHANDL$(0)

Called from CONSULTAMA(78)

Called from (b)PREPARAMEN(198)

Called from TMENU:COMMAND(0)

Called from TWINDOW:COMMAND(0)

Called from TWINDOW:HANDLEEVEN(0)

Called from WINRUN(0)

Called from TWINDOW:ACTIVATE(0)

Called from MAIN(111)

-----------------

[karinha]

use o modelo acima e veja o ke ocorre!

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

[lenasi]

O que vc me indicou Karinha?

Está igual ao seu...

e de repente começou o erro.

[vagner]

Por favor, poste a linha 78 do seu CONSULTAMA(), para q possamos ver, parece ter um erro, mas sem essa linha fica difícil

Abraços

Vagner Wirts

São Paulo-Brasil

[lenasi]

Wagner,

A Linha 78 , é a segunda linha onde define as cores:

oLbx:nClrPane := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ;

CLR_LGREEN, CLR_LGRAY ) } esta é a linha 78

Mas é o seguinte.

Hoje 01/06 reabilitei a linha acima mencionada (olbx:nClrPane) que na sexta havia desabilitado. EntãO, voltei a compilar e está dando certo.

Estarei testando, e qualquer notificação retornarei com o mesmo assunto.

Foi como havia dito. Começou aparecer o erro, sem mais nem menos.

Grato.