Double clicking in Index listbox now updates the IndexSeachEdit text too.

1 files changed, 8 insertions, 2 deletions

diff --git a/src/frm_main.pas b/src/frm_main.pas
index a26e0c72..0d1a8495 100644
--- a/src/frm_main.pas
+++ b/src/frm_main.pas
@@ -558,7 +558,13 @@ end;
 procedure TMainForm.lbIndexDoubleClick(Sender: TObject; AButton: TMouseButton;
   AShift: TShiftState; const AMousePos: TPoint);
 begin
-  DisplayTopic(nil);
+  InIndexSearch := True;  // prevent edit.OnChange from executing too
+  try
+    IndexSearchEdit.Text := lbIndex.Items[lbIndex.FocusItem];
+    DisplayTopic(nil);
+  finally
+    InIndexSearch := False;
+  end;
 end;
 
 procedure TMainForm.lbSearchResultsDoubleClick(Sender: TObject; AButton: TMouseButton;
@@ -577,7 +583,7 @@ var
   tmpMatchIndex: longint;
   tmpSearchText: string;
   i: longint;
-Begin
+begin
   if InIndexSearch then
     exit;