GR32: TImage32 in den Hintergrund

[S - tefano]

Ich hatte mich geirrt, zum einen bietet TImage ein smScaledOptimal-Pendant an (proportional=true, stretch=false), zum anderen kann man im TImage aber nicht die Größe der u.U. verkleinerten Bitmap anzeigen lassen.
Habe mir das mal mit einer Methode gemacht. Wens interessiert:

Delphi-Quellcode:

function getBildSeitenVerhaeltnis(x, y: integer): double;
begin
  result:= Max(x, y) / Min(x, y);
end;

function getDisplayedImageSize(image: TImage): TPoint;
var
  quot: double;
begin
  quot:= getBildSeitenVerhaeltnis(image.Picture.Width, image.Picture.Height);
  result.X:= 0;
  result.Y:= 0;
  if (Max(image.Picture.Width, image.Picture.Height) <= Max(image.Width, image.Height)) then begin
    result.X:= image.Picture.Width;
    result.Y:= image.Picture.Height;
  end
  else begin
    if (image.Picture.Width >= image.Picture.Height) then begin
      result.X:= image.Width;
      result.Y:= round(image.Width / quot);
    end
    else begin
      result.Y:= image.Height;
      result.X:= round(image.Height / quot);    
    end;
  end;  
end;