BillsEditor/MF/ScOptionsFrm.pas

unit ScOptionsFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, JimPages, ComCtrls, ScPageControl, StdCtrls, ScConfig, ExtCtrls,
  ConstMethodUnit;

type
  TfrmOptions = class(TForm)
    pcOptions: TPageControl;
    tsGeneral: TTabSheet;
    cbAllowMfyCode: TCheckBox;
    btnOK: TButton;
    btnCancel: TButton;
    cbAutoSaveProjects: TCheckBox;
    UpDownMinute: TUpDown;
    ldeSaveInterval: TLabeledEdit;
    lbeMinute: TLabel;
    cbSaveAllProject: TCheckBox;
    cbRestorePoint: TCheckBox;
    cbAutoCollapse: TCheckBox;
    cbRealTimeCalc: TCheckBox;
    tbsGather: TTabSheet;
    Label1: TLabel;
    Panel1: TPanel;
    rbCodeAndName: TRadioButton;
    rbCodeOnly: TRadioButton;
    cbShowDesignQuantity: TCheckBox;
    cbShowEconomicMark: TCheckBox;
    cbShowDrawingCode: TCheckBox;
    procedure btnCancelClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure cbAutoSaveProjectsClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    procedure SyncSaveInterval;
    function GetAllowMfyCode: Boolean;
    procedure SetAllowMfyCode(const Value: Boolean);
    function GetAutoSave: Boolean;
    function GetSaveInterval: Integer;
    procedure SetAutoSave(const Value: Boolean);
    procedure SetSaveInterval(const Value: Integer);
    function GetSaveAll: Boolean;
    procedure SetSaveAll(const Value: Boolean);
    function GetResotrePoint: Boolean;
    procedure SetRestorePoint(const Value: Boolean);
    function GetAutoCollapse: Boolean;
    procedure SetAutoCollapse(const Value: Boolean);
    function GetRealTimeCalc: Boolean;
    procedure SetRealTimeCalc(const Value: Boolean);
    function GetMatchCodeOnly: Boolean;
    procedure SetMatchCodeOnly(const Value: Boolean);
    function GetShowDesignQuantity: Boolean;
    function GetShowDrawingCode: Boolean;
    function GetShowEconomicMark: Boolean;
    procedure SetShowDesignQuantity(const Value: Boolean);
    procedure SetShowDrawingCode(const Value: Boolean);
    procedure SetShowEconomicMark(const Value: Boolean);
  private
    procedure LoadOptions;
    procedure SaveOptions;

    {Options Properties}
    property AutoSaveInterval   : Integer read GetSaveInterval write SetSaveInterval;

    property AllowMfyCode       : Boolean read GetAllowMfyCode write SetAllowMfyCode;
    property AutoSaveProjects   : Boolean read GetAutoSave write SetAutoSave;
    property SaveAllProjects    : Boolean read GetSaveAll write SetSaveAll;
    property AutoRestorePoint   : Boolean read GetResotrePoint write SetRestorePoint;
    Property AutoCollapse       : Boolean read GetAutoCollapse write SetAutoCollapse;
    property RealTimeCalc       : Boolean read GetRealTimeCalc write SetRealTimeCalc;

    property MatchCodeOnly      : Boolean read GetMatchCodeOnly write SetMatchCodeOnly;

    property ShowDesignQuantity : Boolean read GetShowDesignQuantity write SetShowDesignQuantity;
    property ShowEconomicMark   : Boolean read GetShowEconomicMark write SetShowEconomicMark;
    property ShowDrawingCode    : Boolean read GetShowDrawingCode write SetShowDrawingCode;
  public
    { Public declarations }
  end;

implementation

uses
  MainForm;

{$R *.dfm}

{ TfrmOptions }

procedure TfrmOptions.LoadOptions;
begin
  AllowMfyCode        := ScConfigInfo.AllowMfyCode;
  AutoSaveProjects    := ScConfigInfo.AutoSaveProjects;
  AutoSaveInterval    := ScConfigInfo.AutoSaveInterval;
  SaveAllProjects     := ScConfigInfo.SaveAllProjects;
  AutoRestorePoint    := ScConfigInfo.SaveRestorePoint;
  AutoCollapse        := ScConfigInfo.AutoCollapse;
  RealTimeCalc        := ScConfigInfo.RealTimeCalc;
  MatchCodeOnly       := ScConfigInfo.MatchCodeOnly;

  ShowDesignQuantity  := ScConfigInfo.ShowDesignQuantity;
  ShowEconomicMark    := ScConfigInfo.ShowEconomicMark;
  ShowDrawingCode     := ScConfigInfo.ShowDrawingCode;
end;

procedure TfrmOptions.SaveOptions;
begin
  ScConfigInfo.AllowMfyCode      := AllowMfyCode;
  ScConfigInfo.AutoSaveProjects  := AutoSaveProjects;
  ScConfigInfo.AutoSaveInterval  := AutoSaveInterval;
  ScConfigInfo.SaveAllProjects   := SaveAllProjects;
  ScConfigInfo.SaveRestorePoint  := AutoRestorePoint;
  ScConfigInfo.AutoCollapse      := AutoCollapse;
  ScConfigInfo.RealTimeCalc      := RealTimeCalc;
  ScConfigInfo.MatchCodeOnly     := MatchCodeOnly;

  ScConfigInfo.ShowDesignQuantity := ShowDesignQuantity;
  ScConfigInfo.ShowEconomicMark := ShowEconomicMark;
  ScConfigInfo.ShowDrawingCode := ShowDrawingCode;
  MainFrm.ProjectManager.ResetAllOpenProjectView;

  ScConfigInfo.SaveIniFile;
  ConstMethodUnit.AutoSaveProjects(AutoSaveProjects, AutoSaveInterval);
end;

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

procedure TfrmOptions.btnOKClick(Sender: TObject);
begin
  SaveOptions;
  Self.Close;
end;

function TfrmOptions.GetAllowMfyCode: Boolean;
begin
  Result := cbAllowMfyCode.Checked;
end;

procedure TfrmOptions.SetAllowMfyCode(const Value: Boolean);
begin
  cbAllowMfyCode.Checked := Value;
end;

function TfrmOptions.GetAutoSave: Boolean;
begin
  Result := cbAutoSaveProjects.Checked;
end;

function TfrmOptions.GetSaveInterval: Integer;
begin
  Result := UpDownMinute.Position;
end;

procedure TfrmOptions.SetAutoSave(const Value: Boolean);
begin
  cbAutoSaveProjects.Checked := Value;
  SyncSaveInterval;
end;

procedure TfrmOptions.SetSaveInterval(const Value: Integer);
begin
  UpDownMinute.Position := Value;
end;

procedure TfrmOptions.cbAutoSaveProjectsClick(Sender: TObject);
begin
  SyncSaveInterval;
end;

procedure TfrmOptions.SyncSaveInterval;
begin
  ldeSaveInterval.Enabled := cbAutoSaveProjects.Checked;
end;

function TfrmOptions.GetSaveAll: Boolean;
begin
  Result := cbSaveAllProject.Checked;
end;

procedure TfrmOptions.SetSaveAll(const Value: Boolean);
begin
  cbSaveAllProject.Checked := Value;
end;

function TfrmOptions.GetResotrePoint: Boolean;
begin
  Result := cbRestorePoint.Checked;
end;

procedure TfrmOptions.SetRestorePoint(const Value: Boolean);
begin
  cbRestorePoint.Checked := Value;
end;

procedure TfrmOptions.FormCreate(Sender: TObject);
begin
  LoadOptions;
end;

function TfrmOptions.GetAutoCollapse: Boolean;
begin
  Result := cbAutoCollapse.Checked;
end;

procedure TfrmOptions.SetAutoCollapse(const Value: Boolean);
begin
  cbAutoCollapse.Checked := Value;
end;

function TfrmOptions.GetRealTimeCalc: Boolean;
begin
  Result := cbRealTimeCalc.Checked;
end;

procedure TfrmOptions.SetRealTimeCalc(const Value: Boolean);
begin
  cbRealTimeCalc.Checked := Value;
end;

procedure TfrmOptions.FormShow(Sender: TObject);
begin
  pcOptions.ActivePageIndex := 0;
end;

function TfrmOptions.GetMatchCodeOnly: Boolean;
begin
  Result := rbCodeOnly.Checked;
end;

procedure TfrmOptions.SetMatchCodeOnly(const Value: Boolean);
begin
  if Value then
    rbCodeOnly.Checked := True
  else
    rbCodeAndName.Checked := True;
end;

function TfrmOptions.GetShowDesignQuantity: Boolean;
begin
  Result := cbShowDesignQuantity.Checked;
end;

function TfrmOptions.GetShowDrawingCode: Boolean;
begin
  Result := cbShowDrawingCode.Checked
end;

function TfrmOptions.GetShowEconomicMark: Boolean;
begin
  Result := cbShowEconomicMark.Checked;
end;

procedure TfrmOptions.SetShowDesignQuantity(const Value: Boolean);
begin
  cbShowDesignQuantity.Checked := Value;
end;

procedure TfrmOptions.SetShowDrawingCode(const Value: Boolean);
begin
  cbShowDrawingCode.Checked := Value;
end;

procedure TfrmOptions.SetShowEconomicMark(const Value: Boolean);
begin
  cbShowEconomicMark.Checked := Value;
end;

end.