gilbrodrigues

Ola pessoal, Estou tendo dificuldades em mostrar um elemento de um array via combobox, pois mesmo dando refresh e update o conteudo que é da variavel não é mostrado na tela. Segue o programa abaixo: ----------------------------------------------------------- REDEFINE COMBOBOX oxycmb VAR xcontat ITEMS xVetCli ID 4008 OF oDiag1 UPDATE // letra tela combo getobj REDEFINE COMBOBOX oxycmb2 VAR lettercli ITEMS xvetAlfa ID 4025 OF oDiag1 UPDATE ON CHANGE ProcVisita(lettercli,@oDiag1,@oxycmb) FUNCTION ProcVisita(letra,atuform,control) // varobj pode ser NIL (null) nulo PUBLIC xletra := letra filearq := "PROPRIET" (filearq)->(DBSETFILTER( {|| LEFT ((filearq)->NOME,1) == xletra} )) xVetCli := {} (filearq)->(dbGoTop()) WHILE ( !(filearq)->(EOF()) ) AADD(xVetCli, (filearq)->NOME) (filearq)->(DBSKIP()) END (filearq)->(dbSetfilter()) IF LEN(xVetCli) >= 01 xcontat := xVetCli[1] // ENDIF control:SetItems(xVetcli) control:show() control:update() control:Refresh() control:setfocus() atuform:update() atuform:refresh() RETURN .T. ******************************************************** Note que a variavel XCONTAT (é que deve ser atualizada) é a que armazena o item selecionado do array/combo. Isso funciona. Mas tem 'alguma coisa' que nao esta atualizando nem com refresh nem update o objeto desta variavel é atualizado somente o controle da combo funciona perfeitamente. Se alguem tiver uma sugestão.. Editado por - gilbrodrigues on 01/03/2011 12:43:56

Ola pessoal, Estou tendo dificuldades em mostrar um elemento de um array via combobox, pois mesmo dando refresh e update o conteudo que é da variavel não é mostrado na tela. Segue o programa abaixo: ----------------------------------------------------------- REDEFINE COMBOBOX oxycmb VAR xcontat ITEMS xVetCli ID 4008 OF oDiag1 UPDATE // letra tela combo getobj REDEFINE COMBOBOX oxycmb2 VAR lettercli ITEMS xvetAlfa ID 4025 OF oDiag1 UPDATE ON CHANGE ProcVisita(lettercli,@oDiag1,@oxycmb) FUNCTION ProcVisita(letra,atuform,control) // varobj pode ser NIL (null) nulo PUBLIC xletra := letra filearq := "PROPRIET" (filearq)->(DBSETFILTER( {|| LEFT ((filearq)->NOME,1) == xletra} )) xVetCli := {} (filearq)->(dbGoTop()) WHILE ( !(filearq)->(EOF()) ) AADD(xVetCli, (filearq)->NOME) (filearq)->(DBSKIP()) END (filearq)->(dbSetfilter()) IF LEN(xVetCli) >= 01 xcontat := xVetCli[1] // ENDIF control:SetItems(xVetcli) control:show() control:update() control:Refresh() control:setfocus() atuform:update() atuform:refresh() RETURN .T. ******************************************************** Note que a variavel XCONTAT (é que deve ser atualizada) é a que armazena o item selecionado do array/combo. Isso funciona. Mas tem 'alguma coisa' que nao esta atualizando nem com refresh nem update o objeto desta variavel é atualizado somente o controle da combo funciona perfeitamente. Se alguem tiver uma sugestão.. Editado por - gilbrodrigues on 01/03/2011 12:43:56

Fiz uma junção da função do link acima e antes guardei em uma variavel "A" a resolucao do video ao sair da funcao, ele volta para o conteudo de "A"

Apenas a funcao resizebmp que nao existe. Vi alguem aqui no forum dizendo que "basta desabilitar que ira funcionar apenas nao redimensionará os bitmaps". É POSSIVEL UTILIZAR ESTA FUNÇÃO COM UM FORM FEITO EM <<>> OU SO O WORKSHOP Editado por - gilbrodrigues on 03/02/2011 11:44:19

citação:Bom dia Utilize a display 3.0 disponível aqui no fórum. Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB id=quote>id=quote>Obrigado pela dica, vou procurar (que eu desconheço) e farei o teste e retornarei informando o que houve.

Ola a todos Meu problema é o mesmo o que alguns usuarios já tiveram: escrevi uma aplicação em 1024 x 768 porem em 2 maquinas a resolução o windows roda com a resolução 800 x 600. Pensei em alterar a resolucao ao entrar no programa e ao sair voltar a resolução anterior Testei uma função em: http://www.fivewin.com.br/exibedicas.asp?id=425 mas somente o executavel funcionou corretamente, fiz algumas mudanças quanto a: variavel nPelHeight que funcionou sem o 't' a funcao getdesktopwnd() seria getdesktopwindow(), pois bem, o Windows é XP, a funcao fornecida é chamada logo no inicio do sistema. Porem quando a resolucao é selecionada o windows informa que o sistema encontrou um problema e será fechado. Alguem ai tem alguma sugestao ? Editado por - gilbrodrigues on 15/02/2011 15:23:04

Ola a todos Meu problema é o mesmo o que alguns usuarios já tiveram: escrevi uma aplicação em 1024 x 768 porem em 2 maquinas a resolução o windows roda com a resolução 800 x 600. Pensei em alterar a resolucao ao entrar no programa e ao sair voltar a resolução anterior Testei uma função em: http://www.fivewin.com.br/exibedicas.asp?id=425 mas somente o executavel funcionou corretamente, fiz algumas mudanças quanto a: variavel nPelHeight que funcionou sem o 't' a funcao getdesktopwnd() seria getdesktopwindow(), pois bem, o Windows é XP, a funcao fornecida é chamada logo no inicio do sistema. Porem quando a resolucao é selecionada o windows informa que o sistema encontrou um problema e será fechado. Alguem ai tem alguma sugestao ? Editado por - gilbrodrigues on 15/02/2011 15:23:04

Por falta de tempo voltei a este topico (Por isso que nao respondi a mais tempo). Evaldo, o problema ao alimentar um listbox com array é como pegar seu resultado ? Assim: Ex. obrw[4] ? Tentei fazer isto mas nao esta dando certo, e nao acho as sintaxes das propriedades do listbox em lugar nenhum.

!!!!!!!!! F U N C I O N O U !!!!!!!!! Obrigado AFERRA !!!!!!

citação:Olá. O correto seria desta forma arquivobmp := "foto2.bmp" objimage1:LoadImage(,arquivobmp) objimage1:refresh() id=red>Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX FW9.07+xHb121+PellesC+CDX "Uma imaginação bem canalizada é fonte de grandes proezas"id=red> id=quote>id=quote>Eu ainda nao testei mas logo darei uma resposta estou almocando agora.

Fiz o teste porem a mesma nao atualizou o objimage. É possivel dar um refresh em um image EX. arquivobmp := "foto1.bmp" REDEFINE IMAGE objimage1 filename (arquivobmp) : : arquivobmp := "foto2.bmp" objimage1:update() // AQUI ELA Dà ERRO !!!! Por que será ? odlg:refresh()

citação:Não tenho certeza se entendi, veja se ajuda: http://www.fivewin.com.br/exibedicas.asp?id=261 João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 - TIM FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Olhando esses exemplos: realmente acho que eu estava fazendo errado. Eu poderia ter simplesmente atualizado as variaves. Obrigado Kapiaba Editado por - gilbrodrigues on 12/01/2011 15:03:47

Ola amigos. Melhorei a pergunta que fiz ontem, onde nao me expressei bem. Estou fazendo um cadastro de fotos (somente o nome da foto é gravada e depois a mesma é exibida) para uma imobiliaria e as mesmas deverão ser apresentadas em um FORM (tela) ao checar o nome gravado. Pois bem, atraves de um REDEFINE IMAGE, porem nao estou conseguindo 'ver as propriedades do objeto' (sabendo que nao tem variavel controlando) A minha duvida é existe algum guia de referencia com os nomes dos métodos/funcoes tais como: hide() / show() ou ainda saber as propriedades do objeto tais como name, caption, height, como saber por exemplo o que o objeto image retorna. Veja o codigo abaixo *********************************************************** *********************************************************** FUNCTION IncFoto() PRIVATE pathfoto := "\PROGS\SISCLI\FOTOS\" pathfoto := "\progs\siscli\fotos\" vetfoto := {} * exemplos de testes AADD(vetfoto, pathfoto + "laudos.bmp") AADD(vetfoto, pathfoto +"semfoto.bmp") AADD(vetfoto, pathfoto +"tiger.bmp") AADD(vetfoto, pathfoto +"rj1.bmp") AADD(vetfoto, pathfoto +"laudos.bmp") AADD(vetfoto, pathfoto +"smile.bmp") SET _3DLOOK ON DEFINE DIALOG otelaphoto RESOURCE "FOTOS" TITLE "CADASTRO DE FOTOS" REDEFINE Image oVIEW1 FILENAME vetfoto[2] ADJUST ID 4016 OF otelaphoto UPDATE // ABRE SEM FOTO REDEFINE Image oProf1 FILENAME vetfoto[1] ADJUST ID 4003 OF otelaphoto UPDATE ON CLICK (exibefoto(1,@otelaphoto,@oview1)) REDEFINE Image oProf2 FILENAME vetfoto[2] ADJUST ID 4004 OF otelaphoto UPDATE ON CLICK (exibefoto(2,@otelaphoto,@oview1)) REDEFINE Image oProf3 FILENAME vetfoto[3] ADJUST ID 4005 OF otelaphoto UPDATE ON CLICK (exibefoto(3,@otelaphoto,@oview1)) REDEFINE Image oProf4 FILENAME vetfoto[4] ADJUST ID 4006 OF otelaphoto UPDATE ON CLICK (exibefoto(4,@otelaphoto,@oview1)) REDEFINE Image oProf5 FILENAME vetfoto[5] ADJUST ID 4010 OF otelaphoto UPDATE ON CLICK (exibefoto(5,@otelaphoto,@oview1)) REDEFINE Image oProf6 FILENAME vetfoto[6] ADJUST ID 4011 OF otelaphoto UPDATE ON CLICK (exibefoto(6,@otelaphoto,@oview1)) ACTIVATE DIALOG otelaphoto CENTERED //MAXIMIZED RETURN NIL ********************************* FUNCTION exibefoto(numfoto,form1,control) WHILE NEXTKEY() # 27 -> meuproblemaestasomenteaqui := control:filename -> eaqui := control.width FOR MM1 := numfoto to len(VETFOTO) form1 : update() form1 : refresh() form1:hide() IF mm1 >= len(VETFOTO) mm1 := 01 ENDIF NEXT ENDDO RETURN NIL Editado por - gilbrodrigues on 13/01/2011 12:13:14 Editado por - gilbrodrigues on 13/01/2011 13:09:18

Ola amigos. Melhorei a pergunta que fiz ontem, onde nao me expressei bem. Estou fazendo um cadastro de fotos (somente o nome da foto é gravada e depois a mesma é exibida) para uma imobiliaria e as mesmas deverão ser apresentadas em um FORM (tela) ao checar o nome gravado. Pois bem, atraves de um REDEFINE IMAGE, porem nao estou conseguindo 'ver as propriedades do objeto' (sabendo que nao tem variavel controlando) A minha duvida é existe algum guia de referencia com os nomes dos métodos/funcoes tais como: hide() / show() ou ainda saber as propriedades do objeto tais como name, caption, height, como saber por exemplo o que o objeto image retorna. Veja o codigo abaixo *********************************************************** *********************************************************** FUNCTION IncFoto() PRIVATE pathfoto := "\PROGS\SISCLI\FOTOS\" pathfoto := "\progs\siscli\fotos\" vetfoto := {} * exemplos de testes AADD(vetfoto, pathfoto + "laudos.bmp") AADD(vetfoto, pathfoto +"semfoto.bmp") AADD(vetfoto, pathfoto +"tiger.bmp") AADD(vetfoto, pathfoto +"rj1.bmp") AADD(vetfoto, pathfoto +"laudos.bmp") AADD(vetfoto, pathfoto +"smile.bmp") SET _3DLOOK ON DEFINE DIALOG otelaphoto RESOURCE "FOTOS" TITLE "CADASTRO DE FOTOS" REDEFINE Image oVIEW1 FILENAME vetfoto[2] ADJUST ID 4016 OF otelaphoto UPDATE // ABRE SEM FOTO REDEFINE Image oProf1 FILENAME vetfoto[1] ADJUST ID 4003 OF otelaphoto UPDATE ON CLICK (exibefoto(1,@otelaphoto,@oview1)) REDEFINE Image oProf2 FILENAME vetfoto[2] ADJUST ID 4004 OF otelaphoto UPDATE ON CLICK (exibefoto(2,@otelaphoto,@oview1)) REDEFINE Image oProf3 FILENAME vetfoto[3] ADJUST ID 4005 OF otelaphoto UPDATE ON CLICK (exibefoto(3,@otelaphoto,@oview1)) REDEFINE Image oProf4 FILENAME vetfoto[4] ADJUST ID 4006 OF otelaphoto UPDATE ON CLICK (exibefoto(4,@otelaphoto,@oview1)) REDEFINE Image oProf5 FILENAME vetfoto[5] ADJUST ID 4010 OF otelaphoto UPDATE ON CLICK (exibefoto(5,@otelaphoto,@oview1)) REDEFINE Image oProf6 FILENAME vetfoto[6] ADJUST ID 4011 OF otelaphoto UPDATE ON CLICK (exibefoto(6,@otelaphoto,@oview1)) ACTIVATE DIALOG otelaphoto CENTERED //MAXIMIZED RETURN NIL ********************************* FUNCTION exibefoto(numfoto,form1,control) WHILE NEXTKEY() # 27 -> meuproblemaestasomenteaqui := control:filename -> eaqui := control.width FOR MM1 := numfoto to len(VETFOTO) form1 : update() form1 : refresh() form1:hide() IF mm1 >= len(VETFOTO) mm1 := 01 ENDIF NEXT ENDDO RETURN NIL Editado por - gilbrodrigues on 13/01/2011 12:13:14 Editado por - gilbrodrigues on 13/01/2011 13:09:18

Ola a todos onde eu consigo/baixo um guia de referencia com as funcoes dos objetos tais como refresh, hide, show, update, etc. para os controles. Funcoes metodos e propriedades Ex. odlg:upstable() otext.caption := "novo texto" Favor desconsiderar o topico anterior, nao consegui apaga-lo.

Ola a todos onde eu consigo/baixo um guia de referencia com as funcoes dos objetos tais como refresh, hide, show, update, etc. para os controles. Funcoes metodos e propriedades Ex. odlg:upstable() otext.caption := "novo texto" Favor desconsiderar o topico anterior, nao consegui apaga-lo.

O Editado por - gilbrodrigues on 11/01/2011 15:51:01 Editado por - gilbrodrigues on 11/01/2011 16:22:10

O Editado por - gilbrodrigues on 11/01/2011 15:51:01 Editado por - gilbrodrigues on 11/01/2011 16:22:10

Obrigado a todos que responderam. O computador é meu de casa. O problema é que não aguento mais ter que reinstalar o Windows por causa de desconfigurações, ATÉ PRGS mexidos por pessoas que nao são do ramo está acontecendo. Outro dia fui compilar um programa e o um PRG estava com um palavrão. O compilador nao havia entendido a "palavra reservada de baixo nível". WINPOLICE, POLEDIT NAO ESTà RESOLVENDO

Não sei se este forum é adequado para este problema, estou a perguntar qual o principal programa para evitar 'roubo' de HD? (DESKTOP não é LAPTOP) Existe algum programa que impeça a retirada do HD e não possa ser utilizado em nenhum outro gabinete (placa mae) ? Eu travei minha BIOS com senha na partida da máquina para evitar o uso indevido. Porem o HD está sendo espetado em outra máquina, foi inclusive, colocado diversos arquivos contendo virus, etc. Se nao tivessem feito estas maldades eu nao faria isso. Nao tenho nada a esconder, apenas estou evitando problemas (perda de arquivos, boot em loop (o Windows nao inicializa), etc. Editado por - gilbrodrigues on 05/01/2011 14:03:26

Não sei se este forum é adequado para este problema, estou a perguntar qual o principal programa para evitar 'roubo' de HD? (DESKTOP não é LAPTOP) Existe algum programa que impeça a retirada do HD e não possa ser utilizado em nenhum outro gabinete (placa mae) ? Eu travei minha BIOS com senha na partida da máquina para evitar o uso indevido. Porem o HD está sendo espetado em outra máquina, foi inclusive, colocado diversos arquivos contendo virus, etc. Se nao tivessem feito estas maldades eu nao faria isso. Nao tenho nada a esconder, apenas estou evitando problemas (perda de arquivos, boot em loop (o Windows nao inicializa), etc. Editado por - gilbrodrigues on 05/01/2011 14:03:26

citação:Certo, mas minha pergunta foi em qual dos filtros? Se codigo do laudo for VAZIO entra no primeiro filtro, ou seja aparecerão todos os laudos daquele bairro. Caso contrario ele filtrara apenas o laudo selecionado/preenchido, mas outra pergunta aparece PARA QUAL BAIRRO? No segundo filtro nao deveria ter BAIRRO tbm? Ou o laudo eh unico! Ambrosio de Barros Filho. JRAMBRO - jrambro@hotmail.com Curitiba/São José dos Pinhais - PR Clipper5.0/ADVPL Editado por - ambrosio on 04/01/2011 15:04:47 id=quote>id=quote>------------------------------------------------------- Se o codigo do laudo for deixado em branco, deverá aparecer uma lista de imoveis para o bairro selecionado na combo(por default caso nao seja escolhido o primeiro bairro da lista será escolhido - note que aparece em ordem alfabética). Se o codigo for preenchido virá apenas aquele laudo. Cada imóvel tem o seu codigo (ele é unico para cada imóvel) não há duplicidades entre codigos, mesmo em bairros e tipos diferentes (ex. KEY1209-001 - significa: KEY - nome da empresa controladora (imobiliaria) 1 se é venda ou locação 2 residencial, comercial, industrial, etc. 09 (os dois ultimos caracteres antes do hifem) o tipo de imovel: apartamento, conjugado, sitio, sala, galpao, terreno, predio inteiro, andar corrido, estabelecimentos comerciais (passagem de ponto: padaria, salao, etc. - geralmente é precedido de 9x), - xx quantidade de imoveis para esta categoria (vide acima), 001,002,003,ATÉ 999 por enquanto, muito difícil ter mais de 100 imoveis para uma categoria sem ser vendido ou alugado, ao ser dado baixa, o mesmo sera movido para outro banco, embora o espaço não fique vazio a sequencia continua (por que fiz um BD que controla a numeração para cada caso e está OK), se passar de 999 é só ir aumentando o tamanho na estrutura (DBF) Editado por - gilbrodrigues on 05/01/2011 11:27:16

citação:Entendi... Em qual filtro aparece duplicado, no primeiro LAUDO VAZIO ou no segundo? Ambrosio de Barros Filho. JRAMBRO - jrambro@hotmail.com Curitiba/São José dos Pinhais - PR Clipper5.0/ADVPL id=quote>id=quote>Aparece duplicado quando deveria ter apenas 1 registro que satisfaça a condição. Ao invés dele exibir uma linha de resultado ele mostra três.

AMBROSIO. Bairro é uma combobox. O filtro é por bairro, laudo e tipo de imovel (sao os tres em conjunto). Se o codigo do laudo estiver em branco (vazio) virão todos os laudos daquele delterminado bairro (selecionado) o bairro nao precisa aparecer na listbox por que já e filtrado na combo, nem o tipo de imóvel. O listbox só exibe o resultado Editado por - gilbrodrigues on 04/01/2011 14:00:00

Não vejo solução para esse problema em tentar ajustar o listbox. Fiz em outra ocasião, um arquivo temporário e nao deu esse problema. O jeito e fazer o mesmo. o unico problema e dar um seek toda vez que ele quiser visualizar o registro. Obrigado a todos