Compare TRect, wie am besten angehen?

[Alter Mann]

Danke

@stahli
Ja, so in der Art.


In der 2. Grafik kannst du Links ein Panel sehen, auf demr weitere Controls abgelegt sind.
In der 'unsortierten' Liste sieht man die TRect-Werte dazu,

Delphi-Quellcode:

procedure TForm1.ListControlData;
var
  I, J : Integer;
begin
  Memo.Lines.Clear;

  for I := 0 to ControlCount - 1 do
  begin
    AddListControlData(Controls[I]);
    if Controls[I] is TWinControl then
      if TWinControl(Controls[I]).ControlCount > 0 then
      begin
        for J := 0 to TWinControl(Controls[I]).ControlCount - 1 do
          AddListControlData(TWinControl(Controls[I]).Controls[J]);
      end;
  end;
end;

procedure TForm1.AddListControlData(Control : TControl);
var
  R : TRect;
  S : String;
begin
  R         := Control.ClientRect;
  R.TopLeft := Self.ScreenToClient(Control.ClientToScreen(Point(0, 0)));
  R.Right   := R.Left + R.Right;
  R.Bottom  := R.Top  + R.Bottom;
  if not (Control.Parent = Self) then S := '  ' + Control.Name
                                 else S := Control.Name;
  Memo.Lines.Add(Format('%s : Rect(%d, %d, %d, %d), %s',[S, R.Left, R.Top, R.Right, R.Bottom, AlignToStr(Control.Align)]));
end;

nur leider stimmen sie nicht mit Anordnung überein.
Die 'richtige' Sortierung steht rechts daneben (per Hand).

Wenn jetzt das Align des Panel zur Laufzeit von alLeft auf alTop geändert wird, sollen
die Controls nicht mehr von Top -> Bottom, sondern von Left -> Right ausgerichtet werden.
Und dazu brauche ich die 'richtige' Sortierung.
Erschwerend kommt noch dazu, dass RequestAlign scheinbar mehrfach aufgerufen wird.