sig_gilberto Posted August 18, 2010 Report Share Posted August 18, 2010 Olá Desenvolvedores, Boa Tarde! Và muito aqui no forum, como DESATIVAR a barra de rolagem tanto vertical como horizontal do ListBox. Agora, como ATIVAR a barra de rolagem Horizontal ? Eu já tentei de tudo em relaçãoa oLBX:AlgumaCoisa=.t. e nada. Abaixo, será que é por que eu carrego o LixtBox com uma linha/coluna inteira que pode chegar ao ter 500 Caracteres ? Function AmostraArqTAB(b_param) Local oGroup1,oLBX,vLBX:="",mLBX:={}, vRc:=0 , vRegua1:="", vRegua2:="", vRegua3:="", vTam:=0 oArqLido:GoTop() While (oArqLido:Eof())=.f. vLhLida =oArqLido:ReadLine() AAdd(mLBX,vLhLida) If Len(Alltrim(vLhLida)) > vTam vTam:= Len(Alltrim(vLhLida)) EndIf oArqLido: Skip() vRc++ If vRC>=050 Exit EndIf EndDo For vC:=1 to vTam vRegua2+=iif(vC=1,"0",Space(08)+Substr(StrZero(vC,3,0),3,1)+" ") vRegua3+=Substr(StrZero(vC,3,0),3,1) Next AAdd(mLBX,vRegua2) AAdd(mLBX,vRegua3) @ 12.0,02.5 GROUP oGroup1 To 37,178 LABEL "Amostra:" OF oDlg FONT oFont0 COLOR RGB(050,150,000) @ 14.0,04.0 LISTBOX oLBX VAR vLBX Of oDLG PROMPTS mLBX Size 1200,300 FONT oFont4 ; COLOR RGB(000,000,255), RGB(255,255,255); MESSAGE "Navega pelos registros..." UPDATE oLBX:Refresh() Return ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted August 18, 2010 Author Report Share Posted August 18, 2010 Olá Desenvolvedores, Boa Tarde! Và muito aqui no forum, como DESATIVAR a barra de rolagem tanto vertical como horizontal do ListBox. Agora, como ATIVAR a barra de rolagem Horizontal ? Eu já tentei de tudo em relaçãoa oLBX:AlgumaCoisa=.t. e nada. Abaixo, será que é por que eu carrego o LixtBox com uma linha/coluna inteira que pode chegar ao ter 500 Caracteres ? Function AmostraArqTAB(b_param) Local oGroup1,oLBX,vLBX:="",mLBX:={}, vRc:=0 , vRegua1:="", vRegua2:="", vRegua3:="", vTam:=0 oArqLido:GoTop() While (oArqLido:Eof())=.f. vLhLida =oArqLido:ReadLine() AAdd(mLBX,vLhLida) If Len(Alltrim(vLhLida)) > vTam vTam:= Len(Alltrim(vLhLida)) EndIf oArqLido: Skip() vRc++ If vRC>=050 Exit EndIf EndDo For vC:=1 to vTam vRegua2+=iif(vC=1,"0",Space(08)+Substr(StrZero(vC,3,0),3,1)+" ") vRegua3+=Substr(StrZero(vC,3,0),3,1) Next AAdd(mLBX,vRegua2) AAdd(mLBX,vRegua3) @ 12.0,02.5 GROUP oGroup1 To 37,178 LABEL "Amostra:" OF oDlg FONT oFont0 COLOR RGB(050,150,000) @ 14.0,04.0 LISTBOX oLBX VAR vLBX Of oDLG PROMPTS mLBX Size 1200,300 FONT oFont4 ; COLOR RGB(000,000,255), RGB(255,255,255); MESSAGE "Navega pelos registros..." UPDATE oLBX:Refresh() Return ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted August 18, 2010 Author Report Share Posted August 18, 2010 Alguém poderia dar uma pequeno palpite neste caso ?? Por favor ! Deste jeito até aparece a barra horizontal, mas não popula o ListBox : @ 14.0,04.0 LISTBOX oLBX FIELDS MLBX HEADERS "COD","LINHA DO ARQUIVO TXT" FIELDSIZES 050,200 Of oDLG Size 1200,300 ; FONT oFont4 ; COLOR RGB(000,000,255), RGB(255,255,255) ; MESSAGE "Navega pelos registros..." UPDATE ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 18/08/2010 17:53:38 Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted August 19, 2010 Author Report Share Posted August 19, 2010 Olá Desenvolvedores, Bom Dia! Não consegui a barra de rolagem horizontal do ListBox mediante a minha situação acima. Vou ter que fazer em C# pois lá tem o DataGrid. Vlw ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 19, 2010 Report Share Posted August 19, 2010 Deve ser um defeito da sua versão com @... Use o WorkShop.exe, que funcionará perfeitamente. Use a cabeça rapaz... João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted August 19, 2010 Author Report Share Posted August 19, 2010 Defeito na versão ? Legal heim... Bem, realizar outros testes até conseguir. O engraçado é que se eu vou popular um LixtBox mesmo sendo de uma tabela dbf, por exemplo, seu o campo tiver o tamanho maior que a tela/listbox, ele deveria me dar opção automaticamente de poder rolar a direta/esqueda com a barra na horizontal. Quando populo o ListBox com mais de um campo, ai ele me dá esta opção de barra. O problema é que eu estou populando cada linha do ListBox com uma única linha de +- 500 caracteres que é linha-a-linha que leio de um arquivo TXT. É que eu quero dar uma prévia do arquivo TXT para o usuário antes dele tomar a próxima decisão. Mas..vou fazer mais teste... ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 19, 2010 Report Share Posted August 19, 2010 Voce esta usando este comando? oLbx:aJustify := { .T., .F., .F., .F., .F., .F. } id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
gilmer Posted August 19, 2010 Report Share Posted August 19, 2010 Nem o xBrowse vai colocar scroll em campo que passa o limite da área de apresentação do browse, ou seja, a columa ser maior que a área do browse, você pode montar um tecla mágica para apresentar uma janela com a descrição completa, ou abrir a edição da celula sem gravar os dados e-mail: gilmer@fivewin.com.br msn: fivewinbrasil@hotmail.com Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted August 19, 2010 Author Report Share Posted August 19, 2010 Amigos, eu não posso utilizar de uma tecla para exibir a outra parte faltante. Eu preciso que o usuário veja a linha toda da coluna 01 até a coluna X. Eu coloco uma "regua" como se fosse dos editores "1234567890..." para que ele veja onde começa e termina tal campo. Deste jeito até aparece a barra horizontal mas...não mostra os dados.: @ 14.0,04.0 LISTBOX oLBX FIELDS MLBX HEADERS "COD","LINHA DO ARQUIVO TXT" FIELDSIZES 050,200 Of oDLG Size 1200,300 ; FONT oFont4 ; COLOR RGB(000,000,255), RGB(255,255,255) ; MESSAGE "Navega pelos registros..." UPDATE oLbx:aJustify := { .T., .F., .F., .F., .F., .F. } ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 19/08/2010 14:41:36 Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted August 19, 2010 Author Report Share Posted August 19, 2010 Completando, caso algum dos colegas tenha algo parecido: O Cliente nos manda um arquivo ASCII/TXT tabulado, onde eu o leio/carrego uma pequena parte dele no ListBox. Estes arquivos podem ter até +- 1000 caracteres de comprimento. Eu preciso visualizar/localizar dentro deste arquivo, onde começa e acaba os campos CEP e UF, isso através da "regua" que fiz.. Este campos poderão esta no começo ou mesmo no final da linha do arquivo... Pra isso eu precisava carrega e visualizar a linha. Nem todos os arquivos de clientes, têm o mesmo LayOut, por isso preciso visualizar a linha inteira.. Este é o meu dilêma!!! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
gilmer Posted August 20, 2010 Report Share Posted August 20, 2010 Bom Dia, Se você quer visualizar TXT, apenas visualizar, acho que você poderia pensar em outra solução, pois wbrowse realmente não vai fazer o que deseja, acho que a txtprev iria funcionar. e-mail: gilmer@fivewin.com.br msn: fivewinbrasil@hotmail.com Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted August 20, 2010 Author Report Share Posted August 20, 2010 Olá Gilmer, Bom Dia! Você poderia me dar um simples exemplo de como utilizar este TXTPrev ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Quote Link to comment Share on other sites More sharing options...
gilmer Posted August 20, 2010 Report Share Posted August 20, 2010 Eu não tenho esta classe, mas em dicas vc pode achar, agora esta sendo possivel baixar e-mail: gilmer@fivewin.com.br msn: fivewinbrasil@hotmail.com Quote Link to comment Share on other sites More sharing options...
sig_gilberto Posted August 20, 2010 Author Report Share Posted August 20, 2010 Obrigado Gilmer.. Mas ainda esta dando erro ao tentar baixar pela DICAS. ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP C# / xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 9.03 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." 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.