Imagem Vertical

[FELIPERM]

Olá, estou desenvolvendo um programa que dentro do form existem 2 TImage, que ao duplo clique do usuário insere a imagem escolhida pelo OpenPictureDialog. Pois bem, acontece que gostaria de saber como proceder (um código ou coisa assim) caso o usuário escolha uma imagem vertical, ou seja, a altura é maior que a largura, pois o TImage por padrão é retangular e não tenho como saber se ele irá ou não escolher uma imagem vertical. Detalhe: estas imagens serão exportadas para um QuickReport.

[Anderson Danilo]

Para saber se a imagem esta em Vertical -->

if Ximage.Picture.height > Ximage.Picture.width Then

begin

//Procedimento

end;

Você também pode mudar o Tamanho do TImage -->

Ximage.height := Ximage.Picture.height;

Ximage.width := Ximage.Picture.width;

Editado Dezembro 21, 2008 por Anderson Danilo

[FELIPERM]

Para saber se a imagem esta em Vertical -->

if Ximage.Picture.height > Ximage.Picture.width Then

begin

//Procedimento

end;

Você também pode mudar o Tamanho do TImage -->

Ximage.height := Ximage.Picture.height;

Ximage.width := Ximage.Picture.width;

Pois é Anderson, acontece que eu já tinha pensado nisso, veja só:

procedure TFEdRelatorio.img1DblClick(Sender: TObject);

begin

if abreimg.Execute= True then

begin

altfoto:= img1.Picture.Bitmap.Height;

largfoto:= img1.Picture.Bitmap.Width;

if altfoto > largfoto then

begin

pnlimg1.Height:= 446;

pnlimg1.Width:= 246;

img1.Height:= 446;

img1.Width:= 246;

img1.Stretch:= True;

img1.Align:= alCustom;

img1.Picture.LoadFromFile(abreimg.FileName);

end;

end;

end;

Outra coisa: a imagem não pode ficar no tamanho original porque ele vai ser exportada para um campo no Report. Mas obrigado mesmo assim, se puder me ajudar ficarei grato :)

[FELIPERM]

Pois é,mesmo com o código acima não funcionou... <_<