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

DBG: Improved, jumping to correct line, if source was changed (missing files)

Browse Source 
git-svn-id: trunk@32354 -
This commit is contained in:
martin 2011-09-15 17:11:41 +00:00
parent bbf2217ed8
commit ad2d7983d8
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -15043,7 +15043,10 @@ begin
end; end;
if NewX<1 then NewX:=1; if NewX<1 then NewX:=1;
if NewY<1 then NewY:=1; if NewY<1 then NewY:=1;
if jfMapLineFromDebug in Flags then
NewY := NewSrcEdit.DebugToSourceLine(NewY);
//debugln(['[TMainIDE.DoJumpToCodePosition] ',NewX,',',NewY,',',NewTopLine]); //debugln(['[TMainIDE.DoJumpToCodePosition] ',NewX,',',NewY,',',NewTopLine]);
try try
NewSrcEdit.BeginUpdate; NewSrcEdit.BeginUpdate;
NewSrcEdit.EditorComponent.MoveLogicalCaretIgnoreEOL(Point(NewX,NewY)); NewSrcEdit.EditorComponent.MoveLogicalCaretIgnoreEOL(Point(NewX,NewY));

2
ide/mainintf.pas
View File

@ -118,7 +118,7 @@ type
ieorExport ieorExport
); );
TJumpToCodePosFlag = (jfAddJumpPoint, jfFocusEditor, jfMarkLine); TJumpToCodePosFlag = (jfAddJumpPoint, jfFocusEditor, jfMarkLine, jfMapLineFromDebug);
TJumpToCodePosFlags = set of TJumpToCodePosFlag; TJumpToCodePosFlags = set of TJumpToCodePosFlag;
{ TMainIDEInterface } { TMainIDEInterface }