--- oup/current/FileClasses/BINA.pas	2007/08/18 15:51:42	245
+++ oup/current/FileClasses/BINA.pas	2007/11/26 11:02:28	248
@@ -6,7 +6,7 @@ uses
   _FileTypes, Grids;
 
 type
-  TFile_BINA = class(TFile)
+  TFile_BINA = class(TResource)
       procedure SetOpened(Opened: Boolean); override;
     private
       maintype: String;
@@ -32,7 +32,7 @@ begin
   FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
   with FDataFields do
   begin
-    AddField(TFileID, 'FileID', '', []);
+    AddField(TResourceID, 'FileID', '', []);
     AddField(TLevelID, 'LevelID', '', []);
 
     AddField(TInt, 'RawSize', 'Size of the part in the raw file', [4]);