80 lines
1.8 KiB
ObjectPascal
80 lines
1.8 KiB
ObjectPascal
|
|
||
|
|
{******************************************}
|
||
|
|
{ }
|
||
|
|
{ FastReport VCL }
|
||
|
|
{ Open Document Format export dialog }
|
||
|
|
{ }
|
||
|
|
{ Copyright (c) 1998-2021 }
|
||
|
|
{ by Fast Reports Inc. }
|
||
|
|
{ }
|
||
|
|
{******************************************}
|
||
|
|
|
||
|
|
unit frxExportODFDialog;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
{$I frx.inc}
|
||
|
|
|
||
|
|
uses
|
||
|
|
{$IFNDEF FPC}
|
||
|
|
Windows, Messages,
|
||
|
|
{$ENDIF}
|
||
|
|
SysUtils, Classes,
|
||
|
|
Graphics, Controls, Forms, Dialogs,
|
||
|
|
StdCtrls, extctrls, frxExportBaseDialog, Variants,
|
||
|
|
ComCtrls
|
||
|
|
{$IFDEF DELPHI16}
|
||
|
|
, System.UITypes
|
||
|
|
{$ENDIF};
|
||
|
|
|
||
|
|
type
|
||
|
|
TfrxODFExportDialog = class(TfrxBaseExportDialog)
|
||
|
|
WCB: TCheckBox;
|
||
|
|
ContinuousCB: TCheckBox;
|
||
|
|
PageBreaksCB: TCheckBox;
|
||
|
|
BackgrCB: TCheckBox;
|
||
|
|
protected
|
||
|
|
procedure InitControlsFromFilter(ExportFilter: TfrxBaseDialogExportFilter); override;
|
||
|
|
procedure InitFilterFromDialog(ExportFilter: TfrxBaseDialogExportFilter); override;
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses
|
||
|
|
frxRes,
|
||
|
|
frxrcExports,
|
||
|
|
frxExportODF;
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
{ TfrxODFExportDialog }
|
||
|
|
|
||
|
|
procedure TfrxODFExportDialog.InitControlsFromFilter(
|
||
|
|
ExportFilter: TfrxBaseDialogExportFilter);
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
with TfrxODFExport(ExportFilter) do
|
||
|
|
begin
|
||
|
|
ContinuousCB.Checked := SingleSheet;
|
||
|
|
PageBreaksCB.Checked := ExportPageBreaks;
|
||
|
|
WCB.Checked := Wysiwyg;
|
||
|
|
BackgrCB.Checked := Background;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrxODFExportDialog.InitFilterFromDialog(
|
||
|
|
ExportFilter: TfrxBaseDialogExportFilter);
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
with TfrxODFExport(ExportFilter) do
|
||
|
|
begin
|
||
|
|
ExportPageBreaks := PageBreaksCB.Checked;
|
||
|
|
SingleSheet := ContinuousCB.Checked;
|
||
|
|
Wysiwyg := WCB.Checked;
|
||
|
|
Background := BackgrCB.Checked;
|
||
|
|
CreationTime := Now;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|