Is there a bug in the Delphi list view control when using custom drawing?

Question

QC#101189

I\'m trying to custom draw a progress bar in a Delphi TListView as suggested by NGLN\'s answer to another SO question. This works fine, apart

Answer 1

I don't have a clue for the black rectangle at the text position, but the missing hot tracking is due to the DefaultDraw := False; in your code. OnCustomDrawSubItem is only called for subitem <> 0, so the first column is drawn as default while the second uses your code. Custom drawing of the first column can be made with OnCustomDrawItem.