Changeset 240 for oup/current/FileClasses/_MetaTypes.pas

Timestamp:

Jul 15, 2007, 1:12:26 AM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/FileClasses/_MetaTypes.pas (modified) (3 diffs)

oup/current/FileClasses/_MetaTypes.pas

@@ -5 +5 @@
 uses
   _FileTypes, _EmptyFile, _Unlinked, _DataTypes, _Extensions, _TreeElement,
-  AKVA, TXAN, TXMP;
+  AKVA, SUBT, TXAN, TXMP;
 //  ABNA, AGDB, AGQC, AGQG, AGQM, AGQR, AISA, AITR, AIWA, AKAA, AKBA, AKBP, AKDA,
 //  AKEV, AKOT, AKVA, BINA, CBPI, CBPM, CONS, CRSA, DOOR, DPge, EDIA, ENVP, FILM,
@@ -24 +24 @@
   TExtensions = _Extensions.TExtensions;
   TDataField = _DataTypes.TDataField;
+  TDatLink = _DataTypes.TDatLink;
 
   TFileClass = class of TFile;
@@ -32 +33 @@
 
 const
-  FileDescs: array[0..2] of TFileDesc = (
+  FileDescs: array[0..3] of TFileDesc = (
     (ext: 'AKVA'; ftype: TFile_AKVA),
+    (ext: 'SUBT'; ftype: TFile_SUBT),
     (ext: 'TXAN'; ftype: TFile_TXAN),
     (ext: 'TXMP'; ftype: TFile_TXMP)