procedure TMainForm.ReAlignFrames(FrameWidth: integer);
var
  i, e, LineCount, line, Fcount: integer;
  ThumbFrame: TFThumb;
const
  Faktor = 0.78;
  // LineCount: Anzahl der Frames pro "Zeile"
  // line: aktuelle Zeile
  // FCount ist ein Extra-Zähler der benötigt wird, da nicht immer alle Thumbs ausgerichtet werden müssen (einige können unsichtbar sein)
  // Faktor: Wert mit dem die Höhe der Thumbs aus der Breite errechnet wird
begin
  FCount := 0;
  LineCount := trunc(SBThumbs.ClientWidth / FrameWidth); // SBThumbs: Scrollbox in der die Frames ausgerichtet werden
  for i := 0 to ThumbList.Count - 1 do
  begin
    ThumbFrame := TFThumb(ThumbList[i]);
    if ThumbFrame.Visible then
    begin
      if FrameWidth <> ThumbFrame.Width then
      begin
        ThumbFrame.Width := FrameWidth;
        ThumbFrame.Height := round(FrameWidth * Faktor);
      end;
      e := FCount + 1;
      if FCount >= LineCount then // wenn der aktuelle Frame nicht mehr auf die 1. Zeile passt...
      begin
        line := roundup(e / LineCount) - 1; // aktuelle Zeile ermitteln
        ThumbFrame.Top := ((ThumbFrame.Height * line) + 2) - SBThumbs.VertScrollBar.Position;
        ThumbFrame.Left := ThumbFrame.Width * (FCount mod LineCount) + 2;
      end
      else
      begin
        ThumbFrame.Top := 2 - SBThumbs.VertScrollBar.Position;
        ThumbFrame.Left := (ThumbFrame.Width * FCount) + 2;
      end;
      inc(FCount);
    end;
  end;
end;