[Delphi7] Visualizador De Imagens

Visualizador de Imagens
Muito facil criar um visualizadorzinho de imagens, com imaginação você pode melhorar o codigo!

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
Adicione na Form:

- 1 OpenPictureDialog [palheta Dialogs]

- 1 Label [palheta Standard]

- 1 Image [palheta Additional]


- 1 Button [palheta Standard]



Declare nas USES



Quote

jpeg




Organize como eu organizei na foto. De 2 clicks sobre o button apague tudo e coloque:



Quote

procedure TForm1.Button1Click(Sender: TObject);

begin


if OpenPictureDialog1.Execute then

begin

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

end;



end.




Clique no componente Image, vá ao Object Inspetor e coloque Proportional = true




Aperte F9 e deu ! Duvidas pergunte!