Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];

Вниз

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


 
Yurock   (2003-12-24 20:15) [2]

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

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

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



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.008 c
3-93770
Шоломицкий
2004-02-04 11:41
2004.02.29
Как связать ADOConnection


3-93765
Fom
2004-02-04 10:30
2004.02.29
Как правильно обработать onValidate?


14-94176
KD
2004-02-07 14:01
2004.02.29
Exploits on Delpji


7-94211
Rentgen
2003-12-10 11:55
2004.02.29
Папка пуста?!


1-93847
Бушин Сергей
2004-02-18 14:44
2004.02.29
Форма в компоненте - передача в компонент наступившего событя





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский