pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:Add TRxDBGridExportPDF to RxDBGrid demo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5101 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-08-23 10:27:25 +00:00
parent 077039c719
commit e2482a5149
16 changed files with 354 additions and 435 deletions
Download Patch File Download Diff File Expand all files Collapse all files

208
components/rx/trunk/Demos/RxDBGrid/RxDBGridDemo.lpi
View File

@ -55,13 +55,13 @@
<MinVersion Major="1" Release="18" Build="56" Valid="True"/>
</Item5>
</RequiredPackages>
<Units Count="135">
<Units Count="138">
<Unit0>
<Filename Value="RxDBGridDemo.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<CursorPos X="47" Y="18"/>
<UsageCount Value="110"/>
<UsageCount Value="112"/>
</Unit0>
<Unit1>
<Filename Value="rxdbgridmainunit.pas"/>
@ -70,9 +70,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridMainUnit"/>
<IsVisibleTab Value="True"/>
<CursorPos X="61" Y="10"/>
<UsageCount Value="110"/>
<CursorPos X="134" Y="14"/>
<UsageCount Value="112"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
@ -181,9 +180,11 @@
</Unit17>
<Unit18>
<Filename Value="../../rxdconst.pas"/>
<TopLine Value="144"/>
<CursorPos X="21" Y="165"/>
<UsageCount Value="11"/>
<EditorIndex Value="2"/>
<TopLine Value="159"/>
<CursorPos X="3" Y="177"/>
<UsageCount Value="12"/>
<Loaded Value="True"/>
</Unit18>
<Unit19>
<Filename Value="../../../lcl/include/winapih.inc"/>
@ -895,11 +896,10 @@
<Unit129>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<UnitName Value="RxDBGridPrintGrid"/>
<EditorIndex Value="2"/>
<EditorIndex Value="-1"/>
<TopLine Value="310"/>
<CursorPos Y="322"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit129>
<Unit130>
<Filename Value="../../../lazreport/source/lr_desgn.pas"/>
@ -907,19 +907,16 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="LR_Desgn"/>
<EditorIndex Value="5"/>
<EditorIndex Value="-1"/>
<TopLine Value="7481"/>
<CursorPos Y="7496"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit130>
<Unit131>
<Filename Value="../../../lazreport/source/lr_class.pas"/>
<UnitName Value="LR_Class"/>
<EditorIndex Value="3"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit131>
<Unit132>
<Filename Value="../../../lazreport/source/lr_view.pas"/>
@ -927,12 +924,10 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="LR_View"/>
<EditorIndex Value="4"/>
<EditorIndex Value="-1"/>
<TopLine Value="1524"/>
<CursorPos Y="1540"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit132>
<Unit133>
<Filename Value="/home/install/source/fpcsrc/rtl/objpas/sysutils/sysstrh.inc"/>
@ -943,134 +938,90 @@
</Unit133>
<Unit134>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-base/src/gettext.pp"/>
<EditorIndex Value="1"/>
<EditorIndex Value="-1"/>
<TopLine Value="313"/>
<CursorPos X="3" Y="315"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit134>
<Unit135>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<UnitName Value="RxDBGridExportPdf"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="483"/>
<CursorPos Y="503"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit135>
<Unit136>
<Filename Value="../../rxdbgridexportpdfsetupunit.pas"/>
<ComponentName Value="RxDBGridExportPdfSetupForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridExportPdfSetupUnit"/>
<EditorIndex Value="-1"/>
<TopLine Value="65"/>
<CursorPos Y="113"/>
<UsageCount Value="11"/>
</Unit136>
<Unit137>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fppdf.pp"/>
<UnitName Value="fpPDF"/>
<EditorIndex Value="-1"/>
<TopLine Value="147"/>
<CursorPos X="3" Y="42"/>
<UsageCount Value="10"/>
</Unit137>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<JumpHistory Count="12" HistoryIndex="11">
<Position1>
<Filename Value="../../../lazreport/source/lr_desgn.pas"/>
<Caret Line="7496" TopLine="7481"/>
</Position1>
<Position2>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="373" Column="25" TopLine="359"/>
</Position2>
<Position3>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="369" TopLine="359"/>
</Position3>
<Position4>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="370" TopLine="359"/>
</Position4>
<Position5>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="371" TopLine="359"/>
</Position5>
<Position6>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="372" TopLine="359"/>
</Position6>
<Position7>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="373" TopLine="359"/>
</Position7>
<Position8>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="375" TopLine="359"/>
</Position8>
<Position9>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="378" TopLine="359"/>
</Position9>
<Position10>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="379" TopLine="365"/>
</Position10>
<Position11>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="386" TopLine="365"/>
</Position11>
<Position12>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="390" TopLine="366"/>
</Position12>
<Position13>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="370" TopLine="364"/>
</Position13>
<Position14>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="372" Column="133" TopLine="358"/>
</Position14>
<Position15>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="351" Column="4" TopLine="336"/>
</Position15>
<Position16>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="335" Column="31" TopLine="321"/>
</Position16>
<Position17>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="413" Column="21" TopLine="389"/>
</Position17>
<Position18>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="415" Column="31" TopLine="391"/>
</Position18>
<Position19>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="416" Column="50" TopLine="392"/>
</Position19>
<Position20>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="492" Column="69" TopLine="467"/>
</Position20>
<Position21>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="493" Column="69" TopLine="468"/>
</Position21>
<Position22>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="430" TopLine="430"/>
</Position22>
<Position23>
<Filename Value="../../rxdbgridprintgrid.pas"/>
<Caret Line="316" TopLine="308"/>
</Position23>
<Position24>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="150" TopLine="127"/>
</Position24>
<Position25>
</Position1>
<Position2>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="149" TopLine="126"/>
</Position25>
<Position26>
</Position2>
<Position3>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="148" TopLine="125"/>
</Position26>
<Position27>
</Position3>
<Position4>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="147" TopLine="125"/>
</Position27>
<Position28>
</Position4>
<Position5>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="11" Column="56"/>
</Position28>
<Position29>
</Position5>
<Position6>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="109" Column="27" TopLine="94"/>
</Position29>
<Position30>
</Position6>
<Position7>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="84" Column="25" TopLine="71"/>
</Position30>
</Position7>
<Position8>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="10" Column="61"/>
</Position8>
<Position9>
<Filename Value="rxdbgridmainunit.pas"/>
<Caret Line="14" Column="134"/>
</Position9>
<Position10>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="129" Column="3" TopLine="177"/>
</Position10>
<Position11>
<Filename Value="../../rxdconst.pas"/>
<Caret Line="199" Column="40" TopLine="170"/>
</Position11>
<Position12>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="1113" Column="3" TopLine="1098"/>
</Position12>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
@ -1113,7 +1064,7 @@
<Expression Value="K1"/>
</Item5>
</Watches>
<Exceptions Count="3">
<Exceptions Count="4">
<Item1>
<Name Value="EInvalidOp"/>
</Item1>
@ -1123,6 +1074,9 @@
<Item3>
<Name Value="EVariantError"/>
</Item3>
<Item4>
<Name Value="ETTF"/>
</Item4>
</Exceptions>
</Debugging>
</CONFIG>

66
components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.lfm
View File

@ -14,8 +14,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
LCLVersion = '1.7'
object RxDBGrid1: TRxDBGrid
Left = 0
Height = 634
Top = 70
Height = 627
Top = 77
Width = 1151
ColumnDefValues.BlobText = '(примечание)'
TitleButtons = True
@ -428,19 +428,19 @@ object RxDBGridMainForm: TRxDBGridMainForm
end
object Panel1: TPanel
Left = 0
Height = 70
Height = 77
Top = 0
Width = 1151
Align = alTop
AutoSize = True
ClientHeight = 70
ClientHeight = 77
ClientWidth = 1151
TabOrder = 1
object Label1: TLabel
AnchorSideLeft.Control = Button2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 270
Left = 274
Height = 20
Top = 7
Width = 36
@ -452,9 +452,9 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 7
Height = 32
Height = 36
Top = 7
Width = 87
Width = 89
Action = actCalcTotal
AutoSize = True
BorderSpacing.Around = 6
@ -464,10 +464,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Button1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 100
Height = 32
Left = 102
Height = 36
Top = 7
Width = 164
Width = 166
Action = actOptimizeColumnsWidthAll
AutoSize = True
BorderSpacing.Around = 6
@ -478,11 +478,11 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CheckBox2
AnchorSideTop.Side = asrBottom
Left = 499
Left = 503
Height = 24
Hint = 'Use filter line'
Top = 37
Width = 84
Width = 85
BorderSpacing.Left = 6
Caption = 'Use filter'
OnChange = CheckBox1Change
@ -492,8 +492,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 276
Height = 30
Left = 280
Height = 32
Top = 33
Width = 217
BorderSpacing.Around = 6
@ -512,11 +512,11 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = ComboBox1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 499
Left = 503
Height = 24
Hint = 'Auto fill column width'
Top = 7
Width = 133
Width = 134
BorderSpacing.Around = 6
Caption = 'Auto fill columns'
OnChange = CheckBox2Change
@ -526,10 +526,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = CheckBox2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 638
Left = 643
Height = 24
Top = 7
Width = 120
Width = 121
BorderSpacing.Around = 6
Caption = 'Show indicator'
Checked = True
@ -542,10 +542,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CheckBox3
AnchorSideTop.Side = asrBottom
Left = 638
Left = 643
Height = 24
Top = 37
Width = 116
Width = 118
BorderSpacing.Around = 6
Caption = 'Show headers'
Checked = True
@ -557,10 +557,10 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = CheckBox3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 764
Left = 770
Height = 24
Top = 7
Width = 95
Width = 97
BorderSpacing.Around = 6
Caption = 'Word wrap'
OnChange = CheckBox5Change
@ -570,7 +570,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = CheckBox5
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 865
Left = 873
Height = 20
Top = 7
Width = 32
@ -582,8 +582,8 @@ object RxDBGridMainForm: TRxDBGridMainForm
AnchorSideLeft.Control = Label2
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
Left = 871
Height = 30
Left = 879
Height = 37
Top = 33
Width = 129
BorderSpacing.Around = 6
@ -1496,7 +1496,7 @@ object RxDBGridMainForm: TRxDBGridMainForm
end
object RxDBGridExportSpreadSheet1: TRxDBGridExportSpreadSheet
RxDBGrid = RxDBGrid1
Caption = 'Export data'
Caption = 'Export data to spreadsheet'
ShowSetupForm = True
FileName = 'RxDBGridDemo.ods'
PageName = 'RxDBGrid demo'
@ -1521,4 +1521,18 @@ object RxDBGridMainForm: TRxDBGridMainForm
left = 591
top = 270
end
object RxDBGridExportPDF1: TRxDBGridExportPDF
RxDBGrid = RxDBGrid1
Caption = 'Export to PDF file'
ShowSetupForm = True
FileName = 'RxDBGridDemo.pdf'
Options = [repExportTitle, repExportColors, repExportFooter, repOverwriteExisting, repExportImages]
PdfOptions.PaperOrientation = ppoLandscape
PdfOptions.Options = []
OpenAfterExport = True
AuthorPdf = 'Lagunov A.A.'
ProducerPdf = 'RxDBGrid demo program'
left = 640
top = 270
end
end

3
components/rx/trunk/Demos/RxDBGrid/rxdbgridmainunit.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, rxmemds,
DB, rxdbgrid, RxAboutDialog, RxIniPropStorage, RxDBGridPrintGrid,
RxDBGridExportSpreadSheet, RxDBGridFooterTools, tooledit,
RxDBGridExportSpreadSheet, RxDBGridFooterTools, tooledit, RxDBGridExportPdf,
ExtCtrls, Buttons, Menus, ActnList, StdCtrls, DBGrids;
type
@ -24,6 +24,7 @@ type
MenuItem9: TMenuItem;
RxAboutDialog1: TRxAboutDialog;
RxDateEdit1: TRxDateEdit;
RxDBGridExportPDF1: TRxDBGridExportPDF;
RxDBGridExportSpreadSheet1: TRxDBGridExportSpreadSheet;
RxDBGridFooterTools1: TRxDBGridFooterTools;
RxDBGridPrint1: TRxDBGridPrint;

17
components/rx/trunk/Demos/RxDbGridExportToPDF/project1.lpi
View File

@ -24,25 +24,16 @@
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="6">
<RequiredPackages Count="3">
<Item1>
<PackageName Value="rxdbgrid_print"/>
<PackageName Value="FCL"/>
</Item1>
<Item2>
<PackageName Value="rxdbgrid_export_spreadsheet"/>
<PackageName Value="rxnew"/>
</Item2>
<Item3>
<PackageName Value="lazreport"/>
</Item3>
<Item4>
<PackageName Value="FCL"/>
</Item4>
<Item5>
<PackageName Value="rxnew"/>
</Item5>
<Item6>
<PackageName Value="LCL"/>
</Item6>
</Item3>
</RequiredPackages>
<Units Count="2">
<Unit0>

164
components/rx/trunk/Demos/RxDbGridExportToPDF/project1.lps
View File

@ -18,7 +18,8 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<CursorPos X="7" Y="21"/>
<IsVisibleTab Value="True"/>
<CursorPos X="3" Y="9"/>
<UsageCount Value="118"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -27,18 +28,16 @@
<Filename Value="../../rxdbgridexportspreadsheet.pas"/>
<UnitName Value="RxDBGridExportSpreadSheet"/>
<EditorIndex Value="-1"/>
<TopLine Value="154"/>
<CursorPos X="8" Y="145"/>
<TopLine Value="23"/>
<CursorPos X="36" Y="39"/>
<UsageCount Value="12"/>
</Unit2>
<Unit3>
<Filename Value="../../rxdbgrid.pas"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="3"/>
<TopLine Value="2909"/>
<CursorPos Y="2921"/>
<EditorIndex Value="-1"/>
<TopLine Value="215"/>
<CursorPos X="86" Y="231"/>
<UsageCount Value="33"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="rxdbgridexportpdf.pas"/>
@ -87,18 +86,17 @@
<Unit10>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<UnitName Value="RxDBGridExportPdf"/>
<EditorIndex Value="1"/>
<TopLine Value="572"/>
<CursorPos X="87" Y="593"/>
<EditorIndex Value="-1"/>
<TopLine Value="472"/>
<CursorPos X="41" Y="488"/>
<UsageCount Value="57"/>
<Bookmarks Count="5">
<Item0 X="3" Y="457" ID="2"/>
<Item1 Y="421" ID="3"/>
<Item2 Y="610" ID="4"/>
<Item3 X="15" Y="334" ID="5"/>
<Item4 X="12" Y="647" ID="1"/>
<Item4 X="12" Y="646" ID="1"/>
</Bookmarks>
<Loaded Value="True"/>
</Unit10>
<Unit11>
<Filename Value="../../rxdbgridprintgrid.pas"/>
@ -275,9 +273,9 @@
<Unit34>
<Filename Value="../../vclutils.pas"/>
<EditorIndex Value="-1"/>
<TopLine Value="125"/>
<CursorPos Y="155"/>
<UsageCount Value="4"/>
<TopLine Value="257"/>
<CursorPos X="11" Y="269"/>
<UsageCount Value="10"/>
</Unit34>
<Unit35>
<Filename Value="../../rxshortcutunit.pas"/>
@ -458,12 +456,10 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridExportPdfSetupUnit"/>
<EditorIndex Value="2"/>
<TopLine Value="43"/>
<EditorIndex Value="-1"/>
<TopLine Value="88"/>
<CursorPos X="78" Y="60"/>
<UsageCount Value="22"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit58>
<Unit59>
<Filename Value="../../rxdbgridexportspreadsheet_paramsunit.pas"/>
@ -486,9 +482,8 @@
</Unit60>
<Unit61>
<Filename Value="/home/OPTORG/alexs/1/1/testfppdf.lpr"/>
<EditorIndex Value="4"/>
<EditorIndex Value="-1"/>
<UsageCount Value="39"/>
<Loaded Value="True"/>
</Unit61>
<Unit62>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-pdf/src/fppdf.pp"/>
@ -623,11 +618,10 @@
<Unit80>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-image/src/fpimage.pp"/>
<UnitName Value="FPimage"/>
<EditorIndex Value="5"/>
<EditorIndex Value="-1"/>
<TopLine Value="10"/>
<CursorPos X="3" Y="25"/>
<UsageCount Value="15"/>
<Loaded Value="True"/>
</Unit80>
<Unit81>
<Filename Value="/home/install/source/fpcsrc/packages/fcl-image/src/fpreadbmp.pp"/>
@ -677,127 +671,39 @@
<UsageCount Value="10"/>
</Unit86>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<JumpHistory Count="8" HistoryIndex="7">
<Position1>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="599" TopLine="584"/>
<Filename Value="unit1.pas"/>
<Caret Line="96" Column="3" TopLine="80"/>
</Position1>
<Position2>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="601" TopLine="584"/>
<Filename Value="unit1.pas"/>
<Caret Line="96" Column="3" TopLine="80"/>
</Position2>
<Position3>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="570" TopLine="555"/>
<Filename Value="unit1.pas"/>
<Caret Line="95" Column="3" TopLine="79"/>
</Position3>
<Position4>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="610" TopLine="595"/>
<Filename Value="unit1.pas"/>
<Caret Line="94" Column="3" TopLine="78"/>
</Position4>
<Position5>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="553" TopLine="537"/>
<Filename Value="unit1.pas"/>
<Caret Line="93" Column="3" TopLine="77"/>
</Position5>
<Position6>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="555" TopLine="537"/>
<Filename Value="unit1.pas"/>
<Caret Line="99" Column="59" TopLine="77"/>
</Position6>
<Position7>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="556" TopLine="537"/>
<Filename Value="unit1.pas"/>
<Caret Line="99" Column="59" TopLine="77"/>
</Position7>
<Position8>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="558" TopLine="537"/>
<Filename Value="unit1.pas"/>
<Caret Line="9" Column="3"/>
</Position8>
<Position9>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="566" TopLine="560"/>
</Position9>
<Position10>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="567" TopLine="560"/>
</Position10>
<Position11>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="569" TopLine="560"/>
</Position11>
<Position12>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="570" TopLine="560"/>
</Position12>
<Position13>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="572" TopLine="560"/>
</Position13>
<Position14>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="573" TopLine="560"/>
</Position14>
<Position15>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="575" TopLine="560"/>
</Position15>
<Position16>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="577" TopLine="560"/>
</Position16>
<Position17>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="578" TopLine="560"/>
</Position17>
<Position18>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="579" TopLine="560"/>
</Position18>
<Position19>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="580" TopLine="560"/>
</Position19>
<Position20>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="582" TopLine="560"/>
</Position20>
<Position21>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="583" TopLine="560"/>
</Position21>
<Position22>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="584" TopLine="560"/>
</Position22>
<Position23>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="580" TopLine="560"/>
</Position23>
<Position24>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="590" TopLine="566"/>
</Position24>
<Position25>
<Filename Value="../../rxdbgridexportpdf.pas"/>
<Caret Line="593" Column="87" TopLine="572"/>
</Position25>
<Position26>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="659" Column="50" TopLine="635"/>
</Position26>
<Position27>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="101" Column="15" TopLine="79"/>
</Position27>
<Position28>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="2837" Column="8" TopLine="2822"/>
</Position28>
<Position29>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="101" Column="5" TopLine="76"/>
</Position29>
<Position30>
<Filename Value="../../rxdbgrid.pas"/>
<Caret Line="2838" TopLine="2822"/>
</Position30>
</JumpHistory>
</ProjectSession>
<Debugging>

20
components/rx/trunk/Demos/RxDbGridExportToPDF/unit1.lfm
View File

@ -532,24 +532,4 @@ object Form1: TForm1
0000000000000000000000000000
}
end
object frReport1: TfrReport
InitialZoom = pzDefault
Options = []
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
DataType = dtDataSet
left = 304
top = 88
end
object RxDBGridExportSpreadSheet1: TRxDBGridExportSpreadSheet
Caption = 'Экспорт в электронную таблицу'
Options = []
left = 304
top = 154
end
object RxDBGridPrint1: TRxDBGridPrint
Caption = 'Печать списка'
Options = [rxpoShowTitle, rxpoShowFooter, rxpoShowGridColor, rxpoShowFooterColor, rxpoShowReportTitle]
left = 346
top = 154
end
end

5
components/rx/trunk/Demos/RxDbGridExportToPDF/unit1.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, rxmemds, rxdbgrid, RxDBGridExportPdf,
RxDBGridExportSpreadSheet, RxDBGridPrintGrid, LR_Class, Forms, Controls,
Forms, Controls,
Graphics, Dialogs, ExtCtrls, StdCtrls, ComCtrls, Spin, db;
type
@ -16,15 +16,12 @@ type
TForm1 = class(TForm)
Button1: TButton;
DataSource1: TDataSource;
frReport1: TfrReport;
ImageList1: TImageList;
Memo1: TMemo;
PageControl1: TPageControl;
Panel1: TPanel;
RxDBGrid1: TRxDBGrid;
RxDBGridExportPDF1: TRxDBGridExportPDF;
RxDBGridExportSpreadSheet1: TRxDBGridExportSpreadSheet;
RxDBGridPrint1: TRxDBGridPrint;
RxMemoryData1: TRxMemoryData;
RxMemoryData1Country: TStringField;
RxMemoryData1FLAG: TLongintField;

36
components/rx/trunk/languages/rxdconst.es.po
View File

@ -39,6 +39,18 @@ msgstr "SCircularEnlaceDato"
msgid "Column name"
msgstr ""
#: rxdconst.scompressfonts
msgid "Compress fonts"
msgstr ""
#: rxdconst.scompressimages
msgid "Compress images"
msgstr ""
#: rxdconst.scompresstext
msgid "Compress text"
msgstr ""
#: rxdconst.sconfirmpasswordlabel
msgid "&Confirm:"
msgstr "&Confirmar:"
@ -97,6 +109,10 @@ msgstr ""
msgid "Export footer formula"
msgstr ""
#: rxdconst.sexportimages
msgid "Export images"
msgstr ""
#: rxdconst.sexportparams
msgid "Export params"
msgstr ""
@ -205,6 +221,10 @@ msgstr ""
msgid "Sum"
msgstr ""
#: rxdconst.sglobal
msgid "Global"
msgstr ""
#: rxdconst.shidezerovalues
msgid "Hide zero values"
msgstr ""
@ -295,6 +315,10 @@ msgstr ""
msgid "Other options"
msgstr ""
#: rxdconst.soutline
msgid "Out line"
msgstr ""
#: rxdconst.soverwriteexisting
msgid "Overwrite existing"
msgstr ""
@ -327,6 +351,10 @@ msgstr "Clave no cambio"
msgid "New password and confirmation not equal"
msgstr "Nueva clave y confirmacion no son iguales"
#: rxdconst.spdfoptions
msgid "PDF options"
msgstr ""
#: rxdconst.sportrait
msgid "Portrait"
msgstr ""
@ -629,6 +657,10 @@ msgstr ""
msgid "Show column title"
msgstr ""
#: rxdconst.stitlecolor
msgid "Title color"
msgstr ""
#: rxdconst.stoolsexportpdf
msgid "Export to PDF file"
msgstr ""
@ -661,6 +693,10 @@ msgstr "Desbloquear"
msgid "Enter your password"
msgstr "Entre su clave"
#: rxdconst.suserawjpeg
msgid "Use raw JPEG"
msgstr ""
#: rxdconst.susernamelabel
msgid "&User name:"
msgstr "&Nombre usuario:"

36
components/rx/trunk/languages/rxdconst.po
View File

@ -37,6 +37,18 @@ msgstr ""
msgid "Column name"
msgstr ""
#: rxdconst.scompressfonts
msgid "Compress fonts"
msgstr ""
#: rxdconst.scompressimages
msgid "Compress images"
msgstr ""
#: rxdconst.scompresstext
msgid "Compress text"
msgstr ""
#: rxdconst.sconfirmpasswordlabel
msgid "&Confirm:"
msgstr ""
@ -93,6 +105,10 @@ msgstr ""
msgid "Export footer formula"
msgstr ""
#: rxdconst.sexportimages
msgid "Export images"
msgstr ""
#: rxdconst.sexportparams
msgid "Export params"
msgstr ""
@ -197,6 +213,10 @@ msgstr ""
msgid "Sum"
msgstr ""
#: rxdconst.sglobal
msgid "Global"
msgstr ""
#: rxdconst.shidezerovalues
msgid "Hide zero values"
msgstr ""
@ -281,6 +301,10 @@ msgstr ""
msgid "Other options"
msgstr ""
#: rxdconst.soutline
msgid "Out line"
msgstr ""
#: rxdconst.soverwriteexisting
msgid "Overwrite existing"
msgstr ""
@ -313,6 +337,10 @@ msgstr ""
msgid "New password and confirmation not equal"
msgstr ""
#: rxdconst.spdfoptions
msgid "PDF options"
msgstr ""
#: rxdconst.sportrait
msgid "Portrait"
msgstr ""
@ -607,6 +635,10 @@ msgstr ""
msgid "Show column title"
msgstr ""
#: rxdconst.stitlecolor
msgid "Title color"
msgstr ""
#: rxdconst.stoolsexportpdf
msgid "Export to PDF file"
msgstr ""
@ -635,6 +667,10 @@ msgstr ""
msgid "Enter your password"
msgstr ""
#: rxdconst.suserawjpeg
msgid "Use raw JPEG"
msgstr ""
#: rxdconst.susernamelabel
msgid "&User name:"
msgstr ""

53
components/rx/trunk/languages/rxdconst.ru.po
View File

@ -1,5 +1,15 @@
msgid ""
msgstr "Content-Type: text/plain; charset=UTF-8"
msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"
"Project-Id-Version: \n"
"POT-Creation-Date: \n"
"PO-Revision-Date: \n"
"Last-Translator: \n"
"Language-Team: \n"
"MIME-Version: 1.0\n"
"Content-Transfer-Encoding: 8bit\n"
"Language: ru\n"
"X-Generator: Poedit 1.8.8\n"
#: rxdconst.sapptitlelabel
msgid "Application \"%s\""
@ -37,6 +47,18 @@ msgstr "Перекрёстная ссылка данных"
msgid "Column name"
msgstr "Имя столбца"
#: rxdconst.scompressfonts
msgid "Compress fonts"
msgstr "Сжимать шрифты"
#: rxdconst.scompressimages
msgid "Compress images"
msgstr "Сжимать изображения"
#: rxdconst.scompresstext
msgid "Compress text"
msgstr "Сжимать текст"
#: rxdconst.sconfirmpasswordlabel
msgid "&Confirm:"
msgstr "&Подтверждение:"
@ -93,6 +115,10 @@ msgstr "Имя файла экспорта"
msgid "Export footer formula"
msgstr "Экспортирововать формулы итоговой строки"
#: rxdconst.sexportimages
msgid "Export images"
msgstr "Экспорт изображений"
#: rxdconst.sexportparams
msgid "Export params"
msgstr "Параметры экспорта"
@ -197,6 +223,10 @@ msgstr "Текст"
msgid "Sum"
msgstr "Сумма"
#: rxdconst.sglobal
msgid "Global"
msgstr "Общее"
#: rxdconst.shidezerovalues
msgid "Hide zero values"
msgstr "Не отображать нулевые значения"
@ -281,6 +311,10 @@ msgstr "Ориентация"
msgid "Other options"
msgstr "Прочие параметры"
#: rxdconst.soutline
msgid "Out line"
msgstr "Контуры"
#: rxdconst.soverwriteexisting
msgid "Overwrite existing"
msgstr "Перезаписать существующее"
@ -295,7 +329,7 @@ msgstr "Имя страницы"
#: rxdconst.spapertype
msgid "Paper type"
msgstr ""
msgstr "Тип бумаги"
#: rxdconst.spasswordchanged
msgid "Password changed"
@ -313,6 +347,10 @@ msgstr "Пароль не изменён"
msgid "New password and confirmation not equal"
msgstr "Новый пароль и подтверждение не совпадают"
#: rxdconst.spdfoptions
msgid "PDF options"
msgstr "Параметры PDF"
#: rxdconst.sportrait
msgid "Portrait"
msgstr "Портрет"
@ -607,9 +645,13 @@ msgstr "Отображать заголовок отчёта"
msgid "Show column title"
msgstr "Отображать заголовки столбцов"
#: rxdconst.stitlecolor
msgid "Title color"
msgstr "Цвет заголовков"
#: rxdconst.stoolsexportpdf
msgid "Export to PDF file"
msgstr ""
msgstr "Экспорт в PDF файл"
#: rxdconst.stoolsexportspeadsheet
msgid "Export to speadsheet"
@ -635,7 +677,10 @@ msgstr "Разблокировать"
msgid "Enter your password"
msgstr "Введите ваш пароль"
#: rxdconst.suserawjpeg
msgid "Use raw JPEG"
msgstr "Использовать сырой JPEG"
#: rxdconst.susernamelabel
msgid "&User name:"
msgstr "&Имя пользователя"

36
components/rx/trunk/languages/rxdconst.uk.po
View File

@ -48,6 +48,18 @@ msgstr "Перехресне посилання даних"
msgid "Column name"
msgstr "Назва стовпця"
#: rxdconst.scompressfonts
msgid "Compress fonts"
msgstr ""
#: rxdconst.scompressimages
msgid "Compress images"
msgstr ""
#: rxdconst.scompresstext
msgid "Compress text"
msgstr ""
#: rxdconst.sconfirmpasswordlabel
msgid "&Confirm:"
msgstr "&Підтвердження:"
@ -104,6 +116,10 @@ msgstr "Експортувати назву файлу"
msgid "Export footer formula"
msgstr ""
#: rxdconst.sexportimages
msgid "Export images"
msgstr ""
#: rxdconst.sexportparams
msgid "Export params"
msgstr ""
@ -209,6 +225,10 @@ msgstr "Статичний текст"
msgid "Sum"
msgstr "Сума"
#: rxdconst.sglobal
msgid "Global"
msgstr ""
#: rxdconst.shidezerovalues
msgid "Hide zero values"
msgstr "Ховати нульові значення"
@ -293,6 +313,10 @@ msgstr "Орієнтація"
msgid "Other options"
msgstr ""
#: rxdconst.soutline
msgid "Out line"
msgstr ""
#: rxdconst.soverwriteexisting
msgid "Overwrite existing"
msgstr "Переписати існуючий"
@ -325,6 +349,10 @@ msgstr "Пароль не змінено"
msgid "New password and confirmation not equal"
msgstr "Новий пароль і підтвердження не співпадають"
#: rxdconst.spdfoptions
msgid "PDF options"
msgstr ""
#: rxdconst.sportrait
msgid "Portrait"
msgstr "Книжна"
@ -621,6 +649,10 @@ msgstr "Показати заголовок звіту"
msgid "Show column title"
msgstr "Показати заголовок стовпця"
#: rxdconst.stitlecolor
msgid "Title color"
msgstr ""
#: rxdconst.stoolsexportpdf
msgid "Export to PDF file"
msgstr ""
@ -649,6 +681,10 @@ msgstr "Розблокувати"
msgid "Enter your password"
msgstr "Введіть ваш пароль"
#: rxdconst.suserawjpeg
msgid "Use raw JPEG"
msgstr ""
#: rxdconst.susernamelabel
msgid "&User name:"
msgstr "&Ім'я користувача"

8
components/rx/trunk/rxdbgrid.pas
View File

@ -2901,8 +2901,6 @@ end;
procedure TRxDBGrid.OutCaptionCellText(aCol, aRow: integer; const aRect: TRect;
aState: TGridDrawState; const ACaption: string);
//var
// T1, T2: TTextStyle;
begin
if (TitleStyle = tsNative) then
DrawThemedCell(aCol, aRow, aRect, aState)
@ -2914,12 +2912,6 @@ begin
if ACaption <> '' then
begin
{ T1:=Canvas.TextStyle;
T2:=T1;
T1.Wordbreak:=true;
Canvas.TextStyle:=T1;
DrawCellText(aCol, aRow, aRect, aState, ACaption);
Canvas.TextStyle:=T2; }
if not (rdgDisableWordWrapTitles in OptionsRx) then
WriteTextHeader(Canvas, aRect, ACaption, GetColumnAlignment(aCol, True))
else

114
components/rx/trunk/rxdbgridexportpdf.pas
View File

@ -155,6 +155,7 @@ type
FDataSet:TDataSet;
FPosY : integer;
procedure InitFonts;
procedure DoSetupDocHeader;
procedure DoSetupFonts;
//
@ -170,13 +171,9 @@ type
procedure DoExportFooter;
procedure DoSaveDocument;
function DoExecTools:boolean;override;
function DoSetupTools:boolean; override;
//
//procedure DoTest;
//
procedure InitFonts;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -405,7 +402,7 @@ end;
procedure TRxDBGridExportPDF.WriteTextRect(AExportFont: TExportFontItem; X, Y,
W, H: integer; AText: string; ATextAlign: TAlignment);
var
FTW, FTH, ADescender, FTH1, FTH2: Single;
FTW, FTH, FTH1, FTH2: Single;
X1: TPDFFloat;
Y1, fX, fY: TPDFFloat;
fW, fH: Extended;
@ -485,7 +482,7 @@ begin
fW1 := ConvetUnits(FPDFDocument.Images[IDX].Width);
fH1 := ConvetUnits(FPDFDocument.Images[IDX].Height);
fX:=ConvetUnits(X);
fY:=ConvetUnits(Y);
fY:=ConvetUnits(Y + constCellPadding);
fW:=ConvetUnits(W);
fH:=ConvetUnits(H);
@ -540,7 +537,7 @@ end;
procedure TRxDBGridExportPDF.DoExportTitle;
var
i, X, CP, K, KY, TH1, J, X1, W1: Integer;
i, X, CP, K, KY, TH1, X1, W1, WNext: Integer;
C, FStartCol: TRxColumn;
CT: TRxColumnTitle;
H: LongInt;
@ -572,7 +569,13 @@ begin
TH1:=CT.CaptionLine(K).Height * RxDBGrid.DefaultRowHeight;
if K < CT.CaptionLinesCount-1 then
begin
if not Assigned(CT.CaptionLine(K).Next) then
if i < FRxDBGrid.Columns.Count-1 then
WNext:=FRxDBGrid.Columns[i+1].Width
else
WNext:=0;
if (not Assigned(CT.CaptionLine(K).Next)) or (X + C.Width + WNext > FPageWidth - FPageMargin.Right) then
begin
KL:=CT.CaptionLine(K);
X1:=X;
@ -584,20 +587,14 @@ begin
W1:=W1 + KL.Col.Width;
end;
//DrawRect(X, KY, {CT.CaptionLine(K).Width} C.Width, TH1, FRxDBGrid.BorderColor, FTitleColor);
DrawRect(X1, KY, W1, TH1, FRxDBGrid.BorderColor, FTitleColor);
//WriteTextRect(ActivateFont(C.Title.Font, FRxDBGrid.TitleFont), X, KY, C.Width, TH1, CT.CaptionLine(K).Caption, C.Title.Alignment);
WriteTextRect(ActivateFont(C.Title.Font, FRxDBGrid.TitleFont), X1, KY, W1, TH1, CT.CaptionLine(K).Caption, C.Title.Alignment);
end;
KY:=KY + TH1;
end
else
begin
DrawRect(X, KY, {CT.CaptionLine(K).Width} C.Width, FPosY + H - KY, FRxDBGrid.BorderColor, FTitleColor);
DrawRect(X, KY, C.Width, FPosY + H - KY, FRxDBGrid.BorderColor, FTitleColor);
WriteTextRect(ActivateFont(C.Title.Font, FRxDBGrid.TitleFont), X, KY, C.Width, FPosY + H - KY, CT.CaptionLine(K).Caption, C.Title.Alignment);
end;
end;
@ -619,7 +616,6 @@ procedure DoWriteRow;
var
i, X, CP: Integer;
C: TRxColumn;
S: String;
B: TBitmap;
AImageIndex: LongInt;
begin
@ -702,7 +698,6 @@ begin
end;
var
F: TExportFontItem;
i: Integer;
sDefFontName:string;
begin
@ -728,7 +723,7 @@ procedure TRxDBGridExportPDF.DoExportFooter;
procedure WriteFooterRow(AFooterRow:Integer);
var
i, X, CP, FS: Integer;
i, X, CP: Integer;
S: String;
C: TRxColumn;
begin
@ -833,9 +828,6 @@ begin
end;
procedure TRxDBGridExportPDF.DoExportPage;
var
P: TPDFPage;
i: Integer;
begin
StartNewPage;
@ -983,85 +975,7 @@ begin
end;
RxDBGridExportPdfSetupForm.Free;
end;
(*
procedure TRxDBGridExportPDF.DoTest;
var
lPt1:TPDFCoord;
lFntPtSize, FtText1: Integer;
lFC: TFPFontCacheItem;
lFntInfo: TTFFileInfo;
lHeight, lTextHeightInMM, lDescenderHeightInMM, A1: Extended;
lWidth, lTextWidthInMM: Single;
sFontName, sSampleText: String;
begin
//setup
sSampleText:='Это привет мир!';
lFntPtSize := 23;
lPt1.X := 25; // units in MM
lPt1.Y := 40; // units in MM
StartNewPage;
{ sFontName:='FreeSans';
lFC := gTTFontCache.Find(sFontName, False, False);
if not Assigned(lFC) then
raise Exception.Create('FreeSans font not found');
lFntInfo := lFC.FontData;
FPDFDocument.FontDirectory:=ExtractFileDir(lFC.FileName);
FtText1 := FPDFDocument.AddFont(ExtractFileName(lFC.FileName), sFontName); // TODO: this color value means nothing - not used at all
}
sFontName:=FFontItems.FDefaultFontNormal.FontName;
lFC := gTTFontCache.Find(sFontName, False, False);
if not Assigned(lFC) then
raise Exception.Create('FreeSans font not found');
lFntInfo := lFC.FontData;
FtText1 := FFontItems.FDefaultFontNormal.FPdfFont;
FCurPage:=TPDFPage(FWorkPages[0]);
FCurPage.UnitOfMeasure := uomMillimeters;
{ Page title }
//FCurPage.SetFont(FFontItems.DefaultFontNormal.FPdfFont, 23);
FCurPage.SetFont(FtText1, lFntPtSize);
FCurPage.SetColor(clBlack, false);
FCurPage.WriteText(lPt1.X, lPt1.Y, sSampleText);
{ draw a rectangle around the Page Title text }
{ result is in pixels }
lHeight := lFntInfo.CapHeight * lFntPtSize * gTTFontCache.DPI / (72 * lFntInfo.Head.UnitsPerEm);
{ convert pixels to mm as our PDFPage.UnitOfMeasure is set to mm. }
lTextHeightInMM := (lHeight * 25.4) / gTTFontCache.DPI;
// lTextHeightInMM := lHeight;
lWidth := lFC.TextWidth(sSampleText, lFntPtSize);
{ convert the Font Units to Millimeters }
lTextWidthInMM := (lWidth * 25.4) / gTTFontCache.DPI;
// lTextWidthInMM := lWidth;
{ result is in pixels }
lHeight := Abs(lFntInfo.Descender) * lFntPtSize * gTTFontCache.DPI / (72 * lFntInfo.Head.UnitsPerEm);
A1:=lHeight;
{ convert pixels to mm as you PDFPage.UnitOfMeasure is set to mm. }
lDescenderHeightInMM := (lHeight * 25.4) / gTTFontCache.DPI;
// lDescenderHeightInMM := lHeight;
{ adjust the Y coordinate for the font Descender, because
WriteUTF8Text draws on the baseline. Also adjust the TextHeight
because CapHeight doesn't take into account the Descender. }
FCurPage.SetColor(clRed, true);
FCurPage.DrawRect(lPt1.X, lPt1.Y+lDescenderHeightInMM, lTextWidthInMM, lTextHeightInMM+lDescenderHeightInMM, 1, false, true);
//lFntInfo.Free;
DrawRect(10, 100, Round(lWidth), Round(lHeight + A1), Graphics.clBlack, Graphics.clRed);
end;
*)
procedure TRxDBGridExportPDF.DoSaveDocument;
var
F: TFileStream;

4
components/rx/trunk/rxdbgridexportpdfsetupunit.lfm
View File

@ -69,10 +69,10 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm
Height = 212
Top = 75
Width = 510
ActivePage = TabSheet1
ActivePage = TabSheet2
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
TabIndex = 0
TabIndex = 1
TabOrder = 2
object TabSheet1: TTabSheet
Caption = 'Global'

10
components/rx/trunk/rxdbgridexportpdfsetupunit.pas
View File

@ -107,14 +107,22 @@ begin
PageControl1.ActivePageIndex:=0;
Caption:=sExportParams;
TabSheet1.Caption:=sGlobal;
TabSheet2.Caption:=sPDFOptions;
Label1.Caption:=sExportFileName;
//Label3.Caption:=sPageName;
cbOpenAfterExport.Caption:=sOpenAfterExport;
cbExportColumnHeader.Caption:=sExportColumnHeader;
cbExportColumnFooter.Caption:=sExportColumnFooter;
cbExportCellColors.Caption:=sExportCellColors;
cbOverwriteExisting.Caption:=sOverwriteExisting;
CheckBox6.Caption:=sExportImages;
Label2.Caption:=sPaperType;
Label5.Caption:=sTitleColor;
CheckBox1.Caption:=sOutLine;
CheckBox2.Caption:=sCompressText;
CheckBox3.Caption:=sCompressFonts;
CheckBox4.Caption:=sCompressImages;
CheckBox5.Caption:=sUseRawJPEG;
RadioGroup1.Caption:=sOrientation;
RadioGroup1.Items[0]:=sPortrait;

9
components/rx/trunk/rxdconst.pas
View File

@ -182,6 +182,7 @@ resourcestring
sExportColumnFooter = 'Export column footer';
sExportCellColors = 'Export cell colors';
sExportFormula = 'Export footer formula';
sExportImages = 'Export images';
sOverwriteExisting = 'Overwrite existing';
sShowColumnHeaderOnAllPage = 'Show column header on all pages';
sPageMargins = 'Page margins';
@ -195,6 +196,14 @@ resourcestring
sLandscape = 'Landscape';
sPrintOptions = 'Print options';
sPaperType = 'Paper type';
sTitleColor = 'Title color';
sGlobal = 'Global';
sPDFOptions = 'PDF options';
sOutLine = 'Out line';
sCompressText = 'Compress text';
sCompressFonts = 'Compress fonts';
sCompressImages = 'Compress images';
sUseRawJPEG = 'Use raw JPEG';
sShowTitle = 'Show column title';
sShowFooter = 'Show footer';