Aux-Eingang

Deutsch / German Allgemein
54

Sicher. So nutze ich das Aktuell, wie von Tondose bereits gefertigt:

var
  ModeAuxOn: boolean;

procedure OnLoad;
begin
  ModeAuxOn := false;
  ExecuteCommand('AUXBUTTON1 OFF');
  ExecuteCommand('ENCODER INPUT AUX OFF');
end;

procedure OnExecuteCommand(Command: string);
begin
  if NOT ModeAuxOn AND (Command = 'AUX ON/OFF') then begin
    ModeAuxOn := true;
    ExecuteCommand('AUXBUTTON1 ON');
    ExecuteCommand('ENCODER INPUT AUX ON');
  end
  else if ModeAuxOn AND (Command = 'AUX ON/OFF') then begin
    ModeAuxOn := false;
    ExecuteCommand('AUXBUTTON1 OFF');
    ExecuteCommand('ENCODER INPUT AUX OFF');
  end;
end;

begin
end.