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

MG: jump point is now added if method jumping not revertable

Browse Source 
git-svn-id: trunk@2799 -
This commit is contained in:
lazarus 2002-08-18 08:54:19 +00:00
parent 64227f452d
commit e57761d056
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -6210,6 +6210,7 @@ var ActiveSrcEdit: TSourceEditor;
ActiveUnitInfo: TUnitInfo;
NewSource: TCodeBuffer;
NewX, NewY, NewTopLine: integer;
RevertableJump: boolean;
begin
if not BeginCodeTool(ActiveSrcEdit,ActiveUnitInfo,false) then exit;
{$IFDEF IDE_DEBUG}
@ -6219,10 +6220,10 @@ begin
if CodeToolBoss.JumpToMethod(ActiveUnitInfo.Source,
ActiveSrcEdit.EditorComponent.CaretX,
ActiveSrcEdit.EditorComponent.CaretY,
NewSource,NewX,NewY,NewTopLine) then
NewSource,NewX,NewY,NewTopLine,RevertableJump) then
begin
DoJumpToCodePos(ActiveSrcEdit, ActiveUnitInfo,
NewSource, NewX, NewY, NewTopLine, false);
NewSource, NewX, NewY, NewTopLine, not RevertableJump);
end else
DoJumpToCodeToolBossError;
end;
@ -7287,6 +7288,9 @@ end.
{ =============================================================================
$Log$
Revision 1.404 2002/10/05 14:17:50 lazarus
MG: jump point is now added if method jumping not revertable
Revision 1.403 2002/10/05 09:31:09 lazarus
MG: added consistency checks and fixed selection drawing on wrong forms