paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 22:20:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Fix Column,Line position for "Find Identifier" quick fix item. Issue #40175.

Browse Source
This commit is contained in:
Juha 2023-03-26 09:58:13 +03:00
parent 00e9146b43
commit a3de743fad
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/codebrowser.pas
View File

@ -3352,7 +3352,7 @@ begin
Filename:=Msg.GetFullFilename; Filename:=Msg.GetFullFilename;
KnownFilename:= LazarusIDE.FindSourceFile(Filename, Project1.Directory, KnownFilename:= LazarusIDE.FindSourceFile(Filename, Project1.Directory,
[fsfSearchForProject, fsfUseIncludePaths, fsfMapTempToVirtualFiles]); [fsfSearchForProject, fsfUseIncludePaths, fsfMapTempToVirtualFiles]);
Caret:=Point(Msg.Line,Msg.Column); Caret:=Point(Msg.Column,Msg.Line);
if (KnownFilename <> '') and (KnownFilename <> Filename) then begin if (KnownFilename <> '') and (KnownFilename <> Filename) then begin
if LazarusIDE.DoOpenFileAndJumpToPos(KnownFilename,Caret,-1,-1,-1,OpnFlagsPlainFile)<>mrOk if LazarusIDE.DoOpenFileAndJumpToPos(KnownFilename,Caret,-1,-1,-1,OpnFlagsPlainFile)<>mrOk
@ -3361,8 +3361,7 @@ begin
then exit; then exit;
end end
else else
if LazarusIDE.DoOpenFileAndJumpToPos(Filename,Caret,-1,-1,-1,OpnFlagsPlainFile if LazarusIDE.DoOpenFileAndJumpToPos(Filename,Caret,-1,-1,-1,OpnFlagsPlainFile)<>mrOk
)<>mrOk
then exit; then exit;
// start code browser // start code browser