Imagegröße an Bild anpassen

[benst]

Hi,
ich lade ein JPEG in ein Image... Soweit funktioniert das auch ganz gut.
(Kann mir jemand jedoch sagen, wie ich proportional streche?)
Des weiteren, wie lese ich die Breite und Höhe eines JPEGs aus, damit ich die Imagegröße anpassen kann?
(Darüber könnte ich dann ja auch entsprechend strechen...)
Gruß
Ben
P.S.: Delphi 5 Standard

[Daniel B]

http://www.delphipraxis.net/internal...jpeg+gr%F6%DFe hth

Image hat noch die Eigenschaft Proportional, damit sollte man das können

[benst]

Ich konnte keine Protortionalitätseinstellung finden. Ich glaube, in Delphi 5 gab es die noch nicht (hatte schon vorher nach ihr gesucht).
Danke für den Link, ich werde mich mal damit auseinandersetzen.
Gruß
Ben

[Daniel B]

Hm, das wundert mich, aber nicht im OI schauen, die musst du schon selber schreiben.

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
begin
  Image1.Stretch := True/False;
  Image1.Proportional := True/False;
end;

[benst]

=> Undefinierter Bezeichner: 'Proportional'

??

[Daniel B]

Dann gibts das bei D5 wohl wirklich nicht. :/

[Gandalfus]

Image.picture.width

[uwewo]

Stretch und Autosize gibt es im OI bin mir ziemlich sicher

[benst]

@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.