fix VFO hover colors for light theme

FreqDisplay: добавлено свойство ColorHoverBG вместо хардкода $182838
AppTheme: FreqHover, FreqHoverBG, FreqDimDot для обеих тем
UpdateVfoDisplay: выставляет hover-цвета из текущей темы

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
2026-05-02 19:18:29 +03:00
co-authored by Claude Sonnet 4.6
parent d9a2157719
commit eaece17940
3 changed files with 28 additions and 11 deletions
+11 -4
View File
@@ -42,6 +42,7 @@ type
VfoTxInaText: TColor;
// Дисплей частоты
FreqActive, FreqDim: TColor;
FreqHover, FreqHoverBG, FreqDimDot: TColor;
// Индикаторы (S-meter, мощность)
MeterOn, MeterOvr: TColor;
Amber: TColor;
@@ -140,8 +141,11 @@ begin
Result.VfoTxInaBorder := TColor($00404040);
Result.VfoTxInaText := TColor($00808080);
Result.FreqActive := TColor($0000FF00);
Result.FreqDim := TColor($00007800);
Result.FreqActive := TColor($0000FF00);
Result.FreqDim := TColor($00007800);
Result.FreqHover := TColor($0080FFCC);
Result.FreqHoverBG := TColor($00182838);
Result.FreqDimDot := TColor($00607080);
Result.MeterOn := TColor($0000CC44);
Result.MeterOvr := TColor($000000CC);
@@ -244,8 +248,11 @@ begin
Result.VfoTxInaText := TColor($00706860);
// Дисплей частоты — насыщенный зелёный
Result.FreqActive := TColor($00005500);
Result.FreqDim := TColor($00447044);
Result.FreqActive := TColor($00005500);
Result.FreqDim := TColor($00447044);
Result.FreqHover := TColor($00003A00);
Result.FreqHoverBG := TColor($00C8E8C8);
Result.FreqDimDot := TColor($00909080);
// Индикаторы
Result.MeterOn := TColor($00006820);