hola FabianSiza,
Quizas no sea la respuesta que esperas, pero si quieres cambiar el tamaño de las imagenes a tu gusto prueba con esto. y si te sirve ve la forma de integrarlo en tu proyecto.
Código Delphi
[-]uses JPEG;
type
TForm1 = class(TForm)
........
procedure Redimensionar(Imagen: TGraphic; Ancho, Alto: Integer);
private
Código Delphi
[-]procedure TForm1.Redimensionar(Imagen: TGraphic; Ancho, Alto: Integer);
var
Bitmap: TBitmap;
begin
Bitmap:= TBitmap.Create;
try
Bitmap.Width:= Ancho;
Bitmap.Height:= Alto;
Bitmap.Canvas.StretchDraw(Bitmap.Canvas.ClipRect,Imagen);
Imagen.Assign(Bitmap);
finally
Bitmap.Free;
end;
end;
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
Jpg: TJPEGImage;
ancho, alto: integer;
begin
ancho := StrToInt(Edit1.Text);
alto := StrToInt(Edit2.Text);
Jpg:= TJPEGImage.Create;
try
Jpg.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Original.jpg');
Redimensionar(Jpg,ancho,alto);
Jpg.SaveToFile(ExtractFilePath(Application.ExeName) + 'Copia.jpg');
finally
Jpg.Free;
end;
end;