ew8bak/ewsdr
1
0
Fork 0
mirror of https://git.vladimir.cc/vladimir/ewsdr.git synced 2026-08-25 20:37:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix VFO hover colors for light theme

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

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
ew8bak
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
Download Patch File Download Diff File Expand all files Collapse all files
FreqDisplay.pas
+10 -7
View File
@@ -27,9 +27,10 @@ type
FMaxFreq: Int64;
FFontSize: Integer;
FFontName: string;
FColorNormal: TColor;
FColorHover: TColor;
FColorDim: TColor;
FColorNormal: TColor;
FColorHover: TColor;
FColorHoverBG: TColor;
FColorDim: TColor;
FMinMhzDigits: Integer;
FDimLeadingZeros: Boolean;
FCenterText: Boolean;
@@ -65,9 +66,10 @@ type
property MaxFreq: Int64 read FMaxFreq write FMaxFreq;
property FontSize: Integer read FFontSize write SetFontSize;
property FontName: string read FFontName write FFontName;
property ColorNormal: TColor read FColorNormal write FColorNormal;
property ColorHover: TColor read FColorHover write FColorHover;
property ColorDim: TColor read FColorDim write FColorDim;
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;
property CenterText: Boolean read FCenterText write FCenterText;
@@ -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;