kkkkk (quê idade você tem ? você parece ser muito hilário, rs). É simples, ocorre que ao passá-las como Public, além das variáveis tornaram-se visÃveis estarão ativas durante toda a execução do programa, sem fazer reposição de memória como era feito com Local. Isto é uma prática muito comum em Clipper, mas tem que deixar alguns vÃcios que poderão custar caros quanto a performance dos seus programas que sejam mais complexos. Se a função está precisando da variável cImagem, então re-crie ela como local da mesma forma que foi criada na função Exibir().
Desculpa a demora pela resposta, estava renomeando as 65 mil fotos com esse programa que você elaborou e terminei ontem... Tenho 34 anos, os risos é porque estou muito feliz em aprender a continuidade do Clipper que é o HMG. Não consegui passar as variáveis para Local por falta de tempo, como coloquei o If para quando chegar em 100 registros ele abortar o programa pra mim ficou bom pois dou uma descansada nos braços e reabro o programa novamente..
Agora entendi a sua real necessidade, mas o inconveniente que eu vejo em tudo isso é que criasse um monte de sub-pasta, sem necessidade (ao meu ver). O que você acha de ao invés de mover para sub-pasta, você renomeia os arquivo com o nome da cidade ? E aqui vai outra pergunta que vai ser chave para uma solução bem mais prática e mais abrangente: Cada cidade poderá ter mais de uma tif ? Pois se for, podemos renomear várias tif ao mesmo tempo com nomenclatura sequencial. Exemplo: "São Paulo_001.tif", "São Paulo_002.tif", "São Paulo_003.tif" ... e assim sucessivamente. Bastará você selecionar os registros com MultiSelect para renomeá-los.
Então sobre as sub-pastas é um pedido do meu patrão, ele quer que cada cidade fique em uma pasta com seus respectivos arquivos. Cada cidade tem centenas de *.Tif e tenho que manter o nome original do arquivos no final do novo nome, exemplo:
Nome Antigo: PRO01N0P.TIF
Novo Nome: ARACATUBA - PRO01N0P.TIF
Se o programa for utilizado em diversos terminais, tem que se certificar que todos eles tem a mesma resolução ou até maior, mas nunca menor. Senão vai ficar com a imagem cortada, ao menos que disponibilize outra janela para visualização ou colocar a janela com ScrollBar para rolagem da janela.
Desculpa não ter dado atenção a esta pergunta, então, a imagem realmente fica cortada em todos os computadores que rodei o software, nem tem problema para mim, pois somente parte da visualização da imagem é importante pra mim que é na parte superior central, pois lá se encontra o nome da cidade de todos os arquivos *.TIF.
Olá Pablo !
Fiz uma pequena alteração no código do nosse amigo, sei que ficou meio confuso mas poderá ser melhor explicado e quem sabe...melhorado né...rs, essa alteração resolve o problema de resoluções diferentes, vc tendo um tempinho pra testar e dar seu parecer, sinta-se em casa...rs
*mudei para minigui por não ter hmg disponivel
Obrigado pela atenção Luis Antônio, testei aqui e rodou perfeitamente para mostrar as imagens, mas como havia dito acima a imagem naquele tamanho pra mim é o ideal, fica cortada uma parte dela, só que a parte que quero ver fica bem dimensionada na tela. Copiei o código para futuros projetos. Valeu mesmo. :{
Se bem que o colega Wellington (alias guanabara) ainda não respondeu as minhas questões apresentadas, o que eu temia era sobre a resolução da tela e o que poderia ser feito para que o tamanho das imagens não excedam o tamanho do form principal. A minha sugestão seria visualizar num segundo form e que pudesse adicionar scrollbars. E você apresentou uma solução muito útil para dimensionar tamanhos de acordo a resolução. Também postei uma outra solução de redimensionamento em tempo de execução no link que passei aqui acima.
Pablo, desculpa mesmo por demorar para responder, segue acima minha colocações sobre suas questões.
As vezes os colegas não gostam de serem questionados, mas tudo depende de qual é o resultado exigido e o que pode ser melhorado. Parece ser perda de tempo as vezes quando fazemos muitas perguntas, mas tem o objetivo de apresentar soluções mais adequadas e que dão lugar a novas ideias enriquecendo o nosso constante aprendizado.
Não vejo problemas em seus questionamentos, pelo contrário, acho muito importante, pois me faz abrir os olhos sobre questões que não havia visualizado no código. Este mês está sendo um ótimo mês pra mim, pois fazia anos que não programava e você me fez voltar a ativa com sua Atenção e paciência em compartilhar seu conhecimento. Serei eternamente grato pela sua disposição... Valeu Amigo... :-Y