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

lowercase: Fixes disalligned chars for

Browse Source 
git-svn-id: trunk@32852 -
This commit is contained in:
sekelsenmat 2011-10-12 12:50:38 +00:00
parent 2640733df3
commit dc435d6380
1 changed files with 18 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
components/lazutils/lazutf8.pas
View File

@ -1176,7 +1176,6 @@ var
// Language identification
IsTurkish: Boolean;
c: Char;
begin
Result:=AInStr;
InStr := PChar(AInStr);
@ -1238,7 +1237,6 @@ begin
// $C39F: ß already lowercase
#$C3:
begin
// $C39F: ß already lowercase
if InStr[1] in [#$80..#$9E] then
begin
if (CounterDiff <> 0) then OutStr^ := InStr[0];
@ -1366,13 +1364,10 @@ begin
if (CounterDiff <> 0) then OutStr^ := InStr[0];
OutStr[1] := chr(ord(c) + 1);
end
else
else if (CounterDiff <> 0) then
begin
if (CounterDiff <> 0) then
begin
OutStr^ := InStr[0];
OutStr[1] :=c;
end;
OutStr^ := InStr[0];
OutStr[1] :=c;
end;
inc(InStr, 2);
inc(OutStr, 2);
@ -1428,20 +1423,15 @@ begin
#$D1:
begin
c := InStr[1];
case c of
#$A0..#$BF:
begin
if ord(c) mod 2 = 0 then
begin
if (CounterDiff <> 0) then OutStr^ := InStr[0];
OutStr[1] := chr(ord(c) + 1);
end
else if (CounterDiff <> 0) then
begin
OutStr^ := InStr[0];
OutStr[1] := c;
end;
end;
if (c in [#$A0..#$BF]) and (ord(c) mod 2 = 0) then
begin
if (CounterDiff <> 0) then OutStr^ := InStr[0];
OutStr[1] := chr(ord(c) + 1);
end
else if (CounterDiff <> 0) then
begin
OutStr^ := InStr[0];
OutStr[1] := c;
end;
inc(InStr, 2);
inc(OutStr, 2);
@ -1458,7 +1448,8 @@ begin
OutStr[1] := chr(ord(c) + 1);
end;
// #$81 is already lowercase
#$81:
// #$82-#$89 ???
#$81..#$89:
begin
if (CounterDiff <> 0) then
begin
@ -1466,7 +1457,6 @@ begin
OutStr[1] := c;
end;
end;
// #$82-#$89 ???
#$8A..#$BF:
begin
if ord(c) mod 2 = 0 then
@ -1485,11 +1475,10 @@ begin
inc(OutStr, 2);
end;
else
// Copy the character if the string was disaligned by previous changes
if (CounterDiff <> 0) then
OutStr^:=c;
inc(InStr);
inc(OutStr);
// Copy the character if the string was disaligned by previous changes
if (CounterDiff <> 0) then OutStr^:=c;
inc(InStr);
inc(OutStr);
end; // Case InStr^
end; // while