unit uEditorPreviewPresupuesto;

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
  TfEditorPreviewPresupuesto = 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
  fEditorPreviewPresupuesto: TfEditorPreviewPresupuesto;

implementation
{$R *.dfm}

uses uDataModulePresupuestos;

procedure TfEditorPreviewPresupuesto.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;
  dmPresupuestos.Refrescar(Self.Report, Codigo, TamLetra);
end;

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

procedure TfEditorPreviewPresupuesto.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;
  dmPresupuestos.Refrescar(Self.Report, Codigo, TamLetra);
end;

end.