@Gandalfus:
That's it! Das habe ich gesucht. Danke!
Jetzt konnte ich mein Vorhaben recht einfach umsetzen:
Delphi-Quellcode:
procedure TForm1.CheckBoxStretchClick(Sender: TObject);
begin
Image1.Stretch:=CheckBoxStretch.Checked;
Image1.AutoSize:=not CheckBoxStretch.Checked;
if CheckBoxStretch.Checked then
if Image1.Picture.Width > Image1.Picture.Height then
begin
Image1.Width:=434;
Image1.Height:=round(Image1.Picture.Height / Image1.Picture.Width * Image1.Width);
end else
begin
Image1.Height:=362;
Image1.Width:=round(Image1.Picture.Width / Image1.Picture.Height * Image1.Height);
end;
end;
@uwewo:
Ja, Stretch und AutoSize gibt es und die brauche ich auch, aber die kannte ich schon. Was wolltest du mir damit sagen.