Uso do TCBrowse Com Cores

[jose.robertoteixeira]

PessoALL, como eu coloco cores nas linhas no TCBrowse?

tem como eu colocar por coluna tb?

Por favor?

Grato.

Function T_TCBrowse()

Local oBrw

Local oDlg

Local aFiles := Directory("\BIN\*.*")

DEFINE MSDIALOG oDlg FROM 0,0 TO 300,400 TITLE "Teste da TCBrowse" PIXEL

oBrw := TCBROWSE():New(5,5, ((oDlg:nRight/2)-51) ,63,,,,,,,,,,,,,,,,.F.,,.T.,,.F.,,)

oBrw:SetArray(aFiles) // Seta os dados do Browse

oBrw:bLdblClick := { || MsgInfo("DBLClick") }

oBrw:bChange := { || MsgAlert("BCHANGE") }

oBrw:nAt := 1

oBrw:AddColumn(TCColumn():New("Coluna 1", {|| aFiles[oBrw] } ,,,,"LEFT",100,.F.,.F.,,,,.F.,))

oBrw:AddColumn(TCColumn():New("Coluna 2", {|| DTOC(aFiles[oBrw]) } ,,,,"LEFT",70 ,.F.,.F.,,,,.F.,))

oBrw:AddColumn(TCColumn():New("Coluna 3", {|| Substr(aFiles[oBrw],1,5) },,,,"LEFT",45 ,.F.,.F.,,,,.F.,))

oBrw:AddColumn(TCColumn():New("Coluna 4", {|| Str(aFiles[oBrw],8,0) } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,))

oBrw:AddColumn(TCColumn():New("Coluna 5", {|| Str(aFiles[oBrw],8,0) } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,))

oBrw:AddColumn(TCColumn():New("Coluna 6", {|| aFiles[oBrw] } ,,,,"LEFT",20 ,.F.,.F.,,,,.F.,))

@ 070, 010 BUTTON "GetBrwOrder" SIZE 40,10 OF oDlg PIXEL ACTION GetOrd( oBrw )

ACTIVATE MSDIALOG oDlg

Return Nil

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

Static Function GetOrd( oBrw )

Local aTitles := oBrw:GetBrwOrder()

Local nI

Local cLinha := ""

For nI := 1 to Len(aTitles)

cLinha += "Caption: " + aTitles[nI,1] + " --- Width: " + Str(aTitles[nI,2]) + Chr(10) + Chr(13)

Next nI

MsgInfo(cLinha)

Return Nil

[jose.robertoteixeira]

PessoALL, como eu coloco cores nas linhas no TCBrowse?

tem como eu colocar por coluna tb?

Por favor?

Grato.

Function T_TCBrowse()

Local oBrw

Local oDlg

Local aFiles := Directory("\BIN\*.*")

DEFINE MSDIALOG oDlg FROM 0,0 TO 300,400 TITLE "Teste da TCBrowse" PIXEL

oBrw := TCBROWSE():New(5,5, ((oDlg:nRight/2)-51) ,63,,,,,,,,,,,,,,,,.F.,,.T.,,.F.,,)

oBrw:SetArray(aFiles) // Seta os dados do Browse

oBrw:bLdblClick := { || MsgInfo("DBLClick") }

oBrw:bChange := { || MsgAlert("BCHANGE") }

oBrw:nAt := 1

oBrw:AddColumn(TCColumn():New("Coluna 1", {|| aFiles[oBrw] } ,,,,"LEFT",100,.F.,.F.,,,,.F.,))

oBrw:AddColumn(TCColumn():New("Coluna 2", {|| DTOC(aFiles[oBrw]) } ,,,,"LEFT",70 ,.F.,.F.,,,,.F.,))

oBrw:AddColumn(TCColumn():New("Coluna 3", {|| Substr(aFiles[oBrw],1,5) },,,,"LEFT",45 ,.F.,.F.,,,,.F.,))

oBrw:AddColumn(TCColumn():New("Coluna 4", {|| Str(aFiles[oBrw],8,0) } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,))

oBrw:AddColumn(TCColumn():New("Coluna 5", {|| Str(aFiles[oBrw],8,0) } ,,,,"LEFT",60 ,.F.,.F.,,,,.F.,))

oBrw:AddColumn(TCColumn():New("Coluna 6", {|| aFiles[oBrw] } ,,,,"LEFT",20 ,.F.,.F.,,,,.F.,))

@ 070, 010 BUTTON "GetBrwOrder" SIZE 40,10 OF oDlg PIXEL ACTION GetOrd( oBrw )

ACTIVATE MSDIALOG oDlg

Return Nil

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

Static Function GetOrd( oBrw )

Local aTitles := oBrw:GetBrwOrder()

Local nI

Local cLinha := ""

For nI := 1 to Len(aTitles)

cLinha += "Caption: " + aTitles[nI,1] + " --- Width: " + Str(aTitles[nI,2]) + Chr(10) + Chr(13)

Next nI

MsgInfo(cLinha)

Return Nil

[atnsoft]

//Cor em colunas:

@ 01,01 Browse oBrw size 370,137 of oDlgCli

aadd column to oBrw Head "Nome" Data Cadastro->Nome Size 160 Align Left Color nRgb(50,0,0), nRgb(208,230,200)

aadd column to oBrw Head "Cidade" Data Cadastro->Cidade Size 60 Align Left Color nRgb(50,0,0), nRgb(180,230,200)

//Cor no cabeçalho:

oBrw:nClrBackHead := nRgb(250,250,50)

// cor por dependencia:

oBrw:nClrText:= {||iif(Cadastro->Uf = "PR", nRgb(255,0,0), nRgb(0,0,0))}

Ve se ajuda.

AtnSoft --

Harbour 0.43Flex - xHarbour 0.99.33 - FWh 2.5 - Verce