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

* replaced non-ascii characters to #XXX equivalents

Browse Source 
git-svn-id: branches/unicodekvm@48866 -
This commit is contained in:
nickysn 2021-03-02 12:29:57 +00:00
parent a57bda94de
commit 6aacb96961
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fv/src/dialogs.inc
View File

@ -2109,7 +2109,7 @@ BEGIN
{$ifdef FV_UNICODE} {$ifdef FV_UNICODE}
c:=#$2584; c:=#$2584;
{$else FV_UNICODE} {$else FV_UNICODE}
c:='Ü'; c:=#220;
{$endif FV_UNICODE} {$endif FV_UNICODE}
MoveChar(Db,c,Bc,1); MoveChar(Db,c,Bc,1);
WriteLine(Size.X-1, 0, 1, 1, Db); WriteLine(Size.X-1, 0, 1, 1, Db);
@ -2119,7 +2119,7 @@ BEGIN
{$ifdef FV_UNICODE} {$ifdef FV_UNICODE}
else c:=#$2580; else c:=#$2580;
{$else FV_UNICODE} {$else FV_UNICODE}
else c:='ß'; else c:=#223;
{$endif FV_UNICODE} {$endif FV_UNICODE}
MoveChar(Db[1],c,Bc,Size.X-1); MoveChar(Db[1],c,Bc,Size.X-1);
WriteLine(0, 1, Size.X, 1, Db); WriteLine(0, 1, Size.X, 1, Db);

2
packages/fv/src/inplong.inc
View File

@ -120,7 +120,7 @@ const
Implementation Implementation
{-----------------TInputLong.Init} {-----------------TInputLong.Init}
constructor TInputLong.Init(var R : TRect; AMaxLen : Sw_Integer; constructor TInputLong.Init(var R : TRect; AMaxLen : Sw_Integer;
LowerLim, UpperLim : LongInt; Flgs : Word); LowerLim, UpperLim : LongInt; Flgs : Word);
begin begin

2
packages/fv/src/menus.inc
View File

@ -1062,7 +1062,7 @@ Const
{$ifdef FV_UNICODE} {$ifdef FV_UNICODE}
(#$250C#$2500#$2510,#$2502#$0020#$2502,#$251C#$2500#$2524,#$2514#$2500#$2518); (#$250C#$2500#$2510,#$2502#$0020#$2502,#$251C#$2500#$2524,#$2514#$2500#$2518);
{$else FV_UNICODE} {$else FV_UNICODE}
('ﾚﾄｿ','ｳ ｳ','ﾃﾄｴ','ﾀﾄﾙ'); (#218#196#191,#179#32#179,#195#196#180,#192#196#217);
{$endif FV_UNICODE} {$endif FV_UNICODE}
Procedure CreateBorder(LineType : FrameLineType); Procedure CreateBorder(LineType : FrameLineType);
Begin Begin

2
packages/fv/src/outline.inc
View File

@ -460,7 +460,7 @@ function Toutlineviewer.getgraph(level:SmallInt;lines:longint;
flags:word):string; flags:word):string;
begin begin
getgraph:=creategraph(level,lines,flags,3,3,' ³ÃÀÄÄ+Ä'); getgraph:=creategraph(level,lines,flags,3,3,#32#179#195#192#196#196#43#196);
end; end;
{$endif FV_UNICODE} {$endif FV_UNICODE}