cambiar tamaño a imagen con imagecontrol desde codigo

[camiz]

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;

[[escafandra]]

Quizás la lectura completa de este hilo te de más ideas.


Saludos.