TAlignLayout.Top die Reihenfolge stimmt nicht

[Gausi]

Äh, nein. Eher so:

Delphi-Quellcode:

  ScrollBox1.BeginUpdate;
  rec := TRectangle.Create(bfDeckblattForm);
  ScrollBox1.AddObject(rec);
  rec.Parent := ScrollBox1;
  // ---------
  rec.Top := 42;  // oder was sehr, sehr hohes, 
                  // oder besser direkt der Wert, an dem es erscheinen sollte  
  // -----------
  rec.Align := TAlignLayout.Top;

[hoika]

Hallo,
das mit dem Align war schon immer so ...

Du musst alle Elemente unsichtbar machen.
Und danach wieder alle in der richtigen Reihenfolge sichtbar machen.

Die Erstell-Reihenfolge wurde noch nie berücksictigt.

[Peter-Pascal]

Hallo es funktioniert:

Delphi-Quellcode:

  ScrollBox1.BeginUpdate;
  rec := TRectangle.Create(bfDeckblattForm);
  ScrollBox1.AddObject(rec);
  rec.Parent := ScrollBox1;
//  rec.Align := TAlignLayout.Bottom;
  rec.Align := TAlignLayout.None;
  rec.Position.Y := 1000;
  rec.Align := TAlignLayout.Top;

Ich habe den Position.y Wert hochgesetzt und es sieht so aus wie ich es gerne hätte (siehe Anhang).
Als nächstes werde ich den Tipp mit den visible := false ausprobieren.

Danke für die Hilfe.

Gruß Pascal

[Schokohase]

Also für die VCL hätte ich so etwas

Delphi-Quellcode:

unit AlignChildren.Vcl;

interface

uses
  System.Types,
  Vcl.Controls;

type
  WinControlHelper = class helper for TWinControl
  public
    procedure AlignChildren(ARecursive: Boolean = false);
  end;

implementation

{ WinControlHelper }

procedure WinControlHelper.AlignChildren(ARecursive: Boolean);
var
  remainingArea: TRect;
  childControlIndex: Integer;
  currentControl: TControl;

  newTop, newLeft: Integer;
  reduce: Integer;
begin
  remainingArea := Self.ClientRect;
  remainingArea.Inflate(-Padding.Left, -Padding.Top, -Padding.Right, -Padding.Bottom);

  for childControlIndex := 0 to Self.ControlCount - 1 do
  begin
    currentControl := Self.Controls[childControlIndex];

    if not currentControl.Visible then
      Continue;

    newLeft := currentControl.Left;
    newTop := currentControl.Top;

    case currentControl.Align of
      alTop:
        begin
          newTop := remainingArea.Top;
          if currentControl.AlignWithMargins then
            Inc(newTop, -currentControl.Margins.Top);

          reduce := currentControl.Height;
          if currentControl.AlignWithMargins then
            Inc(reduce, currentControl.Margins.Top + currentControl.Margins.Bottom);

          remainingArea.Inflate(0, -reduce, 0, 0);
        end;
      alBottom:
        begin
          newTop := remainingArea.Bottom - currentControl.Height;
          if currentControl.AlignWithMargins then
            Inc(newTop, -currentControl.Margins.Bottom);

          reduce := currentControl.Height;
          if currentControl.AlignWithMargins then
            Inc(reduce, currentControl.Margins.Top + currentControl.Margins.Bottom);

          remainingArea.Inflate(0, 0, 0, -reduce);
        end;
      alLeft:
        begin
          newLeft := remainingArea.Left;
          if currentControl.AlignWithMargins then
            Inc(newLeft, -currentControl.Margins.Left);

          reduce := currentControl.Width;
          if currentControl.AlignWithMargins then
            Inc(reduce, currentControl.Margins.Left + currentControl.Margins.Right);

          remainingArea.Inflate(-reduce, 0, 0, 0);
        end;
      alRight:
        begin
          newLeft := remainingArea.Right - currentControl.Width;
          if currentControl.AlignWithMargins then
            Inc(newLeft, -currentControl.Margins.Right);

          reduce := currentControl.Width;
          if currentControl.AlignWithMargins then
            Inc(reduce, currentControl.Margins.Left + currentControl.Margins.Right);

          remainingArea.Inflate(0, 0, -reduce, 0);
        end;
    end;

    currentControl.Left := newLeft;
    currentControl.Top := newTop;

    if ARecursive and (currentControl is TWinControl) then
      TWinControl(currentControl).AlignChildren(ARecursive);
  end;
end;

end.

Das müsste für FMX ähnlich funktionieren. Dort gibt es allerdings mehr Alignment-Arten die man berücksichtigen muss. Das Prinzip ist aber gleich.