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

SynEdit: Fix painting wrong color (introduced in rev 38964 #55a09f4952

Browse Source 
git-svn-id: trunk@38969 -
This commit is contained in:
martin 2012-10-05 09:03:12 +00:00
parent 7874a19bd8
commit 6ba263edec
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/synedit/lazsyntextarea.pp
View File

@ -594,13 +594,13 @@ begin
if FCurViewToken.Tk.TokenLength = 0 then if FCurViewToken.Tk.TokenLength = 0 then
ATokenInfo.Attr.EndX := PhysPos-1; ATokenInfo.Attr.EndX := PhysPos-1;
MaybeFetchToken; //MaybeFetchToken;
if MaybeChangeToRtl(LogicIdx, LogicEnd) then begin // get NextTokenPhysStart //if MaybeChangeToRtl(LogicIdx, LogicEnd) then begin // get NextTokenPhysStart
SkipRtlOffScreen(LogicIdx, LogicEnd); // SkipRtlOffScreen(LogicIdx, LogicEnd);
while FCurViewToken.Tk.TokenLength = 0 do // while FCurViewToken.Tk.TokenLength = 0 do
if MaybeFetchToken then // if MaybeFetchToken then
SkipRtlOffScreen(LogicIdx, LogicEnd); // SkipRtlOffScreen(LogicIdx, LogicEnd);
end; //end;
ATokenInfo.NextPhysicalPaintStart := FCurViewToken.PhysicalPaintStart; ATokenInfo.NextPhysicalPaintStart := FCurViewToken.PhysicalPaintStart;
ATokenInfo.NextLogicStart := FCurViewToken.LogicalStart; ATokenInfo.NextLogicStart := FCurViewToken.LogicalStart;
@ -692,12 +692,12 @@ begin
if FCurViewToken.Tk.TokenLength = 0 then if FCurViewToken.Tk.TokenLength = 0 then
ATokenInfo.Attr.EndX := PhysPos-1; ATokenInfo.Attr.EndX := PhysPos-1;
MaybeFetchToken; //MaybeFetchToken;
SkipRtlOffScreen(LogicIdx, LogicEnd); //SkipRtlOffScreen(LogicIdx, LogicEnd);
while FCurViewToken.Tk.TokenLength = 0 do //while FCurViewToken.Tk.TokenLength = 0 do
if MaybeFetchToken then // if MaybeFetchToken then
SkipRtlOffScreen(LogicIdx, LogicEnd); // SkipRtlOffScreen(LogicIdx, LogicEnd);
MaybeChangeToLtr(LogicIdx, LogicEnd); // get NextTokenPhysStart //MaybeChangeToLtr(LogicIdx, LogicEnd); // get NextTokenPhysStart
ATokenInfo.NextPhysicalPaintStart := FCurViewToken.PhysicalPaintStart; ATokenInfo.NextPhysicalPaintStart := FCurViewToken.PhysicalPaintStart;
ATokenInfo.NextLogicStart := FCurViewToken.LogicalStart; ATokenInfo.NextLogicStart := FCurViewToken.LogicalStart;