Bildverhältnis in einem Image

[monta]

Hallo,

ich möchte mehrere Bilder nacheinander, momentan mittels eines TImages auf dem Bildschirm ausgeben.
Bei Bildern im Querformat ist das ja noch kein so großes Problem dank Stretch, mit der Verzerrung könnte man sich ja abfinden.
Aber bei Bildern im Hochformat, geht das ja nicht. Was gibt es da für Möglichkeiten, das die Bilder Zentriert mit der Maximalen, durch das Image gegebenen Seitenlänge einer Seite und der daraus resultierenden anderen Seite dargestellt werden - also unverzerrt und das möglichst noch zentriert.
Gibt es dafür eventuell andere Komponenten, welche das von sich aus Regeln?

monta

[turboPASCAL]

http://www.delphipraxis.net/internal...=217165#217165

Umgebaut zu:

Delphi-Quellcode:

function ScaleTo(Image: TImage; aRect: TRect; Center: Boolean): TRect;
var
  h, w, r: Single;
  tmpRect: TRect;
begin
  with Image.Picture.Graphic do
  begin
    { Verhaeltniss errechnen }
    w := aRect.Right / Width;
    h := aRect.Bottom / Height;
    { begrenzendes Verhaeltniss }
    if w < h then r := w else r := h;
    { in linke obere Ecke legen }
    tmpRect.Left   := 0;
    tmpRect.Top    := 0;
    tmpRect.Right  := Trunc(r * Width);
    tmpRect.Bottom := Trunc(r * Height);
    { Center ? }
    if Center then
    begin
      tmpRect.Left   := (aRect.Right - tmpRect.Right) div 2;
      tmpRect.Right  := tmpRect.Right + tmpRect.Left;
      tmpRect.Top    := (aRect.Bottom - tmpRect.Bottom) div 2;
      tmpRect.Bottom := tmpRect.Bottom + tmpRect.Top;
    end;
  end;
  Image.Left   := tmpRect.Left;
  Image.Top    := tmpRect.Top;
  Image.Width  := tmpRect.Right - tmpRect.Left;
  Image.Height := tmpRect.Bottom - tmpRect.Top;
end;

// Aufruf z.B. so:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('Test.bmp');
  ScaleTo(Image1, Panel1.ClientRect, True);
end;

Sollte deine Anforderungen erfüllen.

[Zacherl]

Kann man nicht einfach die Eigenschaft "Proprtional" auf true setzen?

Florian

[Sidorion]

yep, solange Du Center auch auf true setzt

[monta]

Zitat von Florian Bernd:

Kann man nicht einfach die Eigenschaft "Proprtional" auf true setzen?

Welche Eigenschaft 'proportional'
Wo soll die zu finden sein, oder gibts die in D3 noch nicht?

Der Code von turboPASCAL funktioniert super, Danke!