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

IDE: Fix function results, for refactor rev 32347 #a23438a510

Browse Source 
git-svn-id: trunk@32367 -
This commit is contained in:
martin 2011-09-16 16:04:21 +00:00
parent 5d4ecfb12e
commit cd46dbb0ae
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/mainintf.pas
View File

@ -448,7 +448,7 @@ begin
Flags := [jfFocusEditor]; Flags := [jfFocusEditor];
if AddJumpPoint then Include(Flags, jfAddJumpPoint); if AddJumpPoint then Include(Flags, jfAddJumpPoint);
if MarkLine then Include(Flags, jfMarkLine); if MarkLine then Include(Flags, jfMarkLine);
DoJumpToSourcePosition(Filename, NewX, NewY, NewTopLine, Flags) Result := DoJumpToSourcePosition(Filename, NewX, NewY, NewTopLine, Flags);
end; end;
function TMainIDEInterface.DoJumpToCodePosition(ActiveSrcEdit: TSourceEditorInterface; function TMainIDEInterface.DoJumpToCodePosition(ActiveSrcEdit: TSourceEditorInterface;
@ -460,8 +460,8 @@ begin
Flags := [jfFocusEditor]; Flags := [jfFocusEditor];
if AddJumpPoint then Include(Flags, jfAddJumpPoint); if AddJumpPoint then Include(Flags, jfAddJumpPoint);
if MarkLine then Include(Flags, jfMarkLine); if MarkLine then Include(Flags, jfMarkLine);
DoJumpToCodePosition(ActiveSrcEdit, ActiveUnitInfo, NewSource, NewX, NewY, NewTopLine, Result := DoJumpToCodePosition(ActiveSrcEdit, ActiveUnitInfo, NewSource, NewX, NewY, NewTopLine,
Flags) Flags);
end; end;
class function TMainIDEInterface.GetPrimaryConfigPath: String; class function TMainIDEInterface.GetPrimaryConfigPath: String;