Hvordan får man et billede vist med de rigtige proprotioner

FuldStrForm.HorzScrollBar.Visible := False;
FuldStrForm.VertScrollBar.Visible := False;

!?

Snowball

Prøver lige

Desværre Nej!
Scollbars var selvfølgelig væk, men billedet er stadig for stort og jeg ser kun et udsnit. Billedet skal gerne tilpasse sig, sådan det fylder hele skærmen, men stadig bevare proprotionerne.

uden at være sikker tror jeg at med anchors og timage autosize at det kan lade sig gøre, vil du lige undersøge det?

Nej! Desværre.

Image1.align := alclient;
Image1.Proportional := true;

hmm

Image1.align := alclient; virkede ikke!
Image1.Proportional := true; Har jeg ikke og sættes det i koden accepteres dette ikke!

hvilken version af delphi bruger du?
er det et Tiamge component du bruger?

+ det må ikke være icon når man bruger Proportional

Jeg bruger pt. Delphi5 prof. og componenten er TImage. Billederne der loades er jpeg og altså ikke icon'er. Ordet Proportionel findes ikke på objekt Inspektor for TImage.

Løste det selv v.h.a:

var
  bmp: TBitmap;
  jpg: TJpegImage;
  scale: Double;
begin
    // Abrir la imagen
  if opendialog1.execute then
  begin
    jpg := TJpegImage.Create;
    try
        // Cargar la imagen
      jpg.Loadfromfile(opendialog1.filename);
      if jpg.Height > jpg.Width then
        scale := 50 / jpg.Height
      else
        scale := 50 / jpg.Width;
      bmp := TBitmap.Create;
      try
        //Crear el thumbnail
        bmp.Width := Round(jpg.Width * scale);
        bmp.Height := Round(jpg.Height * scale);
        bmp.Canvas.StretchDraw(bmp.Canvas.Cliprect, jpg);
        // Dibujarlo en el control
        Self.Canvas.Draw(100, 10, bmp);
        // Convertirlo y guardarlo en disco.
        jpg.Assign(bmp);
        jpg.SaveToFile(ChangeFileext(opendialog1.filename, '_thumb.JPG'));
      finally
        bmp.free;
      end;
    finally
      jpg.free;
    end;
  end;