I'm having trouble with a custom listbox component(does not descend form tlistbox or tcustomlistbox), basically I want text normal when not selected and bold when the item is selected. However it is always bold for some reason.
I believe the problem lies in the component source as opposed to my code below but here it is anyway.
Basically umm in the OnDrawItem event I do this:
Sender: TObject; ACanvas: TCanvas; Index: SmallInt; Const ARect: TRect; Selected: Boolean);
If (Selected) Then ACanvas.Font.Style := [fsBold]
Else ACanvas.Font.Style := ;
ACanvas.Brush.Style := bsClear;
But the text is always bold whether selected or not. Here isa link to the source of the component if anyone wants to check it out themselves and see what may be wrong. I must be missing something but all looks fine to me.