[FMX] Font eines dynamisch erzeugten Labels

[Neutral General]

Hallo,

Ich bin ein absoluter FMX Anfänger und ich wollte hier eine Reihe von Panels mit Labels in einer Scrollbox erstellen.
Der Code dafür sieht so aus:

Delphi-Quellcode:

var plEntry: TPanel;
    lbName: TLabel;

Scrollbox.BeginUpdate;
try
  // Erst mal alle Controls in der Scrollbox freigeben
  for i := Scrollbox.Content.ControlsCount-1 downto 0 do
    Scrollbox.Content.Controls.Delete(i);

  for i := 0 to AList.Count-1 do
  begin
    item := AList[i];

    plEntry := TPanel.Create(Self);
    plEntry.Parent := Scrollbox.Content;
    plEntry.Align := TAlignLayout.Top;
    plEntry.Height := 30;
    plEntry.Padding.Rect := RectF(5,2,5,2);
    plEntry.StyleLookup := 'plItemInnerStyle1'; // Funktioniert übrigens auch nicht
    plEntry.Tag := NativeInt(item);
    plEntry.OnClick := ClickItemEntry;

    lbName := TLabel.Create(Self);
    lbName.Parent := plEntry;
    lbName.Align := TAlignLayout.Client;
    lbName.TextSettings.Font.Family := 'Pristina';
    lbName.TextSettings.FontColor := rgbName; // Eigene Farbkonstante (die auch erfolgreich an anderen stellen genutzt wird)
    lbName.TextSettings.HorzAlign := TTextAlign.Leading;
    lbName.TextSettings.VertAlign := TTextAlign.Center;
    lbName.Tag := NativeInt(item);
    lbName.Text := item.Name;
    lbName.OnClick := ClickItemEntry;
  end;
finally
  Scrollbox.EndUpdate;
end;

Ich kann machen was ich will: Weder FontColor noch FontFamily des Labels wird berücksichtigt.
Und ich weiß nicht wo das Problem sein soll. Sowas würde in der VCL ohne Probleme funktionieren.

Das Zuweisen des Styles (existiert schon und wird für ein anderes Item genutzt)

Delphi-Quellcode:

plEntry.StyleLookup := 'plItemInnerStyle1';

hat übrigens auch keine Auswirkung.
Ansonsten klappt der Code. Die Panels mit den Labels wird erstellt und generell klappt auch alles. Bis auf die Font vom Label und den Style des Panels.
Weiß jemand was hier los ist?

Ich teste das auf meinem Android Handy.

[Harry Stahl]

Wenn diese Attribute vom Standard-Stil abweichen sollen, musst Du diese in den Style-Settings deaktivieren...

[Neutral General]

Danke, das hat geklappt!
Hast du eine Idee für das Panel?

Delphi-Quellcode:

plEntry.StyleLookup := 'plItemInnerStyle1';

Dieser Style ist ein Style eines anderen Panels was schon zur Designzeit existiert mit einer abweichenden Hintergrundfarbe.
Das dynamisch erstellte Panel übernimmt diesen Style (bzw. die Hintergrundfarbe?) allerdings nicht.

[Harry Stahl]

Sollte aber eigentlich so funktionieren (jedenfalls hier unter Windows funktioniert Dein Beispiel). Stimmt der Name wirklich überein (die 1 und l kann man je nach Schriftart schon mal schnell verwechseln)...

Kleiner Hinweis: Statt TPanel zu verwenden, bietet es sich oft an, TRectangle zu nehmen, da man dort per Eigenschaft ".Fill" ganz einfach die Hintergrundfarbe verändern kann...