Como almentar o tamanho da uma imagem

23/09/2004

Olá pessoal!
Aguem sabe como posso fazer para almentar o tamanho de uma imagem dentro de um timage.
Vou clicando nessa imagem e os seu tamanho vai aumentando.
Desde já obrigado.


Debug

Respostas

23/09/2004

Eduprp

Ola

Bem voce pode fazer o seguinte:
Configure a propriedade stretch para True.
No evento onclick do TImage altere some o valor das propriedades Height e Width.

Assim vc vai aumentando a imagem e ela vai sendo redimensionada. Ex.

TImage1.Stretch:= True;

Procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Height:= Image1.Height + 10;
Image1.Width:= Image1.Width + 10;
end;


Responder Citar

23/09/2004

Debug

Valeu obrigado!


Responder Citar