DonJuan Posted March 2, 2009 Report Share Posted March 2, 2009 PESSOAL ALGUEM SABE COMO FAÇO PARA ZEBRAR UMA XBROWSE USANDO SQLRDD? FHW 805, XHB110, PELLESC, XDEV, SQLRDD Quote Link to comment Share on other sites More sharing options...
DonJuan Posted March 2, 2009 Author Report Share Posted March 2, 2009 PESSOAL ALGUEM SABE COMO FAÇO PARA ZEBRAR UMA XBROWSE USANDO SQLRDD? FHW 805, XHB110, PELLESC, XDEV, SQLRDD Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted March 2, 2009 Report Share Posted March 2, 2009 Tente Assim.. oBrw[2]:bClrStd := { ||{ CLR_BLACK, IIF( ( oBrw[2]:cAlias )->( OrdKeyNo() ) %2 == 0, CLR_LGRAY, CLR_LGREEN ) } } id=code>id=code>Não abandone seu tópicoid=blue> Luiz Arruda - Corumba-MS FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com Não Falte ao Serviço para que seu patrão não perceba que vc. não faz falta. Quote Link to comment Share on other sites More sharing options...
DonJuan Posted March 2, 2009 Author Report Share Posted March 2, 2009 citação:Tente Assim.. oBrw[2]:bClrStd := { ||{ CLR_BLACK, IIF( ( oBrw[2]:cAlias )->( OrdKeyNo() ) %2 == 0, CLR_LGRAY, CLR_LGREEN ) } } id=code>id=code>Não abandone seu tópicoid=blue> Luiz Arruda - Corumba-MS FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com Não Falte ao Serviço para que seu patrão não perceba que vc. não faz falta. id=quote>id=quote>Com SqlRdd não dá certo FHW 805, XHB110, PELLESC, XDEV, SQLRDD Quote Link to comment Share on other sites More sharing options...
gibaf Posted March 2, 2009 Report Share Posted March 2, 2009 faz assim: oBrw[2]:bClrStd := { ||{ CLR_BLACK, IIF( ( oBrw[2]:cAlias )->( dbInfo( DBI_INTERNAL_OBJECT ):nPosCache ) %2 == 0, CLR_LGRAY, CLR_LGREEN ) } } ... espero ter ajudado !!! []'s Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) Quote Link to comment Share on other sites More sharing options...
DonJuan Posted March 2, 2009 Author Report Share Posted March 2, 2009 citação:faz assim: oBrw[2]:bClrStd := { ||{ CLR_BLACK, IIF( ( oBrw[2]:cAlias )->( dbInfo( DBI_INTERNAL_OBJECT ):nPosCache ) %2 == 0, CLR_LGRAY, CLR_LGREEN ) } } ... espero ter ajudado !!! []'s Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) id=quote>id=quote>Cara deu esse erro o que pode ser? ========== Nome e Caminho: C:\SIGARDD\SIGA.EXE Tamanho: 5,984,768 bytes Maximo de arquivos abertos: ( SetHandleCount() ) 0 Ocorreu erro em: 02/03/2009, 13:12:57 Descricao: Erro BASE/1004 Message not found: SR_WORKAREA:NPOSCACHE FHW 805, XHB110, PELLESC, XDEV, SQLRDD Quote Link to comment Share on other sites More sharing options...
DonJuan Posted March 3, 2009 Author Report Share Posted March 3, 2009 citação: citação:faz assim: oBrw[2]:bClrStd := { ||{ CLR_BLACK, IIF( ( oBrw[2]:cAlias )->( dbInfo( DBI_INTERNAL_OBJECT ):nPosCache ) %2 == 0, CLR_LGRAY, CLR_LGREEN ) } } ... espero ter ajudado !!! []'s Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) id=quote>id=quote>Cara deu esse erro o que pode ser? ========== Nome e Caminho: C:\SIGARDD\SIGA.EXE Tamanho: 5,984,768 bytes Maximo de arquivos abertos: ( SetHandleCount() ) 0 Ocorreu erro em: 02/03/2009, 13:12:57 Descricao: Erro BASE/1004 Message not found: SR_WORKAREA:NPOSCACHE FHW 805, XHB110, PELLESC, XDEV, SQLRDD id=quote>id=quote>ALGUEM PODERIA ME DAR UMA LUZ? FHW 805, XHB110, PELLESC, XDEV, SQLRDD Quote Link to comment Share on other sites More sharing options...
gibaf Posted March 3, 2009 Report Share Posted March 3, 2009 faz isso (antes de oBrw[2]:bClrStd := ....) e posta o resultado, por favor: MSGALERT( SELECT( oBrw[2]:cAlias ) > 0 ) []'S Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) Quote Link to comment Share on other sites More sharing options...
Kbelo Posted March 3, 2009 Report Share Posted March 3, 2009 citação: citação:Tente Assim.. oBrw[2]:bClrStd := { ||{ CLR_BLACK, IIF( ( oBrw[2]:cAlias )->( OrdKeyNo() ) %2 == 0, CLR_LGRAY, CLR_LGREEN ) } } id=code>id=code>Não abandone seu tópicoid=blue> Luiz Arruda - Corumba-MS FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com Não Falte ao Serviço para que seu patrão não perceba que vc. não faz falta. id=quote>id=quote>Com SqlRdd não dá certo FHW 805, XHB110, PELLESC, XDEV, SQLRDD id=quote>id=quote>O que tem haver o SQLrdd??? O que importa é se seu browse é Com Array ou Com Arquivo. //Arrayid=green> ...bClrStd := {|| {CLR_BLACK,ZebraBrw(oBrw:nArrayAt) } } //Arquivoid=green> ...bClrStd := {|| {CLR_BLACK,ZebraBrw(,1) } } *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* Function ZebraBrw(xPOSarq,tipo) *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* // se tipo NIL o Browse é feito com Vetor/Array IF tipo == NIL IF (xPOSarq / 2) == Int(xPOSarq / 2) Return nRGB(255,255,240) ELSE Return nRGB(243,253,255) ENDIF else SELECT( xPOSarq ) IF (OrdKeyNo()%2)==0 Return nRGB(255,255,240) ELSE Return nRGB(243,253,255) ENDIF ENDIF RETURN nRGB(255,255,240) id=code>id=code>Marcelo Michels Msn/E-mail:marcelo@infototal.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate. Editado por - kbelo on 03/03/2009 11:49:49 Quote Link to comment Share on other sites More sharing options...
oliveiros Posted March 3, 2009 Report Share Posted March 3, 2009 olá, Use a opção do próprio xBrowse: If( oBrw:nAt() % 2 = 0, CLR_BLUE, CLR_GREEN ) Junior Quote Link to comment Share on other sites More sharing options...
Marca Posted March 3, 2009 Report Share Posted March 3, 2009 citação:olá, Use a opção do próprio xBrowse: If( oBrw:nAt() % 2 = 0, CLR_BLUE, CLR_GREEN ) Junior id=quote>id=quote>Ola Junior Seja bem vindo ao forum oq. o Xara esta querendo dizer é exatamente isso Esta sintax q. vc postou seria utilizada caso o browse seja com um array se for com um arquivo a sintax muda. De uma olhada na função q. ele postou q. entendera com array ele esta utilizando um calculo IF (xPOSarq / 2) == Int(xPOSarq / 2) Return e com arquivo ele pega a posição = IF (OrdKeyNo()%2) Seria mais facil o DonJuan postar parte do codigo dele q. com certeza acharemos o problema Marcelo Ferro Petrópolis - Rj Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WS e Pelles Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted April 20, 2010 Report Share Posted April 20, 2010 Rescussitando o tópico.. Alguém achaou a solução ??? Obrigado.. Luiz Arruda - Corumba(MS) FiveWin Desde 2004id=blue> [x]Harbour xDev WS ico.corumba@gmail.com ico67@msn.com - NÃO ABANDONE SEU TÓPICO id=blue> Retorne avisando se a dica funcionou Quote Link to comment Share on other sites More sharing options...
sambomb Posted April 22, 2010 Report Share Posted April 22, 2010 se tiver algum campo de código e o desespero for grande, use ele no lugar do OrdKeyNo() RecNo() etc... Email: SamirSSabreu@gmail.com MSN: samirabreu@hotmail.com Skype: Samirid=red>Abreu xHarbour 1.1.0 + FwXh 8.02id=black> Quote Link to comment Share on other sites More sharing options...
crisvam Posted April 26, 2010 Report Share Posted April 26, 2010 citação:PESSOAL ALGUEM SABE COMO FAÇO PARA ZEBRAR UMA XBROWSE USANDO SQLRDD? FHW 805, XHB110, PELLESC, XDEV, SQLRDD id=quote>id=quote>Definir as cores a seu gosto #Define CLR_LGREEN nRGB( 190, 215, 190 ) #Define CLR_LGRAY nRGB( 230, 230, 230 ) Veja se voce está usando array oBrw:bClrStd := { ||{ CLR_BLACK, IF( (oBrw:nArrayAt) %2 == 0, CLR_LGRAY, CLR_LGREEN ) } } oBrw:bClrSel:={|| {CLR_WHITE,nRGB(0,100,200)}} oBrw:bClrSelFocus:={|| {CLR_WHITE,nRGB(0,100,200)}} Se está usando arquivos oBrw:bClrStd := { ||{ CLR_BLACK, IF( (Alias())->( OrdKeyNo() ) %2 == 0, CLR_LGRAY, CLR_LGREEN ) } } oBrw:bClrSel:={|| {CLR_WHITE,nRGB(0,100,200)}} oBrw:bClrSelFocus:={|| {CLR_WHITE,nRGB(0,100,200)}} Falou.... Crisvam - xHarbour_FWH_9.04 - Whorkshop Editado por - crisvam on 26/04/2010 12:50:10 Quote Link to comment Share on other sites More sharing options...
netspeed Posted April 28, 2010 Report Share Posted April 28, 2010 O problema é que a SQLRDD não tem suporte para OrdKeyNo(). Ela sempre retorna 0. Além do problema para gerar o efeito "Zebrado", existe outros problemas no que tange a navegação do browse, pois na montagem do codeblock "bKeyNo" (responsável pelo scroll vertical), é utilizado a função OrdKeyNo(). Ederson. NETSPEED Informática (17) 3237.1184 www.netspeed.com.br FWH 9.04/XHARBOUR 1.2.1/xDev 7.0/PELLESC 6.0/RPV REPORT 5.3.8 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.