Indicate SQL errors in progress bar, if Aero is activated.

source/helpers.pas

@@ -2329,6 +2329,7 @@ end;
 
 procedure EnableProgressBar(MaxValue: Integer);
 begin
+  Mainform.ProgressBarStatus.State := pbsNormal;
   Mainform.ProgressBarStatus.Visible := True;
   Mainform.ProgressBarStatus.Max := MaxValue;
   Mainform.ProgressBarStatus.Position := 0;

source/main.pas

@@ -2133,6 +2133,7 @@ begin
       on E:EDatabaseError do begin
         if actQueryStopOnErrors.Checked or (i = SQLBatch.Count - 1) then begin
           Screen.Cursor := crDefault;
+          ProgressBarStatus.State := pbsError;
           MessageDlg( E.Message, mtError, [mbOK], 0 );
           Break;
         end;