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