ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/FileClasses/BINA.pas
(Generate patch)

Comparing oup/current/FileClasses/BINA.pas (file contents):
Revision 247 by alloc, Sat Aug 18 15:51:42 2007 UTC vs.
Revision 248 by alloc, Mon Nov 26 11:02:28 2007 UTC

# Line 6 | Line 6 | uses
6    _FileTypes, Grids;
7  
8   type
9 <  TFile_BINA = class(TFile)
9 >  TFile_BINA = class(TResource)
10        procedure SetOpened(Opened: Boolean); override;
11      private
12        maintype: String;
# Line 32 | Line 32 | begin
32    FDataFields := TBlock.Create(Self, nil, 'Base', '', []);
33    with FDataFields do
34    begin
35 <    AddField(TFileID, 'FileID', '', []);
35 >    AddField(TResourceID, 'FileID', '', []);
36      AddField(TLevelID, 'LevelID', '', []);
37  
38      AddField(TInt, 'RawSize', 'Size of the part in the raw file', [4]);

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)