syspel Posted September 11, 2012 Report Share Posted September 11, 2012 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 Quote Link to comment Share on other sites More sharing options...
syspel Posted September 11, 2012 Author Report Share Posted September 11, 2012 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 11, 2012 Report Share Posted September 11, 2012 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 Quote Link to comment Share on other sites More sharing options...
syspel Posted September 11, 2012 Author Report Share Posted September 11, 2012 Lista box Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 11, 2012 Report Share Posted September 11, 2012 //-> 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 Quote Link to comment Share on other sites More sharing options...
Erciley Junior Posted September 11, 2012 Report Share Posted September 11, 2012 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 Quote Link to comment Share on other sites More sharing options...
syspel Posted September 12, 2012 Author Report Share Posted September 12, 2012 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 Quote Link to comment Share on other sites More sharing options...
Erciley Junior Posted September 12, 2012 Report Share Posted September 12, 2012 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 Quote Link to comment Share on other sites More sharing options...
syspel Posted September 14, 2012 Author Report Share Posted September 14, 2012 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 Quote Link to comment Share on other sites More sharing options...
syspel Posted September 14, 2012 Author Report Share Posted September 14, 2012 obrigado joao pela ideia tambem vou usar robson @say harbour 1.21 bcc582 Syspel BCC55,XHABOUR 1.2.1,DBF,FIVEWIN Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.