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

IDE: quick syntax check gives Ok when no errors found, bug #1317

Browse Source 
git-svn-id: trunk@18270 -
This commit is contained in:
mattias 2009-01-13 09:57:40 +00:00
parent 162095d09e
commit c430f7a515
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/lazarusidestrconsts.pas
View File

@ -358,6 +358,7 @@ resourcestring
lisMenuConfigExternalTools = 'Configure external tools ...'; lisMenuConfigExternalTools = 'Configure external tools ...';
lisMenuQuickSyntaxCheck = 'Quick syntax check'; lisMenuQuickSyntaxCheck = 'Quick syntax check';
lisMenuQuickSyntaxCheckOk = 'Quick syntax check OK';
lisMenuGuessUnclosedBlock = 'Guess unclosed block'; lisMenuGuessUnclosedBlock = 'Guess unclosed block';
lisMenuGuessMisplacedIFDEF = 'Guess misplaced IFDEF/ENDIF'; lisMenuGuessMisplacedIFDEF = 'Guess misplaced IFDEF/ENDIF';
lisMenuMakeResourceString = 'Make Resource String ...'; lisMenuMakeResourceString = 'Make Resource String ...';

9
ide/main.pp
View File

@ -10386,12 +10386,17 @@ begin
or (ActiveSrcEdit=nil) then exit; or (ActiveSrcEdit=nil) then exit;
SaveSourceEditorChangesToCodeCache(-1); SaveSourceEditorChangesToCodeCache(-1);
CodeToolBoss.VisibleEditorLines:=ActiveSrcEdit.EditorComponent.LinesInWindow; CodeToolBoss.VisibleEditorLines:=ActiveSrcEdit.EditorComponent.LinesInWindow;
if not CodeToolBoss.CheckSyntax(ActiveUnitInfo.Source,NewCode,NewX,NewY, if CodeToolBoss.CheckSyntax(ActiveUnitInfo.Source,NewCode,NewX,NewY,
NewTopLine,ErrorMsg) then NewTopLine,ErrorMsg) then
begin begin
DoArrangeSourceEditorAndMessageView(false);
MessagesView.ClearTillLastSeparator;
MessagesView.AddSeparator;
MessagesView.AddMsg(lisMenuQuickSyntaxCheckOk,'',-1);
end else begin
DoJumpToCodeToolBossError; DoJumpToCodeToolBossError;
end; end;
if (ErrorMsg='') or (NewTopLine=0) or (NewX=0) or (NewY=0) or (NewCode=nil) then ; if (ErrorMsg='') or (NewTopLine=0) or (NewX=0) or (NewY=0) or (NewCode=nil) then ; // avoid compiler hints about parameters not used
end; end;
//----------------------------------------------------------------------------- //-----------------------------------------------------------------------------