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

fixed for empty lines

Browse Source 
git-svn-id: trunk@3676 -
This commit is contained in:
mattias 2002-11-30 09:45:37 +00:00
parent acd965c4d9
commit 790ec25214
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/synedit/synhighlightermulti.pas
View File

@ -374,8 +374,18 @@ end;
procedure TSynMultiSyn.GetTokenEx(var TokenStart: PChar;
var TokenLength: integer);
begin
TokenLength:=fRun-fTokenPos-1;
TokenStart:=PChar(FLine) + fTokenPos;
if DefaultHighlighter = nil then begin
if fLine<>'' then begin
TokenStart:=PChar(fLine);
TokenLength:=length(fLine);
end else begin
TokenStart:=#0;
TokenLength:=0;
end;
end else begin
TokenLength:=fRun-fTokenPos-1;
TokenStart:=PChar(FLine) + fTokenPos;
end;
end;
{$ENDIF}