Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , Программа и Интерфейс , Заголовок формы

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

Автор: 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;

Перевод контента на русский язык:

Это функция Delphi, которая извлекает второй цвет, используемый в заголовках окон (также известный как "градиент активного окна" цвет) на Windows 98, ME и 2000.

Функция clGradientActiveCaption не принимает параметров и возвращает целочисленное значение, представляющее RGB-цвет. Она использует два системных API: SystemParametersInfo, чтобы извлечь булевое значение, указывающее, поддерживает ли система градиент активного окна, и GetSysColor, чтобы получить соответствующий цвет.

Если система поддерживает градиент активного окна, функция возвращает фактический цвет с помощью GetSysColor(COLOR_GRADIENTACTIVECAPTION). В противном случае она переходит к стандартному активному окну цвету с помощью GetSysColor(COLOR_ACTIVECAPTION).

Пример кода демонстрирует, как использовать эту функцию в обработчике события формы (например, в Button1Click). В этом случае, когда кнопка нажата, фон формы устанавливается в извлеченный градиент активного окна цвет.

Вот некоторые предложения по улучшению:

  • Рассмотрите добавление проверки для Windows-версий, которые не поддерживают градиент активного окна (например, NT 4.0 и ранее).
  • Вместо использования GetSysColor, вы могли бы использовать константы типа TColor, такие как clGradientActiveCaption или clActiveCaption.
  • Вы можете добавить комментарий, объясняющий, что каждый раздел функции делает.
  • Пример кода довольно прост и не обрабатывает потенциальные ошибки. Вы можете добавить код обработки ошибок, чтобы сделать его более устойчивым.

Вот обновленная версия функции с некоторыми минимальными улучшениями:

function clGradientActiveCaption: TColor;
begin
  SystemParametersInfo(SPI_GETGRADIENTCAPTIONS, 0, @Result, 0);
  if Result then
    Result := clGradientActiveCaption
  else
    Result := clActiveCaption;
end;

Замечание: я изменил тип возвращаемого значения на TColor и использовал константу clGradientActiveCaption. Я также удалил ненужную переменную B и напрямую присвоил результат SystemParametersInfo переменной Result.

Представлен функцией Delphi, которая позволяет получить второй цвет заголовков форм в операционных системах Windows 98, ME и 2000.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Заголовок формы ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-06-02 10:20:12
2024-07-13 07:04:33/0.0035419464111328/0