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

RxFPC:enable TRxDBGridExportPDF for FPC 3.0.4

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6183 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-02-07 06:02:09 +00:00
parent 6edaaa7b11
commit 6874b739d8
4 changed files with 67 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
components/rx/trunk/demos/RxLookup/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="11"/> <Version Value="10"/>
<General> <General>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
@ -22,14 +22,9 @@
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <local>
<Modes Count="1"> <FormatVersion Value="1"/>
<Mode0 Name="default"> </local>
<local>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="3"> <RequiredPackages Count="3">
<Item1> <Item1>
@ -44,7 +39,7 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item3> </Item3>
</RequiredPackages> </RequiredPackages>
<Units Count="11"> <Units Count="15">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -59,8 +54,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<TopLine Value="55"/> <TopLine Value="57"/>
<CursorPos X="38" Y="51"/> <CursorPos X="11" Y="67"/>
<UsageCount Value="22"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -127,15 +122,46 @@
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="../../rxdb/rxlookup.pas"/> <Filename Value="../../rxdb/rxlookup.pas"/>
<IsVisibleTab Value="True"/> <EditorIndex Value="-1"/>
<EditorIndex Value="1"/>
<TopLine Value="957"/> <TopLine Value="957"/>
<CursorPos X="25" Y="978"/> <CursorPos X="25" Y="978"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit10> </Unit10>
<Unit11>
<Filename Value="../../registerrx.pas"/>
<EditorIndex Value="-1"/>
<UsageCount Value="10"/>
</Unit11>
<Unit12>
<Filename Value="../../registerrxdb.pas"/>
<UnitName Value="RegisterRxDB"/>
<EditorIndex Value="1"/>
<TopLine Value="34"/>
<CursorPos X="36" Y="155"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit12>
<Unit13>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/>
<UnitName Value="RxDBGridExportPdf"/>
<EditorIndex Value="2"/>
<TopLine Value="183"/>
<CursorPos X="3" Y="196"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit13>
<Unit14>
<Filename Value="../../rxdb/rxdbgridexportpdfsetupunit.pas"/>
<UnitName Value="RxDBGridExportPdfSetupUnit"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="3"/>
<TopLine Value="83"/>
<CursorPos X="31" Y="98"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit14>
</Units> </Units>
<JumpHistory Count="16" HistoryIndex="15"> <JumpHistory Count="17" HistoryIndex="16">
<Position1> <Position1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="47" TopLine="34"/> <Caret Line="47" TopLine="34"/>
@ -177,29 +203,33 @@
<Caret Line="74" Column="29" TopLine="40"/> <Caret Line="74" Column="29" TopLine="40"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="../../rxdb/rxlookup.pas"/>
<Caret Line="362" Column="14" TopLine="345"/>
</Position11>
<Position12>
<Filename Value="../../rxdb/rxlookup.pas"/>
<Caret Line="323" Column="33" TopLine="303"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="51" Column="38" TopLine="40"/> <Caret Line="51" Column="38" TopLine="40"/>
</Position13> </Position11>
<Position14> <Position12>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="52" Column="38" TopLine="41"/> <Caret Line="52" Column="38" TopLine="41"/>
</Position12>
<Position13>
<Filename Value="../../registerrxdb.pas"/>
<Caret Line="142" Column="15" TopLine="130"/>
</Position13>
<Position14>
<Filename Value="../../registerrxdb.pas"/>
<Caret Line="154" Column="31" TopLine="146"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="unit1.pas"/> <Filename Value="../../registerrxdb.pas"/>
<Caret Line="51" Column="38" TopLine="55"/> <Caret Line="155" Column="36" TopLine="34"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="../../rxdb/rxlookup.pas"/> <Filename Value="../../rxdb/rxdbgridexportpdf.pas"/>
<Caret Line="238" Column="28" TopLine="227"/> <Caret Line="194" Column="31" TopLine="186"/>
</Position16> </Position16>
<Position17>
<Filename Value="../../rxdb/rxdbgridexportpdf.pas"/>
<Caret Line="846" Column="84" TopLine="833"/>
</Position17>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

6
components/rx/trunk/registerrxdb.pas
View File

@ -43,7 +43,7 @@ implementation
uses DB, DBPropEdits, rxdbgrid, RxDBSpinEdit, RxDBTimeEdit, RxDBCtrls, rxmemds, uses DB, DBPropEdits, rxdbgrid, RxDBSpinEdit, RxDBTimeEdit, RxDBCtrls, rxmemds,
ComponentEditors, rxseldsfrm, PropEdits, RxDBColorBox, rxdbdateedit, rxdbcomb, ComponentEditors, rxseldsfrm, PropEdits, RxDBColorBox, rxdbdateedit, rxdbcomb,
rxlookup, rxdbcurredit, RxDBGridFooterTools, rxdbverticalgrid rxlookup, rxdbcurredit, RxDBGridFooterTools, rxdbverticalgrid
{$IF (FPC_FULLVERSION >= 30101)} {$IF (FPC_FULLVERSION >= 30004)}
, RxDBGridExportPdf , RxDBGridExportPdf
{$ENDIF} {$ENDIF}
; ;
@ -151,7 +151,7 @@ begin
RegisterComponents('RX DBAware',[TRxDBGridFooterTools]); RegisterComponents('RX DBAware',[TRxDBGridFooterTools]);
end; end;
{$IF (FPC_FULLVERSION >= 30101)} {$IF (FPC_FULLVERSION >= 30004)}
procedure RegisterRxDBGridExportPDF; procedure RegisterRxDBGridExportPDF;
begin begin
RegisterComponents('RX DBAware',[TRxDBGridExportPDF]); RegisterComponents('RX DBAware',[TRxDBGridExportPDF]);
@ -205,7 +205,7 @@ begin
RegisterUnit('RxDBGridFooterTools', @RegisterRxDbGridFooterTools); RegisterUnit('RxDBGridFooterTools', @RegisterRxDbGridFooterTools);
RegisterUnit('rxdbverticalgrid', @RegisterRxDBVerticalGrid); RegisterUnit('rxdbverticalgrid', @RegisterRxDBVerticalGrid);
{$IF (FPC_FULLVERSION >= 30101)} {$IF (FPC_FULLVERSION >= 30004)}
RegisterUnit('RxDBGridExportPdf', @RegisterRxDBGridExportPDF); RegisterUnit('RxDBGridExportPdf', @RegisterRxDBGridExportPDF);
{$ENDIF} {$ENDIF}

4
components/rx/trunk/rxdb/rxdbgridexportpdf.pas
View File

@ -35,7 +35,7 @@ unit RxDBGridExportPdf;
interface interface
{$IF (FPC_FULLVERSION >= 30101)} {$IF (FPC_FULLVERSION >= 30004)}
uses uses
Classes, SysUtils, DB, rxdbgrid, rxlclutils, Graphics, fpPDF, contnrs, fpparsettf, Classes, SysUtils, DB, rxdbgrid, rxlclutils, Graphics, fpPDF, contnrs, fpparsettf,
fpTTF; fpTTF;
@ -191,7 +191,7 @@ type
{$ENDIF} {$ENDIF}
implementation implementation
{$IF (FPC_FULLVERSION >= 30101)} {$IF (FPC_FULLVERSION >= 30004)}
uses Grids, rxdconst, FileUtil, Forms, Controls, LCLIntf, LazFileUtils, FPReadBMP, uses Grids, rxdconst, FileUtil, Forms, Controls, LCLIntf, LazFileUtils, FPReadBMP,
RxDBGridExportPdfSetupUnit, LazUTF8; RxDBGridExportPdfSetupUnit, LazUTF8;

4
components/rx/trunk/rxdb/rxdbgridexportpdfsetupunit.pas
View File

@ -35,7 +35,7 @@ unit RxDBGridExportPdfSetupUnit;
interface interface
{$IF (FPC_FULLVERSION >= 30101)} {$IF (FPC_FULLVERSION >= 30004)}
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
EditBtn, ButtonPanel, ExtCtrls, ComCtrls, ColorBox, fpPDF; EditBtn, ButtonPanel, ExtCtrls, ComCtrls, ColorBox, fpPDF;
@ -95,7 +95,7 @@ const
{$ENDIF} {$ENDIF}
implementation implementation
{$IF (FPC_FULLVERSION >= 30101)} {$IF (FPC_FULLVERSION >= 30004)}
uses rxdconst, LCLIntf; uses rxdconst, LCLIntf;
{$R *.lfm} {$R *.lfm}