unit uEditorPreviewFacturaCliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl,
  frxClass, frxDMPExport, frxGradient, frxChBox, frxCross, frxRich,
  frxChart, frxOLE, frxBarcode, JvAppStorage, JvAppRegistryStorage,
  JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
  ActnList, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock,
  TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
  JvNavigationPane;

const
  CTE_TamLetraIni = 10;
  CTE_TamLetraMin = 5;
  CTE_TamLetraMax = 30;
  CTE_Aumento = 2;

type
  TfEditorPreviewFacturaCliente = class(TfEditorPreview)
    TBXItem38: TTBXItem;
    actAumentarTamLetra: TAction;
    TBXItem43: TTBXItem;
    actDisminuirTamLetra: TAction;
    procedure CustomEditorCreate(Sender: TObject);

    procedure actAumentarTamLetraExecute(Sender: TObject);
    procedure actDisminuirTamLetraExecute(Sender: TObject);
  private
    FCodigo: Integer;
    TamLetra: Integer;
  public
    property Codigo: Integer read FCodigo write FCodigo;
  end;

var
  fEditorPreviewFacturaCliente: TfEditorPreviewFacturaCliente;

implementation
{$R *.dfm}

uses uDataModuleFacturasCliente;

procedure TfEditorPreviewFacturaCliente.actAumentarTamLetraExecute(Sender: TObject);
begin
  //Si sale de los límites de tamaño de letra no hacemos nada
  if (TamLetra >= CTE_TamLetraMax) then
     Exit;

  TamLetra := TamLetra + CTE_Aumento;
  dmFacturasCliente.Refrescar(Self.Report, Codigo, TamLetra);
end;

procedure TfEditorPreviewFacturaCliente.CustomEditorCreate(Sender: TObject);
begin
  inherited;
  TamLetra := CTE_TamLetraIni;
end;

procedure TfEditorPreviewFacturaCliente.actDisminuirTamLetraExecute(Sender: TObject);
begin
  //Si sale de los límites de tamaño de letra no hacemos nada
  if (TamLetra <= CTE_TamLetraMin) then
     Exit;

  TamLetra := TamLetra - CTE_Aumento;
  dmFacturasCliente.Refrescar(Self.Report, Codigo, TamLetra);
end;

end.