REF VARIOS XML

[syspel]

BOA TARDE PESSOAL

PRECISO DE UMA LUZ.EU TENHO UMA PASTA QUE CONTEM 20 XML E GOSTARIA DE COLOCAR 20 XML NA TELA.QUANDO O USUARIO DA UM CLIK A COR QUE ELE CLICOU PASSAVA PARA VERMELHO ALGUEM EXEMPLO DE COMO FAZER.

DESDE JA AGRADEÇO

@SAY BCC583

ROBSON

Syspel

BCC55,XHABOUR 1.2.1,DBF,FIVEWIN

[syspel]

BOA TARDE PESSOAL

PRECISO DE UMA LUZ.EU TENHO UMA PASTA QUE CONTEM 20 XML E GOSTARIA DE COLOCAR 20 XML NA TELA.QUANDO O USUARIO DA UM CLIK A COR QUE ELE CLICOU PASSAVA PARA VERMELHO ALGUEM EXEMPLO DE COMO FAZER.

DESDE JA AGRADEÇO

@SAY BCC583

ROBSON

Syspel

BCC55,XHABOUR 1.2.1,DBF,FIVEWIN

[kapiaba]

LISTBOX OU GET??

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Editado por - kapiaba on 11/09/2012 15:34:42

[syspel]

Lista box

Syspel

BCC55,XHABOUR 1.2.1,DBF,FIVEWIN

[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 )

id=code>id=code>

João Santos - São Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

[Erciley Junior]

Olá, armazene o caminho dos XML em um vetor, obtendo pela função

DIRECTORY() -> retorna array

deixe uma posição do seu vetor para ser uma flag de seleção, variando com o caracter 'S' ou 'N'

TCBROWSE

oBrw:nClrPane:={|| IF( aVet[oBrw] == 'S' , CLR_RED , CLR_WHITE }

XBROWSE

oBrw:bClrStd:= {|| IF( aVet[oBrw] == 'S' , {CLR_BLACK,CLR_RED} , {CLR_BLACK,CLR_WHITE} }

Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY)

NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO

[syspel]

boa tarde erciley

vc tem um funcao que pega o conteudo do directy para um array

obrigado

suporte@syspel.com.br

robson

Syspel

BCC55,XHABOUR 1.2.1,DBF,FIVEWIN

[Erciley Junior]

Olá... não tenho, mas seria assim, (acabei de fazer, não testei)

FUNCTION TESTE(cDir,cArq)

LOCAL WX

LOCAL aDir

LOCAL aVet:={}

DEFAULT cDir:='C:\PASTA_NOVA_VIDA\'

DEFAULT cArq:='*.TXT'

aDir:=DIRECTORY(cDir+cArq)

FOR WX:=1 TO LEN(aDir)

AADD(aVet,aDir[WX,01])

//mas no seu caso, creio que o melhor seria retornar um vetor com mais de uma dimensão, para já exibir ele no Browse

AADD(aVet,{ 'N' , aDir[WX,01] } ) //Onde a primeira posição seria a flag para marcar o registro como selecionado ou não

ENDIF

RETURN aVet //Retorna vetor com uma dimensão só, com o diretório completo dos registros

id=code>id=code>

Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY)

NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO

[syspel]

obrigado erciley seria mais ou menos isto

vou testar obrigado

robson

@@say harbour 1.2.1 bcc582

Syspel

BCC55,XHABOUR 1.2.1,DBF,FIVEWIN

[syspel]

obrigado joao pela ideia tambem

vou usar

robson

@say harbour 1.21 bcc582

Syspel

BCC55,XHABOUR 1.2.1,DBF,FIVEWIN