david
960b25140d
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@55 05c56307-c608-d34a-929d-697000501d7a
334 lines
14 KiB
ObjectPascal
334 lines
14 KiB
ObjectPascal
{*******************************************************************}
|
|
{ }
|
|
{ Developer Express Visual Component Library }
|
|
{ ExpressPrinting System COMPONENT SUITE }
|
|
{ }
|
|
{ Copyright (C) 1998-2009 Developer Express Inc. }
|
|
{ ALL RIGHTS RESERVED }
|
|
{ }
|
|
{ The entire contents of this file is protected by U.S. and }
|
|
{ International Copyright Laws. Unauthorized reproduction, }
|
|
{ reverse-engineering, and distribution of all or any portion of }
|
|
{ the code contained in this file is strictly prohibited and may }
|
|
{ result in severe civil and criminal penalties and will be }
|
|
{ prosecuted to the maximum extent possible under the law. }
|
|
{ }
|
|
{ RESTRICTIONS }
|
|
{ }
|
|
{ THIS SOURCE CODE AND ALL RESULTING INTERMEDIATE FILES }
|
|
{ (DCU, OBJ, DLL, ETC.) ARE CONFIDENTIAL AND PROPRIETARY TRADE }
|
|
{ SECRETS OF DEVELOPER EXPRESS INC. THE REGISTERED DEVELOPER IS }
|
|
{ LICENSED TO DISTRIBUTE THE EXPRESSPRINTINGSYSTEM AND }
|
|
{ ALL ACCOMPANYING VCL CONTROLS AS PART OF AN }
|
|
{ EXECUTABLE PROGRAM ONLY. }
|
|
{ }
|
|
{ THE SOURCE CODE CONTAINED WITHIN THIS FILE AND ALL RELATED }
|
|
{ FILES OR ANY PORTION OF ITS CONTENTS SHALL AT NO TIME BE }
|
|
{ COPIED, TRANSFERRED, SOLD, DISTRIBUTED, OR OTHERWISE MADE }
|
|
{ AVAILABLE TO OTHER INDIVIDUALS WITHOUT EXPRESS WRITTEN CONSENT }
|
|
{ AND PERMISSION FROM DEVELOPER EXPRESS INC. }
|
|
{ }
|
|
{ CONSULT THE END USER LICENSE AGREEMENT FOR INFORMATION ON }
|
|
{ ADDITIONAL RESTRICTIONS. }
|
|
{ }
|
|
{*******************************************************************}
|
|
|
|
unit dxPSPDFExportDialog;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, dxPSPDFExport, dxPSCore, dxPSEngn, dxPSGlbl, dxPrnDlg, cxTextEdit,
|
|
StdCtrls, cxRadioGroup, cxControls, cxContainer, cxEdit, cxLabel, cxClasses,
|
|
cxLookAndFeelPainters, cxGroupBox, cxPC, cxCheckBox, cxTrackBar, Menus,
|
|
cxButtons, dxPSRes, dxPSForm, dxPSPDFExportCore, cxGraphics, cxMaskEdit,
|
|
cxDropDownEdit, cxLookAndFeels;
|
|
|
|
type
|
|
|
|
{ TdxPSPDFExportDialogForm }
|
|
|
|
TdxPSPDFExportDialogForm = class(TCustomdxPSForm)
|
|
btnCancel: TcxButton;
|
|
btnOk: TcxButton;
|
|
cbCompressed: TcxCheckBox;
|
|
cbEmbedFonts: TcxCheckBox;
|
|
cbJpgCompress: TcxCheckBox;
|
|
cbOpenAfterExport: TcxCheckBox;
|
|
cxPageControl: TcxPageControl;
|
|
edPageRanges: TcxTextEdit;
|
|
gbExportSettings: TcxGroupBox;
|
|
lbAuthor: TcxLabel;
|
|
lbCreator: TcxLabel;
|
|
lbKeywords: TcxLabel;
|
|
lbDescription: TcxLabel;
|
|
lbMaxCompression: TcxLabel;
|
|
lbMaxQuality: TcxLabel;
|
|
lbSubject: TcxLabel;
|
|
lbTitle: TcxLabel;
|
|
rbtnAllPages: TcxRadioButton;
|
|
rbtnCurrentPage: TcxRadioButton;
|
|
rbtnPageRanges: TcxRadioButton;
|
|
tbJpgCompression: TcxTrackBar;
|
|
tbsExport: TcxTabSheet;
|
|
tbsPageRange: TcxTabSheet;
|
|
teAuthor: TcxTextEdit;
|
|
teCreator: TcxTextEdit;
|
|
teKeywords: TcxTextEdit;
|
|
teSubject: TcxTextEdit;
|
|
teTitle: TcxTextEdit;
|
|
tbsDocInfo: TcxTabSheet;
|
|
cbUseCIDFonts: TcxCheckBox;
|
|
tbsSecurity: TcxTabSheet;
|
|
gbSecuritySettings: TcxGroupBox;
|
|
cbAllowChanging: TcxCheckBox;
|
|
cbAllowPrinting: TcxCheckBox;
|
|
cbAllowComments: TcxCheckBox;
|
|
cbAllowContentCopying: TcxCheckBox;
|
|
cbSecurityEnable: TcxCheckBox;
|
|
lbUserPassword: TcxLabel;
|
|
edUserPassword: TcxTextEdit;
|
|
lbOwnerPassword: TcxLabel;
|
|
edOwnerPassword: TcxTextEdit;
|
|
cbAllowDocumentAssembly: TcxCheckBox;
|
|
cbAllowPrintingHiResolution: TcxCheckBox;
|
|
lbMethod: TcxLabel;
|
|
cbxMethod: TcxComboBox;
|
|
procedure cbJpgCompressClick(Sender: TObject);
|
|
procedure rbtnPageRangesClick(Sender: TObject);
|
|
procedure edPageRangesKeyPress(Sender: TObject; var Key: Char);
|
|
procedure cbSecurityEnableClick(Sender: TObject);
|
|
procedure cbxMethodPropertiesChange(Sender: TObject);
|
|
protected
|
|
function GetPageRanges: TdxPageRanges;
|
|
procedure LoadSecurityOptions(AOptions: TdxPSPDFSecurityOptions);
|
|
procedure SaveSecurityOptions(AOptions: TdxPSPDFSecurityOptions);
|
|
procedure SetPageRanges(AValue: TdxPageRanges);
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
function IsShortCut(var Message: TWMKey): Boolean; override;
|
|
procedure LoadOptions(AOptions: TdxPSPDFReportExportOptions);
|
|
procedure LoadTranslation;
|
|
procedure SaveOptions(AOptions: TdxPSPDFReportExportOptions);
|
|
//
|
|
property PageRanges: TdxPageRanges read GetPageRanges write SetPageRanges;
|
|
end;
|
|
|
|
function dxPSShowPDFSettingsDialog(AOptions: TdxPSPDFReportExportOptions;
|
|
AIsDesignTime: Boolean = False): Boolean;
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
function dxPSShowPDFSettingsDialog(AOptions: TdxPSPDFReportExportOptions;
|
|
AIsDesignTime: Boolean = False): Boolean;
|
|
begin
|
|
with TdxPSPDFExportDialogForm.Create(nil) do
|
|
try
|
|
tbsPageRange.TabVisible := not AIsDesignTime;
|
|
LoadOptions(AOptions);
|
|
Result := ShowModal = mrOk;
|
|
if Result then
|
|
SaveOptions(AOptions);
|
|
finally
|
|
Free;
|
|
end;
|
|
end;
|
|
|
|
{ TdxPSPDFExportDialogForm }
|
|
|
|
constructor TdxPSPDFExportDialogForm.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
cbSecurityEnableClick(nil);
|
|
LoadTranslation;
|
|
end;
|
|
|
|
procedure TdxPSPDFExportDialogForm.cbSecurityEnableClick(Sender: TObject);
|
|
var
|
|
I: Integer;
|
|
begin
|
|
for I := 0 to gbSecuritySettings.ControlCount - 1 do
|
|
gbSecuritySettings.Controls[I].Enabled := cbSecurityEnable.Checked;
|
|
end;
|
|
|
|
procedure TdxPSPDFExportDialogForm.cbxMethodPropertiesChange(Sender: TObject);
|
|
begin
|
|
cbAllowDocumentAssembly.Visible := cbxMethod.ItemIndex = 1;
|
|
cbAllowPrintingHiResolution.Visible := cbxMethod.ItemIndex = 1;
|
|
end;
|
|
|
|
procedure TdxPSPDFExportDialogForm.LoadTranslation;
|
|
begin
|
|
gbExportSettings.Caption := cxGetResourceString(@sdxPDFDialogExportSettings);
|
|
|
|
tbsExport.Caption := cxGetResourceString(@sdxPDFDialogTabExport);
|
|
tbsDocInfo.Caption := cxGetResourceString(@sdxPDFDialogTabDocInfo);
|
|
tbsPageRange.Caption := cxGetResourceString(@sdxPDFDialogTabPages);
|
|
tbsSecurity.Caption := cxGetResourceString(@sdxPDFDialogTabSecurity);
|
|
|
|
cbCompressed.Caption := cxGetResourceString(@sdxPDFDialogCompressed);
|
|
cbEmbedFonts.Caption := cxGetResourceString(@sdxPDFDialogEmbedFonts);
|
|
cbJpgCompress.Caption := cxGetResourceString(@sdxPDFDialogUseJPEGCompression);
|
|
cbOpenAfterExport.Caption := cxGetResourceString(@sdxPDFDialogOpenAfterExport);
|
|
cbUseCIDFonts.Caption := cxGetResourceString(@sdxPDFDialogUseCIDFonts);
|
|
|
|
lbAuthor.Caption := cxGetResourceString(@sdxPDFDialogAuthor);
|
|
lbCreator.Caption := cxGetResourceString(@sdxPDFDialogCreator);
|
|
lbKeywords.Caption := cxGetResourceString(@sdxPDFDialogKeywords);
|
|
lbMaxCompression.Caption := cxGetResourceString(@sdxPDFDialogMaxCompression);
|
|
lbMaxQuality.Caption := cxGetResourceString(@sdxPDFDialogMaxQuality);
|
|
lbSubject.Caption := cxGetResourceString(@sdxPDFDialogSubject);
|
|
lbTitle.Caption := cxGetResourceString(@sdxPDFDialogTitle);
|
|
|
|
lbDescription.Caption := cxGetResourceString(@sdxPrintDialogRangeLegend);
|
|
rbtnAllPages.Caption := cxGetResourceString(@sdxPrintDialogAll);
|
|
rbtnCurrentPage.Caption := cxGetResourceString(@sdxPrintDialogCurrentPage);
|
|
rbtnPageRanges.Caption := cxGetResourceString(@sdxPrintDialogPages);
|
|
|
|
cbSecurityEnable.Caption := cxGetResourceString(@sdxPDFDialogSecurityEnabled);
|
|
lbUserPassword.Caption := cxGetResourceString(@sdxPDFDialogSecurityUserPassword);
|
|
lbOwnerPassword.Caption := cxGetResourceString(@sdxPDFDialogSecurityOwnerPassword);
|
|
lbMethod.Caption := cxGetResourceString(@sdxPDFDialogSecurityMethod);
|
|
cbAllowPrinting.Caption := cxGetResourceString(@sdxPDFDialogSecurityAllowPrint);
|
|
cbAllowChanging.Caption := cxGetResourceString(@sdxPDFDialogSecurityAllowChanging);
|
|
cbAllowComments.Caption := cxGetResourceString(@sdxPDFDialogSecurityAllowComments);
|
|
cbAllowContentCopying.Caption := cxGetResourceString(@sdxPDFDialogSecurityAllowCopy);
|
|
cbAllowDocumentAssembly.Caption := cxGetResourceString(@sdxPDFDialogSecurityAllowDocumentAssemble);
|
|
cbAllowPrintingHiResolution.Caption := cxGetResourceString(@sdxPDFDialogSecurityAllowPrintHiResolution);
|
|
end;
|
|
|
|
function TdxPSPDFExportDialogForm.IsShortCut(var Message: TWMKey): Boolean;
|
|
begin
|
|
Result := Message.CharCode = VK_ESCAPE;
|
|
if Result then
|
|
PostMessage(Handle, WM_CLOSE, 0, 0)
|
|
else
|
|
Result := inherited IsShortCut(Message);
|
|
end;
|
|
|
|
procedure TdxPSPDFExportDialogForm.LoadOptions(AOptions: TdxPSPDFReportExportOptions);
|
|
begin
|
|
teTitle.Text := AOptions.Title;
|
|
teAuthor.Text := AOptions.Author;
|
|
teSubject.Text := AOptions.Subject;
|
|
teCreator.Text := AOptions.Creator;
|
|
teKeywords.Text := AOptions.Keywords;
|
|
|
|
PageRanges := AOptions.PageRangeInfo.PageRanges;
|
|
edPageRanges.Text := AOptions.PageRangeInfo.PageIndexesAsString;
|
|
cbOpenAfterExport.Checked := AOptions.OpenDocumentAfterExport;
|
|
cbCompressed.Checked := AOptions.CompressStreams;
|
|
cbCompressed.Enabled := dxPDFCanCompressStreams;
|
|
cbEmbedFonts.Checked := AOptions.EmbedFonts;
|
|
tbJpgCompression.Position := AOptions.JPEGQuality;
|
|
cbJpgCompress.Checked := AOptions.UseJPEGCompression;
|
|
cbJpgCompress.Enabled := dxPDFCanUseJPEGCompression;
|
|
cbUseCIDFonts.Checked := AOptions.UseCIDFonts;
|
|
|
|
LoadSecurityOptions(AOptions.SecurityOptions);
|
|
cbJpgCompressClick(nil);
|
|
rbtnPageRangesClick(nil);
|
|
end;
|
|
|
|
procedure TdxPSPDFExportDialogForm.SaveOptions(AOptions: TdxPSPDFReportExportOptions);
|
|
begin
|
|
AOptions.Title := teTitle.Text;
|
|
AOptions.Author := teAuthor.Text;
|
|
AOptions.Subject := teSubject.Text;
|
|
AOptions.Creator := teCreator.Text;
|
|
AOptions.Keywords := teKeywords.Text;
|
|
|
|
AOptions.EmbedFonts := cbEmbedFonts.Checked;
|
|
AOptions.UseCIDFonts := cbUseCIDFonts.Checked;
|
|
AOptions.CompressStreams := cbCompressed.Checked;
|
|
AOptions.UseJPEGCompression := cbJpgCompress.Checked;
|
|
AOptions.OpenDocumentAfterExport := cbOpenAfterExport.Checked;
|
|
AOptions.JPEGQuality := tbJpgCompression.Position;
|
|
AOptions.PageRangeInfo.PageRanges := PageRanges;
|
|
|
|
if PageRanges = prRange then
|
|
AOptions.PageRangeInfo.PageIndexesAsString := edPageRanges.Text;
|
|
SaveSecurityOptions(AOptions.SecurityOptions);
|
|
end;
|
|
|
|
procedure TdxPSPDFExportDialogForm.LoadSecurityOptions(AOptions: TdxPSPDFSecurityOptions);
|
|
begin
|
|
cbSecurityEnable.Checked := AOptions.Enabled;
|
|
cbxMethod.ItemIndex := Ord(AOptions.KeyLength);
|
|
cbAllowPrinting.Checked := pdaPrint in AOptions.AllowActions;
|
|
cbAllowComments.Checked := pdaComment in AOptions.AllowActions;
|
|
cbAllowChanging.Checked := pdaContentEdit in AOptions.AllowActions;
|
|
cbAllowContentCopying.Checked := pdaContentCopy in AOptions.AllowActions;
|
|
cbAllowDocumentAssembly.Checked := pdaDocumentAssemble in AOptions.AllowActions;
|
|
cbAllowPrintingHiResolution.Checked := pdaPrintHighResolution in AOptions.AllowActions;
|
|
edOwnerPassword.Text := AOptions.OwnerPassword;
|
|
edUserPassword.Text := AOptions.UserPassword;
|
|
cbSecurityEnableClick(nil);
|
|
end;
|
|
|
|
procedure TdxPSPDFExportDialogForm.SaveSecurityOptions(AOptions: TdxPSPDFSecurityOptions);
|
|
var
|
|
AAllowActions: TdxPSPDFDocumentActions;
|
|
begin
|
|
AAllowActions := [];
|
|
AOptions.Enabled := cbSecurityEnable.Checked;
|
|
AOptions.KeyLength := TdxPSPDFEncryptKeyLength(cbxMethod.ItemIndex);
|
|
if cbAllowPrinting.Checked then
|
|
Include(AAllowActions, pdaPrint);
|
|
if cbAllowComments.Checked then
|
|
Include(AAllowActions, pdaComment);
|
|
if cbAllowChanging.Checked then
|
|
Include(AAllowActions, pdaContentEdit);
|
|
if cbAllowContentCopying.Checked then
|
|
Include(AAllowActions, pdaContentCopy);
|
|
if cbAllowDocumentAssembly.Checked then
|
|
Include(AAllowActions, pdaDocumentAssemble);
|
|
if cbAllowPrintingHiResolution.Checked then
|
|
Include(AAllowActions, pdaPrintHighResolution);
|
|
AOptions.AllowActions := AAllowActions;
|
|
AOptions.OwnerPassword := edOwnerPassword.Text;
|
|
AOptions.UserPassword := edUserPassword.Text;
|
|
end;
|
|
|
|
function TdxPSPDFExportDialogForm.GetPageRanges: TdxPageRanges;
|
|
begin
|
|
Result := prAll;
|
|
if rbtnPageRanges.Checked then Result := prRange;
|
|
if rbtnCurrentPage.Checked then Result := prCurrent;
|
|
end;
|
|
|
|
procedure TdxPSPDFExportDialogForm.SetPageRanges(AValue: TdxPageRanges);
|
|
begin
|
|
rbtnAllPages.Checked := AValue = prAll;
|
|
rbtnPageRanges.Checked := AValue = prRange;
|
|
rbtnCurrentPage.Checked := AValue = prCurrent;
|
|
end;
|
|
|
|
procedure TdxPSPDFExportDialogForm.cbJpgCompressClick(Sender: TObject);
|
|
begin
|
|
lbMaxQuality.Enabled := cbJpgCompress.Enabled and cbJpgCompress.Checked;
|
|
lbMaxCompression.Enabled := cbJpgCompress.Enabled and cbJpgCompress.Checked;
|
|
tbJpgCompression.Enabled := cbJpgCompress.Enabled and cbJpgCompress.Checked;
|
|
end;
|
|
|
|
procedure TdxPSPDFExportDialogForm.rbtnPageRangesClick(Sender: TObject);
|
|
begin
|
|
edPageRanges.Enabled := rbtnPageRanges.Checked;
|
|
end;
|
|
|
|
procedure TdxPSPDFExportDialogForm.edPageRangesKeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
if Ord(Key) <> VK_BACK then
|
|
begin
|
|
case Key of
|
|
'0'..'9', cPageRangeSeparator, cPageSeparator: ;
|
|
else
|
|
Key := #0;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
end.
|