FireMonkey Styles: wer kennt sich aus?

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