Hallo
wenn so mache, dann wird das Bild in TImage nicht angezeigt !
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.AutoSize := False;
Image1.Stretch := True;
//Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); // ok
Image1.Picture.LoadFromFile('test.jpeg'); // so klappt nicht
end;
// ... jetzt kommt die Überprüfung :
If Image1.Picture.Bitmap.Width < Image1.Width then
Image1.Stretch := false
else
Image1.Stretch := true;
end;