Listview Farbige Einträge

[corpsman]

Servus ich bins schon wieder *g*.

Ich habe ne Listview und will entsprechend einer Spalte die jeweilige Zeilenfarbe ändern, unter Windows funktioniert dieser Code 1a

Code: Alles auswählen

 
Procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Var DefaultDraw: Boolean);
Begin
  If assigned(item) Then Begin
    Case item.SubItems[IndexStatus] Of
      TextModifiedPropertyChangeOnly, TextModified: ListView1.canvas.Font.Color := clblue;
      TextAdded: ListView1.canvas.Font.Color := clPurple;
      TextMissing: ListView1.canvas.Font.Color := clMaroon;
    Else
      ListView1.canvas.Font.Color := clblack;
    End;
  End
  Else Begin
    ListView1.canvas.Font.Color := clblack;
  End;
End;
 

Nur unter Linux leider nicht, muss ich da noch was machen ?

habe hier das neue Kubunt 16.04

[Mathias]

Wen du deine komplette Source in den Anhang stellst, könnte ich es mit Linux Mint testen.

[corpsman]

Das angehängte Beispiel müsste den Fehler zeigen, hab grad kein Windows mehr zum Testen da *g*

[Mathias]

Entweder ist dies ein Bug, oder die ListView ist für Linux noch nicht fertig implementiert.
Dieser einfache Code geht auch nur unter Windows, unter Linux bleibt alles weiss.

Code: Alles auswählen

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: boolean);
begin
  if Item.Index mod 2 = 1 then begin
    ListView1.Canvas.Brush.Color := clRed;
  end else begin
    ListView1.Canvas.Brush.Color := clYellow;
  end;
end;

[corpsman]

Am We ist Stuttgarter Lazarus treffen, mal schaun welche Kompetenzen da vorbeischaun, sollte jemand ne Lösung kennen poste ich es, sonst mache ich dann nen Bug Report auf.

[BeniBela]

Ich habe da ein ganz eigenes listview für geschrieben