vagner

Olá Pessoall, Será que alguém poderia me ajudar ?, bom existem muitos programa em "C", no FW, funções que já funcionam mas que poderiam ser alteradas (melhoradas), qual o compilador ideal para isso, eu tenho o Turbo C 2.0 o 3.1 e o Borland c++ 5.5, porém esse ultimo é para 32 bits e não vai, os 2 1ºs são para 16 mas me da pau nas libs configuração diferente, será que alguém pode me indicar o compilador certo e se por um acaso qualquer desses servirem me informar como compilar, pois não vai nem a pau. Abraços Vagner Wirts São Paulo-Brasil

Olá Marllon, Tente dar um oBrw:Default(), após fazer a seleção do combo. Quanto ao Vetor coloque a função oBrw:SetArray(aArray) Abraços Vagner Wirts São Paulo-Brasil

Olá Marllon, não há necessidade de alterar o font, eu lhe passo os comandos, já tentaste o :oLbxVisu:lMChange := .F. ? Eu uso assim e não deixo ninguém mudar a posição Abraços Vagner Wirts São Paulo-Brasil

É Marllon, Qdo comecei a trabalhar com programação (1981) era CPM equipamento Dismac Alfa 2064 disquete de 8" impressora Mônica entre outras, (desculpem o saudosismo) desde então já testei tudo o que foi CHR() em impressora, e infelizmente nunca consegui retroceder linha, acabei de visitar o site da epson e nos comandos que a impressora pode executar (que não são poucos), não fala nada sobre retroceder uma linha ou mais via software, mesmo assim mandei um e-mail para eles e vou esperar o retorno. Abraços Vagner Wirts Ps.: Marllon, conseguiste solucionar o problema do TSBrowse para não mudar a coluna de posição ? Editado por - vagner on 06/12/2002 11:28:35

Ok João, Esse comandos já era conhecido por mim, ainda têm os : Chr(14) Expandido em uma linha Chr(18) retira a expansão Chr(20) retira o condensado além de outros como : Chr(27)+"C"+n que coloca a página para n linhas, mas nunca consegui fazer com que o carro retrocedesse, mas com certeza farei o teste. Abraços Vagner Wirts São Paulo-Brasil

Olá Edu, Bom eu fazia assim no Clipper Puro, no FW não consegui, então montei uma rotina para isso só que necessita de um get, essa rotina eu uso para dados dos browse mas seria somente mudar para funcionar com array. Primeiro cria-se uma var para a pesquisa no caso "oPesq e cPesq" que contêm 70 caracteres @ 122,062 To 139,293 Of oVisu Label "Pesquisar :" Pixel @ 130,066 Get oPesq Var cPesq Pict "@!" Pixel Size 224,7 On Change Pesquisa() Valid(Enter(lTransp,oVisu)) Aqui teria que mudar a pesquisa, onde for Seek mude para AsCan. /*---- Funcao para Pesquisar Dados ----*/ Static Func Pesquisa() If cChav # RTrim(oPesq:cText) cChav := RTrim(oPesq:cText) Endif If oPesq:nLastKey == 8 cChav := Left(cChav,Len(cChav)-1) Else cChav += Chr(oPesq:nLastKey) Endif If !DbSeek(cChav) cChav := Left(cChav,Len(cChav)-1) DbSeek(cChav) Endif oPesq:VarPut(cChav) oLbx:UpStable() oLbx:Refresh() Retu("") Abraços Vagner Wirts São Paulo-Brasil

Olá Marllon, Tente após fechar a dialog dar um SysRefresh(), o SysRefresh() atualiza todas as janelas abertas no programa. Abraços Vagner Wirts São Paulo-Brasil

Olá Pessoal, Alguém saberia um jeito de copiar parte da tela (em FW é lógico) e salvar em memória ou até em BitMap ? Obrigado Abraços Vagner Wirts São Paulo-Brasil

Olá Edu, Ficaria muito mais fácil mudar a cor da linha do que mudar o estilo da linha, pois o estilo é geral, já a cor pode ser feito uma linha azul e outra amarela por exemplo. Abraços Vagner Wirts São Paulo-Brasil

Olá Evandro, Quando se está usando o ListBox, automáticamente está se usando TWBrowse, então todos os comandos do TWBrowse pode ser aplicado no listbox.:þ) Só que nesse caso será criado um filtro também.:þ( Abraços Vagner Wirts São Paulo-Brasil

Olá Carlos, Vc também é Rana ?, Respondi sua pergunta no fórum da fivetech, mas aqui vai, crie um array contendo suas vars e trabelhe normalmente, criando um array, será como se estivesse usando somente uma var. Abraços Vagner Wirts São Paulo-Brasil

Já está em dicas. Abraços Vagner Wirts São Paulo-Brasil

Ok, Não o tempo aqui hoje está ótimo, nem quente nem frio. acho que não vai chover por aqui, pelo menos nos meus lados (heheheh) Abraços Vagner Wirts São Paulo-Brasil

Olá karinh, Como disse nosso amigo Marllon, não é possivel, o máximo que conseguiria seria retroceder os micro espaços, mas precisaria ter as configurações, que a Epson, não põe em nenhum manual Abraços Vagner Wirts São Paulo-Brasil PS.: Não esqueçam de mim nas brejas, já marcaram o local ?

Olá Alexandre, Infelizmente no Harbour, ainda não usei, bom tudo irá depender do Clipper que está usando, se for o 5.2 esquece, mas se tiver as libs do 5.3 pode usar sem preocupação, é muito bom, se quizer devo ter um texto sobre o CDX vou dar uma olhada e coloco nas dicas. Abraços Vagner Wirts São Paulo-Brasil

Olá Evandro, Nesse caso acho que não lhe ajudaria muito, pois teria que ter no índice +- isso : Inde On Associ To .... Onde Associ seria sua var e fazer a pesquisa +- assim OrdSCope(0,"X") OrdScope(1,"X") Onde o "X" seria todos Associ que estiverem marcados com um "X" Abraços Vagner Wirts São Paulo-Brasil Ps.: Vale a pena criar um novo TAG no arquivo.:þ)

Olá, Bom se vc usa o CDX fica muuuuuuuiiiitoooooo, mais rápido usar o OrdScope(), não há demora nenhuma na filtragem de códigos, só que terá que ter um índice associado.Agora precisariamos saber um pouco + sobre o que pretende fazer, para dar-mos uma explicação + adequada. Abraços Vagner Wirts São Paulo-Brasil

Olá, Infelizmente o GET do FW trabalha diferente do CLIPPER(Dos), e as alterações que vc fez assim como eu também havia feito, não é mais possivel ser usada, teoricamente suas funções funcionarão, se não se tratar do GET, tipo o GetFocus() que vc citou, pois no FW o GET não executa um modo de espera como no CLIPPER puro. Abraços Vagner Wirts São Paulo-Brasil

Ok, Também recebi o e-mail e se possível mande-me também os fontes, pois como respondi no e-mail, quem sabe poderemos coloca-lo no tray do Windows e não deixa-lo como uma janela. Abraços Vagner Wirts São Paulo-Brasil Ps.: Mandei para o meu cliente e já está funcionando, encontrou o "maledeto" e eliminou.

Olá Gilmer, Um rapaz muito precoce pelo que lí (aos 3 anos montei uma classe)(hehehehe), bom tirando os comentários, mande para meu e-mail, para que possamos analiza-la e se for possivel melhora-la (mas creio que já deva estar muito boa.) Abraços Vagner Wirts São Paulo-Brasil

Olá Alexandre, Bom não sei se entendi direito a sua dúvida, mas vamos lá. @ 01,01 Get oGet Var cGet ..... Valid(Teste()) @ 10,01 Button oBut.... Action(oDlg:End()) Func Teste() If Empty(cGet) oDlg:End() Retu(.T.) Endif Aqui entra a checagem do arquivo Retu(.T. ou .F.) dependendo da checagem Nesse caso tanto faz o usuário dar o enter no codigo em branco como pressionar o botão de saida que fechará a dialog. Abraços Vagner Wirts São Paulo-Brasil

Ok, Então vc pode usar o olbx:SetArray(aArray), mas terá que montar as colunas de visualização com as escolhas do usuario antes. no TWBrowse, é mais fácil fazer isso já no TSBrowse, eu tenho que dar uma olhada no fonte do Manuel para poder lhe passar uma informação correta, até a tarde lhe passo o comando certo. Abraços Vagner Wirts São Paulo-Brasil

Ok, vamos nos reunir, para tomar umas brejas (hehehe), e lógico trocar ideias sobre o FW. Abraços Vagner Wirts

Blz, é só falar que estamos aqui. Abraços Vagner Wirts São Paulo-Brasil

Falow, inclusive eu mandei para o Gilmer a minha VFolder e a VMeter, para que disponibilize para todos do fórum. Falando nisso mande um abraço para o Luis, faz muito tempo que não converso com ele. Abraços Vagner Wirts São Paulo-Brasil