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

* Add support for BIDI using FreeBIDI unit (new RTL unit)

Browse Source 
git-svn-id: trunk@5957 -
This commit is contained in:
mazen 2004-09-10 16:14:16 +00:00
parent 963bdc89c2
commit 4ec18647d4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -57,7 +57,7 @@ interface
uses
{$IFDEF SYN_LAZARUS}
{$IFDEF USE_UTF8BIDI_LCL}
utf8bidi,
FreeBIDI,utf8bidi,
{$ENDIF}
FPCAdds, LCLIntf, LCLType, LMessages, LCLProc,
{$ELSE}
@ -7343,7 +7343,7 @@ begin
// insert mode
{$IFDEF USE_UTF8BIDI_LCL}
// TODO: improve utf8bidi for tabs
Len := VLength(Temp);
Len := VLength(Temp, drLTR);
if Len < CaretX then begin
Temp := Temp + StringOfChar(' ', CaretX - Len);
end;