# Please see issue #45 (#45).

silvioprog · Jul 13, 2013 · b48ebca · b48ebca
1 parent 7759ae1
commit b48ebca
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/brokers/brookadsbroker.pas b/brokers/brookadsbroker.pas
@@ -64,6 +64,7 @@   TBrookADSQuery = class(TBrookQuery)
   TBrookADSDataBase = class(TBrookDataBase)
   private
     FConn: TAdsConnection;
+    FSettings: TAdsSettings;
   protected
     function GetConnected: Boolean; override;
     function GetDatabase: string; override;
@@ -81,6 +82,7 @@   TBrookADSDataBase = class(TBrookDataBase)
     function GetConnection: TObject; override;
   public
     constructor Init; override;
+    destructor Destroy; override;
     class function GetLibrary: string; override;
     procedure Connect; override;
     procedure Disconnect; override;
@@ -236,6 +238,15 @@ constructor TBrookADSDataBase.Init;
   inherited Init;
   FConn := TAdsConnection.Create(nil);
   FConn.AdsServerTypes := [stADS_LOCAL];
+  FSettings := TAdsSettings.Create(nil);
+  FSettings.AdsServerTypes:= [stADS_LOCAL];
+  FSettings.ShowDeleted:= false;
+end;
+
+destructor TBrookADSDataBase.Destroy;
+begin
+  FSettings.Free;
+  inherited Destroy;
 end;
 
 function TBrookADSDataBase.GetPort: Integer;