Add (-SAC) to the form caption

Show the program mode in the main program caption.

Author: GerryFerdinandus

source/code/main.pas

@@ -317,6 +317,7 @@ procedure TFormTrackerModify.FormCreate(Sender: TObject);
 procedure TFormTrackerModify.CheckBoxSkipAnnounceCheckChange(Sender: TObject);
 begin
   FTrackerList.SkipAnnounceCheck := CheckBoxSkipAnnounceCheck.Checked;
+  ViewUpdateFormCaption;
 end;
 
 procedure TFormTrackerModify.CheckBoxRemoveAllSourceTagChange(Sender: TObject);
@@ -1761,10 +1762,16 @@ procedure TFormTrackerModify.ViewUpdateFormCaption;
   DecodeTime(FProcessTimeTotal, Hour, Minute, Second, MilliSecond);
   ProcessTimeStr := IntToStr((Second * 1000) + MilliSecond) + ' mSec';
 }
-
   //Show user how many files are loaded
   Caption := FORM_CAPTION + '( Torrent files: ' +
     IntToStr(FTrackerList.TorrentFileNameList.Count) + ' )';
+
+  if CheckBoxSkipAnnounceCheck.Checked then
+  begin
+    Caption := Caption + '(-SAC)';
+  end;
+
+
   //  + ' (Process Time: ' +  ProcessTimeStr + ' )'; //for debug purpose.
 end;