maudruidas Posted January 11, 2007 Report Share Posted January 11, 2007 Toda vez que chamo uma dialog que tenha um TCBROWSE, e o cursor do mouse é passado pela 1a. vez sobre ele, após uns 2s a minha dialog pisca, só na primeira vez, é estranho não ? oque será faz causar isto. Veja como define o browse: DADOS:=ARRAY(0,8) REDEFINE BROWSE OLPAR ID 124 OF ODLPDVP COLORS CLR_BLACK,BRWBACK FONT OFNC CURSOR OCUR UPDATE OLPAR:SETARRAY(DADOS) OLPAR:NCLRPANE := COR1 OLPAR:CTOOLTIP := "Botão Direito do Mouse Seleciona Item a Ser Alterado, -Edita" OLPAR:NLINESTYLE := 3 // Tipo de linha da grade OLPAR:NCLRBACKHEAD := COR2 // Cor do Fundo do Cabeçalho OLPAR:NCLRBACKFOCUS := CLR_BLUE // Cor do Cursor Em Cima do Ötem OLPAR:NCLRFOREFOCUS := CLR_WHITE // cor da letra da barra ativ OLPAR:LNOGRAYBAR:=.T. // Tira a Barra Cinza // OLPAR:NFREEZE := 7 // Não permite alterar o tam. da coluna c/ o mouse <-> OLPAR:BKEYDOWN:={|NKEY| EDITABROWSE(OLPAR,NKEY)} OLPAR:NCOLACT := 1 // ONDE O CURSOR VAI INICIAR QUAL COLUNA? OLPAR:LCELLSTYLE := .T. // S¢ PINTA A CELULA QUE O CURSOR EST OLPAR:lNoHScroll:=.T. ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 1 WIDTH 60 ALIGN CENTER HEADER "Parcela" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 2 WIDTH 90 ALIGN CENTER HEADER "Vencimento" EDITABLE PICTURE "99/99/9999" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 3 WIDTH 100 CENTER HEADER "Dia da Semana" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 4 WIDTH 80 CENTER HEADER "Valor R$" EDITABLE PICTURE "@E 9,999.99" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 5 WIDTH 60 ALIGN CENTER HEADER "Parcela" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 6 WIDTH 90 ALIGN CENTER HEADER "Vencimento" EDITABLE PICTURE "99/99/9999" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 7 WIDTH 100 CENTER HEADER "Dia da Semana" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 8 WIDTH 80 CENTER HEADER "Valor R$" EDITABLE PICTURE "@E 9,999.99" id=code>id=code>Muito obrigado. MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Editado por - maudruidas on 11/01/2007 20:37:26 Editado por - maudruidas on 11/01/2007 20:38:57 Quote Link to comment Share on other sites More sharing options...
maudruidas Posted January 11, 2007 Author Report Share Posted January 11, 2007 Toda vez que chamo uma dialog que tenha um TCBROWSE, e o cursor do mouse é passado pela 1a. vez sobre ele, após uns 2s a minha dialog pisca, só na primeira vez, é estranho não ? oque será faz causar isto. Veja como define o browse: DADOS:=ARRAY(0,8) REDEFINE BROWSE OLPAR ID 124 OF ODLPDVP COLORS CLR_BLACK,BRWBACK FONT OFNC CURSOR OCUR UPDATE OLPAR:SETARRAY(DADOS) OLPAR:NCLRPANE := COR1 OLPAR:CTOOLTIP := "Botão Direito do Mouse Seleciona Item a Ser Alterado, -Edita" OLPAR:NLINESTYLE := 3 // Tipo de linha da grade OLPAR:NCLRBACKHEAD := COR2 // Cor do Fundo do Cabeçalho OLPAR:NCLRBACKFOCUS := CLR_BLUE // Cor do Cursor Em Cima do Ötem OLPAR:NCLRFOREFOCUS := CLR_WHITE // cor da letra da barra ativ OLPAR:LNOGRAYBAR:=.T. // Tira a Barra Cinza // OLPAR:NFREEZE := 7 // Não permite alterar o tam. da coluna c/ o mouse <-> OLPAR:BKEYDOWN:={|NKEY| EDITABROWSE(OLPAR,NKEY)} OLPAR:NCOLACT := 1 // ONDE O CURSOR VAI INICIAR QUAL COLUNA? OLPAR:LCELLSTYLE := .T. // S¢ PINTA A CELULA QUE O CURSOR EST OLPAR:lNoHScroll:=.T. ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 1 WIDTH 60 ALIGN CENTER HEADER "Parcela" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 2 WIDTH 90 ALIGN CENTER HEADER "Vencimento" EDITABLE PICTURE "99/99/9999" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 3 WIDTH 100 CENTER HEADER "Dia da Semana" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 4 WIDTH 80 CENTER HEADER "Valor R$" EDITABLE PICTURE "@E 9,999.99" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 5 WIDTH 60 ALIGN CENTER HEADER "Parcela" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 6 WIDTH 90 ALIGN CENTER HEADER "Vencimento" EDITABLE PICTURE "99/99/9999" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 7 WIDTH 100 CENTER HEADER "Dia da Semana" ADD COLUMN TO BROWSE OLPAR DATA ARRAY ELEMENT 8 WIDTH 80 CENTER HEADER "Valor R$" EDITABLE PICTURE "@E 9,999.99" id=code>id=code>Muito obrigado. MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Editado por - maudruidas on 11/01/2007 20:37:26 Editado por - maudruidas on 11/01/2007 20:38:57 Quote Link to comment Share on other sites More sharing options...
rubensma Posted January 11, 2007 Report Share Posted January 11, 2007 Ola, tente modificar a frequencia de atualização da tela nas propriedades de monitor. Consulte o manual de seu monitor p/ver se ele permite. Normalmente está em 60 hertz e c/70 hertz melhora. Não mude se não souber pois pode ser prejudicial se não permitir ok. Rubens Martins rubens.martins@brfree.com.br FW20 + Clipper 5.2e + Workshop + Blinker 60 Quote Link to comment Share on other sites More sharing options...
maudruidas Posted January 11, 2007 Author Report Share Posted January 11, 2007 Rubens obrigado pela dica, mudei p/ 75, opção que existia, mas nada mudou, continua piscando. Será que mais alguém pode me ajudar ? Obrigado. MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
maudruidas Posted January 13, 2007 Author Report Share Posted January 13, 2007 Pessoal será que ninguém sabe ? MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 13, 2007 Report Share Posted January 13, 2007 citação:Pessoal será que ninguém sabe ? MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 id=quote>id=quote>CUAL FOI O ITEM DO TOOLS, QUE VOCE ESCOLHEU PARA PARAR A LISTBOX??? VERIFIQUE, SE É MESMO UMA TCBROWSE QUE VOCE ESCOLHEU. SE ESTIVER ERRADA, TROQUE PELA BROWSE CORRETA(TCBROWSE). João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
maudruidas Posted January 13, 2007 Author Report Share Posted January 13, 2007 Kap como vai td vem ? Obrigado pela atenção. Para o Browse uso o TCBROWSE do WS e para LISTBOX uso o TWBROWSE. Tem alguma pista do problema ?. Obrigado MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
maudruidas Posted January 18, 2007 Author Report Share Posted January 18, 2007 Só para ir para o inÃcio. Me ajudem meu cliente é exigente (chato) hehe. MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
aferra Posted January 19, 2007 Report Share Posted January 19, 2007 Mauricio, bom dia!!! será que não é a sequencia dentro do resource, eu estou testando passar para resource e eu uso a tsbrowse e piscou tb aà eu coloque a sequencia 1 tsbrowse, 2 say, 3 get, 4,5,6,7 botao e parou, nao sei se consegui explicar, é uma ferramenta que tem 1,2, tenta para mim resolveu... Alessandro F. Silvaid=blue> E-mail :aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say + CDX MSN: ferracini_silva@hotmail.com Ribeirão Preto/SP Quote Link to comment Share on other sites More sharing options...
gilmer Posted January 19, 2007 Report Share Posted January 19, 2007 Ola, Voce nao tem um timer em alguma parte do programa? Quote Link to comment Share on other sites More sharing options...
vagner Posted January 19, 2007 Report Share Posted January 19, 2007 Olá, Como está sua Dialog ?, vc têm algum comando On Paint nela ?, seus gets estão com Update ?, vc faz algum oDlg:Refresh() ? 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...
kapiaba Posted January 19, 2007 Report Share Posted January 19, 2007 citação:Ola, Voce nao tem um timer em alguma parte do programa? id=quote>id=quote>ESTA É NOVA PARA MIM, USO TIMER EM VARIOS LOCAIS DO MEU PROGRAMA, E MINHAS BROWSES(TWBROWSE) NAO PISCAM. CARO USUARIO, ENVIE O FONTE E O RECURSO QUE O MESMO ACIONA. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
maudruidas Posted January 21, 2007 Author Report Share Posted January 21, 2007 Pessoal delculpe pela demora, estava viajando. Vejam depois de vários testes consegui com certeza descobrir o que faz a tela piscar. Percebi que não era apenas ao passar o mouse no TCBROWSE, e sim tbem, nos botões. Aà resolvi tirar o TOOLTIP do TCBROWSE e parou. Depois fiz o mesmo teste com o botão, tmbém resolveu, e quando coloco de volta e passo o mouse em cima destes objetos c/ tooltip a minha dialog pisca. O que será que causa isto ?: REDEFINE BTNBMP OBTN ID 105 OF ODLPDV RESOURCE "SAIR" ACTION(SAIDLG:=.T.,ODLPDV:END(),SAIDLG:=.F.) ; PROMPT "Sair" LEFT FONT OFONT TOOLTIP "Fechar / Sair" SAIDLG := .F. ACTIVATE DIALOG ODLPDV ON INIT(ODLPDV:MISetSize(),OBTN2:DISABLE(),OBTN3:DISABLE()) VALID SAIDLG CENTER//; id=code>id=code>Pessoal espero que tenham uma solução. Obrigado pelas dicas, testei todas mas não resolveram. O problema é realmente o tooltip. MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
maudruidas Posted January 22, 2007 Author Report Share Posted January 22, 2007 Apenas p/ Ir p/ o inÃcio MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 22, 2007 Report Share Posted January 22, 2007 citação:Apenas p/ Ir p/ o inÃcio MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 id=quote>id=quote>NAO KONKORDO!! TIRE O FONT oFont Para Ver o ke ocorre!! João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
maudruidas Posted January 22, 2007 Author Report Share Posted January 22, 2007 João tirei o ofont REDEFINE BTNBMP OBTN ID 105 OF ODLPDV RESOURCE "SAIR" ACTION(SAIDLG:=.T.,ODLPDV:END(),SAIDLG:=.F.) ; PROMPT "Sair" LEFT TOOLTIP "Fechar / Sair" //FONT OFONT mas continua piscando, agora se eu tirar o tooltip, para REDEFINE BTNBMP OBTN ID 105 OF ODLPDV RESOURCE "SAIR" ACTION(SAIDLG:=.T.,ODLPDV:END(),SAIDLG:=.F.) ; PROMPT "Sair" LEFT // TOOLTIP "Fechar / Sair" FONT OFONT Obrigado e aguardando alguma conclusão dos mestres hehe, não vão me xingar pelo mestre hein ! MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 22, 2007 Report Share Posted January 22, 2007 JA FALEI, ENVIE O FONTE E O DIALOGO PARA EU OLHAR. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
maudruidas Posted January 22, 2007 Author Report Share Posted January 22, 2007 João enviei em seu e-mail kapiaba@brfree.com.br. Obrigado MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 23, 2007 Report Share Posted January 23, 2007 citação:João enviei em seu e-mail kapiaba@brfree.com.br. Obrigado MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 id=quote>id=quote>PROJETO MOMENTANEAMENTE, CONDENADO.(Correção->hehehehehe). ESTAIS COMETENDO VARIOS ERROS, TANTO NO MODULO, BEM COMO, NO DIALOGO. EXEMPLO: ESTAIS CHAMANDO SAYS, DE "GROUP" E GROUP BOX, VOCE CRIA NO TOOLS DO WORKSHOP.EXE NO BOTAO , E CLICA EM GROUP BOX. NO SAYS DOS VALORES, DEVERIAS TER GETS COM DESLIGADO E WHEN( .F. ) PARA RECEBER A VARIAVEL, CONTROLE, É BEM MELHOR... VARIAVEIS STATICAS, ESTAO ESPALHADAS PELO MODULO. VARIAVEIS MEMVAR, ESTAO ANTES DAS LOCAL... NAO DEVES PROCEDER ASSIM... SIGA A ORDEM ALFABETICA. TUAS VARIAVES ESTAO SENDO DEFINIDAS DENTRO DO LOOPING DO DEFINE DIALOG... ACTIVATE DIALOG... DEFINA ANTES DO DEFINE DIALOG... VARIAVEIS COM FLAG .F., ESTAO ANTES DO ACTIVATE DIALOG, DEVEM ESTAR DEPOIS, AO DESLIGAR O DIALOG, É QUE ELAS DEVEM TORNAR-SE .T. OU .F.. Estarei fazendo uma analise mais critica, depois envio o MODULO para voce ver e aprovar. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 23/01/2007 09:33:37 Editado por - kapiaba on 23/01/2007 11:34:08 Quote Link to comment Share on other sites More sharing options...
maudruidas Posted January 23, 2007 Author Report Share Posted January 23, 2007 Valeu Kap, agradeço desde já pela atenção, o ideal era se existisse um curso de five. Mas tudo que aprendi aqui foi graças a vcs, e aos poucos chego lá. Meu medo vai ser em Março que quero comprar o 2.8 harbour, aà o bicho vai pegar, hehe. Um abraço. MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
aferra Posted January 23, 2007 Report Share Posted January 23, 2007 não tem nada haver com o tópico mas não podia deixar passar essa, hehehehehe PROJETO MOMENTAMENTE, CONDENADO. essa eu nunca havia visto... hehehehehe Estarei fazendo uma analise mais critica, depois envio o MODULO para voce ver e aprovar. mais critica que isso, coitado do rapaz... hahahahahahaha desculpe MaurÃcio, mas não podia deixar passar.... Alessandro F. Silvaid=blue> E-mail :aferracini@terra.com.br FW2.0d + CL53b + Blinker 7.0 + @Say + CDX MSN: ferracini_silva@hotmail.com Ribeirão Preto/SP Quote Link to comment Share on other sites More sharing options...
maudruidas Posted January 23, 2007 Author Report Share Posted January 23, 2007 Td bem Alessandro, não fico bravo por estes comentários, Agora se a minha tela continuar piscando e eu ficar sem resposta, aà vou condenar bastante gente. hehehehe brincaderinha... haha. MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 23, 2007 Report Share Posted January 23, 2007 citação:Td bem Alessandro, não fico bravo por estes comentários, Agora se a minha tela continuar piscando e eu ficar sem resposta, aà vou condenar bastante gente. hehehehe brincaderinha... haha. MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 id=quote>id=quote>EU JA DEI O CAMINHO DAS PEDRAS, VA MODIFICANDO O MODULO E O DIALOGO, ATÉ CHEGAR O MEU... VAI DEMORAR UM POUQUINHO, POIS ESTOU TODO 'ENROLADO'. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 23/01/2007 13:33:23 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 23, 2007 Report Share Posted January 23, 2007 Veja seu email. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
maudruidas Posted January 25, 2007 Author Report Share Posted January 25, 2007 Kap muito obrigado pela aula, parece que o problema parou. Reestruturei todos os fontes. Quanto ao VBOX - GROUP não sei qual foi a confusão que vc fez. É simples criei um group box no WS e no prg INCLUDE VBOX e group. Só usei como visual pois tem mais recursos. Só tenho uma dúvida: qndo usar variáveis ou funções estáticas e p/ que servem ?(qual a vantagem ?). Obrigado. MaurÃcio de Assis Pinto Rancharia - SP maudruidas@yahoo.com.br CLIPPER 5.3 FWH 2.4 BLINKER 7.0 Workshop 4.5 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.