OnAdvancedCustomDrawSubitem ändert nachfolgende Spalten

[kaiser1401]

Es geht auch wenn man zuvor den Font ausliest ihn ändert und wieder zurückschreibt. man muss dann nur aufpassen das der font den man zwischendurch setzt ein anderer ist (am besten einen der quasi nie gebraucht wird z.B. Symbol)

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; 
  Item: TListItem; SubItem: Integer; State: TCustomDrawState; 
  var DefaultDraw: Boolean);  
var f : string;
begin
f:=sender.Canvas.Font.Name;
sender.Canvas.Font.Name:='Symbol';
sender.Canvas.Font.Name:=f;
if ....


end;

dann kann man sich auch das wechseln für die captions sparen.