From 8e8581ab435c35fa1d35cb4d2268a3e719af543a Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 18 Jun 2010 19:12:13 +0000
Subject: [PATCH] SynEdit: Fixed abstract warning

git-svn-id: trunk@26173 -
---
 components/synedit/synhighlightermulti.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/components/synedit/synhighlightermulti.pas b/components/synedit/synhighlightermulti.pas
index 6bad4587b9..7bdb95b61a 100644
--- a/components/synedit/synhighlightermulti.pas
+++ b/components/synedit/synhighlightermulti.pas
@@ -100,6 +100,7 @@ type
     FRScanStartedAtVLine: Integer;
     FRegionScanStartRangeIndex: Integer;
     FRegionScanRangeIndex: Integer;
+    FLastPCharLine: String;
   protected
     function  GetRange(Index: Pointer): TSynManagedStorageMem; override;
     procedure PutRange(Index: Pointer; const ARange: TSynManagedStorageMem); override;
@@ -112,6 +113,7 @@ type
     procedure Clear; override;                                   // should not be called ever
     procedure Delete(Index: Integer); override;                  // should not be called ever
     procedure Insert(Index: Integer; const S: string); override; // should not be called ever
+    function  GetPChar(ALineIndex: Integer; out ALen: Integer): PChar; override; // experimental
     procedure SendHighlightChanged(aIndex, aCount: Integer); override;
     procedure PrepareRegionScan(AStartLineIdx: Integer);
     procedure FinishRegionScan(AEndLineIdx: Integer);
@@ -554,6 +556,13 @@ begin
   raise Exception.Create('Not allowed');
 end;
 
+function TSynHLightMultiVirtualLines.GetPChar(ALineIndex: Integer; out ALen: Integer): PChar;
+begin
+  FLastPCharLine := Get(ALineIndex);
+  ALen := length(FLastPCharLine);
+  Result := PChar(FLastPCharLine);
+end;
+
 function TSynHLightMultiVirtualLines.GetCount: integer;
 var
   s: TSynHLightMultiVirtualSection;