FactuGES2/Source/Modulos/Contactos/Views/uViewConfiguracionContactos.pas

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.