+ added unicode versions of the app, dialogs, msgbox and validate units (unicode conversion not completed yet)

git-svn-id: branches/unicodekvm@48585 -

.gitattributes

@@ -5033,11 +5033,15 @@ packages/fv/src/sysmsg.pas svneol=native#text/plain
 packages/fv/src/tabs.pas svneol=native#text/plain
 packages/fv/src/time.pas svneol=native#text/plain
 packages/fv/src/timeddlg.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/udrivers.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/umsgbox.pas svneol=native#text/plain
 packages/fv/src/unixsmsg.inc svneol=native#text/plain
 packages/fv/src/uoutline.pas svneol=native#text/plain
+packages/fv/src/uvalidate.pas svneol=native#text/plain
 packages/fv/src/uviews.pas svneol=native#text/plain
 packages/fv/src/validate.inc svneol=native#text/plain
 packages/fv/src/validate.pas svneol=native#text/plain

packages/fv/fpmake.pp

@@ -51,6 +51,21 @@ begin
           AddUnit('fvconsts');
         end;
     T.ResourceStrings := True;
+    T:=P.Targets.AddUnit('uapp.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('app.inc');
+          AddInclude('platform.inc');
+          AddUnit('fvcommon');
+          AddUnit('udrivers');
+          AddUnit('uviews');
+          AddUnit('umenus');
+          AddUnit('uhistlist');
+          AddUnit('udialogs');
+          AddUnit('umsgbox');
+          AddUnit('fvconsts');
+        end;
+    T.ResourceStrings := True;
     T:=P.Targets.AddUnit('asciitab.pas');
       with T.Dependencies do
         begin
@@ -111,6 +126,20 @@ begin
           AddUnit('histlist');
         end;
     T.ResourceStrings := True;
+    T:=P.Targets.AddUnit('udialogs.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('dialogs.inc');
+          AddInclude('platform.inc');
+          AddUnit('fvcommon');
+          AddUnit('fvconsts');
+          AddUnit('udrivers');
+          AddUnit('uviews');
+          AddUnit('uvalidate');
+          AddUnit('uapp');
+          AddUnit('uhistlist');
+        end;
+    T.ResourceStrings := True;
     T:=P.Targets.AddUnit('drivers.pas');
       with T.Dependencies do
         begin
@@ -218,6 +247,17 @@ begin
           AddUnit('app');
         end;
     T.ResourceStrings := True;
+    T:=P.Targets.AddUnit('umsgbox.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('msgbox.inc');
+          AddInclude('platform.inc');
+          AddUnit('udialogs');
+          AddUnit('udrivers');
+          AddUnit('uviews');
+          AddUnit('uapp');
+        end;
+    T.ResourceStrings := True;
     T:=P.Targets.AddUnit('outline.pas');
       with T.Dependencies do
         begin
@@ -300,6 +340,15 @@ begin
           AddUnit('fvconsts');
           AddUnit('msgbox');
         end;
+    T:=P.Targets.AddUnit('uvalidate.pas');
+      with T.Dependencies do
+        begin
+          AddInclude('validate.inc');
+          AddInclude('platform.inc');
+          AddUnit('fvcommon');
+          AddUnit('fvconsts');
+          AddUnit('umsgbox');
+        end;
     T:=P.Targets.AddUnit('views.pas');
       with T.Dependencies do
         begin

packages/fv/src/app.inc

@@ -25,7 +25,11 @@
 {                                                          }
 {**********************************************************}
 
+{$ifdef FV_UNICODE}
+UNIT UApp;
+{$else FV_UNICODE}
 UNIT App;
+{$endif FV_UNICODE}
 
 {2.0 compatibility}
 {$ifdef VER2_0}

packages/fv/src/dialogs.inc

@@ -25,7 +25,11 @@
 {                                                          }
 {**********************************************************}
 
+{$ifdef FV_UNICODE}
+UNIT UDialogs;
+{$else FV_UNICODE}
 UNIT Dialogs;
+{$endif FV_UNICODE}
 
 {$CODEPAGE cp437}
 

packages/fv/src/msgbox.inc

@@ -44,7 +44,11 @@
 {  1.60     30 Sep 99   Complete recheck preformed         }
 {**********************************************************}
 
+{$ifdef FV_UNICODE}
+UNIT UMsgBox;
+{$else FV_UNICODE}
 UNIT MsgBox;
+{$endif FV_UNICODE}
 
 {2.0 compatibility}
 {$ifdef VER2_0}

packages/fv/src/uapp.pas

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

packages/fv/src/udialogs.pas

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

packages/fv/src/umsgbox.pas

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

packages/fv/src/uvalidate.pas

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

packages/fv/src/validate.inc

@@ -42,7 +42,11 @@
 {  1.41     03 Nov 99   FPC windows code added             }
 {**********************************************************}
 
+{$ifdef FV_UNICODE}
+UNIT UValidate;
+{$else FV_UNICODE}
 UNIT Validate;
+{$endif FV_UNICODE}
 
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
                                   INTERFACE