[Support]

Hello!

Could you show a demo with such issue, please?

[Oconnel]

Hi again. No demo is necessary. Just open your own ac-demo, switch to Shell controls, and choose some skin with dark background, like Matrix. Screenshot:

[Support]

Yes, I see it in Shell ListView, thank you.

I hope to fix it in the nearest release.

[dhwz2001]

I've the same issue, hope you can fix it soon. 😀

Doesn't work with 8.42 and higher.

[dhwz2001]

Still not working with 8.45

[Support]

'dhwz2001' wrote:

Still not working with 8.45

You mean that captions still black?

[dhwz2001]

TsListView!!!

Yes, both CustomDrawItem and CustomDrawSubItem…

setting the Canvas.Font.Color ist not possible since 8.42 the font color is always black. 🙁

Just some code snippet:

Code:

procedure TFormCompareSet.lvDiffCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Item.Index mod 2 = 0
then lvDiff.Canvas.Brush.Color := FormMain.RowColor
else lvDiff.Canvas.Brush.Color := lvDiff.Color;
if Item.Checked
then
if item.SubItems[11] = FormMain.lwLngTrns(name,['Add'])
then lvDiff.Canvas.Font.Color := clGreen
else
if (item.SubItems[11] = FormMain.lwLngTrns(name,['Update']))
then lvDiff.Canvas.Font.Color := clBlue
else lvDiff.Canvas.Font.Color := clRed
else lvDiff.Canvas.Font.Color := clMedGray;
end;

It also not working in your own AlphaControls Demo.

[Support]

Thank you for the code, I'll make a test application and I will fix it.

You can use OnAdvanceCustomDrawItemevent, this event should work.

[dhwz2001]

Not fixed with 8.46 🙁

[Support]

Sorry, some troubles exists there, I hope to fix it in this month.

[Author]

Posts