--- oup/current/FileClasses/_MetaManager.pas	2007/06/12 16:42:53	212
+++ oup/current/FileClasses/_MetaManager.pas	2007/06/12 17:35:56	214
@@ -1,7 +1,7 @@
 unit _MetaManager;
 interface
 
-uses _FileTypes, TXAN, TXMP, _EmptyFile;
+uses _FileTypes, SUBT, TXAN, TXMP, _EmptyFile;
 
 type
   TFileType = class of TFile;
@@ -11,7 +11,8 @@ type
   end;
 
 const
-  FileDescs: array[0..1] of TFileDesc = (
+  FileDescs: array[0..2] of TFileDesc = (
+    (ext: 'SUBT'; ftype: TFile_SUBT),
     (ext: 'TXAN'; ftype: TFile_TXAN),
     (ext: 'TXMP'; ftype: TFile_TXMP)
   );
@@ -28,11 +29,15 @@ type
     public
       constructor Create(ConnectionID: Integer);
       procedure InitFile(id: Integer);
+      procedure InitFileFields(id: Integer);
 
       property FileCount: Integer read GetFileCount;
       property FileById[Id: Integer]: TFile read GetFileById;
   end;
 
+var
+  Meta: TMetaManager;
+
 implementation
 
 uses
@@ -58,7 +63,6 @@ end;
 
 procedure TMetaManager.InitFile(id: Integer);
 var
-//  i: Integer;
   typei: Integer;
   finfo: TFileInfo;
 begin
@@ -85,6 +89,19 @@ begin
     end;
   end;
 end;
+
+procedure TMetaManager.InitFileFields(id: Integer);
+begin
+  if id < ConManager.Connection[FConnectionID].GetFileCount then
+  begin
+    if not Assigned(FFiles[id]) then
+    begin
+      InitFile(id);
+      if not (FFiles[id] is TFile_Empty) then
+        FFiles[id].InitDataFields;
+    end;
+  end;
+end;
 
 procedure TMetaManager.InitRootFiles;
 var