EvaPig

unit UnitOptions;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, Registry, gnugettext, ImgList, ActnList,

  JvExStdCtrls, JvButton, JvCtrls;

type

  TFormOptions = class(TForm)

    LabelExpression: TLabel;

    LabelProximal: TLabel;

    LabelEnergy: TLabel;

    LabelAA: TLabel;

    LabelIncorporation: TLabel;

    LabelMinerals: TLabel;

    ComboBoxExpression: TComboBox;

    ComboBoxProximal: TComboBox;

    ComboBoxEnergy: TComboBox;

    ComboBoxAA: TComboBox;

    ComboBoxIncorporation: TComboBox;

    ComboBoxMinerals: TComboBox;

    JvImgBtnCancel: TJvImgBtn;

    JvImgBtnOK: TJvImgBtn;

    JvImgBtnHelp: TJvImgBtn;

    ActionListButtons: TActionList;

    ActionHelp: TAction;

    ActionOK: TAction;

    ActionCancel: TAction;

    ImageListIcons: TImageList;

    PanelButtons: TPanel;

    procedure FormCreate(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure ActionHelpExecute(Sender: TObject);

    procedure ActionOKExecute(Sender: TObject);

    procedure ActionCancelExecute(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

    Reg: TRegistry;

    OptionChanged: Boolean;

    Expression, Proximal, Energy, AA, Minerals, Incorporation: Integer;

    ProximalDecimals, EnergyDecimals, AADecimals, MineralsDecimals, IncorporationDecimals: Integer;

    ProximalFormat, EnergyFormat, AAFormat, MineralsFormat, IncorporationFormat: String;

    CurrentLanguage: string;

    MainLeft, MainTop, MainWidth, MainHeight: Integer;

    procedure AjustProximal;

    procedure AjustEnergy;

    procedure AjustAA;

    procedure AjustMinerals;

    procedure AjustIncorporation;

    function DecimalFormat(Decimals: Integer): String;

  end;

var

  FormOptions: TFormOptions;

implementation

{$R *.dfm}

procedure TFormOptions.AjustProximal;

begin

  if Proximal = 1

  then // g/kg

    ProximalDecimals := 1

  else // %

    ProximalDecimals := 2;

  ProximalFormat := DecimalFormat(ProximalDecimals);

end;

procedure TFormOptions.AjustEnergy;

begin

  if Energy = 1

  then // kcal/kg

    EnergyDecimals := 0

  else // MJ/kg

    EnergyDecimals := 2;

  EnergyFormat := DecimalFormat(EnergyDecimals);

end;

procedure TFormOptions.ActionCancelExecute(Sender: TObject);

begin

  ModalResult := mrCancel;

end;

procedure TFormOptions.ActionHelpExecute(Sender: TObject);

begin

  Application.HelpContext(HelpContext);

end;

procedure TFormOptions.ActionOKExecute(Sender: TObject);

begin

  OptionChanged := False;

  if ComboBoxExpression.ItemIndex <> Expression

  then

  begin

    OptionChanged := True;

    Expression := ComboBoxExpression.ItemIndex;

  end;

  if ComboBoxProximal.ItemIndex <> Proximal

  then

  begin

    OptionChanged := True;

    Proximal := ComboBoxProximal.ItemIndex;

    AjustProximal;

  end;

  if ComboBoxEnergy.ItemIndex <> Energy

  then

  begin

    OptionChanged := True;

    Energy := ComboBoxEnergy.ItemIndex;

    AjustEnergy;

  end;

  if ComboBoxAA.ItemIndex <> AA

  then

  begin

    OptionChanged := True;

    AA := ComboBoxAA.ItemIndex;

    AjustAA;

  end;

  if ComboBoxMinerals.ItemIndex <> Minerals

  then

  begin

    OptionChanged := True;

    Minerals := ComboBoxMinerals.ItemIndex;

    AjustMinerals;

  end;

  if ComboBoxIncorporation.ItemIndex <> Incorporation

  then

  begin

    OptionChanged := True;

    Incorporation := ComboBoxIncorporation.ItemIndex;

    AjustIncorporation;

  end;

  if OptionChanged

  then // Sauvegarder la configuration

  begin

    Reg.Access := KEY_WRITE;

    if Reg.OpenKey('\Software\EvaPig2020', True)

    then

    begin

      Reg.WriteInteger('GeneralExpression', Expression);

      Reg.WriteInteger('ProximalAnalysis', Proximal);

      Reg.WriteInteger('EnergyValues', Energy);

      Reg.WriteInteger('AminoAcids', AA);

      Reg.WriteInteger('Minerals', Minerals);

      Reg.WriteInteger('IncorporationLevel', Incorporation);

      Reg.CloseKey;

    end;

  end;

  ModalResult := mrOk;

end;

procedure TFormOptions.AjustAA;

begin

  if AA = 1

  then // g/kg

    AADecimals := 1

  else // %

    AADecimals := 2;

  AAFormat := DecimalFormat(AADecimals);

end;

procedure TFormOptions.AjustMinerals;

begin

  if Minerals = 1

  then // g/kg

    MineralsDecimals := 2

  else // %

    MineralsDecimals := 3;

  MineralsFormat := DecimalFormat(MineralsDecimals);

end;

procedure TFormOptions.AjustIncorporation;

begin

  if Incorporation = 1

  then // g/kg

    IncorporationDecimals := 2

  else // %

    IncorporationDecimals := 3;

  IncorporationFormat := DecimalFormat(IncorporationDecimals);

end;

function TFormOptions.DecimalFormat(Decimals: Integer): String;

var

  i: Integer;

  s: String;

begin

  s := '#,##0';

  if Decimals > 0

  then

  begin

    s := s + '.';

    for i := 1 to Decimals do

      s := s + '0';

  end;

  Result := s;

end;

procedure TFormOptions.FormCreate(Sender: TObject);

begin

  if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

  then

    Font.Name := 'Arial Unicode MS';

//  PanelButtons.Font.Size := PanelButtons.Font.Size + 2;

  PanelButtons.Font.Style := [fsBold];

  TranslateComponent(Self);

  // Charger la configuration

  Reg := TRegistry.Create;

  Reg.RootKey := HKEY_CURRENT_USER;

  if Reg.OpenKeyReadOnly('\Software\EvaPig2020')

  then

  begin

    if Reg.ValueExists('GeneralExpression')

    then

      Expression := Reg.ReadInteger('GeneralExpression')

    else

      Expression := 0;

    if Reg.ValueExists('ProximalAnalysis')

    then

      Proximal := Reg.ReadInteger('ProximalAnalysis')

    else

      Proximal := 0;

    if Reg.ValueExists('EnergyValues')

    then

      Energy := Reg.ReadInteger('EnergyValues')

    else

      Energy := 0;

    if Reg.ValueExists('AminoAcids')

    then

      AA := Reg.ReadInteger('AminoAcids')

    else

      AA := 0;

    if Reg.ValueExists('Minerals')

    then

      Minerals := Reg.ReadInteger('Minerals')

    else

      Minerals := 0;

    if Reg.ValueExists('IncorporationLevel')

    then

      Incorporation := Reg.ReadInteger('IncorporationLevel')

    else

      Incorporation := 0;

    if Reg.ValueExists('Language')

    then

      CurrentLanguage := Reg.ReadString('Language')

    else

      CurrentLanguage := DefaultInstance.GetCurrentLanguage;

    {

    if Reg.ValueExists('Left')

    then

      MainLeft := Reg.ReadInteger('Left')

    else

      MainLeft := 0;

    if Reg.ValueExists('Top')

    then

      MainTop := Reg.ReadInteger('Top')

    else

      MainTop := 0;

    if Reg.ValueExists('Width')

    then

      MainWidth := Reg.ReadInteger('Width')

    else

      MainWidth := 960;

    if Reg.ValueExists('Height')

    then

      MainHeight := Reg.ReadInteger('Height')

    else

      MainHeight := 720;

    }

    Reg.CloseKey;

  end

  else

  begin

    Expression := 0;

    Proximal := 0;

    Energy := 0;

    AA := 0;

    Minerals := 0;

    Incorporation := 0;

    CurrentLanguage := DefaultInstance.GetCurrentLanguage;

    {

    MainLeft := 0;

    MainTop := 0;

    MainWidth := 960;

    MainHeight := 720;

    }

  end;

  AjustProximal;

  AjustEnergy;

  AjustAA;

  AjustMinerals;

  AjustIncorporation;

end;

procedure TFormOptions.FormDestroy(Sender: TObject);

begin

  Reg.Free;

end;

procedure TFormOptions.FormShow(Sender: TObject);

begin

  ComboBoxExpression.ItemIndex := Expression;

  ComboBoxProximal.ItemIndex := Proximal;

  ComboBoxEnergy.ItemIndex := Energy;

  ComboBoxAA.ItemIndex := AA;

  ComboBoxMinerals.ItemIndex := Minerals;

  ComboBoxIncorporation.ItemIndex := Incorporation;

end;

end.