Editor de previsualización

- 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

Source/GUIBase/uEditorPreview.pas

@@ -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;