diff --git a/Source/ApplicationBase/Configuracion/Controller/Views/uIViewConfiguracionBase.dcu b/Source/ApplicationBase/Configuracion/Controller/Views/uIViewConfiguracionBase.dcu deleted file mode 100644 index b8bf8b47..00000000 Binary files a/Source/ApplicationBase/Configuracion/Controller/Views/uIViewConfiguracionBase.dcu and /dev/null differ diff --git a/Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.dcu b/Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.dcu deleted file mode 100644 index b089e34c..00000000 Binary files a/Source/ApplicationBase/Configuracion/Controller/uConfiguracionController.dcu and /dev/null differ diff --git a/Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dcu b/Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dcu deleted file mode 100644 index e4572445..00000000 Binary files a/Source/ApplicationBase/Configuracion/Views/uEditorConfiguracion.dcu and /dev/null differ diff --git a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionBase.dcu b/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionBase.dcu deleted file mode 100644 index decc0120..00000000 Binary files a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionBase.dcu and /dev/null differ diff --git a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dcu b/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dcu deleted file mode 100644 index 7e005776..00000000 Binary files a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dcu and /dev/null differ diff --git a/Source/Modulos/Contactos/Views/uContactosViewRegister.pas b/Source/Modulos/Contactos/Views/uContactosViewRegister.pas index 94aed26e..03b19b85 100644 --- a/Source/Modulos/Contactos/Views/uContactosViewRegister.pas +++ b/Source/Modulos/Contactos/Views/uContactosViewRegister.pas @@ -8,13 +8,14 @@ procedure UnregisterViews; implementation uses - uEditorRegistryUtils, + uEditorRegistryUtils, uViewConfiguracionRegistryUtils, uEditorClientes, uEditorProveedores, uEditorVendedores, uEditorElegirCLientes, uEditorCliente, uEditorProveedor, uEditorVendedor, uEditorElegirProveedores, uEditorDireccion, uEditorElegirVendedores, uEditorGruposCliente, uEditorProcedenciasCliente, - uEditorGruposProveedor, uEditorEtiquetasContactosReport; + uEditorGruposProveedor, uEditorEtiquetasContactosReport, + uViewConfiguracionContactos; procedure RegisterViews; begin @@ -37,6 +38,8 @@ begin EditorRegistry.RegisterClass(TfEditorGruposProveedor, 'EditorGruposProveedor'); EditorRegistry.RegisterClass(TfEditorEtiquetasContactosPreview, 'EditorEtiquetasContactosPreview'); + + ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionContactos, 'Contactos'); end; procedure UnregisterViews; @@ -60,6 +63,8 @@ begin EditorRegistry.UnRegisterClass(TfEditorGruposProveedor); EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview); + + ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionContactos); end; end. diff --git a/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm b/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm new file mode 100644 index 00000000..6daa61f8 --- /dev/null +++ b/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm @@ -0,0 +1,15 @@ +inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos + Height = 325 + ExplicitHeight = 325 + inherited Panel1: TPanel + Visible = False + inherited Label3: TLabel + Width = 429 + Caption = 'Configuraci'#243'n para clientes' + ExplicitWidth = 166 + end + end + inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel + LabelCaption = 'Configuraci'#243'n para contactos' + end +end diff --git a/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.pas b/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.pas new file mode 100644 index 00000000..fda78506 --- /dev/null +++ b/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.pas @@ -0,0 +1,56 @@ +unit uViewConfiguracionContactos; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewConfiguracionBase, JvExControls, JvGradientHeaderPanel, + StdCtrls, ExtCtrls, 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 + TfrViewConfiguracionContactos = class(TfrViewConfiguracionBase) + private + { Private declarations } + public + class function GetViewClass : TClass; override; + class function DarEtiqueta : String; override; + procedure CargarValores; override; + procedure GuardarValores; override; + end; + + +implementation + +{$R *.dfm} + +{ TfrViewConfiguracionBase1 } + +procedure TfrViewConfiguracionContactos.CargarValores; +begin + inherited; + // +end; + +class function TfrViewConfiguracionContactos.DarEtiqueta: String; +begin + Result := 'Contactos'; +end; + +class function TfrViewConfiguracionContactos.GetViewClass: TClass; +begin + Result := TfrViewConfiguracionContactos; +end; + +procedure TfrViewConfiguracionContactos.GuardarValores; +begin + inherited; + // +end; + +end.