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

codetools: MethodTypeDataToStr: add colon if parameter names added

Browse Source 
git-svn-id: trunk@28565 -
This commit is contained in:
mattias 2010-11-30 08:34:52 +00:00
parent a15e960f93
commit 4b2342c80b
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/eventcodetool.pas
View File

@ -211,8 +211,8 @@ begin
end else end else
s:=''; s:='';
if phpWithParameterNames in Attr then if phpWithParameterNames in Attr then
s:=s+ParamType.ParamName; s:=s+ParamType.ParamName+':';
s:=s+':'+ParamType.TypeName; s:=s+ParamType.TypeName;
if Reverse then begin if Reverse then begin
if i>0 then s:=s+';'; if i>0 then s:=s+';';
ParamString:=s+ParamString; ParamString:=s+ParamString;