Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Editor de previsualización

Browse Source 
- 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
This commit is contained in:
David Arranz 2007-12-20 09:59:12 +00:00
parent c63c60654a
commit 05d73bd406
2 changed files with 1784 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1723
Source/GUIBase/uEditorPreview.dfm
View File

File diff suppressed because it is too large Load Diff

97
Source/GUIBase/uEditorPreview.pas
View File

@ -10,17 +10,24 @@ uses
JvFormAutoSize, JvAppStorage, JvAppRegistryStorage, JvFormPlacement,
pngimage, frxExportImage, frxExportPDF, frxDCtrl, frxDMPExport,
frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode,
ExtCtrls, JvComponentBase, TBXStatusBars, JvExComCtrls, JvStatusBar;
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;
procedure Preview;
end;
TfEditorPreview = class(TfEditorBase, IEditorPreview)
@ -59,7 +66,6 @@ type
frxCrossObject1: TfrxCrossObject;
frxCheckBoxObject1: TfrxCheckBoxObject;
frxGradientObject1: TfrxGradientObject;
frxDotMatrixExport1: TfrxDotMatrixExport;
frxDialogControls1: TfrxDialogControls;
frxTIFFExport1: TfrxTIFFExport;
frxPDFExport1: TfrxPDFExport;
@ -78,6 +84,27 @@ type
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);
@ -97,16 +124,24 @@ type
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;
@ -131,6 +166,11 @@ begin
end;
function TfEditorPreview.GetTitle: string;
begin
Result := Self.Caption;
end;
procedure TfEditorPreview.FormShow(Sender: TObject);
begin
inherited;
@ -220,12 +260,54 @@ begin
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;
@ -321,6 +403,11 @@ begin
Enabled := True;
end;
procedure TfEditorPreview.SetTitle(const Value: string);
begin
Self.Caption := 'Previsualizar - ' + Value;
end;
function TfEditorPreview.ExportToFile: String;
var
AFile : String;