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

Sqldb: Add missing conditional. Issue #27749, patch from Mark Morgan Lloyd.

Browse Source 
git-svn-id: trunk@48530 -
This commit is contained in:
juha 2015-03-29 15:38:30 +00:00
parent 09da3ea087
commit 723c7b59ac
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/sqldb/registersqldb.pas
View File

@ -514,8 +514,10 @@ Var
procedure Register; procedure Register;
begin begin
{$IFDEF HASIBCONNECTION}
RegisterPropertyEditor(TypeInfo(AnsiString), RegisterPropertyEditor(TypeInfo(AnsiString),
TIBConnection, 'DatabaseName', TSQLFirebirdFileNamePropertyEditor); TIBConnection, 'DatabaseName', TSQLFirebirdFileNamePropertyEditor);
{$ENDIF}
RegisterPropertyEditor(TypeInfo(AnsiString), RegisterPropertyEditor(TypeInfo(AnsiString),
TSQLConnector, 'ConnectorType', TSQLDBConnectorTypePropertyEditor); TSQLConnector, 'ConnectorType', TSQLDBConnectorTypePropertyEditor);
{$IFDEF HASLIBLOADER} {$IFDEF HASLIBLOADER}