From 37fcb6d37f1d270fb974684121a6120d8097c626 Mon Sep 17 00:00:00 2001 From: martin Date: Sat, 11 Dec 2010 18:52:33 +0000 Subject: [PATCH] IdeInspector: Jump to implementation git-svn-id: trunk@28689 - --- components/IdeInspector/maininspector.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/components/IdeInspector/maininspector.pas b/components/IdeInspector/maininspector.pas index 8c9502a352..45f898ce00 100644 --- a/components/IdeInspector/maininspector.pas +++ b/components/IdeInspector/maininspector.pas @@ -340,11 +340,11 @@ end; procedure TIdeInspectForm.btnOpenFileClick(Sender: TObject); begin - if FCurEntry.Line > 0 then - LazarusIDE.DoOpenFileAndJumpToPos(EditFile.Text, Point(1,FCurEntry.Line), Max(FCurEntry.Line-1,1), -1, -1, [ofOnlyIfExists, ofRegularFile]) - else if FCurEntry.IdentifierName <> '' then LazarusIDE.DoOpenFileAndJumpToIdentifier(EditFile.Text, FCurEntry.IdentifierName, -1, -1, [ofOnlyIfExists, ofRegularFile]) + else + if FCurEntry.Line > 0 then + LazarusIDE.DoOpenFileAndJumpToPos(EditFile.Text, Point(1,FCurEntry.Line), Max(FCurEntry.Line-1,1), -1, -1, [ofOnlyIfExists, ofRegularFile]) else LazarusIDE.DoOpenEditorFile(EditFile.Text, -1, -1, [ofOnlyIfExists, ofRegularFile]); end;