Browse Source

FIX: cm_CopyFileDetailsToClip with invisible rows

Alexander Koblov 4 years ago
parent
commit
f0e51b50a9
1 changed files with 8 additions and 1 deletions
  1. 8 1
      src/fileviews/ucolumnsfileview.pas

+ 8 - 1
src/fileviews/ucolumnsfileview.pas

@@ -1157,8 +1157,9 @@ end;
 procedure TColumnsFileView.cm_CopyFileDetailsToClip(const Params: array of string);
 var
   I: Integer;
+  sl: TStringList;
   AFile: TDisplayFile;
-  sl: TStringList = nil;
+  ColumnsClass: TPanelColumnsClass;
 
   procedure AddFile;
   var
@@ -1168,6 +1169,10 @@ var
     if AFile.FSFile.IsNameValid then
     begin
       S:= EmptyStr;
+      if AFile.DisplayStrings.Count = 0 then
+      begin
+        MakeColumnsStrings(AFile, ColumnsClass);
+      end;
       for J:= 0 to AFile.DisplayStrings.Count - 1 do
       begin
         S:= S + AFile.DisplayStrings[J] + #09;
@@ -1182,6 +1187,8 @@ begin
   begin
     sl:= TStringList.Create;
     try
+      ColumnsClass:= GetColumnsClass;
+
       for I:= 0 to FFiles.Count - 1 do
       begin
         AFile:= FFiles[I];