Listbox.OnDrawItem: wenn Dateiendung wechselt, andere Farbe

[C.Schoch]

@David: Weil dein Vorschlag nicht dem entspricht was er haben will,
Er will bei jeder Änderung der Dateiendung die Farbe wechseln und wenn du dir dein Bild anschaust dann entspricht das dem nicht wirklich

@juergen: Auf solche Sachen kommt man mit etwas Erfahrung relativ einfach

Leider klappts nicht, da je nach dem wie und wo hin ich scrolle anders markiert wird.

Mit unten stehendem Code funktionierts, der wird aber mit zunehmender Länge immer langsamer

Eine weitere Möglichkeit (2. Codebox) wäre es die Farbe des ersten gezeichneten Items nur bei diesem zu ermitteln (dies geschieht in der For schleife), dann wirds ein bisschen schneller allerdings brauchst du dann eine globale Variable (iToggleColor).

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control : TWinControl; Index : Integer;
  Rect : TRect; State : TOwnerDrawState);
var
  i : Integer;
begin
  ListBox1.Tag := 0;
  for i := 1 to index do
  begin
    if ExtractFileExt(ListBox1.Items[i - 1]) <> ExtractFileExt(ListBox1.Items[i]) then
    begin
      ListBox1.Tag := (ListBox1.Tag + 1) mod 2;
    end;
  end;
  if ListBox1.Tag = 0 then
  begin
    ListBox1.Canvas.Brush.color := clWhite;
  end
  else
  begin
    ListBox1.Canvas.Brush.color := clGreen;
  end;   
  ListBox1.Canvas.FillRect(Rect);
  ListBox1.Canvas.Font.Color := clBlack;
  ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control : TWinControl; Index : Integer;
  Rect : TRect; State : TOwnerDrawState);
var
  i : Integer;
begin
  iToggleColor := 0;
  if ListBox1.Tag > index then
  begin
    for i := 1 to index do
    begin
      if ExtractFileExt(ListBox1.Items[i - 1]) <> ExtractFileExt(ListBox1.Items[i]) then
      begin
        iToggleColor := (iToggleColor + 1) mod 2;
      end;
    end;
  end
  else
  begin
    if index > 0 then
    begin
      if ExtractFileExt(ListBox1.Items[index - 1]) <> ExtractFileExt(ListBox1.Items[index]) then
      begin
        iToggleColor := (iToggleColor + 1) mod 2;
      end;
    end;
  end;

  if iToggleColor = 0 then
  begin
    ListBox1.Canvas.Brush.color := clWhite;
  end
  else
  begin
    ListBox1.Canvas.Brush.color := clGreen;
  end;
  ListBox1.Canvas.FillRect(Rect);
  ListBox1.Canvas.Font.Color := clBlack;
  ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
  ListBox1.Tag := index;
end;

[juergen]

Hallo Christian,

erst einmal Danke für deine Unterstützung!
Der Coder aus deiner 1. Codebox ist der erste Code der auch funktioniert.
Beim Code aus der 2. Codebox stimmt noch was nicht.

Getestet hatte ich mit ca. 161.000 Items
Bei größeren Datenmengen wird das Ganze sehr langsam.

Auch dank deiner Unterstützung bin nun zu der Erkenntnis gelangt, dass ich die Information (Dateiendung) wohl doch mit in meine Datei als zusätzliche Infomation mit ablegen muss, eben aus Gründen der Performance. Ich werde das ganze wohl als Zahl mit abspeichern, da die Sortierung nach Zahl dann wesentlich schneller ist. Zuerst muss ich mir aber ein Konzept überlegen, wie ich beim Einlesen der Dateien (FindFirst) die Zuordnung einer Zahl pro Dateiendung hinbekomme.

Dieser Thread ist somit keine offene Frage mehr.
Danke an alle Beteiligten!

Für alle die es interessiert und ggf. nicht mit so großen Datenmengen hantieren müssen, nachfolgend der funktionierende Code, mit Anzeige von markierten Item(s).

Delphi-Quellcode:

    if (odSelected in State) then begin
      Canvas.Font.Color := clBlack;
      Canvas.Brush.Color := clHighlight;
    end
    else begin
      ListBox.Tag := 0;
      for i := 1 to index do begin
        if LowerCase(ExtractFileExt(ListBox.Items[i - 1])) <> LowerCase(ExtractFileExt(ListBox.Items[i])) then begin
          ListBox.Tag := (ListBox.Tag + 1) mod 2;
        end;
      end;
      if (ListBox.Tag = 0) and not (odSelected in State) then begin
        ListBox.Canvas.Brush.color := clWhite;
      end
      else begin
        if (ListBox.Tag = 1) and not (odSelected in State) then begin
          ListBox.Canvas.Brush.color := $FCFDA5;
        end;
      end;

      ListBox.Canvas.FillRect(Rect);
      ListBox.Canvas.Font.Color := clBlack;
      ListBox.Canvas.TextOut(Rect.Left, Rect.Top, ListBox.Items[Index]);
      ListBox.Tag := index;
    end;

[David Martens]

Jetzt hab ich dein Anzeigeproblem verstanden. Da habe ich dich nicht richtig verstanden.

Zu deiner letzten Fragen wie du eine Zahl pro Dateiendung hinbekommst. Wie wäre es damit:

Ord(erstes Zeichen der Endung) + Ord(zweites Zeichen der Endung) * 255 + Ord(drittes Zeichen der Endung) * 255 * 255 + ....

Die Zahl wird zwar recht groß (auch etwas größer als nötig, da nicht alle 255 Zeichen zulässig sind), aber die mögliche Anzahl an Endungen ist auch recht groß.