Ist es möglich das die ListView Komponente noch nicht komplett für Linux umgesetzt ist?
Ich habe ein kleines Programm geschrieben das unter Windows und Linux laufen soll
Unter anderem werden dort auch die Spalten vom ListView unterschiedlich eingefärbt.
Bei Windows funktioniert es, bei dem gleichen Quelltext unter Linux bleiben alle Spalten weiß.
Muß ich das unter Linux anders lösen, oder geht das schlichtweg nicht weil die Komponente noch nicht fertig ist?
Code: Alles auswählen
{TODO: Farben setzen funktionieren nicht für Linux}
// ListView Farbe erste Spalte
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
ListView1.Canvas.Brush.color := $00C9FEFD;
end;
{TODO: Farben setzen funktionieren nicht für Linux}
// ListView Farbe alle weiteren Spalten
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
case SubItem of
1,2 : ListView1.Canvas.Brush.color := $00C9FEFD;
3 : ListView1.Canvas.Brush.color := $00B1E6FE;
4 : ListView1.Canvas.Brush.color := $00E6D6C8;
5 : ListView1.Canvas.Brush.color := $00B7B7FF;
end;
end;