FireMonkey Styles: wer kennt sich aus?

[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;