Problem mit TObject und ItemDraw

[Roachford]

Zum einen:

case Integer(LbxInfo.Items.Objects[Index]) of if TValues(LbxInfo.Items.Objects[Index]).Value / 1000000) < 10 then Werd erstmal mit dir und dem Code einig, ob in dem Objects[] Eigenschaft ein Integer oder Objekt ist.

zum anderen: Warum machst du einen Cast von TWinControl auf TListBox wo du doch nur den Canvas willst der von TWinControl schon geliefert wird? Bei allen Zugriffen auf die ListBox nutzt du ja wieder lbxInfo anstatt die übergebene Instanz.

Delphi-Quellcode:

procedure TfoOutput.PopMenItmHibClick(Sender: TObject);
var
...
  Values: TValues;
begin
  Values := TValues.Create;

...
              LbxInfo.Items.AddObject(IntToStr(DataIndex), Values);
              TValues(LbxInfo.Items.Objects[DataIndex]).Value := lAttr.Value.AsInteger;

Ansonsten ist es auch kein Wunder dass die Values Instanz paranoid wird, wenn sie doch in allen Einträgen steckt und sich wohl für jeden Eintrag unterschiedliche Werte merken soll. Von daher wird sie wohl ein wenig krank und bockig und merkt sich wohl nur noch den zuletzt zugewiesenen Wert...