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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Dimka Maslov

WEB-сайт: http://delphibase.endimus.com

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

{/codecitation}

Добавить комментарий