Преглед изворни кода

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

git-svn-id: branches/unicodekvm@48558 -
nickysn пре 4 година
родитељ
комит
c9cc530d94
1 измењених фајлова са 4 додато и 0 уклоњено
  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                             }