Timage e Visualizador

Question

Boa Noite a Todos.Eu tenho um Timage que quando eu carrego uma imagem nele, ele salva a imagem em uma pasta e salva o nome da imagem no banco de dados. at� aqui tudo bem.Mas eu queria saber como qu...

Joel Rodrigues · Answer

Cara, se voc� definir o Autosize do TImage para true, ele assumir� o tamanho original. A partir da� voc� pode redimensionar o form ou proceder da forma como desejar.
Para abrir no visualizador do Windows, tente enviar um comando para abrir a imagem, creio que o WinExec sirva para isso.

Boa sorte.

Rodolfo Silva · Answer

Bom Dia,winExec pode ser, mas eu queria mesmo era que quando eu clicasse no meu Timage no Form 1, fosse aberto no Form 2 a imagem no tamanho grande..Tem como fazer isso?Obrigado...

Joel Rodrigues · Answer

Foi o que eu falei inicialmente: se voc� definir o AutoSize como true, ao carregar a imagem, o TImage ficar� com o tamanho original. A partir da� voc� redimensiona o form ou procede da forma que achar melhor.
Teste a�.

Joel Rodrigues · Answer

Ponha um ScrollBox com Align=alClient no form onde a imagem ser� aberta e defina um tamanho inicial para o form. Coloque o TImage dentro do ScrollBox e defina o AutoSize para true, Left=0 e Top=0.
Com isso, se a imagem ficar muito grande, o ScrollBox apresentar� barras de rolagem.

Boa sorte.

Rodolfo Silva · Answer

tentei usar este codigo para abrir a imagem do Timage no form 1 no outro form no tamanho maior:

VisuImagem.VImage.Picture.LoadFromFile(OpenFoto.FileName);
VisuImagem.Show;

mas esta dando como variaveis nao declaradas.
oque pode estar errado?

Joel Rodrigues · Answer

Que vari�veis n�o est�o declaradas?Voc� instanciou o form antes de carregar a imagem?...

Rodolfo Silva · Answer

instanciei mas nao deu nao.Porque este script que mostrei � pra que quando eu clicar no timage no formi1, ele vai abrir a imagem em outro form.tem outro codigo pra isso?to usando o delphi xeobrigado...

Joel Rodrigues · Answer

Mostre o trecho de c�digo completo.E quais vari�veis ele diz que n�o est�o declaradas?...

Joel Rodrigues · Answer

Te mandei um c�digo por email, verifique se lhe ajuda....

Rodolfo Silva · Answer

Obrigado Joel.Vai ser de Grande Ajuda!� exatamente oque eu queria!Ah se estiver algu�m com a mesma duvida, deixa um post que mando o exemplo!Obrigado e Sucesso!...

Joel Rodrigues · Answer

Bem, estou postando o c�digo que enviei para o Rodolfo para compartilhar com outras pessoas que futuramente possam precisar.
Dividirei em t�picos para facilitar a compreens�o.

1) Em um form, adicionei um TImage com tamanho reduzido e Stretch=true (para redimensionar a imagem para um tamanho menor);
2) Adicionei um segundo form (frmVisualizador) com as seguintes propriedades modificadas: Position=poScreenCenter, Width=800, Height=600 (dimens�es m�nimas iniciais);
3) Ao segundo form, adicionei um TScrollBox com Align=alClient e dentro deste ScrollBox, coloquei um TImage (imgImagem) com Left=0 e Top=0 (tamanho indiferente) e AutoSize=true (redimensionar� o TImage para o tamanho real do arquivo);
4) No evento onClick do TImage do primeiro form, codifiquei da seguinte forma:
---
frmVisualizador := TfrmVisualizador.Create(Self);
frmVisualizador.imgImagem.Picture := (Sender as TImage).Picture;
frmVisualizador.ShowModal();
FreeAndNil(frmVisualizador);
---

5) No evento onShow do segundo form (frmVisualizador), defini o seguinte c�digo:
---
if (imgImagem.Width < Screen.Width - 20 ) and (imgImagem.Height < Screen.Height - 20) then //reduzi 20px para descontar as bordas da janela e a barra de tarefas do Windows, n�o � um valor exato, � preciso verificar
begin
Self.Width := imgImagem.Width; //Aqui voc� pode somar/subtrair algum fator de corre��o
Self.Height := imgImagem.Height; //Aqui voc� pode somar/subtrair algum fator de corre��o
end;
---

Bem, � isso a�.
Espero que possa ajudar outros no futuro.
Grande abra�o a todos e fiquem com Deus.

F�rum Timage e Visualizador #413455