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

SynEdit: fixes for future bidi support

Browse Source 
git-svn-id: trunk@39046 -
This commit is contained in:
martin 2012-10-11 17:05:40 +00:00
parent 0bd7ad7bdd
commit fbee4f10f2
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synedittextbidichars.pas
View File

@ -147,6 +147,14 @@ begin
end; end;
end; end;
if (WeakStart <> nil) and (lbidi = bRtl) then begin
while WeakStart < PWidths do begin
WeakStart^ := WeakStart^ and (not PCWFlagRTL);
inc(WeakStart);
end;
end;
end; end;
(* (*