From 48cf736bf6fd9234ffd9ae5d376cd379a19b2076 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:24 +0000
Subject: [PATCH] ident completion: fixed start token and context for classes

git-svn-id: trunk@2470 -
---
 components/synedit/synedit.pp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index bf2a8c7cfb..7248be6d1f 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -392,6 +392,9 @@ type
     function GetFont: TFont;
     function GetHookedCommandHandlersCount: integer;
     function GetLineText: string;
+    {$IFDEF SYN_LAZARUS}
+    function GetLineTextExtended: string;
+    {$ENDIF}
     function GetMaxUndo: Integer;
     function GetSelAvail: Boolean;
     function GetSelText: string;
@@ -653,6 +656,9 @@ type
     property LineHeight: integer read fTextHeight;
     property LinesInWindow: Integer read fLinesInWindow;
     property LineText: string read GetLineText write SetLineText;
+    {$IFDEF SYN_LAZARUS}
+    property LineTextExtended: string read GetLineTextExtended write SetLineText;
+    {$ENDIF}
     property Lines: TStrings read fLines write SetLines;
     property Marks: TSynEditMarkList read fMarkList;
     property MaxLeftChar: integer read fMaxLeftChar write SetMaxLeftChar
@@ -1344,6 +1350,16 @@ begin
     Result := '';
 end;
 
+{$IFDEF SYN_LAZARUS}
+function TCustomSynEdit.GetLineTextExtended: string;
+begin
+  if (CaretY >= 1) and (CaretY <= Lines.Count) then
+    Result := TSynEditStringList(Lines).ExpandedStrings[CaretY - 1]
+  else
+    Result := '';
+end;
+{$ENDIF}
+
 function TCustomSynEdit.GetSelAvail: Boolean;
 begin
   Result := (fBlockBegin.X <> fBlockEnd.X) or