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

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

Browse Source 
git-svn-id: branches/unicodekvm@48865 -
This commit is contained in:
nickysn 2021-03-02 12:28:55 +00:00
parent c1dca28cc5
commit a57bda94de
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fv/src/statuses.pas
View File

@ -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. }