Browse Source

* unicode version of SpecialChars

git-svn-id: branches/unicodekvm@48562 -
nickysn 4 years ago
parent
commit
e8a0abf075
1 changed files with 4 additions and 0 deletions
  1. 4 0
      packages/fv/src/views.inc

+ 4 - 0
packages/fv/src/views.inc

@@ -727,7 +727,11 @@ CONST
 
 
 { Characters used for drawing selected and default items in  }
 { Characters used for drawing selected and default items in  }
 { monochrome color sets                                      }
 { monochrome color sets                                      }
+{$ifdef FV_UNICODE}
+   SpecialChars: Array [0..5] Of WideChar = (#$00BB, #$00AB, #$2192, #$2190, ' ', ' ');
+{$else FV_UNICODE}
    SpecialChars: Array [0..5] Of Char = (#175, #174, #26, #27, ' ', ' ');
    SpecialChars: Array [0..5] Of Char = (#175, #174, #26, #27, ' ', ' ');
+{$endif FV_UNICODE}
 
 
 {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
 {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
 {                        STREAM REGISTRATION RECORDS                        }
 {                        STREAM REGISTRATION RECORDS                        }