{
     Apophysis Copyright (C) 2001-2004 Mark Townsend

     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
     the Free Software Foundation; either version 2 of the License, or
     (at your option) any later version.

     This program is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.

     You should have received a copy of the GNU General Public License
     along with this program; if not, write to the Free Software
     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
}
//{$D-,L-,O+,Q-,R-,Y-,S-}
unit Options;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls, Buttons, Registry, Mask, CheckLst;

type
  TOptionsForm = class(TForm)
    btnOK: TButton;
    btnCancel: TButton;
    OpenDialog: TOpenDialog;
    Tabs: TPageControl;
    GeneralPage: TTabSheet;
    chkConfirmDel: TCheckBox;
    GroupBox13: TGroupBox;
    JPEG: TGroupBox;
    txtJPEGQuality: TEdit;
    DisplayPage: TTabSheet;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label1: TLabel;
    Label30: TLabel;
    txtLowQuality: TEdit;
    txtMediumQuality: TEdit;
    txtHighQuality: TEdit;
    grpRendering: TGroupBox;
    lblSampleDensity: TLabel;
    lblGamma: TLabel;
    lblBrightness: TLabel;
    lblVibrancy: TLabel;
    lblOversample: TLabel;
    lblFilterRadius: TLabel;
    txtSampleDensity: TEdit;
    txtGamma: TEdit;
    txtBrightness: TEdit;
    txtVibrancy: TEdit;
    txtOversample: TEdit;
    txtFilterRadius: TEdit;
    RandomPage: TTabSheet;
    gpNumberOfTransforms: TGroupBox;
    Label28: TLabel;
    Label29: TLabel;
    txtMinXForms: TEdit;
    txtMaxXforms: TEdit;
    chkKeepBackground: TCheckBox;
    TabSheet6: TTabSheet;
    UPRPage: TPageControl;
    GroupBox11: TGroupBox;
    Label26: TLabel;
    Label27: TLabel;
    txtUPRWidth: TEdit;
    txtUPRHeight: TEdit;
    gpFlameTitlePrefix: TGroupBox;
    txtRandomPrefix: TEdit;
    gpMutationTransforms: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    txtMinMutate: TEdit;
    txtMaxMutate: TEdit;
    gpForcedSymmetry: TGroupBox;
    cmbSymType: TComboBox;
    txtSymOrder: TEdit;
    Label7: TLabel;
    Label9: TLabel;
    VariationsPage: TTabSheet;
    GroupBox17: TGroupBox;
    btnSetAll: TButton;
    btnClearAll: TButton;
    Label8: TLabel;
    txtNumtries: TEdit;
    Label10: TLabel;
    txtTryLength: TEdit;
    TabSheet1: TTabSheet;
    grpGradient: TRadioGroup;
    GroupBox3: TGroupBox;
    txtMinNodes: TEdit;
    txtMaxNodes: TEdit;
    Label18: TLabel;
    Label19: TLabel;
    txtMinHue: TEdit;
    txtMaxHue: TEdit;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    txtMinSat: TEdit;
    Label34: TLabel;
    txtMaxSat: TEdit;
    Label35: TLabel;
    txtMinLum: TEdit;
    Label36: TLabel;
    txtMaxLum: TEdit;
    udMinNodes: TUpDown;
    udMaxNodes: TUpDown;
    udMinHue: TUpDown;
    udMaxHue: TUpDown;
    udMinSat: TUpDown;
    udmaxSat: TUpDown;
    udMinLum: TUpDown;
    udMaxLum: TUpDown;
    udMinXforms: TUpDown;
    udMaxXForms: TUpDown;
    udMinMutate: TUpDown;
    udMaxMutate: TUpDown;
    udSymOrder: TUpDown;
    chkFixedReference: TCheckBox;
    GroupBox1: TGroupBox;
    txtBatchSize: TEdit;
    udBatchSize: TUpDown;
    GroupBox9: TGroupBox;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    txtFIterDensity: TEdit;
    txtUPRFilterRadius: TEdit;
    txtUPROversample: TEdit;
    GroupBox4: TGroupBox;
    Label11: TLabel;
    Label12: TLabel;
    txtFCIdent: TEdit;
    txtFCFile: TEdit;
    GroupBox5: TGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    txtFFIdent: TEdit;
    txtFFFile: TEdit;
    chkAdjustDensity: TCheckBox;
    TabSheet2: TTabSheet;
    GroupBox6: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    txtNick: TEdit;
    txtURL: TEdit;
    Label15: TLabel;
    txtPassword: TEdit;
    GroupBox8: TGroupBox;
    Label17: TLabel;
    txtServer: TEdit;
    chkResize: TCheckBox;
    Paths: TTabSheet;
    GroupBox10: TGroupBox;
    btnDefGradient: TSpeedButton;
    Label25: TLabel;
    txtDefParameterFile: TEdit;
    GroupBox12: TGroupBox;
    Label23: TLabel;
    txtDefSmoothFile: TEdit;
    btnSmooth: TSpeedButton;
    GroupBox7: TGroupBox;
    btnRenderer: TSpeedButton;
    Label16: TLabel;
    txtRenderer: TEdit;
    GroupBox14: TGroupBox;
    SpeedButton2: TSpeedButton;
    Label37: TLabel;
    txtLibrary: TEdit;
    clbVarEnabled: TCheckListBox;
    procedure btnCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnDefGradientClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnSmoothClick(Sender: TObject);
    procedure cmbSymTypeChange(Sender: TObject);
    procedure btnSetAllClick(Sender: TObject);
    procedure btnClearAllClick(Sender: TObject);
    procedure txtMinNodesChange(Sender: TObject);
    procedure txtMaxNodesChange(Sender: TObject);
    procedure txtMaxHueChange(Sender: TObject);
    procedure txtMaxSatChange(Sender: TObject);
    procedure txtMaxLumChange(Sender: TObject);
    procedure txtMinHueChange(Sender: TObject);
    procedure txtMinSatChange(Sender: TObject);
    procedure txtMinLumChange(Sender: TObject);
    procedure txtMinXFormsChange(Sender: TObject);
    procedure txtMaxXformsChange(Sender: TObject);
    procedure txtMinMutateChange(Sender: TObject);
    procedure txtMaxMutateChange(Sender: TObject);
    procedure btnRendererClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OptionsForm: TOptionsForm;

implementation

uses
  Main, Global, Editor, ControlPoint, XForm;
{$R *.DFM}

procedure TOptionsForm.btnCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TOptionsForm.FormShow(Sender: TObject);
var
  Registry: TRegistry;
  i: integer;
begin
  { Read posution from registry }
  Registry := TRegistry.Create;
  try
    Registry.RootKey := HKEY_CURRENT_USER;
    if Registry.OpenKey('Software\' + APP_NAME + '\Forms\Options', False) then
    begin
      if Registry.ValueExists('Left') then
        OptionsForm.Left := Registry.ReadInteger('Left');
      if Registry.ValueExists('Top') then
        OptionsForm.Top := Registry.ReadInteger('Top');
    end;
    Registry.CloseKey;
  finally
    Registry.Free;
  end;

  { General tab }
  txtDefParameterFile.Text := DefFlameFile;
  txtDefSmoothFile.Text := defSmoothPaletteFile;
  txtNumtries.text := IntToStr(Numtries);
  txtTryLength.text := IntToStr(Trylength);
  chkConfirmDel.Checked := ConfirmDelete;
  txtJPEGQuality.text := IntToStr(JPEGQuality);
  chkFixedReference.Checked := FixedReference;
  udBatchSize.Position := BatchSize;
  chkResize.checked := ResizeOnLoad;

  { Display tab }
  txtSampleDensity.Text := FloatToStr(defSampleDensity);
  txtGamma.Text := FloatToStr(defGamma);
  txtBrightness.Text := FloatToStr(defBrightness);
  txtVibrancy.Text := FloatToStr(defVibrancy);
  txtOversample.Text := IntToStr(defOversample);
  txtFilterRadius.Text := FloatToStr(defFilterRadius);
  txtLowQuality.Text := FloatToStr(prevLowQuality);
  txtMediumQuality.Text := FloatToStr(prevMediumQuality);
  txtHighQuality.Text := FloatToStr(prevHighQuality);

  { Random tab }
  udMinXforms.Position := randMinTransforms;
  udMaxXforms.Position := randMaxTransforms;
  udMinMutate.Position := mutantMinTransforms;
  udMaxMutate.Position := mutantMaxTransforms;
  txtRandomPrefix.text := RandomPrefix;
  chkKeepbackground.Checked := KeepBackground;
  cmbSymType.ItemIndex := SymmetryType;
  if (SymmetryType = 0) or (SymmetryType = 1) then txtSymOrder.enabled := false;
  udSymOrder.Position := SymmetryOrder;

  { Variations tab }
  UnpackVariations(VariationOptions);
  for i := 0 to NRVISVAR -1 do
    clbVarEnabled.Checked[i] := Variations[i];

  { Gradient tab }
  grpGradient.ItemIndex := randGradient;
  udMinNodes.Position := MinNodes;
  udMaxNodes.Position := MaxNodes;
  udMinHue.Position := MinHue;
  udMinSat.Position := MinSat;
  udMinLum.Position := MinLum;
  udMaxHue.Position := MaxHue;
  udMaxSat.Position := MaxSat;
  udMaxLum.Position := MaxLum;

  { UPR tab }
  txtFIterDensity.text := IntToStr(UPRSampleDensity);
  txtUPRFilterRadius.text := FloatToStr(UPRFilterRadius);
  txtUPROversample.text := IntToStr(UPROversample);
  txtFCIdent.text := UPRColoringIdent;
  txtFCFile.text := UPRColoringFile;
  txtFFIdent.text := UPRFormulaIdent;
  txtFFFile.text := UPRFormulaFile;
  txtUPRWidth.text := IntToStr(UPRWidth);
  txtUPRHeight.text := IntToStr(UPRHeight);
  chkAdjustDensity.checked := UPRAdjustDensity;

  { UPR tab }
  txtNick.Text := SheepNick;
  txtURL.Text := SheepURL;
  txtPassword.Text := SheepPW;
  txtRenderer.Text := HqiPath;
  txtServer.Text := SheepServer;

  txtLibrary.text := defLibrary;
end;

procedure TOptionsForm.btnOKClick(Sender: TObject);
var
  v: integer;
  i: integer;
begin

  { Variations tab }
  { Get option values from controls. Disallow bad values }
  for i := 0 to NRVISVAR -1 do
    Variations[i] := clbVarEnabled.Checked[i];

  v := PackVariations;
  if v <> 0 then VariationOptions := v
  else
  begin
    Application.MessageBox('You must select at least one variation.', 'Apophysis', 48);
    Tabs.ActivePage := VariationsPage;
    Exit;
  end;

  { General tab }
  defFlameFile := txtDefParameterFile.Text;
  defSmoothPaletteFile := txtDefSmoothFile.Text;
  JPEGQuality := StrToInt(txtJPEGQuality.text);
  Numtries := StrToInt(txtNumtries.text);
  if NumTries < 1 then Numtries := 1;
  Trylength := StrToInt(txtTrylength.text);
  if Trylength < 100 then trylength := 100;
  if JPEGQuality > 100 then JPEGQuality := 100;
  if JPEGQuality < 1 then JPEGQuality := 100;
  BatchSize := udBatchSize.Position;
  if BatchSize < 1 then BatchSize := 1;
  if BatchSize > 300 then BatchSize := 300;

  ConfirmDelete := chkConfirmDel.Checked;
  FixedReference := chkFixedReference.Checked;
  ResizeOnLoad := chkResize.checked;
  { Display tab }
  defSampleDensity := StrToFloat(txtSampleDensity.Text);
  if defSampleDensity > 100 then defSampleDensity := 100;
  if defSampleDensity <= 0 then defSampleDensity := 0.1;
  defGamma := StrToFloat(txtGamma.Text);
  if defGamma < 0.1 then defGamma := 0.1;
  defBrightness := StrToFloat(txtBrightness.Text);
  if defBrightness < 0.1 then defBrightness := 0.1;
  defVibrancy := StrToFloat(txtVibrancy.Text);
  if defVibrancy < 0 then defVibrancy := 0.1;
  defFilterRadius := StrToFloat(txtFilterRadius.Text);
  if defFilterRadius <= 0 then defFilterRadius := 0.1;
  defOversample := StrToInt(txtOversample.Text);
  if defOversample > 4 then defOversample := 4;
  if defOversample < 1 then defOversample := 1;
  prevLowQuality := StrToFloat(txtLowQuality.Text);
  if prevLowQuality > 100 then prevLowQuality := 100;
  if prevLowQuality < 0.01 then prevLowQuality := 0.01;
  prevMediumQuality := StrToFloat(txtMediumQuality.Text);
  if prevMediumQuality > 100 then prevMediumQuality := 100;
  if prevMediumQuality < 0.01 then prevMediumQuality := 0.01;
  prevHighQuality := StrToFloat(txtHighQuality.Text);
  if prevHighQuality > 100 then prevHighQuality := 100;
  if prevHighQuality < 0.01 then prevHighQuality := 0.01;

  { Random tab }
  randMinTransforms := udMinXforms.Position;
  randMaxTransforms := udMaxXforms.Position;
  mutantMinTransforms := udMinMutate.Position;
  mutantMaxTransforms := udMaxMutate.Position;
  RandomPrefix := txtRandomPrefix.text;
  SymmetryType := cmbSymType.ItemIndex;
  SymmetryOrder := udSymOrder.Position;
  KeepBackground := chkKeepbackground.Checked;

  {Gradient tab }
  randGradient := grpGradient.ItemIndex;
  MinNodes := udMinNodes.Position;
  MaxNodes := udMaxNodes.Position;
  MinHue := udMinHue.Position;
  MinSat := udMinSat.Position;
  MinLum := udMinLum.Position;
  MaxHue := udMaxHue.Position;
  MaxSat := udMaxSat.Position;
  MaxLum := udMaxLum.Position;

  { UPR options }
  UPRSampleDensity := StrToInt(txtFIterDensity.text);
  UPRFilterRadius := StrToFloat(txtUPRFilterRadius.text);
  UPROversample := StrToInt(txtUPROversample.text);
  UPRColoringIdent := txtFCIdent.text;
  UPRColoringFile := txtFCFile.text;
  UPRFormulaIdent := txtFFIdent.text;
  UPRFormulaFile := txtFFFile.text;
  UPRAdjustDensity := chkAdjustDensity.checked;
  UPRWidth := StrToInt(txtUPRWidth.text);
  UPRHeight := StrToInt(txtUPRHeight.text);

  { Sheep options }
  SheepNick := txtNick.Text;
  SheepURL := txtURL.Text;
  SheepPW := txtPassword.text;
  HqiPath := txtRenderer.text;
  SheepServer := txtServer.text;

  {Paths}
  defLibrary := txtLibrary.text;

  Close;
end;

procedure TOptionsForm.btnDefGradientClick(Sender: TObject);
begin
  OpenDialog.Filter := 'Flame files (*.flame)|*.flame|Apophysis 1.0 parameters (*.apo;*.fla)|*.apo;*.fla';
  OpenDialog.FileName := '';
  if OpenDialog.Execute then
  begin
    txtDefParameterFile.text := OpenDialog.FileName;
  end;
end;

procedure TOptionsForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Registry: TRegistry;
begin
  { Write position to registry }
  Registry := TRegistry.Create;
  try
    Registry.RootKey := HKEY_CURRENT_USER;
    if Registry.OpenKey('\Software\' + APP_NAME + '\Forms\Options', True) then
    begin
      Registry.WriteInteger('Top', OptionsForm.Top);
      Registry.WriteInteger('Left', OptionsForm.Left);
    end;
  finally
    Registry.Free;
  end;

end;

procedure TOptionsForm.btnSmoothClick(Sender: TObject);
begin
  OpenDialog.Filter := 'Gradient files (*.ugr)|*.ugr';
  OpenDialog.InitialDir := ExtractFilePath(defSmoothPaletteFile);
  OpenDialog.FileName := '';
  OpenDialog.DefaultExt := 'ugr';
  if OpenDialog.Execute then
  begin
    txtDefSmoothFile.text := OpenDialog.FileName;
  end;
end;

procedure TOptionsForm.cmbSymTypeChange(Sender: TObject);
begin
  if (cmbSymType.ItemIndex = 0) or (cmbSymType.ItemIndex = 1) then
    txtSymOrder.enabled := false
  else
    txtSymOrder.enabled := true;
end;

procedure TOptionsForm.btnSetAllClick(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to NRVISVAR - 1 do
    clbVarEnabled.Checked[i] := True;
end;

procedure TOptionsForm.btnClearAllClick(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to NRVISVAR - 1 do
    clbVarEnabled.Checked[i] := False;
end;

procedure TOptionsForm.txtMinNodesChange(Sender: TObject);
begin
  if StrToInt(txtMinNodes.Text) > udMaxNodes.position then
    udMaxNodes.Position := StrToInt(txtMinNodes.Text);
end;

procedure TOptionsForm.txtMaxNodesChange(Sender: TObject);
begin
  if StrToInt(txtMaxNodes.Text) < udMinNodes.position then
    udMinNodes.Position := StrToInt(txtMaxNodes.Text);
end;

procedure TOptionsForm.txtMaxHueChange(Sender: TObject);
begin
  if StrToInt(txtMaxHue.Text) < udMinHue.position then
    udMinHue.Position := StrToInt(txtMaxHue.Text);
end;

procedure TOptionsForm.txtMaxSatChange(Sender: TObject);
begin
  if StrToInt(txtMaxSat.Text) < udMinSat.position then
    udMinSat.Position := StrToInt(txtMaxSat.Text);
end;

procedure TOptionsForm.txtMaxLumChange(Sender: TObject);
begin
  if StrToInt(txtMaxLum.Text) < udMinLum.position then
    udMinLum.Position := StrToInt(txtMaxLum.Text);
end;

procedure TOptionsForm.txtMinHueChange(Sender: TObject);
begin
  if StrToInt(txtMinHue.Text) > udMaxHue.position then
    udMaxHue.Position := StrToInt(txtMinHue.Text);
end;

procedure TOptionsForm.txtMinSatChange(Sender: TObject);
begin
  if StrToInt(txtMinSat.Text) > udMaxSat.position then
    udMaxSat.Position := StrToInt(txtMinSat.Text);
end;

procedure TOptionsForm.txtMinLumChange(Sender: TObject);
begin
  if StrToInt(txtMinLum.Text) > udMaxLum.position then
    udMaxLum.Position := StrToInt(txtMinLum.Text);
end;

procedure TOptionsForm.txtMinXFormsChange(Sender: TObject);
begin
  if StrToInt(txtMinXForms.Text) > udMaxXForms.position then
    udMaxXFOrms.Position := StrToInt(txtMinXForms.Text);
end;

procedure TOptionsForm.txtMaxXformsChange(Sender: TObject);
begin
  if StrToInt(txtMaxXForms.Text) < udMinXForms.position then
    udMinXForms.Position := StrToInt(txtMaxXforms.Text);
end;

procedure TOptionsForm.txtMinMutateChange(Sender: TObject);
begin
  if StrToInt(txtMinMutate.Text) > udMaxMutate.position then
    udMaxMutate.Position := StrToInt(txtMinMutate.Text);
end;

procedure TOptionsForm.txtMaxMutateChange(Sender: TObject);
begin
  if StrToInt(txtMaxMutate.Text) < udMinMutate.position then
    udMinMutate.Position := StrToInt(txtMaxMutate.Text);
end;

procedure TOptionsForm.btnRendererClick(Sender: TObject);
begin
  OpenDialog.Filter := 'Executables (*.exe)|*.exe';
  OpenDialog.InitialDir := ExtractFilePath(HqiPath);
  OpenDialog.FileName := '';
  if OpenDialog.Execute then
  begin
    txtRenderer.text := OpenDialog.FileName;
  end;

end;

procedure TOptionsForm.SpeedButton2Click(Sender: TObject);
begin
  OpenDialog.Filter := 'Script files (*.asc)|*.asc';
  OpenDialog.InitialDir := ExtractFilePath(defLibrary);
  OpenDialog.FileName := '';
  if OpenDialog.Execute then
  begin
    txtLibrary.text := OpenDialog.FileName;
  end;
end;

procedure TOptionsForm.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to NRVISVAR - 1 do begin
    clbVarEnabled.AddItem(varnames[i],nil);
  end;
end;

end.

