Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by OLLI_T,
30. Nov 2004
@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
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by OLLI_T,
30. Nov 2004
Hallo Gollum!
Sorry wegen des Nicks. Habe den Beitrag bereits editiert. :cheers:
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. :gruebel:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by OLLI_T,
30. Nov 2004
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. :cyclops:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by OLLI_T,
30. Nov 2004
Auch Hallo!
1. Wann wird Count=-1? Das kommt höchstens bei meinem Konto am Monatsende vor. :shock:
2. Viel mehr sollte Dich interessieren, ob das Item auch tatsächlich SubItems hat:
If Item.SubItems.Count=0 Then Exit;
3. Was passiert, wenn die Spalte keine gültige Zahl enthält? Exceptions in Paint Routinen sind höchst unangenehm.
4. Ich bin mal gespannt, was hier so alles grün wird.