JPG kleiner machen mit Qualitaet einstellen

[nuclearping]

Wenn ich's richtig verstanden hab:

Delphi-Quellcode:

xtel := x / max_x;
  ytel := y / max_y;
  if xtel < ytel then begin
    // Dividieren = Kleiner ... Evtl noch prüfen, ob Bild größer wird, denn dann Multiplizieren
    x := x / xtel;
    y := y / xtel;
  end
  else begin
    // Dividieren = Kleiner ... Evtl noch prüfen, ob Bild größer wird, denn dann Multiplizieren
    x := x / ytel;
    y := y / ytel;
  end;