Listbox.OnDrawItem: wenn Dateiendung wechselt, andere Farbe

[juergen]

Hallo zusammen,

ich bin nun schon etwas länger am Überlegen und testen, finde aber leider keine Lösung. :gruebel:
Ich habe eine Listbox, wobei der Listbox.Style := lbVirtualOwnerDraw ist.
Dann gibt es noch eine StringList, welche die Daten hält. In den Items steht jeweils ein Dateiname mit der Dateiendung.

Nun suche ich nach einer Möglichlkeit um im onDrawItem-Event eine andere Farbe zuzuweisen, wenn sich die Dateiendung zum Vorgänger geändert hat (weiß und grün im Wechsel).

Ich hoffe ich konnte mich so einigermaßen verständlich ausdrücken.

Für ein *unter die Arme-Greifen*, bzw. Denkanstöße schon mal vorab vielen Dank!

[sx2008]

Die Farbwerte müssen zusätzlich zu den Dateinamen in der Stringliste gespeichert werden.
Dazu kann man das Property Objects[] (mis)brauchen.

Aktuelle Farbe auf Startwert (z.B weiss) setzen.
Stringliste von vorne nach hinten durchlaufen.
Immer wenn sich die Endung geändert hat, wird die aktuelle Farbe gändert (weiss -> grün bzw. grün -> weiss).
Die Farbe wird in StringList.Objects[] gespeichert.

Im OnDrawItem-Event hat man dann sowohl den Dateinamen als auch die zugeordnete Farbe.

[juergen]

Hallo sx2008,
schon mal Danke für deine Antwort. :thumb:
Leider nutze ich das Property Objects[] in meiner StringList() schon.
Ich hatte heute Nacht noch einiges probiert und näherte mich der vagen Erkenntnis, dass die Farb-Information wohl direkt in meiner StringList mit ablegt werden muss.
Ich würe einfach an die Dateiendung eine 0 für weiß und eine 1 für grün mit dransetzen.
Da ich relativ große Datenmengen habe, muss ich nun abwägen, ob mir dann die Performance noch ausreicht.

Ein "direktes" Bearbeiten ohne großen Performanceverlust scheint im OnDrawItem-Event an dieser Stelle wohl nicht möglich, zumindest habe ich es nicht hin bekommen.
Mir fehlt eben ein zweites Property Objects[]... :stupid:

Wenn jemand noch eine Idee hätte, wäre das natürlich toll.

[Tryer]

Du könntest an Stelle des bisherigen Objects z.B. einen Record reinhängen:

Delphi-Quellcode:

type
  PStrLstObj = ^TStrLstObj;
  TStrLstObj = record
    Obj: TObject;
    Color: TColor;
  end;

Grüsse, Dirk

[David Martens]

Wenn du nur die zwei festen Farben hast dann versuch es mal so:

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  // geändert
    begin
    // Farbe für gleich setzten
    end
    else
    begin
    // Farbe für ungleich setzten
    end;
  end
  else
  begin
    if Index = 0 then
    begin
    // Farbe für erstes Element setzten
    end;
  end;  
end;

Man braucht da nicht unbedingt ein Objekt.

[DeddyH]

Zitat:

Delphi-Quellcode:

if ExtractFileExt(ListBox1.Items[Index - 1]) = ExtractFileExt(ListBox1.Items[Index - 1]) then

Das sollte wohl immer zutreffen :mrgreen:

[Helmi]

Hallo,

ich möchte mal Odd in den (neu renovierten) Raum werfen und auch folgenden Code:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  If Odd(Index) then
    ListBox1.Canvas.Brush.color := clGreen
  else
    ListBox1.Canvas.Brush.color := clWhite;

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

Basis ist dieser Link: http://www.swissdelphicenter.ch/de/showcode.php?id=1885

[David Martens]

@Helmi: das will er ja nicht. Die Farbe soll nur anders sein, wenn sich die Dateiendung ändert.

[Helmi]

Zitat:

Zitat von David Martens (Beitrag 1027925)

@Helmi: das will er ja nicht. Die Farbe soll nur anders sein, wenn sich die Dateiendung ändert.

Mist! - Ja hast recht - das hab ich überlesen!

[juergen]

Hallo zusammen,

erst einmal Danke für die gutgemeinten Ratschläge! :thumb:
Letztendlich kann ich an den Strukturen nichts mehr ändern (Record), da das Ganze die Performance beeinflussen würde und aus anderen Gründen (Dekorierer und Verschlüsselung).

So wie ich das sehe, geht es ohne Performance-Verlust nur direkt in der OnDrawItem-Routine...

Den Ansatz von David hatte ich als erstes ausprobiert, unter Berücksichtigung von DeddyH's Hinweis, also bei dem einen [Index] die Minus 1 raus und der zusätzlichen Verwendung von Lowercase(), aber...das kann leider nicht funktionieren.
Ich hänge mal ein Bildchen an, das sagt mehr wie tausend Worte.8-)

[David Martens]

@juergen: wieso funktioniert das nicht?

[juergen]

Hallo David,

wenn sich die Dateiendung ändert, ändert sich die Farbe erst im nächsten Item (siehe Bildchen).
Dadurch funktioniert auch die Änderung der Farbe nicht, wenn es eine Dateiendung nur einmal gibt.

[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

[juergen]

Hallo Christian,

wie kommt man auf solch eine Idee? :mrgreen:
Prinzipiell funktioniert das. :thumb:
Nur wenn man scrollt, sieht es seltsam aus, auch wenn man ein Item anklickt.
Wenn man außerhalb der Anwendung klickt wird das Ganze "irgendwie" refresht und die Farben stimmen wieder.

Da weiß ich im Moment leider keinen Ansatz. Im Anhang mal ein Beispielbildchen.


Allen eine
Gute N8!

[David Martens]

Also ich weis nicht was du falsch machst? Hier mein kleiner Test:

ListBox1.Style := lbOwnerDrawVariable; // im OI

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  if Index > 0 then
  begin
    if LowerCase(ExtractFileExt(ListBox1.Items[Index - 1])) = LowerCase(ExtractFileExt(ListBox1.Items[Index])) then 
    begin
      // Farbe für gleich setzten
      ListBox1.Canvas.Brush.color := clWhite;
    end
    else
    begin
      // Farbe für ungleich setzten
      ListBox1.Canvas.Brush.color := clAqua;
    end;
  end
  else
  begin
    if Index = 0 then
    begin
      // Farbe für erstes Element setzten
      ListBox1.Canvas.Brush.color := clRed;
    end;
  end;

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

Und das Ergebnis sieht so aus:

[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.:thumb:
Beim Code aus der 2. Codebox stimmt noch was nicht.

Getestet hatte ich mit ca. 161.000 Items :oops:
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! :dp:

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ß.