скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Получение второго цвета заголовков форм



{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение «второго» цвета заголовков форм

Данная фунция возвращает значение цвета, использующегося для
отображения плавного перехода цветов в заголоках форм Windows 98, ME и 2000

Зависимости: Windows
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        21 мая 2002 г.
***************************************************** }

function clGradientActiveCaption: Integer;
var
  B: BOOL;
begin
  SystemParametersInfo(SPI_GETGRADIENTCAPTIONS, 0, @B, 0);
  if B then
    Result := GetSysColor(COLOR_GRADIENTACTIVECAPTION)
  else
    Result := GetSysColor(COLOR_ACTIVECAPTION);
end;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
  self.Color := clGradientActiveCaption;
end;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook