Como redimensionar qualquer imagem – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como redimensionar qualquer imagem

 

Olá amigos.

Este exemplo mostra como redimensionar imagens.

É importante ressaltar que para este procedimento foi realizado o uso
de classes da suíte Dev Express.

Código criado por Ivan Cesar

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure ResizePicture(APicture: TPicture; AScale: Word);
var
  FImage: TdxSmartImage;
  FScale: Double;
begin
  FImage := TdxSmartImage.Create;
  try
    FImage.Assign(APicture.Graphic);
    if FImage.Height > FImage.Width then
      FScale := AScale / FImage.Height
    else
      FScale := AScale / FImage.Width;
    FImage.Resize(Round(FImage.Width * FScale), Round(FImage.Height * FScale));
    FImage.ImageDataFormat := dxImagePng;
    APicture.Graphic.Assign(FImage);
  finally
    FImage.DisposeOf;
  end;
end;

Qualquer dúvida, estamos a disposição!

Facebook Comments

Posts Relacionados

  • Giovani Da Cruz
  • 55 views
  • 0 comentários
  • 27 de outubro de 2017

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2017 Infus Soluções em Tecnologia - Todos os Direitos Reservados