From 6516ac7baa11ffe3d803100731764f3b02918957 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 18 Aug 2005 08:12:54 +0000
Subject: [PATCH] fixed identifier completion in with variables

git-svn-id: trunk@7525 -
---
 components/codetools/identcompletiontool.pas |  2 ++
 components/sqlite/sqlitedslaz.pas            | 12 ++++++------
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/components/codetools/identcompletiontool.pas b/components/codetools/identcompletiontool.pas
index c57b87a1ca..ab1bd983ca 100644
--- a/components/codetools/identcompletiontool.pas
+++ b/components/codetools/identcompletiontool.pas
@@ -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',
diff --git a/components/sqlite/sqlitedslaz.pas b/components/sqlite/sqlitedslaz.pas
index e813c7caa1..379252361b 100644
--- a/components/sqlite/sqlitedslaz.pas
+++ b/components/sqlite/sqlitedslaz.pas
@@ -2,20 +2,20 @@
 This source is only used to compile and install the package.
  }
 
-unit sqlitedslaz;
+unit sqlitedslaz; 
 
 interface
 
 uses
-  sqliteds, tableeditorform, LazarusPackageIntf;
+  sqliteds, tableeditorform, LazarusPackageIntf; 
 
 implementation
 
-procedure Register;
+procedure Register; 
 begin
-  RegisterUnit('tableeditorform',@tableeditorform.Register);
-end;
+  RegisterUnit('tableeditorform', @tableeditorform.Register); 
+end; 
 
 initialization
-  RegisterPackage('sqlitedslaz',@Register);
+  RegisterPackage('sqlitedslaz', @Register); 
 end.