marcos

A versão do windows é 98 OEM Estou chamando da seguinte forma: ... ACTION PrinterSetup() Também utilizo a TWord, para editar um arquivo Word, e acontece a mesma coisa. Marcos - S.B.Campo

Olá Pessoal, Respondendo e-mail do Elias, respondendo e-mail do João, respondendo...(Desculpem a demora) Gostaria muito de estar com vocês para conhecê-los. Apesar de não beber, não haveria problema nenhum, seria uma grande honra. Mas infelizmente, eu também já tinha alguns compromisso para esta data, mas com certeza oportunidades não irão faltar. Brigadão pela força João, Elias, e todos deste fórum... Abraço a todos Marcos - S.B.Campo

Olá Pessoal, Estou rodando uma aplicação e não consigo rodar duas rotinas dela: Uma é a chamada do Setup da Impressora e a outra é a TWord. Já aumentei os stacks/heap.., SetHandleCount(255) e não funciona. Retorna uma msg "Este programa executou uma operação ilegal...". Alguém saberia qual é a solução ? Abraços Marcos - S.B.Campo

Veja se ajuda Isto está em source\function\random.prg // Generates a random number from 0 to nRange // © FiveTech 1993-6 #include "FiveWin.ch" static nSeed //----------------------------------------------------------------------------// function nRandom( nRange ) local nValue DEFAULT nRange := 65535, nSeed := Seconds() nValue = nSeed * Seconds() % ( nRange + 1 ) nSeed = nValue + Seconds() return Int( nValue ) //----------------------------------------------------------------------------// function nHex( cHex ) local n, nChar, nResult := 0 local nLen := Len( cHex ) for n = 1 to nLen nChar = Asc( Upper( SubStr( cHex, n, 1 ) ) ) nResult += ( ( nChar - If( nChar <= 57, 48, 55 ) ) * ( 16 ^ ( nLen - n ) ) ) next return nResult //----------------------------------------------------------------------------// function DecToHex( nValue ) local nMod, cDec := "" while nValue > 16 nMod = nValue % 16 nValue = Int( nValue / 16) cDec = HexVal( nMod ) + cDec end cDec = HexVal( nValue ) + cDec return cDec //----------------------------------------------------------------------------// static function HexVal( nValue ) LOCAL cValue if nValue < 10 cValue := Str( nValue, 1 ) else cValue := Chr( 55 + nValue ) endif return cValue //----------------------------------------------------------------------------// Marcos - S.B.Campo

Gilmer ou alguém que possa me ajudar Eu utilizo a classe tword para WORD, e verifiquei que existe uma sugestão para se trabalhar com ole Baixei a lib ole2 de dbwide verifiquei o exemplo testole.prg ok. o acesso ao word é mais rápido do que a tword Mas como saber os comandos e as funções dessa classe ? Marcos - S.B.Campo

João Eu compilei, executei, depois abri o .rc no ws e não consegui entender como colocar o bitmap minha ingnorância não tem limites (rsrsrs) Marcos - S.B.Campo

Olá Pessoal, Como eu faria para acrescentar BitMap no menu abaixo: REDEFINE MENUITEM aMenu[01] PROMPT ID 101 OF oMenu Action TelaShell() REDEFINE MENUITEM aMenu[02] PROMPT ID 102 OF oMenu Action optmenu(1) REDEFINE MENUITEM aMenu[03] PROMPT ID 103 OF oMenu Action Usuarios() Tentei fazer o seguinte: Redefine MenuItem aMenu[03] Prompt Id 103 Of oMenu Resource "USUARIO" Action Usuarios() // Não deu certo. Abraço a todos Marcos - S.B.Campo

Legal Elias Se você me fizer esse favor, eu agradeço muito. Marcos - S.B.Campo marcos_rps@uol.com.br

Olá Pessoal, Será que alguém poderia me fornecer, por gentileza, uma cópia do clipper 5.3b Eu baixei do upseros o 5.3 e depois baixei do comunidade clipper o patch 5.3b, mas não deu certo. Alguém poderia me ajudar ????? Abraços Marcos - S.B.Campo

Olá Pessoal, Eu baixei o clipper do upseros e depois o patch da comunidade clipper, mas não consegui atualizar para 5.3b Será que alguém teria o clipper 5.3b para me fornecer ? Abraços Marcos - S.B.Campo

Obrigado Vagner Marcos - S.B.Campo

Parabéns João Deu certo !!! O problema era um BRUSH que eu esqueci de descarregar. Valeu mesmo !!! Marcos - S.B.Campo

Se você quiser eu tenho um pequeno manual em português, que trata desde a criação de janelas até como linkar o seu programa. É bastante superficial, mas ajuda. O acesso a base de dados pode continuar, a principio, sendo o mesmo que você utilizava no clipper. Comece implementando telas visuais. Você pode continuar compilando seus programas com o Clipper, desde que seja a versão 5.2 ou superior, e linkando com o Blinker. Já com relação as telas você pode desenvolvê-las no WorkShop e salva-las em uma DLL ou RC e para ter acesso a elas, basta fazer uma chamada com referencia em seu programa. Neste manual existem esses passos. Marcos - S.B.Campo Posso mandar por e-mail, se você quiser.

Olá Pessoal, Eu sei que vocês são feras, por isso tenho certeza de que vocês podem me ajudar. Eu estou rodando um sistema em fivewin. Quando saio desse sistema e acesso outro sistema em clipper, aparece a tela azul do windows... aquela que vocês já conhecem. Quando pressiono uma tecla para retornar, a tela fica escura e completamente estática, a ponto de eu ter que reiniciar o computador. Vocês saberiam me responder a razão disso ? Marcos - S.B.Campo

Faça o up-grade para 2.4 É mais fácil, É mais rápido, É mais caro !!! Brincadeirinha !!!! Se você quiser eu tenho a classe pronta. É só pedir. Marcos - S.B.Campo

O CARA É DEZ MESMO !!!!!!

Olá pessoal, Sem querer abusar mas já abusando, alguém sabe como faço para desativar a tecla "ESC" das janelas DIALOGS. Eu tenho o botão fechar na janela com alguns comandos. Se o usuário teclar ESC a janela se fecha, mas os comandos que estavam no botão fechar não são executados. Teria outra solução ??? PS: Eu tô aprendendo... Marcos - S.B.Campo

OBRIGADO PESSOAL aumentando a quantidade de stacks e heapsize deu certo Valeu !!! Eu chego lá !

Olá Pessoal, Eu tenho um sistema de "Gestão de Materiais". Precisei implementar uma nova rotina de liberação de materias, com janelas, folders, etc. A partir de momento em que incluí esta rotina, toda vez que entro em qualquer opção do sistema que abra janelas ou folder, o windows me retorna o erro "Este programa executou uma operação ilegal...". Pensei que o sistema está muito sobrecarregado, e tirei algumas rotinas não-importantes. Mesmo assim, o sistema continua dando "pau". Quando eu tiro esta nova rotina o sistema funciona. Pensei que fosse algum problema com ela, mas qualquer programa que incluo no sistema faz que todo o sistema pare. Alguém poderia me ajudar ? Marcos - S.B.Campo marcos_rps@uol.com.br

Troquei a versão do FW2.2. Clipper para FW2.4 Eu utilizo a biblioteca drlib.lib e drapi.lib ( só utilizo a função dr_wall(), para preenchimento junto com o PAINT em ACTIVATE WINDOW... ) O grande problema é que na Versão 2.4 estas LIBS não funcionam. Alguém saberia qual a solução ????? Marcos Roberto - marcos_rps@uol.com.br

Troquei a versão do FW2.2. Clipper para FW2.4 Eu utilizo a biblioteca drlib.lib e drapi.lib ( só utilizo a função dr_wall(), para preenchimento junto com o PAINT em ACTIVATE WINDOW... ) O grande problema é que na Versão 2.4 estas LIBS não funcionam. Alguém saberia qual a solução ????? Marcos Roberto - marcos_rps@uol.com.br