From 0330cf85c97d2c0a5faa0feea3a35a67d43b7dbd Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Thu, 29 Dec 2016 12:15:53 +0000
Subject: [PATCH] Opkman: Fix editing a ListBox item in a sorted list.

git-svn-id: trunk@53797 -
---
 components/onlinepackagemanager/opkman_optionsfrm.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/components/onlinepackagemanager/opkman_optionsfrm.pas b/components/onlinepackagemanager/opkman_optionsfrm.pas
index 07dd7a3a2e..06e460f759 100644
--- a/components/onlinepackagemanager/opkman_optionsfrm.pas
+++ b/components/onlinepackagemanager/opkman_optionsfrm.pas
@@ -268,7 +268,13 @@ begin
   Index := -1;
   Value := InputBox(rsOptions_InputBox_Caption, MsgTxt, GetSelectedText(ListBox, Index));
   if (Value <> '') and (Index <> -1) then
+  begin
+    ListBox.Sorted := False;
     ListBox.Items[Index] := Value;
+    ListBox.Sorted := True;
+    Index := ListBox.Items.IndexOf(Value);
+    ListBox.Selected[Index] := True;
+  end;
 end;
 
 
@@ -301,10 +307,8 @@ begin
   Index := -1;
   Value := GetSelectedText(ListBox, Index);
   if (Value <> '') and (Index <> -1) then
-  begin
     if MessageDlgEx(Format(MsgConf, [Value]), mtConfirmation, [mbYes, mbNo], Self) = mrYes then
       ListBox.Items.Delete(Index);
-  end;
 end;
 
 procedure TOptionsFrm.bRestoreClick(Sender: TObject);