Criando Um visualizador de imagem

Criando um Visualizador de Imagens[SuperBasico]

Faça seu Visualizado de Imagen em Minutos ^^



Componentes : Button (aba Standard), OpenPictureDialog (aba dialogs), Image (aba Additional).
Declare nas USES ,

Código:

jpeg;

Organize +/- como eu organizei na foto.

De 2 Clicks sobre o Button, apague tudo e coloque:

Código:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
end;

end.

Agora clique no Image1, vá no Object Inspetor, | [b]Proportional = True |.

Agora e so salva e Aperta F9 ^^:
Creditos :Juuse