unit uEditorInstaladores;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uEditorContactos, Menus, DB, uDADataTable, JvAppStorage,
  JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
  PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems,
  TBX, TB2Item, TB2Dock, TB2Toolbar, JvExControls, JvNavigationPane,
  ExtCtrls, uCustomView, uViewBase, uViewBarraSeleccion, pngimage,
  JvComponentBase;

type
  IEditorInstaladores = interface(IEditorContactos)
  ['{D9A44463-036A-4AEF-88DC-2D61DEB4C837}']
  end;

  TfEditorInstaladores = class(TfEditorContactos, IEditorInstaladores)
    procedure actEliminarExecute(Sender: TObject);
  private
  protected
  public
    constructor Create(AOwner: TComponent); override;
  end;

var
  fEditorInstaladores: TfEditorInstaladores;

implementation

uses
  uEditorUtils, uBizContacto, uViewInstaladores, uViewContactos;

{$R *.dfm}

function ShowEditorInstaladores (ABizObject : TDADataTableRules) : TModalResult;
var
  AEditor: TfEditorInstaladores;
begin
  AEditor := TfEditorInstaladores.Create(Application);
  try
    AEditor.Contactos := (ABizObject as IBizInstalador);
    Result := AEditor.ShowModal;
  finally
    AEditor.Release;
  end;
end;


{ TfEditorInstaladores }

constructor TfEditorInstaladores.Create(AOwner: TComponent);
begin
  inherited;
  ViewGrid := CreateView(TfrViewInstaladores) as IViewContactos;
end;

procedure TfEditorInstaladores.actEliminarExecute(Sender: TObject);
begin
  if (Application.MessageBox('¿Desea borrar este instalador?', 'Atención', MB_YESNO) = IDYES) then
  begin
    inherited;
    ViewGrid.RefreshGrid;
  end;

end;

initialization
  RegisterEditor(IBizInstalador, ShowEditorInstaladores, etItems);

finalization

end.