paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 00:37:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed highlighter

Browse Source 
git-svn-id: trunk@3231 -
This commit is contained in:
lazarus 2002-08-21 14:47:33 +00:00
parent d0e6ec2023
commit 1a695cf5d0
3 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/synhighlighterlfm.pas
View File

@ -122,6 +122,9 @@ type
procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String;
LineNumber: Integer); override;
function GetToken: String; override;
{$IFDEF SYN_LAZARUS}
procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override;
{$ENDIF}
function GetTokenAttribute: TSynHighlighterAttributes; override;
function GetTokenKind: integer; override;
function GetTokenPos: Integer; override;
@ -496,6 +499,15 @@ begin
SetString(Result, (FLine + fTokenPos), Len);
end;
{$IFDEF SYN_LAZARUS}
procedure TSynLFMSyn.GetTokenEx(var TokenStart: PChar;
var TokenLength: integer);
begin
TokenLength:=fTokenPos-Run;
TokenStart:=FLine + fTokenPos;
end;
{$ENDIF}
function TSynLFMSyn.GetTokenAttribute: TSynHighlighterAttributes;
begin
case fTokenID of

12
components/synedit/synhighlighterperl.pas
View File

@ -375,6 +375,9 @@ type
procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String;
LineNumber:Integer); override;
function GetToken: String; override;
{$IFDEF SYN_LAZARUS}
procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override;
{$ENDIF}
function GetTokenAttribute: TSynHighlighterAttributes; override;
function GetTokenKind: integer; override;
function GetTokenPos: Integer; override;
@ -2539,6 +2542,15 @@ begin
SetString(Result, (FLine + fTokenPos), Len);
end;
{$IFDEF SYN_LAZARUS}
procedure TSynPerlSyn.GetTokenEx(var TokenStart: PChar;
var TokenLength: integer);
begin
TokenLength:=fTokenPos-Run;
TokenStart:=FLine + fTokenPos;
end;
{$ENDIF}
function TSynPerlSyn.GetTokenID: TtkTokenKind;
begin
Result := fTokenId;

12
components/synedit/synhighlighterxml.pas
View File

@ -159,6 +159,9 @@ type
function GetTokenID: TtkTokenKind;
procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: string; LineNumber:Integer); override;
function GetToken: string; override;
{$IFDEF SYN_LAZARUS}
procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override;
{$ENDIF}
function GetTokenAttribute: TSynHighlighterAttributes; override;
function GetTokenKind: integer; override;
function GetTokenPos: Integer; override;
@ -805,6 +808,15 @@ begin
SetString(Result, (FLine + fTokenPos), len);
end;
{$IFDEF SYN_LAZARUS}
procedure TSynXMLSyn.GetTokenEx(var TokenStart: PChar;
var TokenLength: integer);
begin
TokenLength:=fTokenPos-Run;
TokenStart:=FLine + fTokenPos;
end;
{$ENDIF}
function TSynXMLSyn.GetTokenID: TtkTokenKind;
begin
Result := fTokenId;