Abrir Imagem

Delphi

18/10/2003

Olá!
Tenho uma dúvida idiota, porém que não estou conseguindo achar solução. A dúvida é a seguinte: Como faço para abrir imagens, tipo coloco um botão uma caixa de texto um OpenPicture e um Image, ao clicar no botão executa-se o OpenPicture e ao final da escolha do arquivo, na caixa de texto mostra-se o local onde se encontra o arquivo e no Image mostra-se a figura escolhida...

Agradeço desde já.
T+ :wink:


Celo-faveri

Celo-faveri

Curtidas 0

Respostas

Henry

Henry

18/10/2003

Brother, tente assim.

No evento Onclick:

if opendialog1.execute then
begin
image1.Picture.LoadFromFile(opendialog1.filename);
edit1.text:= opendialog1.FileName;
end;
end;

Espero ter ajudado, um abraço, Henry.


GOSTEI 0
Celo-faveri

Celo-faveri

18/10/2003

valew henry, pela resposta...não sei como não pude pensar em colocar um ponto depois de Picture...valew...mas surgiu-me outra dúvida, se pudesse me ajudar ficaria satisfeito: Beleza abri a imagem só que se eu a coloco com Auto Size ocupa mto lugar no programa, por tanto, gostaria que o programa ´reduzisse´ a imagem, como no Internet Explorer...

Abraço
T+ :wink:


GOSTEI 0
Henry

Henry

18/10/2003

Brother, assim, a imagem vai fica do tamanho que vc botar o componente no Form:

if opendialog1.execute then
begin
image1.picture.LoadFromFile(opendialog1.filename);
image1.Stretch:= true;
end;
end;

Qualquer coisa, é so fala Brother.
Um abraço, Henry.


GOSTEI 0
POSTAR