paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 08:19:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fixed abstract warning

Browse Source 
git-svn-id: trunk@26173 -
This commit is contained in:
martin 2010-06-18 19:12:13 +00:00
parent d5bbf14bd0
commit 8e8581ab43
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/synhighlightermulti.pas
View File

@ -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;