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

* converted some non-ascii characters to unicode

Browse Source 
* converted non-ascii characters to #XXX equivalents

git-svn-id: branches/unicodekvm@48868 -
This commit is contained in:
nickysn 2021-03-02 13:59:29 +00:00
parent 088a52a1ce
commit 12fb58325a
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fv/src/views.inc
View File

@ -2746,9 +2746,9 @@ const
#$0020#$255D#$2550#$2567#$2557#$2562#$2564#$256C;
{$else FV_UNICODE}
FrameChars_437: array[0..31] of Char =
' А іЪГ ЩДБїґВЕ И єЙЗ јНП»¶СО';
' '#192' '#179#218#195' '#217#196#193#191#180#194#197' '#200' '#186#201#199' '#188#205#207#187#182#209#206;
FrameChars_850: array[0..31] of Char =
' А іЪГ ЩДБїґВЕ И єЙє јНН»єНО';
' '#192' '#179#218#195' '#217#196#193#191#180#194#197' '#200' '#186#201#186' '#188#205#205#187#186#205#206;
{$endif FV_UNICODE}
var
FrameMask : array[0..MaxViewWidth-1] of Byte;
@ -2914,7 +2914,11 @@ begin
begin
if PWindow(Owner)^.Flags and wfClose <> 0 then
if FrameMode and fmCloseClicked = 0 then
MoveCStr(B[2], '[~ю~]', CFrame)
{$ifdef FV_UNICODE}
MoveCStr(B[2], '[~'#$25A0'~]', CFrame)
{$else FV_UNICODE}
MoveCStr(B[2], '[~'#254'~]', CFrame)
{$endif FV_UNICODE}
else
MoveCStr(B[2], '[~'+ClickC[LowAscii]+'~]', CFrame);
if PWindow(Owner)^.Flags and wfZoom <> 0 then
@ -2945,7 +2949,11 @@ begin
FrameLine(B, Size.Y - 1, F + 6, Byte(CFrame));
if State and sfActive <> 0 then
if PWindow(Owner)^.Flags and wfGrow <> 0 then
MoveCStr(B[Width - 2], '~ДЩ~', CFrame);
{$ifdef FV_UNICODE}
MoveCStr(B[Width - 2], '~'#$2500#$2518'~', CFrame);
{$else FV_UNICODE}
MoveCStr(B[Width - 2], '~'#196#217'~', CFrame);
{$endif FV_UNICODE}
WriteLine(0, Size.Y - 1, Size.X, 1, B);
end;