Browse Source

* use ufvcommon in unit uapp

git-svn-id: branches/unicodekvm@48599 -
nickysn 4 years ago
parent
commit
a9a0dfeae3
2 changed files with 5 additions and 1 deletions
  1. 1 1
      packages/fv/fpmake.pp
  2. 4 0
      packages/fv/src/app.inc

+ 1 - 1
packages/fv/fpmake.pp

@@ -56,7 +56,7 @@ begin
         begin
         begin
           AddInclude('app.inc');
           AddInclude('app.inc');
           AddInclude('platform.inc');
           AddInclude('platform.inc');
-          AddUnit('fvcommon');
+          AddUnit('ufvcommon');
           AddUnit('udrivers');
           AddUnit('udrivers');
           AddUnit('uviews');
           AddUnit('uviews');
           AddUnit('umenus');
           AddUnit('umenus');

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

@@ -69,7 +69,11 @@ USES
    {$ENDIF}
    {$ENDIF}
    Dos,
    Dos,
    Video,
    Video,
+{$ifdef FV_UNICODE}
+   UFVCommon, {Memory,}                                { GFV standard units }
+{$else FV_UNICODE}
    FVCommon, {Memory,}                                { GFV standard units }
    FVCommon, {Memory,}                                { GFV standard units }
+{$endif FV_UNICODE}
    Objects,
    Objects,
 {$ifdef FV_UNICODE}
 {$ifdef FV_UNICODE}
    UDrivers, UViews, UMenus, UHistList, UDialogs, Umsgbox,
    UDrivers, UViews, UMenus, UHistList, UDialogs, Umsgbox,