Also wenn ich mir über das StyleBook einen benutzerdefinierten Style
FooItemStyle
für ein
TListBoxItem
anleg und dort ein
TText
drauf klatsche und dem gebe ich dann als
StyleName
moretext, dann
- kann ich bei jedem Item per lItem.StylesData['moretext.Text'] := 'more foo';
die Daten unterjubeln
- diese Daten anzeigen lassen, wenn ich lItem.StyleLookup := 'FooItemStyle';
setze
- diese Daten wieder ausblenden, wenn ich lItem.StyleLookup := '';
setze
Um direkt an diese StyleRessource zu gelangen
Delphi-Quellcode:
var
testv: TText;
if Listboxitem2.FindStyleResource( 'moretext', testv ) then
testv.Text := 'more foo';
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)