Browse Source

+ use unit (u)fvcommon in (u)msgbox

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

+ 2 - 0
packages/fv/fpmake.pp

@@ -254,6 +254,7 @@ begin
           AddUnit('drivers');
           AddUnit('views');
           AddUnit('app');
+          AddUnit('fvcommon');
         end;
     T.ResourceStrings := True;
     T:=P.Targets.AddUnit('umsgbox.pas');
@@ -265,6 +266,7 @@ begin
           AddUnit('udrivers');
           AddUnit('uviews');
           AddUnit('uapp');
+          AddUnit('ufvcommon');
         end;
     T.ResourceStrings := True;
     T:=P.Targets.AddUnit('outline.pas');

+ 2 - 2
packages/fv/src/msgbox.inc

@@ -87,9 +87,9 @@ UNIT MsgBox;
 
 USES objects,                                 { Standard GFV units }
 {$ifdef FV_UNICODE}
-     udialogs;
+     ufvcommon,udialogs;
 {$else FV_UNICODE}
-     dialogs;
+     fvcommon,dialogs;
 {$endif FV_UNICODE}
 
 {***************************************************************************}