Maximale image/Bild-Darstellungsgröße anzeigen/ berechnen

[Coder]

Ja, und zwar möchte ich auf meiner FORM

das Bild maximiert darstellen, aber STRETCH dabei auf True lassen - aber so, daß die Proportionen stimmen und dennoch der maximale Platz zum Anzeigen des Bildes ausgenutzt wird.



Sprich ich lege ein Image auf meine Form und lade ein Bild hinein, das etliches größer ist als meine Bildschirmauflösung (z.B. Bild 1500 x 1000 - wobei meine Grafikkarte 1280 x 800 anzeigt).

so , und nun will ich - manuell die Größe des IMAGE1 manuell festlegen.

(das vollständige Projekt habe ich unten angehängt ) - ebenso Bilder mit speziellen Abmessungen.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.Height := screen.Height;
  form1.Width := screen.Width;
  top := 0;
  left := 0;
  image1.top := 0;
  image1.left := 0;
end;

// --------------------------------------------------------------------------------------

procedure TForm1.STARTClick(Sender: TObject);
var a, b: integer;
  e, d, c: real;
begin
  OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
  if OpenDialog1.Execute = true
    then begin
    image1.Picture.LoadFromFile(OpenDialog1.FileName);
  end
  else exit;

  a := image1.Picture.Width;
  b := image1.Picture.Height;
  c := (a / b); // Verhältnis
  edit1.Text := inttostr(a) + '     ' + inttostr(b) + '     ' + floattostr(c);


  if c < 1 then
  begin
    image1.Height := Screen.Height;
    image1.Width := round(Width * c);
    edit1.Text := edit1.Text + '   kleiner';

    image1.Width := round(image1.Picture.width * ((screen.Height) / image1.Picture.Height));
    image1.Height := round(image1.picture.Height / (screen.Width / image1.picture.Width)) - 20;

  end;
  if c = 1 then begin
    Image1.Height := Height;
    Image1.Width := Width;
  end;
  if c > 1 then
  begin
    d := (Screen.Height) / image1.Picture.Height;
    e := (image1.picture.Width / Screen.Width);
    edit3.Text := floattostr(e);

    image1.Width := round(image1.Picture.width * ((screen.Height - 0) / image1.Picture.Height));

    image1.Height := round(image1.picture.Height * (screen.Width / image1.picture.Width)) - 20;
    edit1.Text := edit1.Text + '   Größer';
  end;

  edit2.Text := inttostr(image1.Width) + '     ' + inttostr(image1.Height) + '     ' +
    floattostr(d) + '   Neue Größe';
end;

Mein Problem ist gerade, da die Bilder einfach irgendwie scaliert werden doch nie so, wie es korrekt sein müßte.

Ich habe daher mal mein Projekt angehängt.

hier habe ich 5 Beispielbilder hochgeladen, die alle korrekt angezeigt werden sollten.
Bei diesen handelt es sich um rechtefreie Bilder = Public Domain !
http://ul.to/07bgby
2 MB


DANKE.


statt angehängtem Screenshot, weil die Exe eh maximiert ist und keine Border hat:
http://img5.imagebanana.com/img/5jh1...roportions.png