Como almentar o tamanho da uma imagem
23/09/2004
0
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
Curtir tópico
+ 0
Responder
Posts
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;
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
Clique aqui para fazer login e interagir na Comunidade :)