Delphi-Quellcode:
for var i := 0 to pnlClient.ChildrenCount - 1 do
Log.d(pnlClient.Children[i].Name);
liefert, dass die Elemente richtig eingefügt sind.
Portrait: pnlAxis0, pnlAxis01, pnlAxis1, pnalAxis11, pnlAxis2,pnlAxis21
Habe nun mal Align nacheinander aufgerufen.
Delphi-Quellcode:
// Sichtbare Panels in richtiger Reihenfolge wieder einfügen
If aPortrait then
begin
pnlAxis21.Align := TAlignLayout.Top;
pnlAxis2.Align := TAlignLayout.Top;
pnlAxis11.Align := TAlignLayout.Top;
pnlAxis1.Align := TAlignLayout.Top;
pnlAxis01.Align := TAlignLayout.Top;
pnlAxis0.Align := TAlignLayout.Top;
end;
// for var P in Panels do
// P.Align := TAlignLayout.Top;
// Sichtbare Panels in richtiger Reihenfolge (von unten nach oben) wieder einfügen
for var I := High(Panels) downto 0 do
if Panels[I].Visible then
pnlClient.AddObject(Panels[I]);
finally
pnlClient.EndUpdate;
end;
// Layout und Style auffrischen
pnlClient.Repaint;
for var i := 0 to pnlClient.ChildrenCount - 1 do
Log.d(pnlClient.Children[i].Name);
end;
führt zu keiner Verbesserung