Browse Source

* unicode conversion of the non-ASCII characters in statuses.pas

git-svn-id: branches/unicodekvm@48865 -
nickysn 4 years ago
parent
commit
a57bda94de
1 changed files with 5 additions and 1 deletions
  1. 5 1
      packages/fv/src/statuses.pas

+ 5 - 1
packages/fv/src/statuses.pas

@@ -168,7 +168,11 @@ Highlighted Text
 {#Z-}
 {#Z-}
   {#X tvStatus TStatusDlg TStatusMessageDlg }
   {#X tvStatus TStatusDlg TStatusMessageDlg }
 
 
-  SpinChars : String[4] = '³/Ä\';
+{$ifdef FV_UNICODE}
+  SpinChars : UnicodeString = #$2502'/'#$2500'\';
+{$else FV_UNICODE}
+  SpinChars : String[4] = #179'/'#196'\';
+{$endif FV_UNICODE}
     { SpinChars are the characters used by a #TSpinnerGauge# when it is drawn.
     { SpinChars are the characters used by a #TSpinnerGauge# when it is drawn.
       Only one character is displayed at a time.  The string is cycled
       Only one character is displayed at a time.  The string is cycled
       through then started over again until the view is disposed. }
       through then started over again until the view is disposed. }