david
05d73bd406
- Miniaturas - Acciones para exportar el informe. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@180 0c75b7a4-871f-7646-8a2f-f78d34cc349f
443 lines
12 KiB
ObjectPascal
443 lines
12 KiB
ObjectPascal
unit uEditorPreview;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uEditorBase, ImgList, PngImageList, StdActns, ActnList, TBX,
|
|
TB2Item, TB2Dock, TB2Toolbar, JvExControls, JvComponent, JvNavigationPane,
|
|
TB2ExtItems, TBXExtItems, uViewPreview, frxClass, ComCtrls, frxPreview,
|
|
JvFormAutoSize, JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
|
|
pngimage, frxExportImage, frxExportPDF, frxDCtrl, frxDMPExport,
|
|
frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode,
|
|
ExtCtrls, JvComponentBase, TBXStatusBars, JvExComCtrls, JvStatusBar,
|
|
frxExportMail, frxExportXLS, frxExportText, frxExportRTF;
|
|
|
|
type
|
|
IEditorPreview = interface(IEditorBase)
|
|
['{43934C3E-2776-4F9E-9292-FB0D7DE2E4DA}']
|
|
function GetReport: TfrxReport;
|
|
property Report: TfrxReport read GetReport;
|
|
|
|
procedure SetTitle(const Value: string);
|
|
function GetTitle: string;
|
|
property Title: string read GetTitle write SetTitle;
|
|
|
|
procedure LoadFromStream(AStream : TStream);
|
|
function ExportToFile : String;
|
|
procedure Print;
|
|
procedure Preview;
|
|
|
|
end;
|
|
|
|
TfEditorPreview = class(TfEditorBase, IEditorPreview)
|
|
TBXToolbar1: TTBXToolbar;
|
|
TBXItem33: TTBXItem;
|
|
TBXItem34: TTBXItem;
|
|
TBXItem39: TTBXItem;
|
|
TBXSeparatorItem16: TTBXSeparatorItem;
|
|
cbZoom: TTBXComboBoxItem;
|
|
PreviewActionList: TActionList;
|
|
PreviewSmallImageList: TPngImageList;
|
|
PreviewLargeImageList: TPngImageList;
|
|
actPrimeraPagina: TAction;
|
|
actUltimaPagina: TAction;
|
|
actPaginaAnterior: TAction;
|
|
actPaginaSiguiente: TAction;
|
|
TBXItem36: TTBXItem;
|
|
actZoomIn: TAction;
|
|
actZoomOut: TAction;
|
|
actTodaPagina: TAction;
|
|
actAnchoPagina: TAction;
|
|
TBXSeparatorItem17: TTBXSeparatorItem;
|
|
TBXItem37: TTBXItem;
|
|
TBXItem40: TTBXItem;
|
|
TBXItem41: TTBXItem;
|
|
TBXItem42: TTBXItem;
|
|
frxReport1: TfrxReport;
|
|
actToolHand: TAction;
|
|
actToolZoom: TAction;
|
|
tbxZoom: TTBXItem;
|
|
tbxMano: TTBXItem;
|
|
TBXSeparatorItem18: TTBXSeparatorItem;
|
|
frxBarCodeObject1: TfrxBarCodeObject;
|
|
frxOLEObject1: TfrxOLEObject;
|
|
frxRichObject1: TfrxRichObject;
|
|
frxCrossObject1: TfrxCrossObject;
|
|
frxCheckBoxObject1: TfrxCheckBoxObject;
|
|
frxGradientObject1: TfrxGradientObject;
|
|
frxDialogControls1: TfrxDialogControls;
|
|
frxTIFFExport1: TfrxTIFFExport;
|
|
frxPDFExport1: TfrxPDFExport;
|
|
frxBMPExport1: TfrxBMPExport;
|
|
TBXItem38: TTBXItem;
|
|
TBXSeparatorItem19: TTBXSeparatorItem;
|
|
TBXItem43: TTBXItem;
|
|
TBXItem44: TTBXItem;
|
|
TBXItem45: TTBXItem;
|
|
TBXItem46: TTBXItem;
|
|
TBXItem47: TTBXItem;
|
|
TBXSubmenuItem2: TTBXSubmenuItem;
|
|
TBXItem48: TTBXItem;
|
|
TBXSubmenuItem3: TTBXSubmenuItem;
|
|
TBXItem49: TTBXItem;
|
|
TBXItem50: TTBXItem;
|
|
TBXItem7: TTBXItem;
|
|
TBXItem35: TTBXItem;
|
|
actMiniaturas: TAction;
|
|
TBXSeparatorItem6: TTBXSeparatorItem;
|
|
TBXSeparatorItem14: TTBXSeparatorItem;
|
|
TBXItem51: TTBXItem;
|
|
TBXItem52: TTBXItem;
|
|
actExportarPDF: TAction;
|
|
TBXSubmenuItem8: TTBXSubmenuItem;
|
|
TBXItem53: TTBXItem;
|
|
TBXSeparatorItem20: TTBXSeparatorItem;
|
|
actExportarRTF: TAction;
|
|
frxXLSExport1: TfrxXLSExport;
|
|
frxMailExport1: TfrxMailExport;
|
|
actExportarExcel: TAction;
|
|
actExportarCorreo: TAction;
|
|
frxRTFExport: TfrxRTFExport;
|
|
frxSimpleTextExport1: TfrxSimpleTextExport;
|
|
actExportarTexto: TAction;
|
|
TBXItem54: TTBXItem;
|
|
TBXItem55: TTBXItem;
|
|
TBXItem56: TTBXItem;
|
|
TBXItem57: TTBXItem;
|
|
procedure FormShow(Sender: TObject);
|
|
procedure actPrimeraPaginaExecute(Sender: TObject);
|
|
procedure actUltimaPaginaExecute(Sender: TObject);
|
|
procedure actPaginaAnteriorExecute(Sender: TObject);
|
|
procedure actPaginaSiguienteExecute(Sender: TObject);
|
|
procedure actZoomInExecute(Sender: TObject);
|
|
procedure actTodaPaginaExecute(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure FormResize(Sender: TObject);
|
|
procedure actImprimirExecute(Sender: TObject);
|
|
procedure actAnchoPaginaExecute(Sender: TObject);
|
|
procedure actZoomOutExecute(Sender: TObject);
|
|
procedure cbZoomItemClick(Sender: TObject);
|
|
procedure actToolHandExecute(Sender: TObject);
|
|
procedure actToolZoomExecute(Sender: TObject);
|
|
procedure actPaginaSiguienteUpdate(Sender: TObject);
|
|
procedure actUltimaPaginaUpdate(Sender: TObject);
|
|
procedure actPrimeraPaginaUpdate(Sender: TObject);
|
|
procedure actPaginaAnteriorUpdate(Sender: TObject);
|
|
procedure actMiniaturasExecute(Sender: TObject);
|
|
procedure actExportarPDFExecute(Sender: TObject);
|
|
procedure actConfPaginaExecute(Sender: TObject);
|
|
procedure actExportarExcelExecute(Sender: TObject);
|
|
procedure actExportarCorreoExecute(Sender: TObject);
|
|
procedure actExportarRTFExecute(Sender: TObject);
|
|
procedure actExportarTextoExecute(Sender: TObject);
|
|
private
|
|
FPreview : TfrViewPreview;
|
|
procedure OnPageChanged(Sender: TfrxPreview; PageNo: Integer);
|
|
procedure UpdateZoom;
|
|
protected
|
|
function GetReport: TfrxReport; virtual;
|
|
procedure SetTitle(const Value: string);
|
|
function GetTitle: string;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
property Title: string read GetTitle write SetTitle;
|
|
property Report: TfrxReport read GetReport;
|
|
procedure Print;
|
|
procedure Preview;
|
|
procedure LoadFromStream(AStream : TStream);
|
|
function ExportToFile : String;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
uses
|
|
frxRes, frxUtils, frxPrinter,
|
|
uCustomEditor, uSistemaFunc;
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfEditorBase1 }
|
|
|
|
function TfEditorPreview.GetReport: TfrxReport;
|
|
begin
|
|
Result := frxReport1;
|
|
end;
|
|
|
|
|
|
function TfEditorPreview.GetTitle: string;
|
|
begin
|
|
Result := Self.Caption;
|
|
end;
|
|
|
|
procedure TfEditorPreview.FormShow(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
UpdateZoom;
|
|
actPrimeraPagina.Execute;
|
|
FPreview.ShowEmbedded(Self);
|
|
Report.ShowPreparedReport;
|
|
actAnchoPagina.Execute;
|
|
end;
|
|
|
|
procedure TfEditorPreview.actPrimeraPaginaExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.First;
|
|
end;
|
|
|
|
procedure TfEditorPreview.actPrimeraPaginaUpdate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
(Sender as TAction).Enabled := (FPreview.Preview.PageNo > 1);
|
|
end;
|
|
|
|
procedure TfEditorPreview.actUltimaPaginaExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.Last;
|
|
end;
|
|
|
|
procedure TfEditorPreview.actUltimaPaginaUpdate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
(Sender as TAction).Enabled := (FPreview.Preview.PageNo < FPreview.Preview.PageCount);
|
|
end;
|
|
|
|
procedure TfEditorPreview.actPaginaAnteriorExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.Prior;
|
|
end;
|
|
|
|
procedure TfEditorPreview.actPaginaAnteriorUpdate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
(Sender as TAction).Enabled := (FPreview.Preview.PageNo > 1);
|
|
end;
|
|
|
|
procedure TfEditorPreview.actPaginaSiguienteExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.Next;
|
|
end;
|
|
|
|
procedure TfEditorPreview.actPaginaSiguienteUpdate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
(Sender as TAction).Enabled := (FPreview.Preview.PageNo < FPreview.Preview.PageCount);
|
|
end;
|
|
|
|
procedure TfEditorPreview.actZoomInExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.Zoom := FPreview.Preview.Zoom + 0.25;
|
|
UpdateZoom;
|
|
end;
|
|
|
|
procedure TfEditorPreview.UpdateZoom;
|
|
begin
|
|
cbZoom.Text := IntToStr(Round(FPreview.Preview.Zoom * 100)) + '%';
|
|
end;
|
|
|
|
procedure TfEditorPreview.actTodaPaginaExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.ZoomMode := zmWholePage;
|
|
UpdateZoom;
|
|
end;
|
|
|
|
procedure TfEditorPreview.FormDestroy(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FreeAndNil(FPreview);
|
|
end;
|
|
|
|
procedure TfEditorPreview.FormResize(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
UpdateZoom;
|
|
end;
|
|
|
|
procedure TfEditorPreview.actConfPaginaExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.PageSetupDlg;
|
|
end;
|
|
|
|
procedure TfEditorPreview.actExportarCorreoExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.Export(frxMailExport1);
|
|
end;
|
|
|
|
procedure TfEditorPreview.actExportarExcelExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.Export(frxXLSExport1);
|
|
end;
|
|
|
|
procedure TfEditorPreview.actExportarPDFExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.Export(frxPDFExport1);
|
|
end;
|
|
|
|
procedure TfEditorPreview.actExportarRTFExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.Export(frxRTFExport);
|
|
end;
|
|
|
|
procedure TfEditorPreview.actExportarTextoExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.Export(frxSimpleTextExport1);
|
|
end;
|
|
|
|
procedure TfEditorPreview.actImprimirExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
Print;
|
|
end;
|
|
|
|
procedure TfEditorPreview.actMiniaturasExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.ThumbnailVisible := actMiniaturas.Checked;
|
|
end;
|
|
|
|
procedure TfEditorPreview.actAnchoPaginaExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.ZoomMode := zmPageWidth;
|
|
UpdateZoom;
|
|
end;
|
|
|
|
procedure TfEditorPreview.actZoomOutExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FPreview.Preview.Zoom := FPreview.Preview.Zoom - 0.25;
|
|
UpdateZoom;
|
|
end;
|
|
|
|
procedure TfEditorPreview.cbZoomItemClick(Sender: TObject);
|
|
var
|
|
s: String;
|
|
begin
|
|
FPreview.Preview.SetFocus;
|
|
|
|
if cbZoom.ItemIndex = 6 then
|
|
actAnchoPagina.Execute
|
|
else if cbZoom.ItemIndex = 7 then
|
|
actTodaPagina.Execute
|
|
else
|
|
begin
|
|
s := cbZoom.Text;
|
|
|
|
if Pos('%', s) <> 0 then
|
|
s[Pos('%', s)] := ' ';
|
|
while Pos(' ', s) <> 0 do
|
|
Delete(s, Pos(' ', s), 1);
|
|
|
|
if s <> '' then
|
|
FPreview.Preview.Zoom := frxStrToFloat(s) / 100;
|
|
end;
|
|
|
|
UpdateZoom;
|
|
end;
|
|
|
|
procedure TfEditorPreview.actToolHandExecute(Sender: TObject);
|
|
begin
|
|
if tbxMano.Checked then
|
|
FPreview.Preview.Tool := ptHand
|
|
end;
|
|
|
|
procedure TfEditorPreview.actToolZoomExecute(Sender: TObject);
|
|
begin
|
|
if tbxZoom.Checked then
|
|
FPreview.Preview.Tool := ptZoom;
|
|
end;
|
|
|
|
procedure TfEditorPreview.OnPageChanged(Sender: TfrxPreview;
|
|
PageNo: Integer);
|
|
begin
|
|
StatusBar.Panels[0].Text := Format(frxResources.Get('clPageOf'),
|
|
[PageNo, Sender.PageCount]);
|
|
end;
|
|
|
|
constructor TfEditorPreview.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
|
|
with cbZoom.Strings do
|
|
begin
|
|
Clear;
|
|
Add('25%');
|
|
Add('50%');
|
|
Add('75%');
|
|
Add('100%');
|
|
Add('150%');
|
|
Add('200%');
|
|
Add(frxResources.Get('zmPageWidth'));
|
|
Add(frxResources.Get('zmWholePage'));
|
|
end;
|
|
|
|
FPreview := TfrViewPreview.Create(Self);
|
|
Report.Preview := FPreview.Preview;
|
|
FPreview.Preview.OnPageChanged := OnPageChanged;
|
|
end;
|
|
|
|
procedure TfEditorPreview.Preview;
|
|
begin
|
|
Self.ShowModal;
|
|
end;
|
|
|
|
procedure TfEditorPreview.Print;
|
|
begin
|
|
if not frxPrinters.HasPhysicalPrinters then
|
|
frxErrorMsg(frxResources.Get('clNoPrinters'))
|
|
else
|
|
FPreview.Preview.Print;
|
|
Enabled := True;
|
|
end;
|
|
|
|
procedure TfEditorPreview.SetTitle(const Value: string);
|
|
begin
|
|
Self.Caption := 'Previsualizar - ' + Value;
|
|
end;
|
|
|
|
function TfEditorPreview.ExportToFile: String;
|
|
var
|
|
AFile : String;
|
|
begin
|
|
Result := '';
|
|
AFile := DarFicheroTIFFTemporal;
|
|
frxTIFFExport1.SeparateFiles := False;
|
|
frxTIFFExport1.DefaultPath := ExtractFilePath(AFile);
|
|
frxTIFFExport1.FileName := ExtractFileName(AFile);
|
|
try
|
|
if Report.Export(frxTIFFExport1) then
|
|
Result := AFile;
|
|
finally
|
|
frxTIFFExport1.DefaultPath := '';
|
|
frxTIFFExport1.FileName := '';
|
|
end;
|
|
end;
|
|
|
|
procedure TfEditorPreview.LoadFromStream(AStream: TStream);
|
|
begin
|
|
Report.PreviewPages.LoadFromStream(AStream);
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterClass(TfEditorPreview);
|
|
|
|
finalization
|
|
UnRegisterClass(TfEditorPreview);
|
|
|
|
end.
|
|
|