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>

AppTheme.pas

@@ -42,6 +42,7 @@ type
     VfoTxInaText: TColor;
     // Дисплей частоты
     FreqActive, FreqDim: TColor;
+    FreqHover, FreqHoverBG, FreqDimDot: TColor;
     // Индикаторы (S-meter, мощность)
     MeterOn, MeterOvr: TColor;
     Amber: TColor;
@@ -142,6 +143,9 @@ begin
 
   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);
@@ -246,6 +250,9 @@ begin
   // Дисплей частоты — насыщенный зелёный
   Result.FreqActive   := TColor($00005500);
   Result.FreqDim      := TColor($00447044);
+  Result.FreqHover    := TColor($00003A00);
+  Result.FreqHoverBG  := TColor($00C8E8C8);
+  Result.FreqDimDot   := TColor($00909080);
 
   // Индикаторы
   Result.MeterOn  := TColor($00006820);

FreqDisplay.pas

@@ -29,6 +29,7 @@ type
     FFontName:    string;
     FColorNormal:   TColor;
     FColorHover:    TColor;
+    FColorHoverBG:  TColor;
     FColorDim:      TColor;
     FMinMhzDigits: Integer;
     FDimLeadingZeros: Boolean;
@@ -67,6 +68,7 @@ type
     property FontName:    string   read FFontName    write FFontName;
     property ColorNormal:  TColor  read FColorNormal  write FColorNormal;
     property ColorHover:   TColor  read FColorHover   write FColorHover;
+    property ColorHoverBG: TColor  read FColorHoverBG write FColorHoverBG;
     property ColorDim:     TColor  read FColorDim     write FColorDim;
     property MinMhzDigits: Integer read FMinMhzDigits write FMinMhzDigits;
     property DimLeadingZeros: Boolean read FDimLeadingZeros write FDimLeadingZeros;
@@ -86,6 +88,7 @@ begin
   FFontName     := 'Courier New';
   FColorNormal  := TColor($00E8F0FF);
   FColorHover   := TColor($0040DDFF);
+  FColorHoverBG := TColor($00182838);
   FColorDim     := TColor($00607080);
   FMinMhzDigits := 1;
   FDimLeadingZeros := False;
@@ -263,7 +266,7 @@ begin
     // Фоновая подсветка активного разряда
     if (dIdx >= 0) and (dIdx = FHoverDigit) then
     begin
-      C.Brush.Color := TColor($00182838);
+      C.Brush.Color := FColorHoverBG;
       C.Brush.Style := bsSolid;
       C.FillRect(Rect(xi - 1, 2, xi + ChW + 1, Height - 2));
       C.Brush.Style := bsClear;

MainForm.pas

@@ -2338,6 +2338,13 @@ begin
   FreqDispA.Height := TOP_VFO_FREQ_H;
   FreqDispB.Height := TOP_VFO_FREQ_H;
 
+  FreqDispA.ColorHover   := T.FreqHover;
+  FreqDispA.ColorHoverBG := T.FreqHoverBG;
+  FreqDispA.ColorDim     := T.FreqDimDot;
+  FreqDispB.ColorHover   := T.FreqHover;
+  FreqDispB.ColorHoverBG := T.FreqHoverBG;
+  FreqDispB.ColorDim     := T.FreqDimDot;
+
   if FActiveVfo = 0 then
   begin
     FreqDispA.ColorNormal := T.FreqActive;