paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-15 17:42:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: implemented non UTF-8 characters are shown as ?

Browse Source 
git-svn-id: trunk@15347 -
This commit is contained in:
mattias 2008-06-07 00:39:15 +00:00
parent fff34bfe63
commit e8e615a9b1
2 changed files with 31 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
components/synedit/synedit.pp
View File

@ -3267,9 +3267,9 @@ var
procedure ExpandSpecialChars(var p: PChar; var Count: integer;
PhysicalStartPos: integer);
// if there are no tabs: keep p and Count untouched
// if there are tabs: copy p into ExpandedPaintToken buffer,
// convert tabs to spaces, and return the buffer
// if there are no tabs or special chars: keep p and Count untouched
// if there are special chars: copy p into ExpandedPaintToken buffer,
// convert tabs to spaces, and return the buffer
var
i: integer;
TabCount, LengthNeeded: Integer;
@ -3284,8 +3284,10 @@ var
TabCount:=0;
for i:=0 to Count-1 do
if p[i]=#9 then inc(TabCount);
if TabCount=0 then exit;
LengthNeeded:=Count+TabCount*8;
if (TabCount=0)
and (FindInvalidUTF8Character(p,Count)<0) then
exit;
LengthNeeded:=Count+TabCount*TabWidth;
if length(ExpandedPaintToken)<LengthNeeded then
SetLength(ExpandedPaintToken,LengthNeeded+CharsInWindow);
SrcPos:=0;
@ -3295,13 +3297,28 @@ var
while SrcPos<Count do begin
c:=p[SrcPos];
case c of
#128..#195:
begin
if UseUTF8 then
Dest[DestPos]:='?' // non UTF-8 character
else
Dest[DestPos]:=p[SrcPos]; // normal char
inc(DestPos);
inc(SrcPos);
inc(ScreenPos);
end;
#196..#255:
begin
// could be UTF8 char
if UseUTF8 then
CharLen:=UTF8CharacterLength(@p[SrcPos])
else
if UseUTF8 then begin
CharLen:=UTF8CharacterStrictLength(@p[SrcPos]);
if CharLen=0 then begin
Dest[DestPos]:='?';
inc(DestPos);
inc(SrcPos);
end;
end else
CharLen:=1;
for i:=1 to CharLen do begin
Dest[DestPos]:=p[SrcPos];

7
lcl/lconvencoding.pas
View File

@ -4137,7 +4137,12 @@ begin
inc(p);
end else begin
i:=UTF8CharacterStrictLength(@s[p]);
if i=0 then break;
if i=0 then begin
{$IFDEF VerboseIDEEncoding}
DebugLn(['GuessEncoding non UTF-8 found at ',p,' ',dbgstr(copy(s,p-10,20))]);
{$ENDIF}
break;
end;
inc(p);
end;
end;