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

IDE: remove empty methods: warning when caret not in a class

Browse Source 
git-svn-id: trunk@15026 -
This commit is contained in:
mattias 2008-05-01 17:15:13 +00:00
parent 1736824df9
commit e473ecf7d5
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/codecompletiontool.pas
View File

@ -4042,7 +4042,6 @@ begin
AVLNode:=ProcBodyNodes.FindSuccessor(AVLNode);
end;
end;
Result:=true;
finally
ProcBodyNodes.FreeAndClear;
ProcBodyNodes.Free;

4
ide/emptymethodsdlg.pas
View File

@ -114,6 +114,10 @@ begin
if CodeToolBoss.ErrorMessage<>'' then begin
ErrMsg:='';
LazarusIDE.DoJumpToCodeToolBossError;
end else begin
MessageDlg('No class',
'No class at '+Code.Filename+'('+IntToStr(Caret.Y)+','+IntToStr(Caret.X)+')',
mtError,[mbCancel],0);
end;
exit;
end;