auto ajuste

Delphi

24/02/2003

gostaria como colacar uma foto em autosize.

Ex.: faz de conta que meu image tem um formato 300X300. Eu gostaria que eu coloca-se qualquer foto de qualquer tamanho. alguem sabeira me explicar. :)


Anonymous

Anonymous

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

24/02/2003

pode colocar strech como true , mas ai a imagem vai ficar esticada

ou faça isso


imagem.autosize := true;
imagem.autosize := false;
imagem.strech := true;
if imagem.width>imagem.height then
begin
num :=  imagem.width  div 300;

   imagem.height := imagem.heigth div num
   imagem.width := 300;
end
else
begin
num :=  imagem.height  div 300;

   imagem.width := imagem.width div num
   imagem.height := 300;
end


Teste isso ai, eu não garanto nada


GOSTEI 0
POSTAR