Array
(
)

Como almentar o tamanho da uma imagem

Debug
   - 23 set 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.


Eduprp
   - 23 set 2004

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;


Debug
   - 23 set 2004

Valeu obrigado!