From 36c6291a307d89115bf27f7674d74b8f3626edef Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Wed, 3 Jan 2007 07:44:22 +0000
Subject: [PATCH] IDE: fixed jumping to source from the code explorer (bug
 #8042)

git-svn-id: trunk@10368 -
---
 ide/codeexplorer.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ide/codeexplorer.pas b/ide/codeexplorer.pas
index 5b8d049282..a552d6926d 100644
--- a/ide/codeexplorer.pas
+++ b/ide/codeexplorer.pas
@@ -564,7 +564,10 @@ var
   CodeBuffer: TCodeBuffer;
   ACodeTool: TCodeTool;
 begin
-  CurItem:=CodeTreeview.Selected;
+  if tvoAllowMultiselect in CodeTreeview.Options then
+    CurItem:=CodeTreeView.GetFirstMultiSelected
+  else
+    CurItem:=CodeTreeview.Selected;
   if CurItem=nil then exit;
   CurNode:=TViewNodeData(CurItem.Data);
   if CurNode.StartPos<1 then exit;