Como almentar o tamanho da uma imagem
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.
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
Curtidas 0
Respostas
Eduprp
23/09/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;
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;
GOSTEI 0
Debug
23/09/2004
Valeu obrigado!
GOSTEI 0