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

Codetools: Complete also a virtual/overridden method body with empty brackets. Issue #40799, patch by Domingo Galmés.

Browse Source 
(cherry picked from commit d0c036aa81)
This commit is contained in:
Juha 2024-03-06 10:09:34 +02:00 committed by Maxim Ganetsky
parent d61851df1d
commit 258e8cb94e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/codecompletiontool.pas
View File

@ -8464,9 +8464,9 @@ begin
if InclProcCall then begin if InclProcCall then begin
ProcCode:=ExtractProcHead(ProcNode,[phpWithStart,phpAddClassname, ProcCode:=ExtractProcHead(ProcNode,[phpWithStart,phpAddClassname,
phpWithVarModifiers,phpWithParameterNames, phpWithVarModifiers,phpWithParameterNames,
phpWithResultType,phpWithCallingSpecs]); phpWithResultType,phpWithCallingSpecs,phpWithEmptyParamList]);
ProcCall:='inherited '+ExtractProcHead(ProcNode,[phpWithoutClassName, ProcCall:='inherited '+ExtractProcHead(ProcNode,[phpWithoutClassName,
phpWithParameterNames,phpWithoutParamTypes]); phpWithParameterNames,phpWithoutParamTypes,phpWithEmptyParamList]);
for i:=1 to length(ProcCall)-1 do for i:=1 to length(ProcCall)-1 do
if ProcCall[i]=';' then if ProcCall[i]=';' then
ProcCall[i]:=','; ProcCall[i]:=',';