Problem mit TObject und ItemDraw

[Mackhack]

Hallo DPler,

kann mir mal jemand helfen mit dem Code? Ich bekomme eine AV beim Ausfuehren der DrawItem Methode.

Delphi-Quellcode:

procedure TfoOutput.LbxInfoDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with TListBox(Control) do
  begin
    Canvas.FillRect(Rect);
    case Integer(LbxInfo.Items.Objects[Index]) of
      0:
      begin
        if ( TValues(LbxInfo.Items.Objects[Index]).Value / 1000000) < 10 then
          LbxInfo.Canvas.Font.Color := clGreen
        else
          LbxInfo.Canvas.Font.Color := clRed;
        Canvas.TextOut(Rect.Right - 62, Rect.Top, 'Suspend: ' + IntToStr(TValues(LbxInfo.Items.Objects[Index]).Value));
      end;
    end;
  end;
end;

Hier sollte das befuellen stattfinden:

Delphi-Quellcode:

procedure TfoOutput.PopMenItmHibClick(Sender: TObject);
var
  AppDir: String;
  lXMLLib: TXMLLib;
  lNode: TXMLNode;
  lAttr: TXMLAttribute;
  Values: TValues;
begin
  LbxInfo.Clear;
  Values := TValues.Create;
  AppDir := BrowseDialog('Select Directory', BIF_NEWDIALOGSTYLE or BIF_RETURNONLYFSDIRS);
[...]
      begin
        lNode := lXMLLib.GetNodeFromPath('suspend/scenario');
        if ( assigned(lNode) ) then
        begin
          lAttr := lNode.Attributes.AttributeByName['suspend'];
          begin
            if ( assigned(lAttr) ) then
            begin
              LbxInfo.Items.AddObject(IntToStr(DataIndex), Values);
              TValues(LbxInfo.Items.Objects[DataIndex]).Value := lAttr.Value.AsInteger;
            end;
          end;
[...]

Danke!

[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...