Update some text caption.

name explicit 'new' trackers.
create constant GROUPBOX_PRESENT_TRACKERS_CAPTION

Author: GerryFerdinandus

source/code/main.lfm

@@ -8,7 +8,7 @@ object FormTrackerModify: TFormTrackerModify
   ClientHeight = 587
   ClientWidth = 1179
   Constraints.MinHeight = 500
-  Constraints.MinWidth = 640
+  Constraints.MinWidth = 700
   Font.Height = -11
   Menu = MainMenu
   OnCreate = FormCreate
@@ -45,7 +45,7 @@ object FormTrackerModify: TFormTrackerModify
           Top = 1
           Width = 1169
           Align = alTop
-          Caption = 'Add trackers to torrent file(s).'
+          Caption = 'Add new trackers to torrent file(s).'
           ClientHeight = 183
           ClientWidth = 1165
           Constraints.MinHeight = 100

source/code/main.pas

@@ -244,6 +244,10 @@ implementation
   TORRENT_FILES_CONTENTS_FORM_CAPTION =
     'Show all the files inside the torrents. (Use right mouse for popup menu.)';
 
+  GROUPBOX_PRESENT_TRACKERS_CAPTION =
+  'Present trackers in all torrent files. Select the one that you want to keep. And added to all torrent files.';
+
+
   //'add trackers' text file must be place in the same directory as the program.
   ADD_TRACKERS_FILE_NAME = 'add_trackers.txt';
 
@@ -263,7 +267,6 @@ implementation
 
 procedure TFormTrackerModify.FormCreate(Sender: TObject);
 begin
-  Caption := FORM_CAPTION;
 
   //Create controler for StringGridTorrentData
   FControlerGridTorrentData := TControlerGridTorrentData.Create(StringGridTorrentData);
@@ -324,7 +327,11 @@ procedure TFormTrackerModify.FormCreate(Sender: TObject);
   //Check is program is started as console
   ConsoleMode;
 
+  //Update some captions
+  Caption := FORM_CAPTION;
   GroupBoxTorrentContents.Caption := TORRENT_FILES_CONTENTS_FORM_CAPTION;
+  GroupBoxPresentTracker.Caption := GROUPBOX_PRESENT_TRACKERS_CAPTION
+
 end;
 
 procedure TFormTrackerModify.FormDestroy(Sender: TObject);
@@ -1815,9 +1822,8 @@ procedure TFormTrackerModify.ViewUpdateEnd;
     ByteSizeToBiggerSizeFormatStr(FTotalFileSizeInsideTorrent) + '';
 
 
-  GroupBoxPresentTracker.Caption :=
-    'Present trackers in all torrent files.' +
-    ' Select the one that you want to keep. (List count: ' +
+  GroupBoxPresentTracker.Caption := GROUPBOX_PRESENT_TRACKERS_CAPTION +
+    ' (List count: ' +
     IntToStr(FTrackerFromInsideTorrentFilesList.Count) + ' )';