unit uDialogOpcionesImpresionPresupuestosCliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls;

type
  TfDialogOpcionesImpresionPresupuestosCliente = class(TfDialogBase)
    cbVerPrecios: TCheckBox;
    cbVerTotales: TCheckBox;
    cbVerIncidencias: TCheckBox;
    cbVerObservaciones: TCheckBox;
    cbVerLogotipo: TCheckBox;
    cbVerTotalesCapitulos: TCheckBox;
    procedure actAceptarExecute(Sender: TObject);
    procedure actCancelarExecute(Sender: TObject);
  end;

  function ElegirOpcionesImpresionPresupuestoCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerTotalesCapitulos : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;

implementation

{$R *.dfm}

function ElegirOpcionesImpresionPresupuestoCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerTotalesCapitulos : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
var
  AEditor : TfDialogOpcionesImpresionPresupuestosCliente;
begin
  AEditor := TfDialogOpcionesImpresionPresupuestosCliente.Create(NIL);
  try
    AEditor.cbVerLogotipo.Checked := AVerLogotipo;
    AEditor.cbVerPrecios.Checked := AVerPrecios;
    AEditor.cbVerTotales.Checked := AVerTotales;
    AEditor.cbVerTotalesCapitulos.Checked := AVerTotalesCapitulos;
    AEditor.cbVerObservaciones.Checked := AVerObservaciones;
    AEditor.cbVerIncidencias.Checked := AVerIncidencias;


    Result := (AEditor.ShowModal = mrOk);
    if Result then
    begin
      AVerLogotipo := AEditor.cbVerLogotipo.Checked;
      AVerPrecios := AEditor.cbVerPrecios.Checked;
      AVerTotales := AEditor.cbVerTotales.Checked;
      AVerTotalesCapitulos := AEditor.cbVerTotalesCapitulos.Checked;
      AVerObservaciones := AEditor.cbVerObservaciones.Checked;
      AVerIncidencias := AEditor.cbVerIncidencias.Checked;
    end;

  finally
    AEditor.Release;
  end;
end;

procedure TfDialogOpcionesImpresionPresupuestosCliente.actAceptarExecute(Sender: TObject);
begin
  inherited;
  ModalResult := mrOk
end;

procedure TfDialogOpcionesImpresionPresupuestosCliente.actCancelarExecute(Sender: TObject);
begin
  inherited;
  ModalResult := mrCancel;
end;

end.