paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 22:19:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

SQLDB components: reordered icons from Graeme (issue #15892)

Browse Source 
* cleanup conditional compilation for fpc 2.2.0

git-svn-id: trunk@23841 -
This commit is contained in:
vincents 2010-03-05 09:49:18 +00:00
parent a20e1dcaac
commit 72487fa9f3
1 changed files with 2 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/sqldb/registersqldb.pas
View File

@ -22,19 +22,9 @@ unit registersqldb;
{$DEFINE HASMYSQL4CONNECTION}
{$DEFINE HASORACLECONNECTION}
{$DEFINE HASPQCONNECTION}
{$ENDIF}
{ SQLITE }
{$IFNDEF WIN64}
{$IFNDEF VER2_2_0}
{$DEFINE HASSQLITE3CONNECTION}
{$ENDIF}
{$ENDIF}
{ SQLSCRIPT }
{$IFNDEF VER2_2_0}
{$DEFINE HASSQLSCRIPT}
{$ENDIF}
interface
uses
@ -48,10 +38,10 @@ uses
{$IFDEF HASMYSQL4CONNECTION}
mysql40conn, mysql41conn,
{$ENDIF}
mysql50conn,
{$IFDEF HASSQLITE3CONNECTION}
sqlite3conn,
{$ENDIF}
mysql50conn,
propedits,
sqlstringspropertyeditordlg,
controls,
@ -84,10 +74,8 @@ procedure RegisterUnitSQLdb;
begin
RegisterComponents('SQLdb',[TSQLQuery,
TSQLTransaction,
{$IFDEF HASSQLSCRIPT}
TSQLScript,
TSQLConnector,
{$ENDIF}
{$IFDEF HASPQCONNECTION}
TPQConnection,
{$ENDIF}
@ -99,10 +87,10 @@ begin
TMySQL40Connection,
TMySQL41Connection,
{$ENDIF}
TMySQL50Connection,
{$IFDEF HASSQLITE3CONNECTION}
TSQLite3Connection,
{$ENDIF}
TMySQL50Connection,
TIBConnection]);
end;