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

IDE: fixed identifier completion placing cursor behind semicolon for procedure calls, bug #12108

Browse Source 
git-svn-id: trunk@16513 -
This commit is contained in:
mattias 2008-09-09 21:34:20 +00:00
parent 8aeaa048e1
commit 50c74bdb72
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/sourceeditprocs.pas
View File

@ -511,13 +511,6 @@ begin
end; end;
end; end;
{if (ilcfStartIsLValue in IdentList.ContextFlags)
and (not IdentItem.HasChilds)
and IdentItem.CanBeAssigned
then begin
Result:=Result+' := ';
CursorAtEnd:=false;
end;}
if CursorAtEnd then ; if CursorAtEnd then ;
// add assignment operator := // add assignment operator :=
@ -548,7 +541,14 @@ begin
or (IdentItem.GetDesc=ctnProcedure) or (IdentItem.GetDesc=ctnProcedure)
then begin then begin
Result:=Result+';'; Result:=Result+';';
inc(CursorToLeft); if (CursorToLeft=0) and (IdentItem.GetDesc=ctnProcedure)
and (not IdentItem.IsFunction) then begin
// a procedure call without paramters
// put cursor behind semicolon
end else begin
// keep cursor in front of semicolon
inc(CursorToLeft);
end;
end; end;
end; end;