57 lines
1.5 KiB
ObjectPascal
57 lines
1.5 KiB
ObjectPascal
|
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.
|