Browse Source

+ ufvcommon unit

git-svn-id: branches/unicodekvm@48592 -
nickysn 4 years ago
parent
commit
29dfb6131e
4 changed files with 13 additions and 0 deletions
  1. 1 0
      .gitattributes
  2. 6 0
      packages/fv/fpmake.pp
  3. 4 0
      packages/fv/src/fvcommon.inc
  4. 2 0
      packages/fv/src/ufvcommon.pas

+ 1 - 0
.gitattributes

@@ -5037,6 +5037,7 @@ packages/fv/src/timeddlg.pas svneol=native#text/plain
 packages/fv/src/uapp.pas svneol=native#text/plain
 packages/fv/src/uapp.pas svneol=native#text/plain
 packages/fv/src/udialogs.pas svneol=native#text/plain
 packages/fv/src/udialogs.pas svneol=native#text/plain
 packages/fv/src/udrivers.pas svneol=native#text/plain
 packages/fv/src/udrivers.pas svneol=native#text/plain
+packages/fv/src/ufvcommon.pas svneol=native#text/plain
 packages/fv/src/uhistlist.pas svneol=native#text/plain
 packages/fv/src/uhistlist.pas svneol=native#text/plain
 packages/fv/src/umenus.pas svneol=native#text/plain
 packages/fv/src/umenus.pas svneol=native#text/plain
 packages/fv/src/umsgbox.pas svneol=native#text/plain
 packages/fv/src/umsgbox.pas svneol=native#text/plain

+ 6 - 0
packages/fv/fpmake.pp

@@ -178,6 +178,12 @@ begin
           AddInclude('fvcommon.inc');
           AddInclude('fvcommon.inc');
           AddInclude('platform.inc');
           AddInclude('platform.inc');
         end;
         end;
+    T:=P.Targets.AddUnit('ufvcommon.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('fvcommon.inc');
+          AddInclude('platform.inc');
+        end;
     T:=P.Targets.AddUnit('fvconsts.pas');
     T:=P.Targets.AddUnit('fvconsts.pas');
     T:=P.Targets.AddUnit('gadgets.pas');
     T:=P.Targets.AddUnit('gadgets.pas');
       with T.Dependencies do
       with T.Dependencies do

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

@@ -51,7 +51,11 @@
 {  0.4.0   14 Nov 00  LdB    Revamp of whole unit          }
 {  0.4.0   14 Nov 00  LdB    Revamp of whole unit          }
 {**********************************************************}
 {**********************************************************}
 
 
+{$ifdef FV_UNICODE}
+UNIT UFVCommon;
+{$else FV_UNICODE}
 UNIT FVCommon;
 UNIT FVCommon;
+{$endif FV_UNICODE}
 
 
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
                                   INTERFACE
                                   INTERFACE

+ 2 - 0
packages/fv/src/ufvcommon.pas

@@ -0,0 +1,2 @@
+{$DEFINE FV_UNICODE}
+{$I fvcommon.inc}