Listbox.OnDrawItem: wenn Dateiendung wechselt, andere Farbe

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

[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