используются ли XPStyles

← →
d_oleg (2002-11-05 10:53) [0]

Подскажите, можно ли как-нибудь определить, используется ли в данный момент пользователем под XP визуальные стили или установлен "классический" стиль?

← →
Ученик (2002-11-05 11:22) [1]

{*******************************************************}
{ 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;

← →
d_oleg (2002-11-05 12:14) [2]

а что это за модуль такой? где взять?

← →
Ученик (2002-11-05 12:25) [3]

>d_oleg © (05.11.02 12:14)
Модуль из Delphi 7, аналогичные есть в библиотеках, которые поддерживают XP-стиль.

Встречный вопрос: зачем узнавать используются или нет, если не использовать uxtheme.dll ?

← →
d_oleg (2002-11-05 12:38) [4]

а можно его поиметь (по почте например)?

используются ли XPStyles Найти похожие ветки