add files count and trackers count in tracker/info

ADD: tab page 'Files/Trackers/Info' show how many files count in one torrent
ADD: tab page 'Files/Trackers/Info' show how many trackers count in one torrent

Author: GerryFerdinandus2

main.lfm

@@ -16,7 +16,7 @@ object FormTrackerModify: TFormTrackerModify
   OnDropFiles = FormDropFiles
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.2.4.0'
+  LCLVersion = '1.2.6.0'
   object PageControl: TPageControl
     Left = 0
     Height = 587
@@ -294,6 +294,10 @@ object FormTrackerModify: TFormTrackerModify
         Caption = '&Visit website'
         OnClick = MenuHelpVisitWebsiteClick
       end
+      object MenuHelpReportingIssue: TMenuItem
+        Caption = '&Reporting Issue'
+        OnClick = MenuHelpReportingIssueClick
+      end
     end
   end
   object PopupMenuTorrentFilesContent: TPopupMenu

main.pas

@@ -36,6 +36,7 @@   TFormTrackerModify = class(TForm)
     MenuFile: TMenuItem;
     MenuFileTorrentFolder: TMenuItem;
     MenuFileOpenTrackerList: TMenuItem;
+    MenuHelpReportingIssue: TMenuItem;
     MenuItemTorrentFilesTreeHideAll: TMenuItem;
     MenuItemTorrentFilesTreeShowTrackers: TMenuItem;
     MenuItemTorrentFilesTreeShowInfo: TMenuItem;
@@ -74,6 +75,7 @@   TFormTrackerModify = class(TForm)
     //At start of the program the form will be show/hide
     procedure FormShow(Sender: TObject);
     procedure MenuFileOpenTrackerListClick(Sender: TObject);
+    procedure MenuHelpReportingIssueClick(Sender: TObject);
     procedure MenuHelpVisitWebsiteClick(Sender: TObject);
 
     //Popup menu in treeview show all/hide all/ individual items selection.
@@ -167,7 +169,7 @@ implementation
     //    'udp://open.demonii.com:1337/announce'
     );
   //program name and version
-  FORM_CAPTION = 'Bittorrent tracker editor (1.30) ';
+  FORM_CAPTION = 'Bittorrent tracker editor (1.3x) BETA';
   TORRENT_FILES_CONTENTS_FORM_CAPTION =
     'Show all the files inside the torrents. (Use right mouse for popup menu.)';
 
@@ -941,6 +943,11 @@ procedure TFormTrackerModify.MenuFileOpenTrackerListClick(Sender: TObject);
   end;
 end;
 
+procedure TFormTrackerModify.MenuHelpReportingIssueClick(Sender: TObject);
+begin
+    OpenURL('http://code.google.com/p/bittorrent-tracker-editor/issues');
+end;
+
 
 function TFormTrackerModify.ReadAddTrackerFileFromUser(
   const FileName: UTF8String): boolean;
@@ -1320,12 +1327,18 @@ procedure TFormTrackerModify.ViewUpdateOneTorrentFileDecoded;
     end;
   end;
 
+  //Show a how many files are there
+   TreeNodeFiles.Text:= TreeNodeFiles.Text + ' (' + IntToStr(TreeNodeFiles.Count) + ')';
+
+
   //Show all the trackers inside the torrent
   for TrackerStr in FDecodePresentTorrent.TrackerList do
   begin
     TreeViewFileContents.Items.AddChild(TreeNodeTrackers, TrackerStr);
   end;
 
+  //Show a how many trackers are there
+   TreeNodeTrackers.Text:= TreeNodeTrackers.Text + ' (' + IntToStr(TreeNodeTrackers.Count) + ')';
 
 
   //Show all the info of torrent

trackereditor.lpi

@@ -55,8 +55,8 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1219"/>
-        <CursorPos X="21" Y="1318"/>
+        <TopLine Value="946"/>
+        <CursorPos X="71" Y="949"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -85,7 +85,7 @@
         <Filename Value="bencode.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="BEncode"/>
-        <EditorIndex Value="1"/>
+        <EditorIndex Value="3"/>
         <WindowIndex Value="0"/>
         <TopLine Value="15"/>
         <CursorPos X="62" Y="66"/>
@@ -96,7 +96,7 @@
         <Filename Value="decodetorrent.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="DecodeTorrent"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="4"/>
         <WindowIndex Value="0"/>
         <TopLine Value="283"/>
         <CursorPos X="27" Y="339"/>
@@ -361,10 +361,12 @@
       <Unit41>
         <Filename Value="C:\lazarus\lcl\comctrls.pp"/>
         <UnitName Value="ComCtrls"/>
+        <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="3316"/>
-        <CursorPos X="14" Y="3369"/>
+        <TopLine Value="2769"/>
+        <CursorPos X="3" Y="2700"/>
         <UsageCount Value="14"/>
+        <Loaded Value="True"/>
       </Unit41>
       <Unit42>
         <Filename Value="C:\lazarus\lcl\include\customform.inc"/>
@@ -441,10 +443,12 @@
       </Unit51>
       <Unit52>
         <Filename Value="C:\lazarus\lcl\include\treeview.inc"/>
+        <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="2119"/>
-        <CursorPos X="33" Y="2125"/>
+        <TopLine Value="1227"/>
+        <CursorPos X="3" Y="1229"/>
         <UsageCount Value="11"/>
+        <Loaded Value="True"/>
       </Unit52>
       <Unit53>
         <Filename Value="C:\lazarus\fpc\2.6.4\source\rtl\objpas\sysutils\sysstrh.inc"/>
@@ -478,123 +482,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="main.pas"/>
-        <Caret Line="762" Column="1" TopLine="712"/>
+        <Caret Line="807" Column="1" TopLine="754"/>
       </Position1>
       <Position2>
         <Filename Value="main.pas"/>
-        <Caret Line="765" Column="1" TopLine="712"/>
+        <Caret Line="810" Column="1" TopLine="754"/>
       </Position2>
       <Position3>
         <Filename Value="main.pas"/>
-        <Caret Line="769" Column="1" TopLine="712"/>
+        <Caret Line="812" Column="1" TopLine="754"/>
       </Position3>
       <Position4>
         <Filename Value="main.pas"/>
-        <Caret Line="771" Column="1" TopLine="712"/>
+        <Caret Line="813" Column="1" TopLine="754"/>
       </Position4>
       <Position5>
         <Filename Value="main.pas"/>
-        <Caret Line="793" Column="1" TopLine="712"/>
+        <Caret Line="815" Column="1" TopLine="754"/>
       </Position5>
       <Position6>
         <Filename Value="main.pas"/>
-        <Caret Line="796" Column="1" TopLine="712"/>
+        <Caret Line="816" Column="1" TopLine="754"/>
       </Position6>
       <Position7>
         <Filename Value="main.pas"/>
-        <Caret Line="798" Column="1" TopLine="712"/>
+        <Caret Line="819" Column="1" TopLine="754"/>
       </Position7>
       <Position8>
         <Filename Value="main.pas"/>
-        <Caret Line="415" Column="1" TopLine="362"/>
+        <Caret Line="823" Column="1" TopLine="754"/>
       </Position8>
       <Position9>
         <Filename Value="main.pas"/>
-        <Caret Line="807" Column="1" TopLine="754"/>
+        <Caret Line="824" Column="1" TopLine="754"/>
       </Position9>
       <Position10>
         <Filename Value="main.pas"/>
-        <Caret Line="810" Column="1" TopLine="754"/>
+        <Caret Line="823" Column="1" TopLine="754"/>
       </Position10>
       <Position11>
         <Filename Value="main.pas"/>
-        <Caret Line="812" Column="1" TopLine="754"/>
+        <Caret Line="824" Column="1" TopLine="754"/>
       </Position11>
       <Position12>
-        <Filename Value="main.pas"/>
-        <Caret Line="813" Column="1" TopLine="754"/>
+        <Filename Value="decodetorrent.pas"/>
+        <Caret Line="45" Column="14" TopLine="1"/>
       </Position12>
       <Position13>
-        <Filename Value="main.pas"/>
-        <Caret Line="815" Column="1" TopLine="754"/>
+        <Filename Value="decodetorrent.pas"/>
+        <Caret Line="165" Column="14" TopLine="78"/>
       </Position13>
       <Position14>
-        <Filename Value="main.pas"/>
-        <Caret Line="816" Column="1" TopLine="754"/>
+        <Filename Value="decodetorrent.pas"/>
+        <Caret Line="166" Column="24" TopLine="78"/>
       </Position14>
       <Position15>
-        <Filename Value="main.pas"/>
-        <Caret Line="819" Column="1" TopLine="754"/>
+        <Filename Value="decodetorrent.pas"/>
+        <Caret Line="167" Column="14" TopLine="78"/>
       </Position15>
       <Position16>
-        <Filename Value="main.pas"/>
-        <Caret Line="823" Column="1" TopLine="754"/>
+        <Filename Value="decodetorrent.pas"/>
+        <Caret Line="215" Column="32" TopLine="131"/>
       </Position16>
       <Position17>
-        <Filename Value="main.pas"/>
-        <Caret Line="824" Column="1" TopLine="754"/>
+        <Filename Value="decodetorrent.pas"/>
+        <Caret Line="222" Column="32" TopLine="131"/>
       </Position17>
       <Position18>
         <Filename Value="main.pas"/>
-        <Caret Line="823" Column="1" TopLine="754"/>
+        <Caret Line="23" Column="75" TopLine="1"/>
       </Position18>
       <Position19>
         <Filename Value="main.pas"/>
-        <Caret Line="824" Column="1" TopLine="754"/>
+        <Caret Line="233" Column="45" TopLine="134"/>
       </Position19>
       <Position20>
-        <Filename Value="decodetorrent.pas"/>
-        <Caret Line="45" Column="14" TopLine="1"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1292" Column="78" TopLine="1212"/>
       </Position20>
       <Position21>
-        <Filename Value="decodetorrent.pas"/>
-        <Caret Line="165" Column="14" TopLine="78"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1296" Column="37" TopLine="1212"/>
       </Position21>
       <Position22>
-        <Filename Value="decodetorrent.pas"/>
-        <Caret Line="166" Column="24" TopLine="78"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1297" Column="56" TopLine="1212"/>
       </Position22>
       <Position23>
-        <Filename Value="decodetorrent.pas"/>
-        <Caret Line="167" Column="14" TopLine="78"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1324" Column="17" TopLine="1262"/>
       </Position23>
       <Position24>
-        <Filename Value="decodetorrent.pas"/>
-        <Caret Line="215" Column="32" TopLine="131"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1250" Column="20" TopLine="1196"/>
       </Position24>
       <Position25>
-        <Filename Value="decodetorrent.pas"/>
-        <Caret Line="222" Column="32" TopLine="131"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="1325" Column="18" TopLine="1241"/>
       </Position25>
       <Position26>
         <Filename Value="main.pas"/>
-        <Caret Line="23" Column="75" TopLine="1"/>
+        <Caret Line="1264" Column="70" TopLine="1241"/>
       </Position26>
       <Position27>
         <Filename Value="main.pas"/>
-        <Caret Line="233" Column="45" TopLine="134"/>
+        <Caret Line="170" Column="56" TopLine="105"/>
       </Position27>
       <Position28>
         <Filename Value="main.pas"/>
-        <Caret Line="1292" Column="78" TopLine="1212"/>
+        <Caret Line="172" Column="56" TopLine="107"/>
       </Position28>
       <Position29>
         <Filename Value="main.pas"/>
-        <Caret Line="1296" Column="37" TopLine="1212"/>
+        <Caret Line="948" Column="3" TopLine="892"/>
       </Position29>
       <Position30>
         <Filename Value="main.pas"/>
-        <Caret Line="1297" Column="56" TopLine="1212"/>
+        <Caret Line="281" Column="65" TopLine="278"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>
@@ -638,14 +642,14 @@
         <WatchScope Value="wpsLocal"/>
         <WatchKind Value="wpkWrite"/>
         <Source Value="main.pas"/>
-        <Line Value="193"/>
+        <Line Value="195"/>
       </Item1>
       <Item2>
         <Kind Value="bpkSource"/>
         <WatchScope Value="wpsLocal"/>
         <WatchKind Value="wpkWrite"/>
         <Source Value="main.pas"/>
-        <Line Value="571"/>
+        <Line Value="573"/>
       </Item2>
     </BreakPoints>
     <Exceptions Count="3">

version.txt

@@ -1,3 +1,7 @@
+------ Version 1.3x
+ADD: tab page 'Files/Trackers/Info' show how many files count in one torrent
+ADD: tab page 'Files/Trackers/Info' show how many trackers count in one torrent
+
 ------ Version 1.30
 ADD: Tab page Files/trackers/info
 ADD: Optional start program from console. (See readme.txt file)