[Stephane Senecal]

We are using the Tag property to get the control's text for different languages.

Before version 12.16 I was able to comment all references of ExceptTag in AlphaSkins source and it was working.

Now, in version 12.16, I have exceptions when I remove them.

I calculated that we have 2040 controls conflicting with ExceptTag. So it's kind of imposible to modify all of them.

How could I work around this problem?

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Support]

Hello

This is a global variable and declared in the sConst.pas file (ExceptTag = $100 or 100000000 as binary).

The package check a tag value of the control, one bit only: “if Tag and ExceptTag ExceptTag then…”

So, you can change this variable in application initialization to a bigger value with high bit enabled:

Code:

ExceptTag := $40000000;

[Stephane Senecal]

Soooo simple! Why I didn't think about that.

Many thanks!

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Author]

Posts