paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 14:39:27 +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
ATokenInfo.Attr.EndX := PhysPos-1;
MaybeFetchToken;
if MaybeChangeToRtl(LogicIdx, LogicEnd) then begin // get NextTokenPhysStart
SkipRtlOffScreen(LogicIdx, LogicEnd);
while FCurViewToken.Tk.TokenLength = 0 do
if MaybeFetchToken then
SkipRtlOffScreen(LogicIdx, LogicEnd);
end;
//MaybeFetchToken;
//if MaybeChangeToRtl(LogicIdx, LogicEnd) then begin // get NextTokenPhysStart
// SkipRtlOffScreen(LogicIdx, LogicEnd);
// while FCurViewToken.Tk.TokenLength = 0 do
// if MaybeFetchToken then
// SkipRtlOffScreen(LogicIdx, LogicEnd);
//end;
ATokenInfo.NextPhysicalPaintStart := FCurViewToken.PhysicalPaintStart;
ATokenInfo.NextLogicStart := FCurViewToken.LogicalStart;
@ -692,12 +692,12 @@ begin
if FCurViewToken.Tk.TokenLength = 0 then
ATokenInfo.Attr.EndX := PhysPos-1;
MaybeFetchToken;
SkipRtlOffScreen(LogicIdx, LogicEnd);
while FCurViewToken.Tk.TokenLength = 0 do
if MaybeFetchToken then
SkipRtlOffScreen(LogicIdx, LogicEnd);
MaybeChangeToLtr(LogicIdx, LogicEnd); // get NextTokenPhysStart
//MaybeFetchToken;
//SkipRtlOffScreen(LogicIdx, LogicEnd);
//while FCurViewToken.Tk.TokenLength = 0 do
// if MaybeFetchToken then
// SkipRtlOffScreen(LogicIdx, LogicEnd);
//MaybeChangeToLtr(LogicIdx, LogicEnd); // get NextTokenPhysStart
ATokenInfo.NextPhysicalPaintStart := FCurViewToken.PhysicalPaintStart;
ATokenInfo.NextLogicStart := FCurViewToken.LogicalStart;