[Stephane Senecal]

it seems to work that way.

lfx.Kind.Color := $FFFFFF and slBtnGreenText;

Stephane Senecal
CIS Group
Delphi programmer since 2001

[HeDiBo]

'Stephane wrote:

it seems to work that way.

lfx.Kind.Color := $FFFFFF and slBtnGreenText;

Very nice, thank you.

This solves one part of the problem. Now getting the color right for dark skins.

[Support]

Will be better to use the acColorToRGB function.

slBtnGreenText is not RGB color, this color should be converted to the current skin color:

Code:

lfx.Kind.Color := acColorToRGB(slBtnGreenText);

Uses sVCLUtils;

[HeDiBo]

'Support' wrote:

Will be better to use the acColorToRGB function.

slBtnGreenText is not RGB color, this color should be converted to the current skin color:

Code:

lfx.Kind.Color := acColorToRGB(slBtnGreenText);

Uses sVCLUtils;

That's great!

Now can you repair the missing OnAfterChange and OnActivate events. They are not fired if the application starts.

Also OnDeactivate is not fired when the application closes.

[Support]

OnAfterChange event should be fired when changed one activated skin to another.

OnActivate and OnDeactivate will work in the v14.01 as expected.

[Stephane Senecal]

Much better!

I was looking for something like this, but I couldn't find it.

Thank you

'Support' wrote:

Will be better to use the acColorToRGB function.

slBtnGreenText is not RGB color, this color should be converted to the current skin color:

Code:

lfx.Kind.Color := acColorToRGB(slBtnGreenText);

Uses sVCLUtils;

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Support]

This function works with standard colors like clWindow, clBtnFace and others (returns color from the current skin).

[Author]

Posts