FireMonkey Styles: wer kennt sich aus?

[bcvs]

Danke für die schnellen Antworten.

Die Version habe ich im Profil ergänzt.

Welche ist denn die Style-Datei für Android? An der angegebenen Stelle habe ich diese Styles (s. Screenshot)

Außerdem: wie füge ich manuell Styles hinzu? Ich sehe die Styles nur im Strukturfesnter. da kann ich aber nichts hinzufügen.

[Union]

Wenn Du das Mobile-Pack hast, befinden sich die Style-Dateien unter
c:\Users\Public\Documents\RAD Studio\12.0\Styles\Android.

Um Styles manuell hinzuzufügen gibt es zwei Möglichkeiten:

1. Ziehen einer Komponente, für die Du einen Style bearbeiten möchstest, aus der Komponentenpalette in den Style.
2. Speichern des Styles in einer Textdatei (ähnlich dfm), manuell bearbeiten und wieder einlesen.

[bcvs]

OK, langsam komme ich da rein.

Ist es richtig, dass ich da bei den Adroid-Styles nur den AndroidDark.fsf habe? Das ist der mit dem schwarzen Hintergrund. Wie komme ich denn an den Standard-Style ran?

[Union]

Zitat von bcvs:

OK, langsam komme ich da rein.

Ist es richtig, dass ich da bei den Adroid-Styles nur den AndroidDark.fsf habe? Das ist der mit dem schwarzen Hintergrund. Wie komme ich denn an den Standard-Style ran?

An den Standard-Style kommst Du mit dem Bitmap-Styledesigner. Weitere neue Styles lädst Du hier.

[stoxx]

... da wir gerade bei Styles sind .. weißt Du zufällig, wie man einem TabControl Item unter Android ein Bild hinzufügen kann?

[Union]

Zitat von stoxx:

... da wir gerade bei Styles sind .. weißt Du zufällig, wie man einem TabControl Item unter Android ein Bild hinzufügen kann?

Das geht wahrscheinlich nur über den tabitemstyle - dort kannst Du eine icon resource hinzufügen. Aber wozu sollte man das wollen?

[bcvs]

So, jetzt bin ich ein Stück weiter. Jetzt habe nur ein Problem mit dem FindStyleResource:

Ich habe einen Style für meine Listboxitems angelegt. Dieser beinhaltet folgende Objekte:

check: Checkbox
text: TActiveStyletextObject
textdatum: TText

Mit diesem Code fülle ich jetzt die Listbox:

Delphi-Quellcode:

  for i := 0 to 50 do begin
    lbi:=TListBoxItem.Create(lbGericht);
    lbi.Parent:=lbGericht;
    lbi.Text:='Item ' + IntToStr(i);
    ItemText := lbi.FindStyleResource('textdatum') as TText;
    if Assigned(ItemText) then
      ItemText.Text := IntToStr(i);
  end;

Das funktioniert nur solange gut, wie die Items in der Listbox sichtbar sind. Nach dem Scrollen ist im
ersten, vorher nicht sichtbarer Item der Text in textdatum leer, danach fängt er wieder bei 0 an. s. Screenshot.

Was passiert denn da??

[bcvs]

So, jetzt habe ich es doch noch selbst rausgefunden, mit Hilfe von diesem Beitrag:
https://forums.embarcadero.com/threa...27830򙑶

Man darf keine Daten in die Resource reinschreiben, die dauerhaft da bleiben sollen. Die korrekte Stelle für das Befüllen des LixtBoxitems ist sein Ereignis OnApplyStyleLookup. So funktioniert es jetzt im Prinzip:

Delphi-Quellcode:

  
  lbGericht.BeginUpdate;
  for i := 0 to 50 do begin
    lbi:=TListBoxItem.Create(lbGericht);
    lbi.Parent:=lbGericht;
    lbi.Text:='Item ' + IntToStr(i);
    lbi.Tag:=i;
    lbi.OnApplyStyleLookup:=ListBoxItem1ApplyStyleLookup;
  end; 
  lbGericht.EndUpdate;

procedure TMainForm.ListBoxItem1ApplyStyleLookup(Sender: TObject);
var lbi:TListBoxItem;
    ItemText    : TText;
begin
  lbi:=TListBoxItem(Sender);
  ItemText := lbi.FindStyleResource('TextDatum') as TText;
  if Assigned(ItemText) then
    ItemText.Text := IntToStr(lbi.Tag);
end;