Создание Плавного Эффекта Свечения Кнопки с Использованием Delphi

Delphi , Графика и Игры , Цвета и Палитра

Вопрос создания кнопки с эффектом свечения, которая плавно переходит в исходный цвет при уходе курсора, является актуальной задачей для разработчиков интерфейсов. В данной статье мы рассмотрим, как можно реализовать такой эффект на языке программирования Object Pascal в среде разработки Delphi.

Проблема и её решение

Пользователь столкнулся с проблемой, когда созданная им кнопка с эффектом свечения не возвращалась в исходный цвет после ухода курсора, а "дрожала" между светлыми и темными оттенками. Это происходило из-за неправильного расчета плавного перехода цвета. Проблема была решена путем корректировки констант, отвечающих за скорость изменения цвета и чувствительность к достижению конечного цвета.

Пример кода

Давайте рассмотрим пример кода, который реализует плавное изменение цвета кнопки. В этом примере используется таймер для контроля за плавным переходом цвета от одного состояния к другому.

procedure ExtractColor(const Color: TColor; var R, G, B: Byte);
begin
  R := GetRValue(Color);
  G := GetGValue(Color);
  B := GetBValue(Color);
end;

function CalcColorFade(const Curr, Dest: Byte): Byte;
const
  RGB_MULT = 1.2;
  RGB_SENS = 10; // Увеличено для лучшей стабилизации цвета
begin
  if Curr <> Dest then begin
    if (Curr >= Dest - RGB_SENS) and (Curr <= Dest + RGB_SENS) then begin
      Result := Dest;
    end else begin
      if Curr > Dest then begin
        Result := EnsureRange(Trunc(Curr / RGB_MULT), 0, 255);
      end else begin
        Result := EnsureRange(Trunc(Curr * RGB_MULT), 0, 255);
      end;
    end;
  end else begin
    Result := Dest;
  end;
end;

procedure TForm1.ButtonMouseEnter(Sender: TObject);
begin
  FMenuDestColor := clBlue;
end;

procedure TForm1.ButtonMouseLeave(Sender: TObject);
begin
  FMenuDestColor := clNavy;
end;

procedure TForm1.MenuGlowTimer(Sender: TObject);
var
  R1, G1, B1: Byte;
  R2, G2, B2: Byte;
  R3, G3, B3: Byte;
begin
  if Button1.Color <> FMenuDestColor then begin
    ExtractColor(Button1.Color, R1, G1, B1);
    ExtractColor(FMenuDestColor, R2, G2, B2);
    R3 := CalcColorFade(R1, R2);
    G3 := CalcColorFade(G1, G2);
    B3 := CalcColorFade(B1, B2);
    Button1.Color := RGB(R3, G3, B3);
  end;
end;

Настройка таймера

Чтобы обеспечить плавный переход цвета, важно правильно настроить интервал таймера. В примере выше интервал таймера установлен в 70 мс, что является хорошим компромиссом между плавностью и скоростью перехода.

Альтернативные подходы

Существуют и другие подходы к созданию эффекта свечения, например, использование цветового пространства HSB/HSV, которое позволяет более гибко управлять цветом. Однако, для тех, кто предпочитает работать с RGB и уже имеет рабочий код, изменение подхода может быть нецелесообразным.

Заключение

В данной статье мы рассмотрели, как можно создать плавный эффект свечения кнопки в Delphi, используя Object Pascal. Приведенный пример кода демонстрирует, как с помощью таймера и функции плавного перехода цвета можно достичь желаемого результата. Важно помнить, что правильная настройка констант RGB_MULT и RGB_SENS играет ключевую роль в достижении стабильного и плавного эффекта.

Создано по материалам из источника по ссылке.

Создание плавного эффекта свечения кнопки и его возвращение в исходный цвет при уходе курсора в среде разработки Delphi на языке Object Pascal.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Цвета и Палитра ::