Redimensionar Imagem (Estou desesperado, Ajudem)

Question

Ol� pessoal,Como disse estou desesperado para solucionar um problema que deve ser resolvido urgentemente.Eu gostaria de saber como redimensionar uma imagem!Eu tenho uma imagem salva em c:imagem_norma...

Marcelo Saviski · Answer

[code:1:03f276b685]function Redimensiona(Imagem: TJPEGImage): TJEPGImage;var  BMP: TBitMap;begin  BMP := TBitmap.Create;  BMP.Assign(Imagem);  BMP.Canvas.CopyRect(Rect(0, 0, 50, 50), BMP.Canvas, Rect(0, 0, BMP.Width, BMP.Height));  BMP.Width := 50;  BMP.Height := 50;  Result := TJEPGImage.Create;  Result.Assign(BMP);  BMP.Free;end;[/code:1:03f276b685]Usando: [code:1:03f276b685]Image1.Picture.Graphic := Redimensiona(Image1.picture.Graphic);[/code:1:03f276b685]A imagem TEM que ser JPEGespero que funcione pq n�o testei :)...

Beppe · Answer

Eu escrevi duas fun��es: a primeira � s� para TBitmap e a segunda eu generalizei para TGraphic. Para esta �ltima, como TGraphic n�o disp�e de canvas, tive que criar um bitmap tempor�rio e depois converter para a mesma classe do original.

function ResizeBitmap(Original: TBitmap; ToWidth, ToHeight: Integer): TBitmap;
begin
  Result := TBitmap.Create;
  Result.Width := ToWidth;
  Result.Height := ToHeight;
  Result.Canvas.StretchDraw(Rect(0, 0, ToWidth, ToHeight), Original);
end;

function ResizeGraphic(Original: TGraphic; ToWidth, ToHeight: Integer): TGraphic;
var
  Temp: TBitmap;
begin
  Temp := TBitmap.Create;
  try
    Temp.Width := ToWidth;
    Temp.Height := ToHeight;
    Temp.Canvas.StretchDraw(Rect(0, 0, ToWidth, ToHeight), Original);
    Result := TGraphic(Original.ClassType.Create);
    Result.Assign(Temp);
  finally
    Temp.Free;
  end;
end;

PS: n�o testei nenhuma.

F�rum Redimensionar Imagem (Estou desesperado, Ajudem) #196047