fix: Duplicate files on drag-and-drop

Closes: #12
gcarreno · Feb 3, 2021 · ddc71f2 · ddc71f2
1 parent 8765a6f
commit ddc71f2
Show file tree

Hide file tree

Showing 3 changed files with 20 additions and 6 deletions.
diff --git a/src/application/ljv.application.version.pas b/src/application/ljv.application.version.pas
@@ -27,11 +27,11 @@
 interface
 
 const
-  cVersion = '0.1.8.31';
+  cVersion = '0.1.8.32';
   cVersionMajor = 0;
   cVersionMinor = 1;
   cVersionRevision = 8;
-  cVersionBuild = 31;
+  cVersionBuild = 32;
 
 implementation
 

diff --git a/src/forms/ljv.forms.main.pas b/src/forms/ljv.forms.main.pas
@@ -543,6 +543,8 @@ function TfrmMain.FormatBytes(ABytes: Int64): String;
 procedure TfrmMain.AddFile(const AFilename: String);
 var
   len: Integer;
+  isDuplicate: Boolean;
+  filename: String;
 begin
   if Pos('*', AFilename) > 0 then
   begin
@@ -552,9 +554,21 @@ procedure TfrmMain.AddFile(const AFilename: String);
   begin
     if FileExists(AFilename) then
     begin
-      len:= Length(FFileList);
-      SetLength(FFileList, len + 1);
-      FFileList[len]:= ExpandFileName(AFilename);
+      isDuplicate:= False;
+      for filename in FFileList do
+      begin
+        if filename = AFilename then
+        begin
+          isDuplicate:= True;
+          break;
+        end;
+      end;
+      if not isDuplicate then
+      begin
+        len:= Length(FFileList);
+        SetLength(FFileList, len + 1);
+        FFileList[len]:= ExpandFileName(AFilename);
+      end;
     end;
   end;
 end;

diff --git a/src/lazJSONViewer.lpi b/src/lazJSONViewer.lpi
@@ -24,7 +24,7 @@
       <UseVersionInfo Value="True"/>
       <MinorVersionNr Value="1"/>
       <RevisionNr Value="8"/>
-      <BuildNr Value="31"/>
+      <BuildNr Value="32"/>
       <Language Value="0809"/>
     </VersionInfo>
     <BuildModes Count="4">