supi Posted July 6, 2005 Report Share Posted July 6, 2005 Quais as coordenadas para deixar apenas uma coluna do listbox em uma cor diferente? A linha toda já consegui, porém queria a linha de uma cor X, porém dependendo do saldo, apenas a coluna do saldo seria em outra cor. Desde já agradeço aà quem puder ajudar. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 6, 2005 Report Share Posted July 6, 2005 citação:Quais as coordenadas para deixar apenas uma coluna do listbox em uma cor diferente? A linha toda já consegui, porém queria a linha de uma cor X, porém dependendo do saldo, apenas a coluna do saldo seria em outra cor. Desde já agradeço aà quem puder ajudar. id=quote>id=quote>Mira aká... http://www.dbwide.com.ar/local-cgi/yabb/YaBB.cgi?board=Fivewin;action=display;num=1046378299 Bad Boy - São Paulo. kmt_karinha@pop.com.br - 1 GB de Espaço. FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE Quote Link to comment Share on other sites More sharing options...
supi Posted July 7, 2005 Author Report Share Posted July 7, 2005 Obrigado pela dica. POREM O EXEMPLO QUE CONSTA NO LINK QUE VC. PASSOU , APENAS MODIFICA A COR DO REGISTRO /LINHA TODA. EU PRECISO DE UM EXEMPLO APENAS PARA MUDAR UMA COLUNA, OU SEJA TENHO VARIOS CAMPOS NO LISTBOX, APENAS UMA COLUNA TERIA A COR DIFERENTE. TEM JEITO AI' ? Quote Link to comment Share on other sites More sharing options...
eajunior Posted July 7, 2005 Report Share Posted July 7, 2005 Ola, segue o um exemplo que utilizo em meus programas, a coluna creme e sempre a do indice ativo. citação:oTbr:bBkColor := {|nRow,nCol,nStyleLine| IF( nStyleLine == 0 .AND. nCol == Cli_TCol(), CLR_CREME, ) }*-------------------------------------------------------------------------- STATIC FUNCTION Cli_TCol() *-------------------------------------------------------------------------- LOCAL __nCol IF Upper( Cliente->( OrdSetFocus() ) ) = "SITUACAO" ; __nCol := 1 ELSEIF Upper( Cliente->( OrdSetFocus() ) ) = "CODIGO" ; __nCol := 2 ELSEIF Upper( Cliente->( OrdSetFocus() ) ) = "FANTASIA" ; __nCol := 3 ELSEIF Upper( Cliente->( OrdSetFocus() ) ) = "VENDEDOR" ; __nCol := 4 ELSEIF Upper( Cliente->( OrdSetFocus() ) ) = "ESTADO" ; __nCol := 5 ELSEIF Upper( Cliente->( OrdSetFocus() ) ) = "REGIAO" ; __nCol := 7 ELSEIF Upper( Cliente->( OrdSetFocus() ) ) = "ATIVIDADE"; __nCol := 8 ENDIF Return( __nCol ) id=quote>id=quote>Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer. Elias Abrão Júnior Fone : (0**11) 5181-6909 São Paulo - SP eajunior.fw@terra.com.br xHarbour 0.99.0 - Fivewin 2.5 e xMate Quote Link to comment Share on other sites More sharing options...
Kleyton Posted July 7, 2005 Report Share Posted July 7, 2005 Olá Elias, este processo está sendo feito pela twbrowse, correto? Tem como fazê-lo utilizando o listbox normal??? Kleyton Clipper5.2E+Clipper5.3b+Blink7+FW2.0d cleitonbala@bol.com.br Quote Link to comment Share on other sites More sharing options...
supi Posted July 7, 2005 Author Report Share Posted July 7, 2005 OW . ACHEI A SOLUCAO + SIMPLES UTILIZANDO O TCBROWSE.ch --------------------------------------------------- ...... use arquivo alias XOPER // o lance é o seguinte // natureza (será D=debito [em vermelho] // C=credito[em azul] // // saldo (valor negativo =vermelho positivo=azul) REDEFINE BROWSE kolbx ID 105 OF odlg44 ; "Extrato" FONT fontms kolbx:lLogicDrop := .t. kolbx:lNoHScroll := .t. kolbx:nAdjColumn := 3 kolbx:nFreeze := 0 ADD COLUMN TO BROWSE KOLBX DATA DTOC(xoper->data) ; LEFT ; COLOR If( xoper->natureza = "D", CLR_HRED, CLR_HBLUE), {||CLR_WHITE} ; HEADER "Data" ADD COLUMN TO BROWSE KOLBX DATA (xoper->DOCUMENTO) ; LEFT ; COLOR If( xoper->natureza = "D", CLR_HRED, CLR_HBLUE), {||CLR_WHITE} ; HEADER "No.Documento" ADD COLUMN TO BROWSE KOLBX DATA transform( (xoper->saldo),"@E R$9,999,999.99") ; RIGHT NOBAR ; COLOR If( xoper->saldo < 0, CLR_HRED, CLR_HBLUE), {||CLR_WHITE} ; HEADER "Saldo" SUPI Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted July 7, 2005 Report Share Posted July 7, 2005 Amigos, Esse assunto também me interessa, mas já tenho muita coisa com LISTBOX. Vou refazer a pergunta do Kleyton: tem como tratar a cor de uma coluna de um LISTBOX normal??? Abraços Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação Quote Link to comment Share on other sites More sharing options...
Kleyton Posted July 7, 2005 Report Share Posted July 7, 2005 . Kleyton Clipper5.2E+Clipper5.3b+Blink7+FW2.0d cleitonbala@bol.com.br Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted July 7, 2005 Report Share Posted July 7, 2005 Gente, Nenhuma resposta?? Sim ou Não?? Abraços Paulo/CONTATO SISTEMAS Clipper53b / FW26 / Blinker70 Ajudar é um prazer, agradecer é uma obrigação Quote Link to comment Share on other sites More sharing options...
eajunior Posted July 8, 2005 Report Share Posted July 8, 2005 eu utilizo o twbrowse do Ceccarelli, que e um complemento para o do fivewin. Listbox faz a chamada ao TwBrowse Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer. Elias Abrão Júnior Fone : (0**11) 5181-6909 São Paulo - SP eajunior.fw@terra.com.br xHarbour 0.99.0 - Fivewin 2.5 e xMate Quote Link to comment Share on other sites More sharing options...
Kleyton Posted July 22, 2005 Report Share Posted July 22, 2005 Olá Elias, o que tem que ser feito para fazer este processo que citou acima, referente utilizar twbrowse com listbox? Kleyton Clipper5.2E+Clipper5.3b+Blink7+FW2.0d cleitonbala@bol.com.br Quote Link to comment Share on other sites More sharing options...
vagner Posted July 23, 2005 Report Share Posted July 23, 2005 Olá Kleyton, Basta compilar o TWBrowse com sua aplicação, o ListBox É o TWBrowse, se vc der uma olhada no Fivewin.ch verá que o ListBox chama o TWbrowse Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted July 23, 2005 Report Share Posted July 23, 2005 Ola Supi. è possivel vc. mostrar como vc. faz a chamada da FUNCAO e mostrar tb.COMO vc. INICIA a funcao DIALOG. consegui compilar usando DEFINE WINDOWid=red> fora do meu prog. mas qd. compilo junto com o meu prg. nao funciona. vide topico LISTBOX COR. Abraços. Luiz Arruda - iko67@ibest.com.br => Visite Corumbá/MS - Conheça o Pantanal :: FW 2.4 Clipper 5.2 . Editado por - ico on 24/07/2005 11:32:40 Editado por - ico on 25/07/2005 09:49:02 Quote Link to comment Share on other sites More sharing options...
jef2_tim Posted July 23, 2005 Report Share Posted July 23, 2005 Ola... Quais arquivos da twbrowse tenho de colocar no meu projeto para compilar e passar a usa-la? eu coloquei o WBROWSE.PRG e o TMULTISE.PRG q sao os dois em source... eu to com a twbrose 1.7 queria saber se esta certo.. pq esta dando erros Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Error: Unresolved external '_HB_FUN_WBRWSET' referenced from D:\WIN32\OBJ\WBROWSE.OBJ Error: Unresolved external '_HB_FUN_WBRWLINE' referenced from D:\WIN32\OBJ\WBROWSE.OBJ Error: Unresolved external '_HB_FUN_WBRWROWS' referenced from D:\WIN32\OBJ\WBROWSE.OBJ Error: Unresolved external '_HB_FUN_WBRWPANE' referenced from D:\WIN32\OBJ\WBROWSE.OBJ Error: Unresolved external '_HB_FUN_WBRWSCRL' referenced from D:\WIN32\OBJ\WBROWSE.OBJ Error: Unresolved external '_HB_FUN_WBRWHEIGHT' referenced from D:\WIN32\OBJ\WBROWSE.OBJ Error: Unresolved external '_HB_FUN_WBRWRECT' referenced from D:\WIN32\OBJ\WBROWSE.OBJ valeu amigos Um Xharbraço. *** Karate-DO *** Conter o Espirito de Agreção **** Uso Fwh 2.5 (xharbour 0.99) e Xmate Para Compilar Quote Link to comment Share on other sites More sharing options...
jef2_tim Posted July 25, 2005 Report Share Posted July 25, 2005 Só recolocando, como compilar meu listbox com a twbrowse, eu tenho a twbrowse17 mas nao tem as lib pra xharbour. se alguem tiver o link pra eu baixar e me passar como fazer pra compilar ela no sistema.. eu peguei a doca do elias pra colocar as cores nas colunas.. ja coloquei a funcao mas nao funciona se eu nao colocar a twbrow pra rodar... queria saber quais os prgs q tenho de compilar junto ao meu sistema e qual lib colocar tbm ... se alguem souber a versao q ela esta tbm.. valeu Um Xharbraço. *** Karate-DO *** Conter o Espirito de Agreção **** Uso Fwh 2.5 (xharbour 0.99) e Xmate Para Compilar Quote Link to comment Share on other sites More sharing options...
evandro Posted July 25, 2005 Report Share Posted July 25, 2005 Olá, Crie a lib do TWbrowse como os seguintes arquivos que estão em ..\source: wbrwline.c tmultise.prg wbrowse.prg []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.5+PellesC+xBuild+xHarbour.org 0.99.3 Quote Link to comment Share on other sites More sharing options...
jef2_tim Posted July 25, 2005 Report Share Posted July 25, 2005 Ola amigaum... Ha um arquivo la chamado lib_fwxh.mak mas eu nao sei usar, ele cria a lib mas nao sei como compilar .. pode me dar uma dica? E a versao 1.7 é a ultima ... a melhor? valeu Um Xharbraço. *** Karate-DO *** Conter o Espirito de Agreção **** Uso Fwh 2.5 (xharbour 0.99) e Xmate Para Compilar Quote Link to comment Share on other sites More sharing options...
evandro Posted July 26, 2005 Report Share Posted July 26, 2005 Olá, Não sei qual a última versão. Para gerar a lib use o xMate, porém não sei como fazer pois não o uso. Postei há mais tempo em Dicas um outro "make", o MyMake, que é muito fácil de usar e de gerar uma lib. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.5+PellesC+xBuild+xHarbour.org 0.99.3 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.