New version 1.03b, fixed a bug on opening an explorer on selected Sea…

…rch Memo
meboev · Jul 13, 2017 · 2e68a12 · 2e68a12
1 parent 49de1fb
commit 2e68a12
Show file tree

Hide file tree

Showing 5 changed files with 13 additions and 3 deletions.
diff --git a/AboutForms.dfm b/AboutForms.dfm
diff --git a/OpenFileInFolders.dll b/OpenFileInFolders.dll
diff --git a/README.md b/README.md
@@ -1,7 +1,7 @@
 # NppOpenFileInFolders
 
 Notepad++ Plugin written in Delphi 7 - Open File In Folders
-version 1.03a
+version 1.03b
 
 ### Installation
 

diff --git a/Screenshot3.gif b/Screenshot3.gif
diff --git a/ShowForms.pas b/ShowForms.pas
@@ -267,7 +267,11 @@ procedure TShowForms.SearchMemoKeyDown(Sender: TObject; var Key: Word;
   filename: nppString;
   i, topSelected, newTopSelected, bottomSelected, newBottomSelected: Integer;
   shouldClose, shouldGoToEnd: Boolean;
+  selectedItems: TStringList;
+  SearchText: String;
 begin
+  SearchText := SearchMemo.Text;
+
   topSelected := -1;
   newTopSelected := -1;
   bottomSelected := -1;
@@ -363,10 +367,13 @@ procedure TShowForms.SearchMemoKeyDown(Sender: TObject; var Key: Word;
         shouldGoToEnd := false;
         if topSelected <> -1 then
           begin
+            selectedItems := TStringList.Create;
             for i := 0 to SearchListBox.Count - 1 do
-              if SearchListBox.Selected[i] then
+              if SearchListBox.Selected[i] then selectedItems.Add( SearchListBox.Items[ i ] );
+
+            for i := 0 to selectedItems.Count - 1 do
                 begin
-                  filename := SearchListBox.Items[ i ];
+                  filename := selectedItems[ i ];
                   if (Shift = [ssCtrl]) then
                     begin
                       if not OpenFolderAndSelectFile(filename) then begin
@@ -379,6 +386,9 @@ procedure TShowForms.SearchMemoKeyDown(Sender: TObject; var Key: Word;
                     shouldClose := true;
                   end;
                 end;
+            selectedItems.Free;
+            SearchMemo.Text := SearchText;
+
             if shouldClose then Close;
             if shouldGoToEnd then SearchMemo.SelStart := Length(SearchMemo.Text);
           end;