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
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ß