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

ui(vfo): колесо мыши прокручивает список устройств в AUD

Browse Source 
VfoOverlay запоминает прямоугольник списка (FAudListRect) и обрабатывает
колесо над ним (HandleMouseWheel): шаг = одна строка. Если курсор в этой
зоне, событие считается обработанным и не уходит в спектр — частота не
съезжает даже когда список целиком помещается и крутить нечего.

PanafallPanel.DispatchFlagsMouseWheel перебирает главный флаг и флаги
слайсов (как остальные Dispatch*), MainForm.FormMouseWheel зовёт его по
всем панам первым делом после дисплеев VFO; координаты берутся через
PbSpectrum.ScreenToClient(Mouse.CursorPos), поэтому работает и в pop-out.

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
ew8bak
2026-07-22 09:29:32 +03:00
co-authored by Claude Opus 4.8
parent fb1c263460
commit c986232891
3 changed files with 57 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
VfoOverlay.pas
+21
View File
@@ -101,6 +101,7 @@ type
FPanel: TFlyPanel; // открытая fly-out панель
FAudScroll: Integer; // прокрутка списка аудио-устройств (верхний индекс)
FAudListRect: TRect; // область списка AUD (лок. коорд.) — зона колёсика
FVolTrack: TRect; // трек громкости (локальные координаты)
FVolDrag: Boolean;
FSqlTrack: TRect; // трек squelch в DSP-панели (лок. координаты)
@@ -196,6 +197,8 @@ type
function HandleMouseMove(X, Y: Integer): Boolean;
function HandleMouseUp(X, Y: Integer): Boolean;
function HandleMouseLeave: Boolean;
// Колесо над списком устройств AUD (координаты — как у HandleMouseDown).
function HandleMouseWheel(X, Y, WheelDelta: Integer): Boolean;
procedure SetState(AMode, ABW: Integer; AVfoHz, ASMeterDB: Double);
procedure SetDSPState(ANRMode, ANBMode: Integer; ASNBOn, AANFOn: Boolean;
AAGCMode: Integer);
@@ -1015,6 +1018,7 @@ begin
end;
VisN := Min(Cnt, AUD_MAX_VIS);
FAudListRect := Rect(X, Y, X + RowW, Y + VisN*AUD_ROW_H); // зона колёсика
Scrollable := Cnt > AUD_MAX_VIS;
MaxScroll := Cnt - VisN;
if FAudScroll > MaxScroll then FAudScroll := MaxScroll;
@@ -1093,6 +1097,7 @@ var
BarL, BarW, MeterX: Integer;
begin
FHitCount := 0;
FAudListRect := Rect(0, 0, 0, 0); // выставит DrawAudPanel, если панель открыта
// Фон карточки
C.Brush.Color := CLR_CARD_BG;
@@ -1506,6 +1511,22 @@ begin
Result := True; // клик был по накладке — не пускаем его в спектр
end;
function TVfoOverlay.HandleMouseWheel(X, Y, WheelDelta: Integer): Boolean;
var
MaxScroll, Old: Integer;
begin
Result := False;
if (not Visible) or (FPanel <> fpAud) then Exit;
if not PtInRect(FAudListRect, Point(X - Left, Y - Top)) then Exit;
Result := True; // зона наша — колесо в спектр не пускаем
MaxScroll := AudRowCount - AUD_MAX_VIS;
if MaxScroll <= 0 then Exit; // список целиком виден — крутить нечего
Old := FAudScroll;
if WheelDelta > 0 then Dec(FAudScroll) else Inc(FAudScroll);
FAudScroll := EnsureRange(FAudScroll, 0, MaxScroll);
if FAudScroll <> Old then RequestInvalidate;
end;
function TVfoOverlay.HandleMouseLeave: Boolean;
begin
Result := False;