paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 23:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeInspector: Jump to implementation

Browse Source 
git-svn-id: trunk@28689 -
This commit is contained in:
martin 2010-12-11 18:52:33 +00:00
parent 48dd5f62bb
commit 37fcb6d37f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/IdeInspector/maininspector.pas
View File

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