mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-17 10:19:17 +02:00
fixed identifier completion in with variables
git-svn-id: trunk@7525 -
This commit is contained in:
parent
6991d94081
commit
6516ac7baa
@ -873,6 +873,8 @@ begin
|
||||
{$ENDIF}
|
||||
GatherContext:=CreateFindContext(Self,CursorNode);
|
||||
ContextExprStartPos:=GetContextExprStartPos(IdentStartPos,CursorNode);
|
||||
if GatherContext.Node.Desc=ctnWithVariable then
|
||||
GatherContext.Node:=GatherContext.Node.Parent;
|
||||
|
||||
{$IFDEF CTDEBUG}
|
||||
DebugLn('TIdentCompletionTool.GatherIdentifiers C',
|
||||
|
@ -13,9 +13,9 @@ implementation
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterUnit('tableeditorform',@tableeditorform.Register);
|
||||
RegisterUnit('tableeditorform', @tableeditorform.Register);
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterPackage('sqlitedslaz',@Register);
|
||||
RegisterPackage('sqlitedslaz', @Register);
|
||||
end.
|
||||
|
Loading…
Reference in New Issue
Block a user