unit effecteditor;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  ComCtrls, hugeDatatypes, utils, LCLType;

type

  { TCheckBoxHelper }

  // Hack, or elegant? You decide.
  TCheckBoxHelper = class helper for TCheckBox
    procedure SetCheckedWithoutClick(AChecked: Boolean);
  end;

  { TfrmEffectEditor }

  TfrmEffectEditor = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    VibratoComboBox: TComboBox;
    Label3: TLabel;
    LeftPanCheckGroup: TCheckGroup;
    RightPanCheckGroup: TCheckGroup;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    DutyRadioGroup: TRadioGroup;
    TwoParamsTrackBar1: TTrackBar;
    TwoParamsTrackBar2: TTrackBar;
    VibratoDepthTrackBar: TTrackBar;
    LeftVolumeTrackBar: TTrackBar;
    RightVolumeTrackBar: TTrackBar;
    Value: TLabel;
    Notebook1: TNotebook;
    OneParamPage: TPage;
    MasterVolumePage: TPage;
    DutyCyclePage: TPage;
    PanningPage: TPage;
    OneParamTrackBar: TTrackBar;
    Value1: TLabel;
    Value2: TLabel;
    VibratoPage: TPage;
    TwoParamsPage: TPage;
    procedure CheckBox1Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure DutyRadioGroupSelectionChanged(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure OneParamTrackBarChange(Sender: TObject);
    procedure RightVolumeTrackBarChange(Sender: TObject);
    procedure TwoParamsTrackBar1Change(Sender: TObject);
    procedure TwoParamsTrackBar2Change(Sender: TObject);
    procedure VibratoComboBoxChange(Sender: TObject);
    procedure VibratoDepthTrackBarChange(Sender: TObject);
    procedure VibratoRateRadioGroupSelectionChanged(Sender: TObject);
  private
    procedure LoadEffect;
    procedure LoadOneParamData;
    procedure LoadTwoParamData;
    procedure LoadVibratoData;
    procedure LoadMasterVolumeData;
    procedure LoadPanningData;
    procedure LoadDutyCycleData;

    procedure fx0;
    procedure fx1;
    procedure fx2;
    procedure fx3;
    procedure fx4;
    procedure fx5;
    procedure fx6;
    procedure fx7;
    procedure fx8;
    procedure fx9;
    procedure fxA;
    procedure fxB;
    procedure fxC;
    procedure fxD;
    procedure fxE;
    procedure fxF;
  public
    Cell: PCell;
  end;

var
  frmEffectEditor: TfrmEffectEditor;

implementation

{$R *.lfm}

{ TCheckBoxHelper }

procedure TCheckBoxHelper.SetCheckedWithoutClick(AChecked: Boolean);
begin
  ClicksDisabled := True;
  try
    Checked := AChecked;
  finally
    ClicksDisabled := False;
  end;
end;

{ TfrmEffectEditor }

procedure TfrmEffectEditor.ComboBox1Change(Sender: TObject);
begin
  Cell^.EffectCode := ComboBox1.ItemIndex;
  LoadEffect;
end;

procedure TfrmEffectEditor.CheckBox1Change(Sender: TObject);
var
  Val: Integer;
begin
  Val := %00000000;

  if CheckBox4.Checked then Val := Val or %00001000;
  if CheckBox3.Checked then Val := Val or %00000100;
  if CheckBox2.Checked then Val := Val or %00000010;
  if CheckBox1.Checked then Val := Val or %00000001;

  if CheckBox8.Checked then Val := Val or %10000000;
  if CheckBox7.Checked then Val := Val or %01000000;
  if CheckBox6.Checked then Val := Val or %00100000;
  if CheckBox5.Checked then Val := Val or %00010000;

  Cell^.EffectParams.Value := Val;
end;

procedure TfrmEffectEditor.DutyRadioGroupSelectionChanged(Sender: TObject);
begin
  case DutyRadioGroup.ItemIndex of
    0: Cell^.EffectParams.Value := $00;
    1: Cell^.EffectParams.Value := $40;
    2: Cell^.EffectParams.Value := $80;
    3: Cell^.EffectParams.Value := $C0;
  end;
end;

procedure TfrmEffectEditor.FormCloseQuery(Sender: TObject; var CanClose: boolean
  );
begin
  ModalResult:=mrClose;
end;

procedure TfrmEffectEditor.FormCreate(Sender: TObject);
begin
  if Assigned(Cell) then begin
    ComboBox1.ItemIndex := Cell^.EffectCode;
    LoadEffect;
    Value.Caption := EffectToExplanation(Cell^.EffectCode, Cell^.EffectParams);
  end;
end;

procedure TfrmEffectEditor.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
    Close;
end;

procedure TfrmEffectEditor.OneParamTrackBarChange(Sender: TObject);
begin
  Cell^.EffectParams.Value := OneParamTrackBar.Position;
  Value.Caption := EffectToExplanation(Cell^.EffectCode, Cell^.EffectParams);
end;

procedure TfrmEffectEditor.RightVolumeTrackBarChange(Sender: TObject);
begin
  Cell^.EffectParams.Param1 := LeftVolumeTrackBar.Position;
  Cell^.EffectParams.Param2 := RightVolumeTrackBar.Position;
  Value2.Caption := EffectToExplanation(Cell^.EffectCode, Cell^.EffectParams);
end;

procedure TfrmEffectEditor.TwoParamsTrackBar1Change(Sender: TObject);
begin
  Cell^.EffectParams.Param1 := TwoParamsTrackBar1.Position;
  Value1.Caption := EffectToExplanation(Cell^.EffectCode, Cell^.EffectParams);
end;

procedure TfrmEffectEditor.TwoParamsTrackBar2Change(Sender: TObject);
begin
  Cell^.EffectParams.Param2 := TwoParamsTrackBar2.Position;
  Value1.Caption := EffectToExplanation(Cell^.EffectCode, Cell^.EffectParams);
end;

procedure TfrmEffectEditor.VibratoComboBoxChange(Sender: TObject);
begin
  Cell^.EffectParams.Param1 := VibratoComboBox.ItemIndex;
end;

procedure TfrmEffectEditor.VibratoDepthTrackBarChange(Sender: TObject);
begin
  Cell^.EffectParams.Param2 := VibratoDepthTrackBar.Position;
  Label2.Caption := 'Depth: '+IntToStr(VibratoDepthTrackBar.Position);
end;

procedure TfrmEffectEditor.VibratoRateRadioGroupSelectionChanged(Sender: TObject
  );
begin
  Cell^.EffectParams.Param1 := VibratoComboBox.ItemIndex;
end;

procedure TfrmEffectEditor.LoadEffect;
begin
  case Cell^.EffectCode of
    $0: fx0;
    $1: fx1;
    $2: fx2;
    $3: fx3;
    $4: fx4;
    $5: fx5;
    $6: fx6;
    $7: fx7;
    $8: fx8;
    $9: fx9;
    $A: fxA;
    $B: fxB;
    $C: fxC;
    $D: fxD;
    $E: fxE;
    $F: fxF;
  end;
end;

procedure TfrmEffectEditor.LoadOneParamData;
begin
  OneParamTrackBar.Position := Cell^.EffectParams.Value;
  Value.Caption := EffectToExplanation(Cell^.EffectCode, Cell^.EffectParams);
end;

procedure TfrmEffectEditor.LoadTwoParamData;
begin
  TwoParamsTrackBar1.Position := Cell^.EffectParams.Param1;
  TwoParamsTrackBar2.Position := Cell^.EffectParams.Param2;
  Value1.Caption := EffectToExplanation(Cell^.EffectCode, Cell^.EffectParams);
end;

procedure TfrmEffectEditor.LoadVibratoData;
begin
  VibratoComboBox.ItemIndex := Cell^.EffectParams.Param1;
  VibratoDepthTrackBar.Position := Cell^.EffectParams.Param2;
  Label2.Caption := 'Depth: '+IntToStr(VibratoDepthTrackBar.Position);
end;

procedure TfrmEffectEditor.LoadMasterVolumeData;
begin
  LeftVolumeTrackBar.Position := Cell^.EffectParams.Param1;
  RightVolumeTrackBar.Position := Cell^.EffectParams.Param2;
  Value2.Caption := EffectToExplanation(Cell^.EffectCode, Cell^.EffectParams);
end;

procedure TfrmEffectEditor.LoadPanningData;
begin
  CheckBox1.SetCheckedWithoutClick((Cell^.EffectParams.Value and %00000001) <> 0);
  CheckBox2.SetCheckedWithoutClick((Cell^.EffectParams.Value and %00000010) <> 0);
  CheckBox3.SetCheckedWithoutClick((Cell^.EffectParams.Value and %00000100) <> 0);
  CheckBox4.SetCheckedWithoutClick((Cell^.EffectParams.Value and %00001000) <> 0);
  CheckBox5.SetCheckedWithoutClick((Cell^.EffectParams.Value and %00010000) <> 0);
  CheckBox6.SetCheckedWithoutClick((Cell^.EffectParams.Value and %00100000) <> 0);
  CheckBox7.SetCheckedWithoutClick((Cell^.EffectParams.Value and %01000000) <> 0);
  CheckBox8.SetCheckedWithoutClick((Cell^.EffectParams.Value and %10000000) <> 0);
end;

procedure TfrmEffectEditor.LoadDutyCycleData;
begin
  case Cell^.EffectParams.Value of
    $00: DutyRadioGroup.ItemIndex := 0;
    $40: DutyRadioGroup.ItemIndex := 1;
    $80: DutyRadioGroup.ItemIndex := 2;
    $C0: DutyRadioGroup.ItemIndex := 3;
  end;
end;

procedure TfrmEffectEditor.fx0;
begin
  Notebook1.PageIndex := 1;
  LoadTwoParamData;
end;

procedure TfrmEffectEditor.fx1;
begin
  Notebook1.PageIndex := 0;
  OneParamTrackBar.Max := $FF;
  LoadOneParamData;
end;

procedure TfrmEffectEditor.fx2;
begin
  Notebook1.PageIndex := 0;
  OneParamTrackBar.Max := $FF;
  LoadOneParamData;
end;

procedure TfrmEffectEditor.fx3;
begin
  Notebook1.PageIndex := 0;
  OneParamTrackBar.Max := $FF;
  LoadOneParamData;
end;

procedure TfrmEffectEditor.fx4;
begin
  Notebook1.PageIndex := 2;
  LoadVibratoData;
end;

procedure TfrmEffectEditor.fx5;
begin
  Notebook1.PageIndex := 3;
  LoadMasterVolumeData;
end;

procedure TfrmEffectEditor.fx6;
begin
  Notebook1.PageIndex := 0;
  OneParamTrackBar.Max := $F;
  LoadOneParamData;
end;

procedure TfrmEffectEditor.fx7;
begin
  Notebook1.PageIndex := 0;
  OneParamTrackBar.Max := $FF;
  LoadOneParamData;
end;

procedure TfrmEffectEditor.fx8;
begin
  Notebook1.PageIndex := 4;
  LoadPanningData;
end;

procedure TfrmEffectEditor.fx9;
begin
  Notebook1.PageIndex := 5;
  LoadDutyCycleData;
end;

procedure TfrmEffectEditor.fxA;
begin
  Notebook1.PageIndex := 1;
  LoadTwoParamData;
end;

procedure TfrmEffectEditor.fxB;
begin
  Notebook1.PageIndex := 0;
  OneParamTrackBar.Max := $FF;
  LoadOneParamData;
end;

procedure TfrmEffectEditor.fxC;
begin
  Notebook1.PageIndex := 1;
  LoadTwoParamData;
end;

procedure TfrmEffectEditor.fxD;
begin
  Notebook1.PageIndex := 0;
  OneParamTrackBar.Max := $FF;
  LoadOneParamData;
end;

procedure TfrmEffectEditor.fxE;
begin
  Notebook1.PageIndex := 0;
  OneParamTrackBar.Max := $FF;
  LoadOneParamData;
end;

procedure TfrmEffectEditor.fxF;
begin
  Notebook1.PageIndex := 0;
  OneParamTrackBar.Max := $FF;
  LoadOneParamData;
end;

end.