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

SynEdit: BiDi painting: fixed drawing error in RTL text

Browse Source 
git-svn-id: trunk@39115 -
This commit is contained in:
martin 2012-10-17 18:38:56 +00:00
parent 2c9cbd6b0e
commit f9bc177dfa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/lazsyntextarea.pp
View File

@ -1626,6 +1626,7 @@ var
rcLine.Left := EraseLeft; rcLine.Left := EraseLeft;
InternalFillRect(dc, rcLine); InternalFillRect(dc, rcLine);
rcLine.Left := DrawLeft; rcLine.Left := DrawLeft;
LineBufferRtlLogPos := -1;
FTokenBreaker.SetHighlighterTokensLine(TV + CurLine, CurTextIndex); FTokenBreaker.SetHighlighterTokensLine(TV + CurLine, CurTextIndex);
CharWidths := FTheLinesView.GetPhysicalCharWidths(CurTextIndex); CharWidths := FTheLinesView.GetPhysicalCharWidths(CurTextIndex);
@ -1706,7 +1707,6 @@ begin
LineBufferLen := 0; LineBufferLen := 0;
LineBuffer := nil; LineBuffer := nil;
LineBufferRtlLogPos := -1;
if Assigned(fHighlighter) then begin if Assigned(fHighlighter) then begin
fHighlighter.CurrentLines := FTheLinesView; fHighlighter.CurrentLines := FTheLinesView;
end; end;