Aux-Eingang

Deutsch / German Allgemein
44

Da fehlen noch ein paar Zeilen. Es muß so aussehen wie dieses:

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
    ModePauseOn := false;
    ExecuteCommand('AuxButton1 OFF');
    ExecuteCommand('ENCODER INPUT AUX OFF');
  end;
end;

begin
end.

(Aus dem Handgelenk, ungetestet.) Bitte beachte die im obigen Link (diesem hier) beschriebenen Eigenschaften des Buttons. Als Befehl für den Hotkey trägst Du AUX ON/OFF ein.

Erläuterte Grüße

TSD