Delphi7, XPManifest, TGroupBox - отображение кириллицы. Решение!

← →
neodiX © (2004-03-31 11:40) [0]

Почему то в D7, используя манифест (без разницы стандартный компонент или вы сами приклеиваете его как ресурс) на компоненте TGroupBox кириллица отображается не правильно, притом не зависимо от названия фонта или charset. Так вот я решил эту проблему модифицируя код в файле StdCtrls.pas в процедуре procedure TCustomGroupBox.Paint;, примерно на 1366 строке. После исправления код должен выглядеть так:
if Text <> "" then begin
//ThemeServices.DrawText(Handle, Details, Text, CaptionRect, DT_LEFT, 0);
Brush.Style:= bsClear;
DrawText(Handle, PChar(Text), Length(Text), CaptionRect, DT_LEFT or DT_SINGLELINE);
end;

Так было:
ThemeServices.DrawText(Handle, Details, Text, CaptionRect, DT_LEFT, 0);

Это добавил:
Brush.Style:= bsClear;
DrawText(Handle, PChar(Text), Length(Text), CaptionRect, DT_LEFT or DT_SINGLELINE);

Не вдавался я в подробности, как делает ThemeServices.DrawText, но делал он это не правильно.
Так вот, может так делать нельзя, но главное что такой вариант работает.

Проверьте есть у вас такая проблема. В случае одобрения закину решение в FAQ.

← →
Algol (2004-03-31 11:53) [1]

> Проверьте есть у вас такая проблема

Проверил. Такой проблемы нет. Все отображается вполне нормално.

← →
neodiX © (2004-03-31 11:56) [2]

Интересно..

Algol, a у тебя D7 с пачами?

← →
Algol (2004-03-31 12:05) [3]

Без патчей v7.0 build 4.453

neodiX © (31.03.04 11:40)

> Так вот я решил эту проблему модифицируя код в файле StdCtrls.pas
> в процедуре procedure TCustomGroupBox.Paint;, примерно на
> 1366 строке.

НЕ ТРОЖЬ ГЕНОФОНД!!!

Лучше унаследуй свой компонент и перепиши там метод Paint

2 Игорь Шевченко

:)

можно и так, а я просто скопировал оригинальный StdCtrls.pas в каталог с проэктом.

Delphi7, XPManifest, TGroupBox - отображение кириллицы. Решение! Найти похожие ветки