GetThemeColor

← →
Casper (2003-12-24 18:03) [0]

Как правильно узнать цвета конкретных управляющих элементов вроде "BUTTON" использующих
XP темы. Другими словами если TaskBar в XP разукрашен с синий цвет или olive, например,
то как добраться до его цветов в RGB-формате?
Я знаю что для этого можно использовать функцию GetThemeColor из модуля UxTheme.pas,
однако нижеследующий код возвращает ошибку "A call to an OS function failed".

var
FTheme: HTheme;
AColor:COLORREF;
begin
if not IsThemeActive then Exit;
try
FTheme := OpenThemeData(Handle, PWideChar("WINDOW"));
if GetThemeColor(FTheme, WP_CAPTION, CS_ACTIVE, TMT_COLOR, AColor)<>S_OK then RaiseLastWin32Error;
finally
CloseThemeData(FTheme);
FTheme := 0;
end;
end;

← →
MBo © (2003-12-24 18:21) [1]

http://216.101.185.148/scripts/isapi.dll/thread?id=180BF52B&thread=1134143

GetSysColor(<константа>) = цвет.

<константа> - COLOR_BTNFACE, COLOR_ACTIVECAPTION...

В общем, в хелпе посмотришь на эту ф-цию. Лучше в MSDN

GetThemeColor Найти похожие ветки