diff --git a/src/application/ljv.application.version.pas b/src/application/ljv.application.version.pas
index 5d5a53d..af30793 100644
--- 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
index 779bdfa..0fb7f93 100644
--- 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
index e9cc912..fefb56e 100644
--- a/src/lazJSONViewer.lpi
+++ b/src/lazJSONViewer.lpi
@@ -24,7 +24,7 @@
-
+