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

fixed DoJumpToError

Browse Source 
git-svn-id: trunk@2899 -
This commit is contained in:
mattias 2002-08-18 08:55:45 +00:00
parent 1706df3b73
commit b6b776fc99
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/main.pp
View File

@ -6740,8 +6740,8 @@ var
ActiveSrcEdit:TSourceEditor;
ErrorCaret: TPoint;
begin
UpdateSourceNames;
if CodeToolBoss.ErrorMessage='' then begin
UpdateSourceNames;
exit;
end;
// syntax error -> show error and jump
@ -6779,6 +6779,7 @@ begin
ActiveSrcEdit.ErrorLine:=ErrorCaret.Y;
end;
end;
UpdateSourceNames;
end;
procedure TMainIDE.DoFindDeclarationAtCursor;
@ -6810,8 +6811,9 @@ begin
begin
DoJumpToCodePos(ActiveSrcEdit, ActiveUnitInfo,
NewSource, NewX, NewY, NewTopLine, true);
end else
end else begin
DoJumpToCodeToolBossError;
end;
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.DoFindDeclarationAtCaret B');{$ENDIF}
end;
@ -7986,6 +7988,9 @@ end.
{ =============================================================================
$Log$
Revision 1.490 2003/03/15 15:50:10 mattias
fixed DoJumpToError
Revision 1.489 2003/03/15 13:26:07 mattias
fixes for fpc 1.1