paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 21:08:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed jumping to source from the code explorer (bug #8042)

Browse Source 
git-svn-id: trunk@10368 -
This commit is contained in:
vincents 2007-01-03 07:44:22 +00:00
parent 214f4d229d
commit 36c6291a30
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/codeexplorer.pas
View File

@ -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;