FactuGES2/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.pas

unit uViewConfiguracionGeneral;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewConfiguracionBase, StdCtrls, ExtCtrls, dxGDIPlusClasses,
  JvExControls, JvGradientHeaderPanel, Mask, dxSkinsCore, dxSkinBlack,
  dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary,
  dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
  dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
  dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinXmas2008Blue, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
  cxSpinEdit;

type
  TfrViewConfiguracionGeneral = class(TfrViewConfiguracionBase)
    cbEsquemaColor: TComboBox;
    Label1: TLabel;
    Panel2: TPanel;
    Label2: TLabel;
    Panel3: TPanel;
    Panel4: TPanel;
    Label4: TLabel;
    CheckBox1: TCheckBox;
    edtNumIntentos: TcxSpinEdit;
    Panel5: TPanel;
    Label5: TLabel;
    Panel6: TPanel;
    lblLongMinPass: TLabel;
    cbPassObligatoria: TCheckBox;
    edtLongMinPass: TcxSpinEdit;
  private
    { Private declarations }
  public
    class function GetViewClass : TClass; override;
    class function DarEtiqueta : String; override;
    procedure CargarValores; override;
    procedure GuardarValores; override;
  end;

implementation

uses
  uFactuGES_App;

{$R *.dfm}

{ TfrViewConfiguracionGeneral }

procedure TfrViewConfiguracionGeneral.CargarValores;
begin
  inherited;
  edtLongMinPass.Text := AppFactuGES.Configuracion.GetSettingAsString('MinPasswordLength', '3');
  edtNumIntentos.Text := AppFactuGES.Configuracion.GetSettingAsString('MaxLoginAttempts', '3');
  cbPassObligatoria.Checked := AppFactuGES.Configuracion.GetSettingAsBoolean('ForcePassword', True);
end;

class function TfrViewConfiguracionGeneral.DarEtiqueta: String;
begin
  Result := 'General';
end;

class function TfrViewConfiguracionGeneral.GetViewClass: TClass;
begin
  Result := TfrViewConfiguracionGeneral;
end;

procedure TfrViewConfiguracionGeneral.GuardarValores;
begin
  inherited;
  AppFactuGES.Configuracion.SetSettingAsString('MinPasswordLength', edtLongMinPass.Text);
  AppFactuGES.Configuracion.SetSettingAsString('MaxLoginAttempts', edtNumIntentos.Text);
  AppFactuGES.Configuracion.SetSettingAsBoolean('ForcePassword', cbPassObligatoria.Checked);
end;

end.