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.
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.
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[]...

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:

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

Das sollte wohl immer zutreffen

[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 von David Martens:

@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!
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.