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

MG: fixed synhilighter

Browse Source 
git-svn-id: trunk@3232 -
This commit is contained in:
lazarus 2002-08-22 13:56:32 +00:00
parent 1a695cf5d0
commit 349457e0f7
5 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synhighlightercpp.pp
View File

@ -1427,7 +1427,7 @@ end;
procedure TSynCppSyn.GetTokenEx(var TokenStart: PChar;
var TokenLength: integer);
begin
TokenLength:=fTokenPos-Run;
TokenLength:=Run-fTokenPos;
TokenStart:=FLine + fTokenPos;
end;
{$ENDIF}

2
components/synedit/synhighlighterhtml.pp
View File

@ -2225,7 +2225,7 @@ end;
procedure TSynHTMLSyn.GetTokenEx(var TokenStart: PChar;
var TokenLength: integer);
begin
TokenLength:=fTokenPos-Run;
TokenLength:=Run-fTokenPos;
TokenStart:=FLine + fTokenPos;
end;
{$ENDIF}

2
components/synedit/synhighlighterlfm.pas
View File

@ -503,7 +503,7 @@ end;
procedure TSynLFMSyn.GetTokenEx(var TokenStart: PChar;
var TokenLength: integer);
begin
TokenLength:=fTokenPos-Run;
TokenLength:=Run-fTokenPos;
TokenStart:=FLine + fTokenPos;
end;
{$ENDIF}

2
components/synedit/synhighlighterperl.pas
View File

@ -2546,7 +2546,7 @@ end;
procedure TSynPerlSyn.GetTokenEx(var TokenStart: PChar;
var TokenLength: integer);
begin
TokenLength:=fTokenPos-Run;
TokenLength:=Run-fTokenPos;
TokenStart:=FLine + fTokenPos;
end;
{$ENDIF}

2
components/synedit/synhighlighterxml.pas
View File

@ -812,7 +812,7 @@ end;
procedure TSynXMLSyn.GetTokenEx(var TokenStart: PChar;
var TokenLength: integer);
begin
TokenLength:=fTokenPos-Run;
TokenLength:=Run-fTokenPos;
TokenStart:=FLine + fTokenPos;
end;
{$ENDIF}