david
32153cd070
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@5 9a1d36f3-7752-2d40-8ccb-50eb49674c68
73 lines
2.0 KiB
ObjectPascal
73 lines
2.0 KiB
ObjectPascal
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.
|