Anordnung von Align=Top Controls in Firemonkey

[Codehunter]

Guten Morgen!

Ich habe das Problem, dass Controls (egal ob TRectangle, TCombobox oder TLabel) nicht in der Reihenfolge auf dem Smartphone erscheinen, wie sie in der IDE angezeigt werden. Alle diese Controls sind Align=Top gesetzt. Ich habe schon in der IDE die Erstellungsfolge geändert und auch die Reihenfolge, wie sie in der .fmx stehen. Trotzdem werden sie augenscheinlich willkürlich gewürfelt, erscheinen dann aber immer in der selben Reihenfolge. Die ändert sich also nicht. Nur habe ich noch nicht rausgefunden, woran sich diese Reihenfolge festmacht.

Grüße
Cody

[Der schöne Günther]

An Position.Y hätte ich doch gedacht. Die Reihenfolge in der FMX hätte ich für egal gehalten.

Hätte, hätte. Ehrlich gesagt nur so ein Idee ohne Ahnung zu haben.

[Codehunter]

Zitat von Der schöne Günther:

An Position.Y hätte ich doch gedacht. Die Reihenfolge in der FMX hätte ich für egal gehalten.

Hätte, hätte. Ehrlich gesagt nur so ein Idee ohne Ahnung zu haben.

Nö, Position.Y wird schon im OI richtig gesetzt, auch Margins und Padding der einzelnen Controls wird richtig berücksichtigt (habs einzeln nachgerechnet). Wenn ich zur Laufzeit Position.Y nochmal auf die selben Werte setze wie sie im OI angezeigt werden, dann liegen die Controls richtig auf dem Form. Aber das kanns doch nicht sein, dann brauch ich auch kein RAD und kann gleich die ganze Oberfläche dynamisch erstellen

[Sir Rufo]

Das wäre ein auch ein Wunsch bzgl. VCL/FMX, dass das Alignment anhand der Z-Order festgemacht wäre und nicht wie jetzt an irgendeiner XY Position, die sich ändert, wenn sich das Form-Layout z.B. beim Start ändert.

So ist das immer wieder ein Geduldsspiel mit ungewissem Ausgang.

[stahli]

Ich habe dunkel in Erinnerung, dass ich bei XE3 auch solche Probleme hatte und Position.Y zur Laufzeit neu zugewiesen habe (bis ich dann aufgab).

[mensch72]

also zuletzt haben mir die aktuellen "2 Stufen" pro Ausrichtung mit MostXXX + XXX(also z.B. alMostTop und alTop) stets gereicht und wenn nicht und da eine FixReihenfolge nötig, betrachte ich das als Gruppe und setze es fix auf ein Panel und habe dann innerhalb des Panels wieder die Stufen und mit 2 Panels(ala TopRow1 und TopRow2) kann man da da drin mit MostTop,Top,Client,Bottom,MostBottom je 5 Sachen in fixer Reienfolge "onTOP" bezüglich des GesamtLayouts per IDE anordnen

[Codehunter]

Zitat von Sir Rufo:

Das wäre ein auch ein Wunsch bzgl. VCL/FMX, dass das Alignment anhand der Z-Order festgemacht wäre und nicht wie jetzt an irgendeiner XY Position

Ausgehend von der Annahme, dass die Z-Order zumindest die Reihenfolge im Container Control.Children beeinflusst, habe ich mal folgende Routine gestrickt:

Delphi-Quellcode:

procedure TForm1.AlignChilds(AParent: TControl);
var
  C1, C2: TControl;
  I, J: Integer;
  O: TFmxObject;
  L: TList<TControl>;
begin
  L:= TList<TControl>.Create;
  try
    for I := 0 to AParent.ChildrenCount - 1 do begin
      O:= AParent.Children[I];
      if O.InheritsFrom(TControl) then begin
        L.Add(TControl(O));
      end;
    end;
    for I := 0 to L.Count - 1 do begin
      if I > 0 then begin
        C1:= L[I-1];
        C2:= L[I];
        C2.Position.Y:= C1.Position.Y + C1.Height + C1.Margins.Top + C1.Margins.Bottom;
      end;
    end;
  finally
    FreeAndNil(L);
  end;
end;

Zwei Schleifen, weil ich mir nicht sicher war ob alle Control.Children per se auch immer TControls sein müssen. Ich glaube es eigentlich nicht.

Allerdings, warum sollte es auch anders sein, beeinflusst die Position.Y-Eigenschaft auch noch die Reihenfolge im Control.Children. Dadurch funktioniert das nur im ersten Druchlauf.

Ich muss sagen, ich habe mir lange Zeit gelassen um überhaupt einen Blick auf FMX und mobile Entwicklung zu werfen. Aber wenn ich sehe dass selbst nach mehreren Jahren FMX noch solche Probleme hat, dann fass ich mich wirklich an den Kopf

[DeddyH]

Zitat von Codehunter:

Aber wenn ich sehe dass selbst nach mehreren Jahren FMX noch solche Probleme hat, dann fass ich mich wirklich an den Kopf

Damit bist Du nicht allein, ich mach damit jetzt seit einem halben Jahr herum und bin immer noch ca. 70% meiner Arbeitszeit mit der Oberfläche beschäftigt, weil irgendwelche Klippen zu umschiffen sind, mit denen man einfach nicht rechnet.

[Sir Rufo]

Sieht zwar wild aus, aber das sollte die Controls zuverlässig in ihrem Container positionieren:

Delphi-Quellcode:

procedure TMainForm.RealignControls( const AParent: TFmxObject );
var
  LArea                  : TRectF;
  LContainer             : IContainerObject;
  LControls              : TArray<TControl>;
  LFmxObjectToControl    : TFunction<TFmxObject, TControl>; // TFunc<T1,T2> mit const Argumenten
  LFmxObjectControlFilter: TFilter<TFmxObject>;             // TPredicate<T> mit const Argument
  LArrangeControls       : TAction<TControl>;               // TProc<T> mit const Argument
  LAlignControlFilter     : TFilter<TControl>;               // TPredicate<T> mit const Argument
  LMostAlignControlFilter: TFilter<TControl>;               // TPredicate<T> mit const Argument
begin
  if not Assigned( AParent )
  then
    raise EArgumentNilException.Create( 'AParent' );

  if not Supports( AParent, IContainerObject, LContainer )
  then
    Exit; // nicht für dieses Object

  LArea := TRectF.Create(
    TPointF.Zero,
    LContainer.ContainerWidth,
    LContainer.ContainerHeight );

  LArrangeControls :=
    procedure( const c: TControl )
    begin
      case c.Align of
        TAlignLayout.MostTop, TAlignLayout.Top:
          begin
            c.Position.Y := LArea.Top;
            LArea.Inflate( 0, -c.Height, 0, 0 );
          end;
        TAlignLayout.MostLeft, TAlignLayout.Left:
          begin
            c.Position.X := LArea.Left;
            LArea.Inflate( -c.Width, 0, 0, 0 );
          end;
        TAlignLayout.MostRight, TAlignLayout.Right:
          begin
            c.Position.X := LArea.Right - c.Width;
            LArea.Inflate( 0, 0, -c.Width, 0 );
          end;
        TAlignLayout.MostBottom, TAlignLayout.Bottom:
          begin
            c.Position.Y := LArea.Bottom - c.Height;
            LArea.Inflate( 0, 0, 0, -c.Height );
          end;
      end;
    end;

  LAlignControlFilter :=
    function( const c: TControl ): Boolean
    begin
      Result := c.Align in [ TAlignLayout.Top, TAlignLayout.Left, TAlignLayout.Right, TAlignLayout.Bottom ];
    end;

  LMostAlignControlFilter :=
    function( const c: TControl ): Boolean
    begin
      Result := c.Align in [ TAlignLayout.MostTop, TAlignLayout.MostLeft, TAlignLayout.MostRight, TAlignLayout.MostBottom ];
    end;

  LFmxObjectToControl :=
    function( const o: TFmxObject ): TControl
    begin
      Result := TControl( o );
    end;

  LFmxObjectControlFilter :=
    function( const o: TFmxObject ): Boolean
    begin
      Result := o is TControl;
    end;

  // Alle Controls von AParent holen
  LControls := TArray.Cast<TFmxObject, TControl>(
    { Values } AParent.Children.ToArray,
    { ResultSelector } LFmxObjectToControl,
    { Filter } LFmxObjectControlFilter );

  // erst die Controls, die Most... aligned sind
  TArray.ForEach<TControl>( // führt die Action auf jedem Eintrag in Values aus, wenn der Filter zutrifft
    { Values } LControls,
    { Action } LArrangeControls,
    { Filter } LMostAlignControlFilter );

  // dann den Rest
  TArray.ForEach<TControl>( // führt die Action auf jedem Eintrag in Values aus, wenn der Filter zutrifft
    { Values } LControls,
    { Action } LArrangeControls,
    { Filter } LAlignControlFilter );
end;

(BTW: Ich hasse Schleifchen schreiben, darum habe ich diese Wrapper im Einsatz)

[Codehunter]

Also ich habe jetzt nach wildem Experimentieren gemerkt, dass das wirklich Bugs in der IDE zu sein scheinen. Wenn ich die Controls per STRG-X-STRG-V einfach mal vom Form lösche und gleich wieder einfüge (ins selbe Parent Control) dann verändern sich auf einmal Margins, Aligns, FontSizes etc. bei der Ausführung auf dem Smartphone.

DeddyH hat anscheinend recht, da gehen wirklich 70% der Zeit für UI-Entwicklung drauf. Was für ein Müll wenn man bedenkt was für das Mobile Addon so an Preisen aufgerufen wird bei Emba