Image strecken nur wenn das Bild > Image.Width ?

Hallo

ich lade große Bilder in TImage. Die Bild werden verkleinert so, dass das Bild komplett in TImage passt.
Das Problem ist wenn ich ein sehr kleines Bild oder ein Icon loade, dann wird es an das TImage gestreckt und das möchte ich nicht, da es sehr gepixcelt aussieht.

Wie kann ich das Bild in TImage strecken aber nur, wenn das Bild breiter als TImage ist
Ist TImage breiter als das Bild, dann soll das Bild drin 100% dargestellt werden

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

  if OpenPictureDialog1.Execute then

  begin

     Image1.AutoSize := False;

     Image1.Stretch  := True;

     Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

  end;

end;

gruß

Image strecken nur wenn das Bild > Image.Width ?

Image strecken nur wenn das Bild > Image.Width ?

Forumregeln