Moin !
Ich habe ein ListView mit 3 Spalten. Die erste Spalte hätte ich gerne in Fett.
Habe dazu diesen Code verwendet:
Delphi-Quellcode:
procedure TGeraetPort_Form.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if (Item=nil) then Exit;
Sender.Canvas.Font.Style := [fsBold];
end;
procedure TGeraetPort_Form.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
with Sender.Canvas do begin
case SubItem of
0, 1, 2 : Font.Style := [];
end;
end;
end;
Aber das Ergebnis ist immer das Spalte 1 und 2 in Fett sind und nur Spalte 3 ist nicht Fett.
Kann mir jemand nen Tip geben wo ich nun schief liege ?
