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; |
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!
-
Giovani Da Cruz
-
6.919 views
- 0 comentários
- 27 de outubro de 2017
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo