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

codetools: fixed complete event assignment keeping spaces after assign operator

Browse Source
This commit is contained in:
mattias 2022-04-16 13:08:03 +02:00
parent 87bcd888ad
commit 57c88852ab
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/codetools/codecompletiontool.pas
View File

@ -2155,14 +2155,30 @@ function TCodeCompletionCodeTool.CompleteEventAssignment(CleanCursorPos,
{$ENDIF}
// add new event name as right value of assignment
// add address operator @ if needed or user provided it himself
if UserEventAtom.StartPos>0 then begin
end else begin
end;
RValue:=AnEventName+';';
if (AddrOperatorPos>0)
or ((Scanner.PascalCompiler=pcFPC) and (Scanner.CompilerMode<>cmDelphi))
or (Scanner.CompilerMode in [cmDelphi,cmDELPHIUNICODE])
then
RValue:='@'+RValue;
RValue:=':='+RValue;
if (AddrOperatorPos>0) or (UserEventAtom.StartPos>0) then begin
// left := |SomeName -> keep assignment and space behind
StartInsertPos:=AddrOperatorPos;
if StartInsertPos<1 then
StartInsertPos:=UserEventAtom.StartPos;
end else begin
// left :=|
RValue:=':='+RValue;
StartInsertPos:=AssignmentOperator;
end;
RValue:=SourceChangeCache.BeautifyCodeOptions.BeautifyStatement(RValue,0);
StartInsertPos:=AssignmentOperator;
RValue:=TrimLeft(RValue);
EndInsertPos:=SemicolonPos+1;
if EndInsertPos<1 then
EndInsertPos:=UserEventAtom.EndPos;