david
d7b65d47a3
- Limpieza de código para NO usar skins de DevExpress?. git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@313 f4e31baf-9722-1c47-927c-6f952f962d4b
104 lines
2.9 KiB
ObjectPascal
104 lines
2.9 KiB
ObjectPascal
unit uViewConfiguracionGeneral;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewConfiguracionBase, StdCtrls, ExtCtrls, dxGDIPlusClasses,
|
|
JvExControls, JvGradientHeaderPanel, Mask,
|
|
|
|
|
|
|
|
|
|
|
|
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;
|
|
cbMostrarMenu: TCheckBox;
|
|
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, uDMBase;
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfrViewConfiguracionGeneral }
|
|
|
|
procedure TfrViewConfiguracionGeneral.CargarValores;
|
|
{var
|
|
ASkinName : String;}
|
|
begin
|
|
inherited;
|
|
edtLongMinPass.Text := AppFactuGES.Configuracion.GetSettingAsString('MinPasswordLength', '3');
|
|
edtNumIntentos.Text := AppFactuGES.Configuracion.GetSettingAsString('MaxLoginAttempts', '3');
|
|
cbPassObligatoria.Checked := AppFactuGES.Configuracion.GetSettingAsBoolean('ForcePassword', True);
|
|
|
|
cbMostrarMenu.Checked := AppFactuGES.Configuracion.GetSettingAsBoolean('MostrarBarraMenus', True);
|
|
|
|
{cbEsquemaColor.Items.Add('Usar estilo nativo de Windows');
|
|
cbEsquemaColor.Items.AddStrings(dmBase.DarListaSkins);
|
|
|
|
ASkinName := AppFactuGES.Configuracion.GetSettingAsString('SkinName', '');
|
|
if ASkinName = '' then
|
|
cbEsquemaColor.ItemIndex := 0
|
|
else
|
|
cbEsquemaColor.ItemIndex := cbEsquemaColor.Items.IndexOf(ASkinName);}
|
|
end;
|
|
|
|
class function TfrViewConfiguracionGeneral.DarEtiqueta: String;
|
|
begin
|
|
Result := 'General';
|
|
end;
|
|
|
|
class function TfrViewConfiguracionGeneral.GetViewClass: TClass;
|
|
begin
|
|
Result := TfrViewConfiguracionGeneral;
|
|
end;
|
|
|
|
procedure TfrViewConfiguracionGeneral.GuardarValores;
|
|
{var
|
|
ASkinName : String;}
|
|
begin
|
|
inherited;
|
|
AppFactuGES.Configuracion.SetSettingAsString('MinPasswordLength', edtLongMinPass.Text);
|
|
AppFactuGES.Configuracion.SetSettingAsString('MaxLoginAttempts', edtNumIntentos.Text);
|
|
AppFactuGES.Configuracion.SetSettingAsBoolean('ForcePassword', cbPassObligatoria.Checked);
|
|
|
|
AppFactuGES.Configuracion.SetSettingAsBoolean('MostrarBarraMenus', cbMostrarMenu.Checked);
|
|
|
|
{if cbEsquemaColor.ItemIndex = 0 then
|
|
ASkinName := ''
|
|
else
|
|
ASkinName := cbEsquemaColor.Text;
|
|
|
|
AppFactuGES.Configuracion.SetSettingAsString('SkinName', ASkinName);}
|
|
end;
|
|
|
|
end.
|