FMX ListboxItem Style Refreshfehler

[weisswe]

Hallo!

Ich habe ein ListboxItem-Style mit einem Label-Feld ergänzt.
Alles gut und schön - es wird angezeigt und ich kann auch Werte setzen.
Jedoch wenn man mehrere Items in der Liste hat und scrollen kann - kommen Fehler.
Zum Beispiel werden beim runter und wieder rauf die Werte der ersten Items auch ganz unten angezeigt!?
Aber dies willkürlich. Hab keine Idee warum.
Muss eine spezielle Eigenschaft gesetzt werden??
Vielleicht hat jemand ähnliche Probleme und sogar eine Lösung.

Hier noch die Style-Definition - Stylename = 'amount':

Code:

object TLayout
    StyleName = 'ww_moneylistboxitemstyle'
    DesignVisible = False
    Height = 64.000000000000000000
    Position.X = 509.000000000000000000
    Position.Y = 415.000000000000000000
    Width = 302.000000000000000000
    TabOrder = 81
    object TLayout
      StyleName = 'accessorycheckmark'
      Align = MostRight
      Height = 44.000000000000000000
      Visible = False
      Width = 22.000000000000000000
      TabOrder = 0
      object TActiveStyleObject
        Align = Center
        Height = 15.000000000000000000
        SourceLookup = 'Resources1Windows 7style.png'
        WrapMode = Tile
        Width = 15.000000000000000000
        ActiveTrigger = Selected
        ActiveLink = <
          item
            SourceRect.Left = 151.000000000000000000
            SourceRect.Top = 367.000000000000000000
            SourceRect.Right = 166.000000000000000000
            SourceRect.Bottom = 382.000000000000000000
          end>
        SourceLink = <
          item
            SourceRect.Left = 151.000000000000000000
            SourceRect.Top = 367.000000000000000000
            SourceRect.Right = 166.000000000000000000
            SourceRect.Bottom = 382.000000000000000000
          end>
      end
    end
    object TLayout
      StyleName = 'accessorydetail'
      Align = MostRight
      Height = 44.000000000000000000
      Visible = False
      Width = 22.000000000000000000
      TabOrder = 1
      object TActiveStyleObject
        Align = Center
        Height = 15.000000000000000000
        SourceLookup = 'Resources1Windows 7style.png'
        WrapMode = Tile
        Width = 18.000000000000000000
        ActiveTrigger = Selected
        ActiveLink = <
          item
            SourceRect.Left = 172.000000000000000000
            SourceRect.Top = 367.000000000000000000
            SourceRect.Right = 190.000000000000000000
            SourceRect.Bottom = 382.000000000000000000
          end>
        SourceLink = <
          item
            SourceRect.Left = 172.000000000000000000
            SourceRect.Top = 367.000000000000000000
            SourceRect.Right = 190.000000000000000000
            SourceRect.Bottom = 382.000000000000000000
          end>
      end
    end
    object TLayout
      StyleName = 'accessorymore'
      Align = MostRight
      Height = 44.000000000000000000
      Visible = False
      Width = 22.000000000000000000
      TabOrder = 2
      object TActiveStyleObject
        Align = Center
        Height = 15.000000000000000000
        SourceLookup = 'Resources1Windows 7style.png'
        WrapMode = Tile
        Width = 15.000000000000000000
        ActiveTrigger = Selected
        ActiveLink = <
          item
            SourceRect.Left = 130.000000000000000000
            SourceRect.Top = 367.000000000000000000
            SourceRect.Right = 145.000000000000000000
            SourceRect.Bottom = 382.000000000000000000
          end>
        SourceLink = <
          item
            SourceRect.Left = 130.000000000000000000
            SourceRect.Top = 367.000000000000000000
            SourceRect.Right = 145.000000000000000000
            SourceRect.Bottom = 382.000000000000000000
          end>
      end
    end
    object TLabel
      StyleName = 'amount'
      Align = Right
      StyledSettings = [Family]
      Height = 64.000000000000000000
      Margins.Right = 5.000000000000000000
      Position.X = 195.000000000000000000
      TextSettings.Font.Size = 24.000000000000000000
      TextSettings.Font.Style = [fsBold]
      TextSettings.HorzAlign = Trailing
      Text = '0'
      Width = 102.000000000000000000
    end
    object TCheckBox
      StyleName = 'check'
      Align = Left
      CanFocus = False
      DisableFocusEffect = True
      Height = 19.000000000000000000
      TabOrder = 4
      Visible = False
      Width = 20.000000000000000000
    end
    object TActiveStyleTextObject
      StyleName = 'text'
      Align = Client
      Height = 62.000000000000000000
      Margins.Left = 3.000000000000000000
      Margins.Top = 1.000000000000000000
      Margins.Right = 3.000000000000000000
      Margins.Bottom = 1.000000000000000000
      TextSettings.WordWrap = False
      TextSettings.HorzAlign = Leading
      Width = 120.000000000000000000
      ShadowVisible = False
      ActiveTrigger = Selected
      ActiveColor = claBlack
    end
  end

[Harry Stahl]

Entscheidend dürfte sein, wie und wann Du die Liste befüllst. Da es dafür mehrere Varianten gibt, wäre es ohne konkreten Source-Code nur Rätselraten.

Wenn Du den Source-Code darlegst, wie Du es machst, kann man Dir vielleicht helfen...