ADD: Edit comment in data/info grid column.

FIX: The data/info column can be moved but it is not updated corectly when torrent is reloaded.

Author: GerryFerdinandus2

controlergridtorrentdata.pas

@@ -0,0 +1,200 @@
+unit controlergridtorrentdata;
+
+{
+The view string grid shows all the information of the torrent.
+The grid column position order can be rearange by the user.
+The updating and reading of the column position must be 'dynamic'.
+Must keep track of the position of the column even when the user rearange it.
+
+There are 10 column that must be 'track'
+}
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Grids;
+
+type
+
+  { TControlerGridTorrentData }
+
+  TControlerGridTorrentData = class
+  private
+    //The view grid that must be controled.
+    FStringGridTorrentData: TStringGrid;
+
+    //The collumn must be in this design order.
+    FTorrentFile,           //0
+    FInfoFileName,          //1
+    FInfoHash,              //2
+    FCreatedOn,             //3
+    FCreatedBy,             //4
+    FComment,               //5
+    FPrivateTorrent,        //6
+    FPieceLength,           //7
+    FTotaSize,              //8
+    FIndexOrder             //9
+    : TGridColumn;
+
+    FRowIsMovedNeedUpdate: boolean;
+    procedure StringGridTorrentDataColRowMoved(Sender: TObject;
+      IsColumn: boolean; sIndex, tIndex: integer);
+    procedure AddColumn(var GridColumn: TGridColumn; index: integer);
+    procedure UpdateColumnTag;
+    procedure ClearAllImageIndex;
+    procedure WriteCell(GridColumn: TGridColumn; const Str: UTF8String);
+  public
+    //All the string that can be written to grid.
+    TorrentFile,           //0
+    InfoFileName,          //1
+    InfoHash,              //2
+    CreatedOn,             //3
+    CreatedBy,             //4
+    Comment,               //5
+    PrivateTorrent,        //6
+    PieceLength,           //7
+    TotaSize,              //8
+    IndexOrder             //9
+    : UTF8String;
+
+    procedure AppendRow;
+    procedure ReorderGrid;
+    function ReadComment(Rowindex: integer): UTF8String;
+    constructor Create(StringGridTorrentData: TStringGrid);
+    destructor Destroy; override;
+  end;
+
+implementation
+
+{ TControlerGridTorrentData }
+const
+  COLUMN_COUNT = 10;
+
+procedure TControlerGridTorrentData.StringGridTorrentDataColRowMoved(Sender: TObject;
+  IsColumn: boolean; sIndex, tIndex: integer);
+begin
+  //This is called before the column is moved 'rearrange' by the user.
+  FRowIsMovedNeedUpdate := True;
+end;
+
+procedure TControlerGridTorrentData.AddColumn(var GridColumn: TGridColumn;
+  index: integer);
+begin
+  GridColumn := FStringGridTorrentData.Columns[index];
+end;
+
+procedure TControlerGridTorrentData.UpdateColumnTag;
+var
+  i: integer;
+begin
+  //fill the 'tag' value as the position of the coulumn.
+  //this methode must be only called when the user change the column order.
+  for i := 0 to FStringGridTorrentData.ColCount - 1 do
+  begin
+    FStringGridTorrentData.Columns[i].Tag :=
+      FStringGridTorrentData.Columns.IndexOf(FStringGridTorrentData.Columns[i]);
+  end;
+
+  //The tag is now in sync column index. It is process.
+  FRowIsMovedNeedUpdate := False;
+end;
+
+procedure TControlerGridTorrentData.ClearAllImageIndex;
+var
+  i: integer;
+begin
+  //The sort icon must be removed from the title bar
+    for i := 0 to FStringGridTorrentData.ColCount - 1 do
+  begin
+    FStringGridTorrentData.Columns[i].Title.ImageIndex := -1;
+  end;
+end;
+
+procedure TControlerGridTorrentData.WriteCell(GridColumn: TGridColumn;
+  const Str: UTF8String);
+begin
+  FStringGridTorrentData.Cells[GridColumn.Tag,
+    FStringGridTorrentData.RowCount - 1] := Str;
+end;
+
+procedure TControlerGridTorrentData.AppendRow;
+begin
+  //Add a new empty row, copy all the stings to this empty row.
+
+  //Update Column.tag if row have change.
+  if FRowIsMovedNeedUpdate then
+    UpdateColumnTag;
+
+  //Create a empty row to at the bottom.
+  FStringGridTorrentData.InsertColRow(False, FStringGridTorrentData.RowCount);
+
+  //write all the string to the cell.
+  WriteCell(FTorrentFile, TorrentFile);
+  WriteCell(FInfoFileName, InfoFileName);
+  WriteCell(FInfoHash, InfoHash);
+  WriteCell(FCreatedOn, CreatedOn);
+  WriteCell(FCreatedBy, CreatedBy);
+  WriteCell(FComment, Comment);
+  WriteCell(FPrivateTorrent, PrivateTorrent);
+  WriteCell(FPieceLength, PieceLength);
+  WriteCell(FTotaSize, TotaSize);
+  WriteCell(FIndexOrder, IndexOrder);
+
+end;
+
+procedure TControlerGridTorrentData.ReorderGrid;
+begin
+  //Undo all posible sort column used by the user. Sort it back to 'begin state'
+  //FIndexOrder is a non visible row use for this purpose. TGridColumnTitle
+  FStringGridTorrentData.SortOrder := soAscending;
+  FStringGridTorrentData.SortColRow(True,
+    FStringGridTorrentData.Columns.IndexOf(FIndexOrder));
+
+  //The order are no longer the same. Hide the ascending/decending icon.
+  ClearAllImageIndex;
+end;
+
+function TControlerGridTorrentData.ReadComment(Rowindex: integer): UTF8String;
+begin
+  //Update Column.tag if row have change.
+  if FRowIsMovedNeedUpdate then
+    UpdateColumnTag;
+
+  //Read the 'comment' grid cell.
+  Result := FStringGridTorrentData.Cells[FComment.Tag, Rowindex];
+end;
+
+constructor TControlerGridTorrentData.Create(StringGridTorrentData: TStringGrid);
+begin
+  inherited Create;
+  FStringGridTorrentData := StringGridTorrentData;
+
+  //When user move the row, call StringGridTorrentDataColRowMoved.
+  FStringGridTorrentData.OnColRowMoved := @StringGridTorrentDataColRowMoved;
+
+  //The view and the controler part must have the same column count.
+  Assert(FStringGridTorrentData.ColCount <> COLUMN_COUNT, 'Wrong column count');
+
+  //Track the column
+  AddColumn(FTorrentFile, 0);
+  AddColumn(FInfoFileName, 1);
+  AddColumn(FInfoHash, 2);
+  AddColumn(FCreatedOn, 3);
+  AddColumn(FCreatedBy, 4);
+  AddColumn(FComment, 5);
+  AddColumn(FPrivateTorrent, 6);
+  AddColumn(FPieceLength, 7);
+  AddColumn(FTotaSize, 8);
+  AddColumn(FIndexOrder, 9);
+
+  //Fillin the tag value
+  UpdateColumnTag;
+end;
+
+destructor TControlerGridTorrentData.Destroy;
+begin
+  inherited Destroy;
+end;
+
+end.

decodetorrent.pas

@@ -48,6 +48,7 @@   TDecodeTorrent = class
 
     //Torrent file must have 'info' item.
     FBEncoded_Info:TBEncoded;
+    FBEncoded_Comment: TBEncoded;
 
     FInfoHash: utf8string;
     FCreatedBy: utf8string;
@@ -68,6 +69,7 @@   TDecodeTorrent = class
     function GetName: utf8string;
     function GetPieceLenght: int64;
     function GetPrivateTorrent: boolean;
+    procedure SetComment(const AValue: utf8string);
   public
     //All the trackers inside this torrent file
     TrackerList: TStringList;
@@ -88,7 +90,7 @@   TDecodeTorrent = class
     property CreatedDate: TDateTime read FCreatedDate;
 
     //Comment
-    property Comment: utf8string read FComment;
+    property Comment: utf8string read FComment write SetComment;
 
     //info.name
     property Name: utf8string read FName;
@@ -413,6 +415,56 @@ function TDecodeTorrent.GetPrivateTorrent: boolean;
   end;
 end;
 
+procedure TDecodeTorrent.SetComment(const AValue: utf8string);
+var
+//  Encoded: TBEncoded;
+  Data: TBEncodedData;
+begin
+  if FComment=AValue then Exit;
+  FComment:=AValue;
+  try
+    //if empty comment then remove the element.
+    if FComment = '' then
+    begin
+      FBEncoded.ListData.RemoveElement('comment');
+      exit;
+    end;
+
+    //if there is no comment element, then make new one
+    if not assigned(FBEncoded_Comment) then
+    begin
+      FBEncoded_Comment := TBEncoded.Create;
+      FBEncoded_Comment.Format := befString;
+      FBEncoded_Comment.StringData := FComment;
+      Data := TBEncodedData.Create(FBEncoded_Comment);
+      Data.Header := 'comment';
+      FBEncoded.ListData.Add(Data);
+    end
+    else
+    begin
+      FBEncoded_Comment.StringData := FComment;
+    end;
+
+  except
+  end;
+
+end;
+
+
+{
+try
+    Encoded := TBEncoded.Create;
+    Encoded.Format := befString;
+    Encoded.StringData := TrackerURL;
+    Data := TBEncodedData.Create(Encoded);
+    Data.Header := 'announce';
+    FBEncoded.ListData.Add(Data);
+    FBEncoded.ListData.Sort(@sort_);//text must be in alfabetical order.
+except
+end;
+
+}
+
 procedure TDecodeTorrent.RemovePrivateTorrentFlag;
 begin
   try
@@ -588,14 +640,12 @@ function TDecodeTorrent.GetCreatedDate: TDateTime;
 end;
 
 function TDecodeTorrent.GetComment: utf8string;
-var
-  TempBEncoded: TBEncoded;
 begin
   Result := '';
   try
-      TempBEncoded := FBEncoded.ListData.FindElement('comment');
-      if assigned(TempBEncoded) then
-        Result := UTF8Trim( TempBEncoded.StringData);
+      FBEncoded_Comment := FBEncoded.ListData.FindElement('comment');
+      if assigned(FBEncoded_Comment) then
+        Result := UTF8Trim( FBEncoded_Comment.StringData);
   except
   end;
 end;

main.lfm

@@ -139,52 +139,66 @@ object FormTrackerModify: TFormTrackerModify
         Top = 0
         Width = 1171
         Align = alClient
-        ColCount = 9
+        ColCount = 10
         ColumnClickSorts = True
         Columns = <        
           item
+            ReadOnly = True
             Title.Caption = 'Torrent File'
             Width = 250
           end        
           item
+            ReadOnly = True
             Title.Caption = 'Info Filename'
             Width = 250
           end        
           item
             MaxSize = 250
+            ReadOnly = True
             Title.Caption = 'Info Hash'
             Width = 280
           end        
           item
+            ReadOnly = True
             Title.Caption = 'Created On'
             Width = 145
           end        
           item
+            ReadOnly = True
             Title.Caption = 'Created By'
             Width = 145
           end        
           item
-            Title.Caption = 'Comment'
-            Width = 145
+            Title.Caption = 'Comment (can be edited)'
+            Width = 160
           end        
           item
+            ReadOnly = True
             Title.Caption = 'Private'
             Width = 50
           end        
           item
             Alignment = taRightJustify
+            ReadOnly = True
             Title.Alignment = taRightJustify
             Title.Caption = 'Piece Length (KiB)'
             Width = 100
           end        
           item
             Alignment = taRightJustify
+            ReadOnly = True
             Title.Alignment = taRightJustify
             Title.Caption = 'Total size (KiB)'
             Width = 100
+          end        
+          item
+            ReadOnly = True
+            Title.Alignment = taRightJustify
+            Title.Caption = 'IndexOrder (internal used)'
+            Visible = False
           end>
         FixedCols = 0
-        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goColMoving, goSmoothScroll]
+        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goColMoving, goEditing, goSmoothScroll]
         RowCount = 1
         TabOrder = 0
         TitleFont.Height = -11
@@ -194,10 +208,11 @@ object FormTrackerModify: TFormTrackerModify
           280
           145
           145
-          145
+          160
           50
           100
           100
+          0
         )
       end
     end