[Support]

Hello and thank you for screenshots.
Please compare skinned captions font with font which used in the system (must be equal). If fonts are not equal, please show a screenshot of system font.

[Iruau]

Hi,

The skinned caption font is indeed the same as the system font (Tahoma on WinXP).

Thanks for your time.

[Iruau]

For the record, I managed to work around that problem by reverting procedure GetCaptionFontSize in acntUtils.pas to the 6.20 version (removing the {$IFDEF TNTUNICODE} part):

CODE

function GetCaptionFontSize : integer;
var
  NonClientMetrics: TNonClientMetrics;
begin
  NonClientMetrics.cbSize := SizeOf(NonClientMetrics);
  if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NonClientMetrics, 0) then
    Result := NonClientMetrics.lfCaptionFont.lfHeight;
  else
    Result := 0;
end;

Seems to work fine so far.

[Support]

Why TNTUNICODE part was removed?
What purpose of this reverting?

[Iruau]

When compiling 6.32 / 6.40 with TNTUNICODE enabled, there is a problem with SystemParametersInfoW : for an unknown reason it returns a bad value for lfCaptionFont.lfHeight, which makes the title font too big for me (BCB6 + ASkin 6.40 + TNT).

I found that using SystemParametersInfo instead of SystemParametersInfoW solves the problem (so there is no need of the TNTUNICODE compiler switch here).
Also, I see no compelling reason to use the W API here because you use only numerical results. Granted, the A and W APIs should theoretically return the same values but in practice they don't, at least in my environment, so I decided to use the correct one and share that with you.

[Support]

Ok, thank you!
This part of code will be researched more and changes will be added in the next release.

[Iruau]

Now works fine in 6.41. Thanks.

[Author]

Posts