Listbox.OnDrawItem: wenn Dateiendung wechselt, andere Farbe

[C.Schoch]

Hi,

Das sollte aber funktionieren

Delphi-Quellcode:

procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  if Index > 0 then
  begin
    if ExtractFileExt(ListBox1.Items[Index - 1]) <> ExtractFileExt(ListBox1.Items[Index]) then
    begin
      ListBox1.Tag := (ListBox1.Tag + 1) mod 2; 
    end;
  end;
  if ListBox1.Tag = 0 then
  begin
    // Farbe 1
  end
  else
  begin
    // Farbe 2
  end;
end;

Hoffe das Toggeln des Tags geht so sollte immer zwischen 0 und 1 wechseln