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

* Use VDelete instead of Delete to support BIDI text

Browse Source 
git-svn-id: trunk@6089 -
This commit is contained in:
mazen 2004-09-30 10:34:45 +00:00
parent 9a64dd88d7
commit bcb9c47ed9
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/synedit.pp
View File

@ -4583,7 +4583,11 @@ var
l := BB.X;
r := BE.X;
MBCSGetSelRangeInLineWhenColumnSelectionMode(TempString, l, r);
{$IFDEF USE_UTF8BIDI_LCL}
VDelete(TempString, l, r - 1);
{$ELSE USE_UTF8BIDI_LCL}
Delete(TempString, l, r - l);
{$ENDIF USE_UTF8BIDI_LCL}
{$ENDIF}
TrimmedSetLine(x, TempString);
end;
@ -7005,7 +7009,11 @@ begin
{$ENDIF}
CaretX := CaretX - counter;
Helper := Copy(Temp, CaretX, counter);
{$IFDEF USE_UTF8BIDI_LCL}
VDelete(Temp, CaretX, counter, drLTR);
{$ELSE USE_UTF8BIDI_LCL}
Delete(Temp, CaretX, counter);
{$ENDIF USE_UTF8BIDI_LCL}
TrimmedSetLine(CaretY - 1, Temp);
end;
end;
@ -7040,7 +7048,11 @@ begin
Helper := Copy(Temp, LogCaretXY.X, Counter);
Caret.X := LogicalToPhysicalCol(Temp,LogCaretXY.X+Counter);
Caret.Y := CaretY;
{$IFDEF USE_UTF8BIDI_LCL}
VDelete(Temp, LogCaretXY.X, Counter, drLTR);
{$ELSE USE_UTF8BIDI_LCL}
System.Delete(Temp, LogCaretXY.X, Counter);
{$ENDIF USE_UTF8BIDI_LCL}
TrimmedSetLine(CaretY - 1, Temp);
{$ELSE}
counter := 1;