diff --git a/Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.pas b/Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.pas
index 64903ca2..9ebe67bc 100644
--- a/Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.pas
+++ b/Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.pas
@@ -16,6 +16,7 @@ type
IConfiguracionController = interface(IControllerBase)
['{F29215BA-0D34-4AE9-B9A9-C80ABF49A81D}']
procedure ConfigurarAplicacion;
+ procedure AplicarConfiguracion;
procedure SalvarConfiguracion;
procedure CargarConfiguracion;
@@ -35,6 +36,7 @@ type
FAppXMLFileStorage : TJvAppXMLFileStorage;
public
procedure SalvarConfiguracion;
+ procedure AplicarConfiguracion;
procedure CargarConfiguracion;
procedure ConfigurarAplicacion;
@@ -55,7 +57,7 @@ type
implementation
uses
- Forms, uEditorConfiguracion, uViewConfiguracionGeneral,
+ Forms, uEditorConfiguracion, uViewConfiguracionGeneral, uDMBase,
JvAppStorage, uAppInfoUtils, Controls, uViewConfiguracionRegistryUtils;
const
@@ -63,6 +65,11 @@ const
{ TGestorConfiguracion }
+procedure TConfiguracionController.AplicarConfiguracion;
+begin
+ //
+end;
+
procedure TConfiguracionController.CargarConfiguracion;
begin
FAppXMLFileStorage.Reload;
diff --git a/Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dfm b/Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dfm
index e24562a9..1e6bad15 100644
--- a/Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dfm
+++ b/Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dfm
@@ -61,6 +61,7 @@ object fConfiguracionEditor: TfConfiguracionEditor
Width = 75
Height = 25
Anchors = [akTop, akRight]
+ Cancel = True
Caption = '&Cancelar'
ModalResult = 2
TabOrder = 0
diff --git a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm b/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm
index e332c2b1..2cb891ee 100644
--- a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm
+++ b/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm
@@ -1,4 +1,5 @@
inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
+ Height = 375
inherited Panel1: TPanel
inherited Label3: TLabel
Width = 429
@@ -9,7 +10,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
object Panel2: TPanel
AlignWithMargins = True
Left = 5
- Top = 109
+ Top = 142
Width = 441
Height = 22
Margins.Left = 5
@@ -34,6 +35,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
ParentBackground = False
ParentFont = False
TabOrder = 2
+ ExplicitTop = 109
object Label2: TLabel
Left = 6
Top = 4
@@ -49,7 +51,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
Left = 5
Top = 68
Width = 441
- Height = 41
+ Height = 74
Margins.Left = 5
Margins.Top = 0
Margins.Right = 5
@@ -61,24 +63,34 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
object Label1: TLabel
Left = 17
Top = 14
- Width = 88
+ Width = 54
Height = 13
- Caption = 'Esquema de color:'
+ Caption = 'Apariencia:'
+ Visible = False
end
object cbEsquemaColor: TComboBox
- Left = 111
+ Left = 77
Top = 11
- Width = 168
+ Width = 202
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
+ Visible = False
+ end
+ object cbMostrarMenu: TCheckBox
+ Left = 17
+ Top = 43
+ Width = 262
+ Height = 17
+ Caption = 'Mostrar siempre men'#250' principal'
+ TabOrder = 1
end
end
object Panel4: TPanel
AlignWithMargins = True
Left = 5
- Top = 131
+ Top = 164
Width = 441
Height = 72
Margins.Left = 5
@@ -89,6 +101,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
BevelOuter = bvNone
ParentColor = True
TabOrder = 4
+ ExplicitTop = 131
object Label4: TLabel
Left = 17
Top = 43
@@ -126,7 +139,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
object Panel5: TPanel
AlignWithMargins = True
Left = 5
- Top = 203
+ Top = 236
Width = 441
Height = 22
Margins.Left = 5
@@ -151,6 +164,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
ParentBackground = False
ParentFont = False
TabOrder = 5
+ ExplicitTop = 203
object Label5: TLabel
Left = 6
Top = 4
@@ -164,7 +178,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
object Panel6: TPanel
AlignWithMargins = True
Left = 5
- Top = 225
+ Top = 258
Width = 441
Height = 72
Margins.Left = 5
@@ -175,6 +189,7 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral
BevelOuter = bvNone
ParentColor = True
TabOrder = 6
+ ExplicitTop = 225
object lblLongMinPass: TLabel
Left = 17
Top = 43
diff --git a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.pas b/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.pas
index 03b2c868..bbcdcc4d 100644
--- a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.pas
+++ b/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.pas
@@ -31,6 +31,7 @@ type
lblLongMinPass: TLabel;
cbPassObligatoria: TCheckBox;
edtLongMinPass: TcxSpinEdit;
+ cbMostrarMenu: TCheckBox;
private
{ Private declarations }
public
@@ -43,18 +44,31 @@ type
implementation
uses
- uFactuGES_App;
+ 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;
@@ -68,11 +82,22 @@ begin
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.
diff --git a/Source/Cliente/FactuGES.bdsproj b/Source/Cliente/FactuGES.bdsproj
index 48e333ed..8ef2f326 100644
--- a/Source/Cliente/FactuGES.bdsproj
+++ b/Source/Cliente/FactuGES.bdsproj
@@ -126,7 +126,6 @@
..\Lib;..\Modulos\Lib
PluginSDK_D10R;GUISDK_D10;DataAbstract_D10;Base;GUIBase;Usuarios;Contactos_plugin;Empresas_plugin;Empresas_controller;Empresas_model;rtl
_VER6;EUREKALOG;EUREKALOG_VER6
- T:\Codigo (Luis Leon)\Source\Modulos\Pedidos de cliente\Controller\
True
@@ -142,7 +141,6 @@
$00000000
- C:\Archivos de programa\Borland\Delphi7\Bin\
True
@@ -177,506 +175,4 @@
File c:\archivos de programa\borland\delphi10\Bin\dclie100.bpl not found
-
diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr
index 6eaa1e4d..2fc4ce63 100644
--- a/Source/Cliente/FactuGES.dpr
+++ b/Source/Cliente/FactuGES.dpr
@@ -10,13 +10,11 @@ uses
uMenuUtils in 'Utiles\uMenuUtils.pas',
uSplash in 'uSplash.pas' {SplashScreen},
uAcercaDe in 'uAcercaDe.pas',
- udxNavPaneController in 'udxNavPaneController.pas',
uNavPaneUtils in 'Utiles\uNavPaneUtils.pas',
uMainMenuController in 'uMainMenuController.pas',
uClienteUtils in 'Utiles\uClienteUtils.pas',
uBootStrap in 'uBootStrap.pas',
VCLFlickerReduce in 'Utiles\VCLFlickerReduce.pas',
- uPantallaPrincipal2 in 'uPantallaPrincipal2.pas' {fPantallaPrincipal2},
uNavPaneController in 'uNavPaneController.pas';
{$R *.res}
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index a30c7948..cdffa8da 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -57,15 +57,6 @@
-
-
-
-
-
-
-
-
-
RemObjects Data Abstract - SQLite Driver
Microsoft Office 2000 Sample Automation Server Wrapper Components
Microsoft Office XP Sample Automation Server Wrapper Components
@@ -78,15 +69,11 @@
-
-
-
-
@@ -97,6 +84,7 @@
+
diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res
index 1641339f..8b251f31 100644
Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 3604f823..7ac5e1c7 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 418218c3..df9f0e4c 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.2.3.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.2.3.0\0"
- VALUE "CompileDate", "miércoles, 23 de julio de 2008 17:05\0"
+ VALUE "CompileDate", "jueves, 24 de julio de 2008 16:18\0"
END
END
BLOCK "VarFileInfo"