paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:10:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix inserting char inside a word

Browse Source 
* Fix deleting chars
This commit is contained in:
mazen 2004-10-06 16:51:50 +00:00
parent 7452bd955c
commit 1faf78523f
1 changed files with 32 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
rtl/objpas/freebidi.pp
View File

@ -283,29 +283,42 @@ begin
Result := v2l[0];
if vp > Result
then
lp := Length(Dest) + 1
begin
lp := Length(Dest) + 1;
vp := Result;
end
else
lp := v2l[vp];
c := Dest[lp];
if DirectionOf(c) = drRTL
then
Result := vp;
case DirectionOf(c) of
drRTL:
begin
lp := lp + Length(c);
lp += Length(c);
if DirectionOf(Src) <> drRTL
then
begin
while (Result <= Length(Dest)) and (DirectionOf(Dest[v2l[Result]]) <> drLTR) do
Result += 1;
while (Result > vp) and (DirectionOf(Dest[v2l[Result]]) <> drRTL) do
Result -= 1;
Result += 2;
end;
end;
drLTR:
Result += 1;
else
if DirectionOf(Src) = drRTL
then
begin
while (Result > 0) and (DirectionOf(Dest[v2l[Result]]) <> drLTR) do
Result -= 1;
while (Result < vp) and (DirectionOf(Dest[v2l[Result]]) <> drRTL) do
Result += 1;
end
else
Result += 1;
end
else
Result := vp;
if DirectionOf(Src) = drRTL
then
begin
Result := vp;
while (Result > 0) and (DirectionOf(Dest[v2l[Result]]) <> drLTR) do
Result -= 1;
while (Result < vp) and (DirectionOf(Dest[v2l[Result]]) <> drRTL) do
Result += 1;
end
else
Result += 1;
end;
Insert(Src, Dest, lp);
end;
@ -326,7 +339,7 @@ var
begin
v2l := VisualToLogical(str, pDir);
for i := 1 to v2l[0] do
if(v2l[i] < vp) and (v2l[i] > vp + len)
if(v2l[i] >= vp) and (v2l[i] < vp + len)
then
Delete(str, v2l[i], 1);
end;