* Publish autocommit in TSQLScript, make Aborted and Line public. Bug ID #30559

git-svn-id: trunk@34464 -

packages/fcl-db/src/sqldb/sqldb.pp

@@ -699,10 +699,13 @@ type
     destructor Destroy; override;
     procedure Execute; override;
     procedure ExecuteScript;
+    Property Aborted;
+    Property Line;
   published
     Property DataBase : TDatabase Read FDatabase Write SetDatabase;
     Property Transaction : TDBTransaction Read FTransaction Write SetTransaction;
     property OnDirective: TSQLScriptDirectiveEvent read FOnDirective write FOnDirective;
+    Property AutoCommit;
     Property UseDollarString;
     Property DollarStrings;
     property Directives;