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

to be reverted utf8 char mishmash

Browse Source
This commit is contained in:
Margers 2024-09-04 09:24:46 +00:00
parent 16da5280b2
commit 471a735fe6
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
packages/ide/fpviews.pas
View File

@ -3662,7 +3662,7 @@ begin
if HeaderLen>Size.X-2 then HeaderLen:=Size.X-2;
{ --- 1. sor --- }
ClearBuf; MoveChar(B[0],'³',C1,1); MoveChar(B[HeaderLen+1],'³',C1,1);
ClearBuf; MoveChar(B[0],'<EFBFBD>',C1,1); MoveChar(B[HeaderLen+1],'<EFBFBD>',C1,1);
X:=1;
for i:=0 to DefCount-1 do
begin
@ -3675,47 +3675,47 @@ begin
end
else C:=C2;
MoveCStr(B[X],' '+Name^+' ',C); X:=X+X2+3;
MoveChar(B[X-1],'³',C1,1);
MoveChar(B[X-1],'<EFBFBD>',C1,1);
end;
SWriteBuf(0,1,Size.X,1,B);
{ --- 0. sor --- }
ClearBuf; MoveChar(B[0],'Ú',C1,1);
ClearBuf; MoveChar(B[0],'<EFBFBD>',C1,1);
X:=1;
for i:=0 to DefCount-1 do
begin
if I<ActiveDef then FC:='Ú'
else FC:='¿';
if I<ActiveDef then FC:='<EFBFBD>'
else FC:='<EFBFBD>';
X2:=CStrLen(AtTab(i)^.Name^)+2;
MoveChar(B[X+X2],{'Â'}FC,C1,1);
MoveChar(B[X+X2],{'<EFBFBD>'}FC,C1,1);
if i=DefCount-1 then X2:=X2+1;
if X2>0 then
MoveChar(B[X],'Ä',C1,X2);
MoveChar(B[X],'<EFBFBD>',C1,X2);
X:=X+X2+1;
end;
MoveChar(B[HeaderLen+1],'¿',C1,1);
MoveChar(B[ActiveKPos],'Ú',C1,1); MoveChar(B[ActiveVPos],'¿',C1,1);
MoveChar(B[HeaderLen+1],'<EFBFBD>',C1,1);
MoveChar(B[ActiveKPos],'<EFBFBD>',C1,1); MoveChar(B[ActiveVPos],'<EFBFBD>',C1,1);
SWriteBuf(0,0,Size.X,1,B);
{ --- 2. sor --- }
MoveChar(B[1],'Ä',C1,Max(HeaderLen,0)); MoveChar(B[HeaderLen+2],'Ä',C1,Max(Size.X-HeaderLen-3,0));
MoveChar(B[Size.X-1],'¿',C1,1);
MoveChar(B[ActiveKPos],'Ù',C1,1);
if ActiveDef=0 then MoveChar(B[0],'³',C1,1)
else MoveChar(B[0],{'Ã'}'Ú',C1,1);
MoveChar(B[HeaderLen+1],'Ä'{'Á'},C1,1); MoveChar(B[ActiveVPos],'À',C1,1);
MoveChar(B[1],'<EFBFBD>',C1,Max(HeaderLen,0)); MoveChar(B[HeaderLen+2],'<EFBFBD>',C1,Max(Size.X-HeaderLen-3,0));
MoveChar(B[Size.X-1],'<EFBFBD>',C1,1);
MoveChar(B[ActiveKPos],'<EFBFBD>',C1,1);
if ActiveDef=0 then MoveChar(B[0],'<EFBFBD>',C1,1)
else MoveChar(B[0],{'<EFBFBD>'}'<27>',C1,1);
MoveChar(B[HeaderLen+1],'<EFBFBD>'{'<27>'},C1,1); MoveChar(B[ActiveVPos],'<EFBFBD>',C1,1);
MoveChar(B[ActiveKPos+1],' ',C1,Max(ActiveVPos-ActiveKPos-1,0));
SWriteBuf(0,2,Size.X,1,B);
{ --- marad‚k sor --- }
ClearBuf; MoveChar(B[0],'³',C1,1); MoveChar(B[Size.X-1],'³',C1,1);
{ --- marad<EFBFBD>k sor --- }
ClearBuf; MoveChar(B[0],'<EFBFBD>',C1,1); MoveChar(B[Size.X-1],'<EFBFBD>',C1,1);
for i:=3 to Size.Y-1 do
SWriteBuf(0,i,Size.X,1,B);
{ SWriteBuf(0,3,Size.X,Size.Y-4,B); this was wrong
because WriteBuf then expect a buffer of size size.x*(size.y-4)*2 PM }
{ --- Size.X . sor --- }
MoveChar(B[0],'À',C1,1); MoveChar(B[1],'Ä',C1,Max(Size.X-2,0)); MoveChar(B[Size.X-1],'Ù',C1,1);
MoveChar(B[0],'<EFBFBD>',C1,1); MoveChar(B[1],'<EFBFBD>',C1,Max(Size.X-2,0)); MoveChar(B[Size.X-1],'<EFBFBD>',C1,1);
SWriteBuf(0,Size.Y-1,Size.X,1,B);
{ - End of TGroup.Draw - }
@ -4301,7 +4301,7 @@ begin
R2.Move(0,2);
Insert(New(PStaticText, Init(R2, ^C'Copyright (C) 1998-2020 by')));
R2.Move(0,2);
Insert(New(PStaticText, Init(R2, ^C'B‚rczi G bor')));
Insert(New(PStaticText, Init(R2, ^C'B<EFBFBD>rczi G<>bor')));
R2.Move(0,1);
Insert(New(PStaticText, Init(R2, ^C'Pierre Muller')));
R2.Move(0,1);
@ -4317,14 +4317,14 @@ begin
AddLine(^C'< Compiler development >');
AddLine(^C'Carl-Eric Codere');
AddLine(^C'Daniel Mantione');
AddLine(^C'Florian Kl„mpfl');
AddLine(^C'Florian Kl<EFBFBD>mpfl');
AddLine(^C'Jonas Maebe');
AddLine(^C'Mich„el Van Canneyt');
AddLine(^C'Mich<EFBFBD>el Van Canneyt');
AddLine(^C'Peter Vreman');
AddLine(^C'Pierre Muller');
AddLine('');
AddLine(^C'< IDE development >');
AddLine(^C'B‚rczi G bor');
AddLine(^C'B<EFBFBD>rczi G<>bor');
AddLine(^C'Peter Vreman');
AddLine(^C'Pierre Muller');
AddLine('');