Einzelnen Beitrag anzeigen

taktaky
(Gast)

n/a Beiträge
 
#1

Image strecken nur wenn das Bild > Image.Width ?

  Alt 30. Jun 2008, 21:17
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ß
  Mit Zitat antworten Zitat