Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Gollum,
30. Nov 2004
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...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Gollum,
30. Nov 2004
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".
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Gollum,
30. Nov 2004
Hallo,
Du musst in der OnDraw unbedingt als erstes prüfen ob der Item<>nil ist. In Deinem Fall also:
procedure TForm_UserAnlegen.ListView1CustomDrawItem(
Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if (Item=nil) then Exit;
if (Item.SubItems.Count>0) then
begin