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

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;