mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-05 00:37:11 +01:00
codetools: fixed event assignment completion keep spaces in front of := operator
git-svn-id: trunk@64750 -
This commit is contained in:
parent
2d998f5ce8
commit
8faf2f2b80
@ -2033,8 +2033,8 @@ function TCodeCompletionCodeTool.CompleteEventAssignment(CleanCursorPos,
|
||||
AddrOperatorPos:=-1;
|
||||
// check assignment operator :=
|
||||
if not AtomIs(':=') then exit;
|
||||
AssignmentOperator:=CurPos.StartPos;
|
||||
ReadPriorAtom;
|
||||
AssignmentOperator:=CurPos.EndPos;
|
||||
// check event name
|
||||
if not AtomIsIdentifier then exit;
|
||||
PropVarAtom:=CurPos;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user