From 6874b739d8fbcfee311fd7cc698c12d72a4607c0 Mon Sep 17 00:00:00 2001 From: alexs75 Date: Wed, 7 Feb 2018 06:02:09 +0000 Subject: [PATCH] RxFPC:enable TRxDBGridExportPDF for FPC 3.0.4 git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6183 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../rx/trunk/demos/RxLookup/project1.lpi | 90 ++++++++++++------- components/rx/trunk/registerrxdb.pas | 6 +- .../rx/trunk/rxdb/rxdbgridexportpdf.pas | 4 +- .../trunk/rxdb/rxdbgridexportpdfsetupunit.pas | 4 +- 4 files changed, 67 insertions(+), 37 deletions(-) diff --git a/components/rx/trunk/demos/RxLookup/project1.lpi b/components/rx/trunk/demos/RxLookup/project1.lpi index 06c947d17..d2ff8b3fa 100644 --- a/components/rx/trunk/demos/RxLookup/project1.lpi +++ b/components/rx/trunk/demos/RxLookup/project1.lpi @@ -1,7 +1,7 @@ - + @@ -22,14 +22,9 @@ - - - - - - - - + + + @@ -44,7 +39,7 @@ - + @@ -59,8 +54,8 @@ - - + + @@ -127,15 +122,46 @@ - - + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + @@ -177,29 +203,33 @@ - - - - - - - - - - + + + + + + + + + + - - + + - - + + + + + + diff --git a/components/rx/trunk/registerrxdb.pas b/components/rx/trunk/registerrxdb.pas index d8da03eb1..531e33a98 100644 --- a/components/rx/trunk/registerrxdb.pas +++ b/components/rx/trunk/registerrxdb.pas @@ -43,7 +43,7 @@ implementation uses DB, DBPropEdits, rxdbgrid, RxDBSpinEdit, RxDBTimeEdit, RxDBCtrls, rxmemds, ComponentEditors, rxseldsfrm, PropEdits, RxDBColorBox, rxdbdateedit, rxdbcomb, rxlookup, rxdbcurredit, RxDBGridFooterTools, rxdbverticalgrid - {$IF (FPC_FULLVERSION >= 30101)} + {$IF (FPC_FULLVERSION >= 30004)} , RxDBGridExportPdf {$ENDIF} ; @@ -151,7 +151,7 @@ begin RegisterComponents('RX DBAware',[TRxDBGridFooterTools]); end; -{$IF (FPC_FULLVERSION >= 30101)} +{$IF (FPC_FULLVERSION >= 30004)} procedure RegisterRxDBGridExportPDF; begin RegisterComponents('RX DBAware',[TRxDBGridExportPDF]); @@ -205,7 +205,7 @@ begin RegisterUnit('RxDBGridFooterTools', @RegisterRxDbGridFooterTools); RegisterUnit('rxdbverticalgrid', @RegisterRxDBVerticalGrid); - {$IF (FPC_FULLVERSION >= 30101)} + {$IF (FPC_FULLVERSION >= 30004)} RegisterUnit('RxDBGridExportPdf', @RegisterRxDBGridExportPDF); {$ENDIF} diff --git a/components/rx/trunk/rxdb/rxdbgridexportpdf.pas b/components/rx/trunk/rxdb/rxdbgridexportpdf.pas index e16618331..85894deb5 100644 --- a/components/rx/trunk/rxdb/rxdbgridexportpdf.pas +++ b/components/rx/trunk/rxdb/rxdbgridexportpdf.pas @@ -35,7 +35,7 @@ unit RxDBGridExportPdf; interface -{$IF (FPC_FULLVERSION >= 30101)} +{$IF (FPC_FULLVERSION >= 30004)} uses Classes, SysUtils, DB, rxdbgrid, rxlclutils, Graphics, fpPDF, contnrs, fpparsettf, fpTTF; @@ -191,7 +191,7 @@ type {$ENDIF} implementation -{$IF (FPC_FULLVERSION >= 30101)} +{$IF (FPC_FULLVERSION >= 30004)} uses Grids, rxdconst, FileUtil, Forms, Controls, LCLIntf, LazFileUtils, FPReadBMP, RxDBGridExportPdfSetupUnit, LazUTF8; diff --git a/components/rx/trunk/rxdb/rxdbgridexportpdfsetupunit.pas b/components/rx/trunk/rxdb/rxdbgridexportpdfsetupunit.pas index f8d6c2e4f..e0559093d 100644 --- a/components/rx/trunk/rxdb/rxdbgridexportpdfsetupunit.pas +++ b/components/rx/trunk/rxdb/rxdbgridexportpdfsetupunit.pas @@ -35,7 +35,7 @@ unit RxDBGridExportPdfSetupUnit; interface -{$IF (FPC_FULLVERSION >= 30101)} +{$IF (FPC_FULLVERSION >= 30004)} uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, EditBtn, ButtonPanel, ExtCtrls, ComCtrls, ColorBox, fpPDF; @@ -95,7 +95,7 @@ const {$ENDIF} implementation -{$IF (FPC_FULLVERSION >= 30101)} +{$IF (FPC_FULLVERSION >= 30004)} uses rxdconst, LCLIntf; {$R *.lfm}