I forgot to mention You have to change in
ColumnSkinPaint Procedure
from
If cIndex >= 0 Then
Begin
acWriteTextEx(TempBmp.Canvas, PChar(Columns[cIndex].Title.Caption), True, TextRc,
DrawTextBiDiModeFlags(DT_EXPANDTABS Or DT_WORDBREAK Or GetStringFlags(Self, Columns[cIndex].Alignment)),
si, (State <> 0), SkinData.SkinManager);
end
to
If cIndex >= 0 Then
Begin
{$IFDEF TNTUNICODE}
acWriteTextEx(TempBmp.Canvas, PWideChar(Columns[cIndex].Title.Caption), True, TextRc,
DrawTextBiDiModeFlags(DT_EXPANDTABS Or DT_WORDBREAK Or GetStringFlags(Self, Columns[cIndex].Alignment)),
si, (State <> 0), SkinData.SkinManager);
{$ELSE}
acWriteTextEx(TempBmp.Canvas, PChar(Columns[cIndex].Title.Caption), True, TextRc,
DrawTextBiDiModeFlags(DT_EXPANDTABS Or DT_WORDBREAK Or GetStringFlags(Self, Columns[cIndex].Alignment)),
si, (State <> 0), SkinData.SkinManager);
{$ENDIF}
End