paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 23:03:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: When completing a label, add a colon (':') after it. Issue .

Browse Source
This commit is contained in:
Juha 2021-09-27 20:34:43 +03:00
parent 1ab7994de1
commit 907f82485b
1 changed files with 11 additions and 10 deletions

21
ide/sourceeditprocs.pas
View File

@ -787,10 +787,10 @@ var
CanAddComma: Boolean;
ClassNode: TCodeTreeNode;
IsReadOnly: Boolean;
Line: string;
Line, s: string;
Indent: LongInt;
StartContextPos: TCodeXYPosition;
s: String;
Dsc: TCodeTreeNodeDesc;
begin
Result:='';
CursorToLeft:=0;
@ -966,18 +966,19 @@ begin
if CanAddSemicolon
and (not (ilcfNoEndSemicolon in IdentList.ContextFlags))
then begin
Dsc:=IdentItem.GetDesc;
if Dsc=ctnLabel then
Result+=':'
else
if (ilcfNeedsEndSemicolon in IdentList.ContextFlags)
or ((ilcfStartInStatement in IdentList.ContextFlags)
and (IdentItem.GetDesc=ctnProcedure))
or ((ilcfStartInStatement in IdentList.ContextFlags) and (Dsc=ctnProcedure))
then begin
Result+=';';
if (CursorToLeft=0) and (IdentItem.GetDesc=ctnProcedure)
and (not IdentItem.IsFunction) then begin
// a procedure call without parameters
// => put cursor behind semicolon
if (CursorToLeft=0) and (Dsc=ctnProcedure) and (not IdentItem.IsFunction) then
begin
// a procedure call without parameters => put cursor behind semicolon
end else begin
// keep cursor in front of semicolon
inc(CursorToLeft);
inc(CursorToLeft); // keep cursor in front of semicolon
end;
end;
end;