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??