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

SynEdit: fixed not drawing special chars (visible white space) past EOL. Introduced in refactor at rev 38621 #1db4cf5fe6

Browse Source 
git-svn-id: trunk@38716 -
This commit is contained in:
martin 2012-09-17 12:05:02 +00:00
parent 5a4fe6cb26
commit 0bfdc547f6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/lazsyntextarea.pp
View File

@ -1585,7 +1585,7 @@ var
case pt^ of
#9: begin
if (vscTabAtFirst in FVisibleSpecialChars) then begin
if (vscTabAtFirst in FVisibleSpecialChars) and (j < CWLen) then begin
pl^ := #194; inc(pl);
pl^ := #187; inc(pl);
dec(k);
@ -1598,13 +1598,13 @@ var
if eto <> nil then Eto.EtoData[e] := c;
inc(e);
end;
if (vscTabAtLast in FVisibleSpecialChars) and ((pl-1)^=' ') then begin
if (vscTabAtLast in FVisibleSpecialChars) and ((pl-1)^=' ') and (j < CWLen) then begin
(pl-1)^ := #194;
pl^ := #187; inc(pl);
end;
end;
' ': begin
if (vscSpace in FVisibleSpecialChars) then begin
if (vscSpace in FVisibleSpecialChars) and (j < CWLen) then begin
pl^ := #194; inc(pl);
pl^ := #183; inc(pl);
end