8
Classes, SysUtils, FileUtil, LR_Class, LR_BarC, LR_RRect, LR_Shape, LR_ChBox,
9
LR_Desgn, Forms, Controls, Graphics, Dialogs, StdCtrls, Spin, ComCtrls,
10
LR_e_htmldiv, LR_e_img;
21
ColorButton1: TColorButton;
23
FloatSpinEdit1: TFloatSpinEdit;
24
frBarCodeObject1: TfrBarCodeObject;
25
frCheckBoxObject1: TfrCheckBoxObject;
26
frDesigner1: TfrDesigner;
27
frHtmlDivExport1: TfrHtmlDivExport;
28
frImageExport1: TfrImageExport;
30
frRoundRectObject1: TfrRoundRectObject;
31
frShapeObject1: TfrShapeObject;
38
SaveDialog1: TSaveDialog;
40
procedure Button1Click(Sender: TObject);
41
procedure Button2Click(Sender: TObject);
42
procedure frReport1ExportFilterSetup(Sender: TfrExportFilter);
44
{ private declarations }
46
{ public declarations }
61
procedure TForm1.Button1Click(Sender: TObject);
66
procedure TForm1.Button2Click(Sender: TObject);
68
frReport1.DesignReport;
71
procedure TForm1.frReport1ExportFilterSetup(Sender: TfrExportFilter);
73
if Sender is TfrImageExportFilter then
74
with TfrImageExportFilter(Sender) do
76
Zoom := FloatSpinEdit1.Value;
77
JPEGQuality := SpinEdit1.Value;
78
BackgroundColor := ColorButton1.ButtonColor;
81
if Sender is TfrHtmlDivExportFilter then
82
with TfrHtmlDivExportFilter(Sender) do
84
PageStyle := Edit1.Text;
85
ExportImages := CheckBox1.Checked;
86
EmbeddedImages := CheckBox2.Checked;