[DELPHi7] Criando um Visualizador de Imagens [SuperBasico]

[bidoow 0]

Criando um Visualizador de Imagens [superBasico]

 

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

 

Declare nas USES ,

jpeg;

 

Organize +/- como eu organizei na foto.

 

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

 

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, | Proportional = True |.

 

Agora aperte F9 e use!

 

 

Duvidas? Ask Ask Ask.

 

creditos: bidoow

 

vlw

[DragonBoss 8]

bem legal, simples, mas pra quem ta aprendendo serve como otimo codigo de estudo, e ja da pra ter uma base em LoadFromFile, opendialog, essas parada ae xD ( algo bem util em diversos programas).

 

flw, abraços.

[matheusguerra 3]

ow muito bom mesmo, isso vai me ajuda :D ^^

[Surfistinha£ 20]

Bem simples mas eu gosto mas do geito adicional imagem

 

Ta bom

 

vlw

[bidoow 0]

sepá foi util pra alguem, agradeça ;)

[rychardsson 0]

o seus topicos sao otimos

sao

pequenos mais pra quem ta iniciando

e muito bom

:D

[bidoow 0]

valeu cara :) espero que goste =p

[Jore 0]

Bem legal...Obrigado!

[ed771 0]

vei eu fiz td só q da erro nesse codigo

Image1.Picture.LoadFromFile(OpenPictureDialog1.Fil eName);

q q eu faço

po em td q eu faço da erro vei ajuda eu?

obrigado xD

 

ahh... quase eskeci vei parabens teus tutos sao muito bons '-'

[matheusguerra 3]

vc add o OpenPictureDialog?

[bidoow 0]

vei eu fiz td só q da erro nesse codigo

Image1.Picture.LoadFromFile(OpenPictureDialog1.Fil eName);

q q eu faço

po em td q eu faço da erro vei ajuda eu?

obrigado xD

 

ahh... quase eskeci vei parabens teus tutos sao muito bons '-'

 

junte os espaços

 

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

 

vlw qualquer coisa fala!

[~OwneR~ 8]

Legal =), me inspirei no tuto e fiz um aqui:

Pena que perde a qualidade da foto quando ela é maior que o TImage

[DragonBoss 8]

owner eh moh vacilao... akdopakdsapok fiz um na moh humildade ke neem no topico... olha o dele ke xike xD

 

owner owna no delphi \o/