Listview - Fehler: Überschreitet Maximum

[schuetze09]

@jim_raynor: nein im CustomDraw steht sonst weiter nix drin, dass ist es ja, was mich so verwundert.

MfG
schuetze09

[schuetze09]

@Gollum:
deine Variante funzt auch nicht.
Ich bekomme die Fehlermeldung:

"eine Exception der Klasse EStringListError ist aufgetreten, ... Listenindex... Maximum(1)"

MfG
schuetze09

[jim_raynor]

Mhh. An der Draw-Funktion kann das irgendwie nicht liegen. Es muss irgendwo anders der Fehler sein

[OLLI_T]

Läuft Dein Programm, wenn Du den Code in der Methode ListView1CustomDrawItem komplett auskommentierst?

@Gollum:
Item=NIL im OnCustomDrawItem Event sollte auch ein ganz seltener Vogel sein.

[Gollum]

Hallo,

@OLLI_T
So ein seltener Vogel ist das nicht. Das OnDraw-Ereignis kann/wird zu den unmöglichsten Zeiten eintreten. Z.B. schon beim Erstellen eines Formulars, wenn in der Listview noch keine Einträge sind.
Abgesehen davon, ist mein Nickname Gollum und nicht "Gallon".

[schuetze09]

@All:ich habe jetzt alles auskommentiert und das Programm läuft...

[OLLI_T]

Hallo Gollum!

Sorry wegen des Nicks. Habe den Beitrag bereits editiert.

Was das OnDraw Event angeht, geb ich Dir recht.

Aber auf dieser Baustelle geht´s doch um das OnCustomDrawItem Event. Und wo kein Item da auch kein Event. => Try it

Nichtsdestotrotz bin ich gespannt, was des Rätsels Lösung ist.

Gruss

Der OLLI

[Gollum]

Hallo,

@schuetze09:
Zeige doch noch einmal, welchen Code Du nun im OnDraw-Ereignis benutzt. Ich kann es nicht glauben, dass mein Beispiel nicht tut. Sonst dürfte ja in meinen Programmen gar nichts gehen...

[OLLI_T]

@Schuetze!

Stehen die Daten denn auch im richtigen Listview?

Teste mal folgendes:

procedure TForm_UserAnlegen.ListView1CustomDrawItem(
Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
Showmessage(StrToInt(Item.SubItems.Count));
end;

[schuetze09]

So, jetzt habe ich es gefunden und mache es so:

Delphi-Quellcode:

procedure TForm_UserAnlegen.ListView1CustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; var DefaultDraw: Boolean);
begin
 if (Item=nil) then Exit;
  if (Item.SubItems.Count>0) then
  begin
    if (StrToInt(Item.SubItems[0])>0) then ListView1.Canvas.Brush.Color:=clGreen;
  end;
end;

Dann hatte ich im Property-Editor OwnerDraw auf True, das habe ich jetzt auf False.

Jetzt funktioniert es.
Kleiner Fehler große Wirkung...

DANKE für eure Hilfe und Mühen..

MfG
schuetze09