Ir para conteúdo
Fórum Script Brasil
  • 0

Imagem Vertical


FELIPERM

Pergunta

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.

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
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 :)

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...