Resize ohne Dimensions Verlust

[Sherlock]

Es geht um Größenänderung unter Beibehaltung der Seitenverhältnisse? Vor der Änderung das Seitenverhältnis berechnen, und dann nur eine der Dimensionen ändern, die zweite aufgrund des errechneten Verhältnisses nachziehen. Fertig. Das dürfte der erwartete Vierzeiler werden.

Edith vergaß das Einpassen: Also bitte meine Einlassung ignorieren, es ist doch nicht ganz so einfach.

Sherlock

[EWeiss]

Zitat von Sherlock:

Es geht um Größenänderung unter Beibehaltung der Seitenverhältnisse? Vor der Änderung das Seitenverhältnis berechnen, und dann nur eine der Dimensionen ändern, die zweite aufgrund des errechneten Verhältnisses nachziehen. Fertig. Das dürfte der erwartete Vierzeiler werden.

Sherlock

Kleines Beispiel? Bin nicht der Mathe Profi. (Also dauert bei mir immer etwas länger)

gruss

[EWeiss]

Zitat:

Nun hast die gewünschte Breite und Höhe des Ziel-Bildes. Als nächste musst Du diese Werte benutzen um die Position zu berechnen

Ops.. Danke.

Werde es mal einbauen und das Resultat posten

gruss

[EWeiss]

Muste noch was ändern.
Aber so geht's. Supi und nochmals Danke..

Delphi-Quellcode:

var
  TargetRatio: Double;
  IsRelationship: Double;
  w, h, x, y: Single;
begin
  // Gif Zentrieren
  IsRelationship := GifFrameRect.Width / GifFrameRect.Height;
  TargetRatio := rc.Right / rc.Bottom;

  if IsRelationship > TargetRatio then
  begin
    w := rc.Right;
    h := rc.Right / IsRelationship;
  end else
  if IsRelationship < TargetRatio then
  begin
    h := rc.Bottom;
    w := rc.Bottom * IsRelationship;
  end else
  begin
    w := rc.Right;
    h := rc.Bottom;
  end;

  X := (rc.Right - w) / 2;
  Y := (rc.Bottom - h) / 2;
end;

Perfekt!
Unterschied Pics von oben und die hier.

EDIT:
Ich lade das Projekt heute Abend hoch zum testen muss jetzt erst mal in die Kiste.

gruss

[Rollo62]

TRect.FitInto ?

[EWeiss]

Zitat von Rollo62:

TRect.FitInto ?

Muss nicht sein trotzdem Danke.
Es funktioniert ja mit der Vorlage von samso.

gruss