Hallo DPler,

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

zusammenfalten · markieren

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:

zusammenfalten · markieren

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!

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.

markieren

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