| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
используются ли XPStyles
d_oleg © (2002-11-05 10:53:00)Подскажите, можно ли как-нибудь определить, используется ли в данный момент пользователем под XP визуальные стили или установлен "классический" стиль?
d_oleg (2002-11-05 12:38:00) [1]а можно его поиметь (по почте например)?
Ученик (2002-11-05 12:25:00) [2]>d_oleg © (05.11.02 12:14)
Модуль из Delphi 7, аналогичные есть в библиотеках, которые поддерживают XP-стиль.
Встречный вопрос: зачем узнавать используются или нет, если не использовать uxtheme.dll ?
d_oleg (2002-11-05 12:14:00) [3]а что это за модуль такой? где взять?
Ученик (2002-11-05 11:22:00) [4]
{*******************************************************}
{ Borland Delphi Run-time Library }
{*******************************************************}
unit UxTheme;
...
IsThemeActive := GetProcAddress(ThemeLibrary, "IsThemeActive");
IsAppThemed := GetProcAddress(ThemeLibrary, "IsAppThemed");
...
function UseThemes: Boolean;
begin
if (ThemeLibrary > 0) then
Result := IsAppThemed and IsThemeActive
else
Result := False;
end;
| |
