paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 15:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed identifier completion in with variables

Browse Source 
git-svn-id: trunk@7525 -
This commit is contained in:
mattias 2005-08-18 08:12:54 +00:00
parent 6991d94081
commit 6516ac7baa
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/identcompletiontool.pas
View File

@ -873,6 +873,8 @@ begin
{$ENDIF} {$ENDIF}
GatherContext:=CreateFindContext(Self,CursorNode); GatherContext:=CreateFindContext(Self,CursorNode);
ContextExprStartPos:=GetContextExprStartPos(IdentStartPos,CursorNode); ContextExprStartPos:=GetContextExprStartPos(IdentStartPos,CursorNode);
if GatherContext.Node.Desc=ctnWithVariable then
GatherContext.Node:=GatherContext.Node.Parent;
{$IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('TIdentCompletionTool.GatherIdentifiers C', DebugLn('TIdentCompletionTool.GatherIdentifiers C',

12
components/sqlite/sqlitedslaz.pas
View File

@ -2,20 +2,20 @@
This source is only used to compile and install the package. This source is only used to compile and install the package.
} }
unit sqlitedslaz; unit sqlitedslaz;
interface interface
uses uses
sqliteds, tableeditorform, LazarusPackageIntf; sqliteds, tableeditorform, LazarusPackageIntf;
implementation implementation
procedure Register; procedure Register;
begin begin
RegisterUnit('tableeditorform',@tableeditorform.Register); RegisterUnit('tableeditorform', @tableeditorform.Register);
end; end;
initialization initialization
RegisterPackage('sqlitedslaz',@Register); RegisterPackage('sqlitedslaz', @Register);
end. end.