ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/runtime/ibxscript.pas
(Generate patch)

Comparing ibx/trunk/runtime/ibxscript.pas (file contents):
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC vs.
Revision 108 by tony, Thu Jan 18 14:37:46 2018 UTC

# Line 652 | Line 652 | end;
652  
653   procedure TCustomIBXScript.SetDatabase(AValue: TIBDatabase);
654   begin
655 < if FDatabase = AValue then Exit;
655 > if not (csLoading in ComponentState) and (FDatabase = AValue) then Exit;
656   FDatabase := AValue;
657   FISQL.Database := AValue;
658   FIBXMLProcessor.Database := AValue;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines