Kein "Bold" in ListView

[catweasel]

Hallo

Ich habe hier eine ListView Komponente bei der ich je nach Wert einen Eintrag in rot und Fettschrift (Bold) anzeigen will.
Rot wird der Eintrag gemacht, aber er wird nicht in Fettschrift angezeigt.
Was mache denn hier wieder falsch?

Gruß
Michael

Code: Alles auswählen

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if ((SubItem = 4) and (StrToTime(Item.SubItems[3]) >= StrToTime('10:00'))) then begin
        {TODO: geht nicht in Bold !! }
        ListView1.Canvas.Font.Style := [fsBold];  //funktioniert nicht
        ListView1.Canvas.Font.Color := clRed;     //funktioniert
        Sender.Canvas.Refresh;
      end
    else
      begin
        ListView1.Canvas.Font.Style := [];
        ListView1.Canvas.Font.Color := clBlack;
        Sender.canvas.Refresh;
      end;
end;

[wp_xyz]

Was mache denn hier wieder falsch?

Gar nichts. Es gibt dazu einen Bug-Report, der offenbar ziemlich weit unten im Stapel liegt... (http://bugs.freepascal.org/view.php?id=25397)

[Michl]

Ja, kann ich bestätigen.

Als Workaround könntest du ja evtl. sowas machen (habe ich nur schnell zusammengeklimpert, nicht ausführlich getestet):

Code: Alles auswählen

procedure TForm1.ListView1AdvancedCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem;
  SubItem: Integer; State: TCustomDrawState;
  Stage: TCustomDrawStage; var DefaultDraw: Boolean);
var
  aRect: TRect;
begin
  if Item.SubItems.Count <= SubItem then Exit;
 
  DefaultDraw:=False;
  aRect:=Item.DisplayRectSubItem(SubItem, drBounds);
  ListView1.Canvas.Font.Style:=[fsBold];
  ListView1.Canvas.Font.Color:=clRed;
  ListView1.Canvas.TextRect(aRect, aRect.Left, aRect.Top, Item.SubItems[SubItem - 1]);
end;

[BeniBela]

Da war mal was ... hier: http://bugs.freepascal.org/view.php?id=7059#c28645

CDRF_NEWFONT muss von der LCL in der Windows callback function gesetzt werden

[catweasel]

Danke für die Infos

Gruß
Michael