Browse Source

* TTitleStr redefined as UnicodeString in the unicode version of the views unit

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

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

@@ -267,7 +267,11 @@ CONST
 {                            TWindow Title string                           }
 {---------------------------------------------------------------------------}
 TYPE
+{$ifdef FV_UNICODE}
+   TTitleStr = UnicodeString;                         { Window title string }
+{$else FV_UNICODE}
    TTitleStr = String[80];                            { Window title string }
+{$endif FV_UNICODE}
 
 {---------------------------------------------------------------------------}
 {                            COMMAND SET RECORD                             }