mirror of
https://git.vladimir.cc/vladimir/ewsdr.git
synced 2026-08-25 20:37:33 +00:00
feat(cat): Andromeda/G2 front panel support (serial, LED indicators)
Bidirectional Apache Labs Andromeda/G2 front-panel protocol on top of CAT. Panel logic lives in dedicated units; existing files get only thin hooks. New units: - AndromedaMap.pas — data only: action enums + default button/encoder layout tables and LED (ZZZI) numbers (mirroring the Thetis defaults) - AndromedaPanel.pas — TAndromedaPanel: inbound panel events -> controller actions (marshalled via Invoke), state subscription -> ZZZI push via SendProc Hooks: - CATEngine: parse ZZZD/ZZZU/ZZZE/ZZZP/ZZZS into generic TCATContext callbacks - CATAdapter: creates the panel, routes engine callbacks to it, supplies the SendProc to the Andromeda port, AddStateListener, ZZZS handshake - CATSerial: Andromeda flag in port config + HasAndromeda/SendToAndromeda - RadioController: AddStateListener (multicast, does not steal MainForm's OnStateChanged) - Settings/SettingsForm/MainForm: CATSerialAndromeda[0..3] + persistence + checkbox First version: serial transport, hardcoded default mapping, LED indicators (MOX/Tune/CTUN/VFO A-B/Split/NB/NR/SNB/ANF/Squelch). Doc: doc/ANDROMEDA.md. TODO: default button mapping does not match the physical panel (hardcoded) — to be fixed later; also ZZMF/LCD text, TCP G2V2 transport, configurable mapping. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
@@ -127,6 +127,7 @@ type
|
||||
private
|
||||
FOnInvoke: TUIInvokeEvent;
|
||||
FOnStateChanged: TRadioStateEvent;
|
||||
FStateListeners: array of TRadioStateEvent; // доп. наблюдатели (CAT/Andromeda), помимо FOnStateChanged (MainForm)
|
||||
FOnAfterTune: TThreadMethod; // пост-тюн хук: канал-оркестрация после SetVfoA
|
||||
FOnAudioConsume: TAudioConsumeEvent; // web-перехват RX-аудио (если активен клиент)
|
||||
FLocalAudio: Boolean; // локальный звук (динамик/мик ПК): GUI=True, демон=False
|
||||
@@ -577,6 +578,9 @@ type
|
||||
// ---- События наружу ----
|
||||
property OnInvoke: TUIInvokeEvent read FOnInvoke write FOnInvoke;
|
||||
property OnStateChanged: TRadioStateEvent read FOnStateChanged write FOnStateChanged;
|
||||
// Доп. наблюдатели состояния (помимо единственного OnStateChanged, который
|
||||
// занимает MainForm). Нужны CAT/Andromeda для push индикаторов панели.
|
||||
procedure AddStateListener(L: TRadioStateEvent);
|
||||
// Пост-тюн хук: вызывается в КОНЦЕ SetVfoA (после Changed(rfVfoA), т.е. вне
|
||||
// рендера) — сюда вешается канальная оркестрация (ChannelController.OnVfoTuned),
|
||||
// чтобы любой путь тюнинга (desktop/web/CAT/энкодер) был канал-aware headless.
|
||||
@@ -676,8 +680,18 @@ begin
|
||||
end;
|
||||
|
||||
procedure TRadioController.Changed(Field: TRadioField);
|
||||
var i: Integer;
|
||||
begin
|
||||
if Assigned(FOnStateChanged) then FOnStateChanged(Self, Field);
|
||||
for i := 0 to High(FStateListeners) do
|
||||
if Assigned(FStateListeners[i]) then FStateListeners[i](Self, Field);
|
||||
end;
|
||||
|
||||
procedure TRadioController.AddStateListener(L: TRadioStateEvent);
|
||||
begin
|
||||
if not Assigned(L) then Exit;
|
||||
SetLength(FStateListeners, Length(FStateListeners) + 1);
|
||||
FStateListeners[High(FStateListeners)] := L;
|
||||
end;
|
||||
|
||||
procedure TRadioController.PushNetworkState;
|
||||
|
||||
Reference in New Issue
Block a user