Einzelnen Beitrag anzeigen

taktaky
(Gast)

n/a Beiträge
 
#3

Re: Image strecken nur wenn das Bild > Image.Width ?

  Alt 30. Jun 2008, 22:43
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;
  Mit Zitat antworten Zitat