Browse + Cor na Linha

[Theotokos]

Mais uma duvida

Como faço a partir de um função (qdo usario clicar em um botão tipo excluir) para mudar a cor desta linha em que foi clicado. É o seguinte: tenho um browse com Array, e quero que qdo o usuário selecione uma linha e clique em excluir, esta linha seja apenas colocado em cor diferente, como gray de fundo e branco na letra, indicando que esta excluido esta linha....

Obgado!!!!!!!!!!!!

Em Cristo!!!!

Rone O. Coura

************************

xHarbour + BCC55 + FiveWin + xDevStudio

[Theotokos]

Mais uma duvida

Como faço a partir de um função (qdo usario clicar em um botão tipo excluir) para mudar a cor desta linha em que foi clicado. É o seguinte: tenho um browse com Array, e quero que qdo o usuário selecione uma linha e clique em excluir, esta linha seja apenas colocado em cor diferente, como gray de fundo e branco na letra, indicando que esta excluido esta linha....

Obgado!!!!!!!!!!!!

Em Cristo!!!!

Rone O. Coura

************************

xHarbour + BCC55 + FiveWin + xDevStudio

[kapiaba]

//-> Veja se ajuda:

REDEFINE LISTBOX oLbx FIELDS "";

ALIAS "AUDITOR" ID 100 OF oDlg

oLbx:Set3DStyle()

oLbx:lHScroll := .F.

oLbx:bLine := {|| { AUDITOR->USUARIO, AUDITOR->NIVEL, ;

CVALTOCHAR(AUDITOR->FECHA), AUDITOR->HORA, AUDITOR->ACCION} }

oLbx:aHeaders := { "Usuario","Privilegio","Fecha","Hora","Acción Realizada" }

oLbx:aHJustify := {2,2,2,2,2}

//-> Mudar a cor

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

nRGB(255,255,255), ColorDia(AUDITOR->FECHA) ) }

oLbx:lAdjLastCol := .T.

oLbx:lAdjBrowse := .T.

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

STATIC FUNCTION ColorDia(dDate)

LOCAL cRGBColor:= ""

LOCAL nDia:= 0

nDia:= STRZERO(DAY(dDate),2)

IF nDia == "01"

cRGBColor:= nRGB(255,253,196)

ELSEIF nDia == "02"

cRGBColor:= nRGB(208,202,183)

ELSEIF nDia == "03"

cRGBColor:= nRGB(222,235,255)

ELSEIF nDia == "04"

cRGBColor:= nRGB(206,255,196)

ELSEIF nDia == "05"

cRGBColor:= nRGB(255,235,206)

ELSEIF nDia == "06"

cRGBColor:= nRGB(194,230,253)

ELSEIF nDia == "07"

cRGBColor:= nRGB(255,238,255)

ELSEIF nDia == "08"

cRGBColor:= nRGB(173,207,247)

ELSEIF nDia == "09"

cRGBColor:= nRGB(228,222,203)

ELSEIF nDia == "10"

cRGBColor:= nRGB(180,222,185)

ELSEIF nDia == "11"

cRGBColor:= nRGB(217,228,255)

ELSEIF nDia == "12"

cRGBColor:= nRGB(202,255,239)

ELSEIF nDia == "13"

cRGBColor:= nRGB(255,226,204)

ELSEIF nDia == "14"

cRGBColor:= nRGB(246,220,255)

ELSEIF nDia == "15"

cRGBColor:= nRGB(226,255,216)

ELSEIF nDia == "16"

cRGBColor:= nRGB(250,222,237)

ELSEIF nDia == "17"

cRGBColor:= nRGB(251,255,224)

ELSEIF nDia == "18"

cRGBColor:= nRGB(234,255,211)

ELSEIF nDia == "19"

cRGBColor:= nRGB(255,210,211)

ELSEIF nDia == "20"

cRGBColor:= nRGB(255,240,255)

ELSEIF nDia == "21"

cRGBColor:= nRGB(217,222,180)

ELSEIF nDia == "22"

cRGBColor:= nRGB(254,255,231)

ELSEIF nDia == "23"

cRGBColor:= nRGB(231,255,204)

ELSEIF nDia == "24"

cRGBColor:= nRGB(211,235,184)

ELSEIF nDia == "25"

cRGBColor:= nRGB(255,246,224)

ELSEIF nDia == "26"

cRGBColor:= nRGB(255,230,231)

ELSEIF nDia == "27"

cRGBColor:= nRGB(239,235,222)

ELSEIF nDia == "28"

cRGBColor:= nRGB(255,233,176)

ELSEIF nDia == "29"

cRGBColor:= nRGB(231,239,222)

ELSEIF nDia == "30"

cRGBColor:= nRGB(255,255,213)

ELSEIF nDia == "31"

cRGBColor:= nRGB(248,242,223)

ENDIF

RETURN( cRGBColor )

//

ou

//

:bClrStd:=ClrStd()

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

STATIC FUNCTION ClrStd()

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

LOCAL aCol:={}

IF alias->(ordkeyno()) % 2 == 0

aCol:={CLR_BLACK, RGB(193,221,255) }

ELSE

aCol:={CLR_BLACK, RGB(221,245,255) }

ENDIF

RETURN( aCol )

id=code>id=code>

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[sambomb]

http://fivetechsoft.com/forums/viewtopic.php?t=13137

problema parecido com o seu até aonde eu percebi, espero que seja util

samirabreu@hotmail.com

xHarbour 1.1.0 + FwXh 8.02

[Luiz Arruda (ICO)]

Tenho um PRG onde preciso disto e faço assim...

Se usa xBrowse

No DBF tenho um Campo "EXCLUIDO"

Na Dialog tenho um CheckBox onde clico para marcar exclusão

Redefine CheckBox oCheck Var cCheck ID 141;

On Change(MarcaDel(cCheck)) UPDATE

id=code>id=code>

ai é só dar um refresh que na mesma hora a linha fica amarela com isso ai embaixo

obrw[1]:bClrStd := {|| { CLR_BLACK, IIF(EXCLUIDO="X", CLR_AMARELO, CLR_LGREEN) } }

id=code>id=code>

Basta desmarcar e a cor da linha volta ao normal

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

STATIC FUNCTION MarcaDel(cCheck,cimg)

Arq->excluido:=IF(cCheck,"X"," ")

RETURN(.T.)

id=code>id=code>

Abraços..

Luiz Arruda

FWH24-WS-xHB 9950-xDev

ico.corumba@gmail.com