[Oconnel]

In few latest builds of AlphaSkins controls TsListview component font is always black. You can check it on any skin, but of course black skins are the best. Please fix it as soon as possible.

[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