Browse Source

+ introduced unit uviews, which is going to be the unicode enabled version of the views unit

git-svn-id: branches/unicodekvm@48546 -
nickysn 4 years ago
parent
commit
b564e400fc
4 changed files with 17 additions and 1 deletions
  1. 1 0
      .gitattributes
  2. 9 0
      packages/fv/fpmake.pp
  3. 2 0
      packages/fv/src/uviews.pas
  4. 5 1
      packages/fv/src/views.inc

+ 1 - 0
.gitattributes

@@ -5029,6 +5029,7 @@ packages/fv/src/time.pas svneol=native#text/plain
 packages/fv/src/timeddlg.pas svneol=native#text/plain
 packages/fv/src/udrivers.pas svneol=native#text/plain
 packages/fv/src/unixsmsg.inc svneol=native#text/plain
+packages/fv/src/uviews.pas svneol=native#text/plain
 packages/fv/src/validate.pas svneol=native#text/plain
 packages/fv/src/views.inc svneol=native#text/plain
 packages/fv/src/views.pas svneol=native#text/plain

+ 9 - 0
packages/fv/fpmake.pp

@@ -279,6 +279,15 @@ begin
           AddUnit('drivers');
           AddUnit('fvconsts');
         end;
+    T:=P.Targets.AddUnit('uviews.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('views.inc');
+          AddInclude('platform.inc');
+          AddUnit('fvcommon');
+          AddUnit('udrivers');
+          AddUnit('fvconsts');
+        end;
     P.ExamplePath.Add('examples');
     P.ExamplePath.Add('src');
     P.Targets.AddExampleProgram('examples/testapp.pas');

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

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

+ 5 - 1
packages/fv/src/views.inc

@@ -25,7 +25,11 @@
 {                                                          }
 {**********************************************************}
 
+{$ifdef FV_UNICODE}
+UNIT UViews;
+{$else FV_UNICODE}
 UNIT Views;
+{$endif FV_UNICODE}
 
 {$CODEPAGE cp437}
 
@@ -56,7 +60,7 @@ USES
      Os2Def, DosCalls, PmWin,
    {$ENDIF}
 
-   Objects, FVCommon, Drivers, fvconsts;              { GFV standard units }
+   Objects, FVCommon, {$ifdef FV_UNICODE}UDrivers{$else}Drivers{$endif}, fvconsts; { GFV standard units }
 
 {***************************************************************************}
 {                              PUBLIC CONSTANTS                             }